注意:若表已自动打开,则不需要使用 use 命令打开 2.1 1、 edit fields 编号,,职称,讲课工作量,讲课酬金 for 授课班级=”94 公路_2” 或者:locate for 授课班级=”94 公路_2” edit 2、 goto 5 display next 6 fields ,系名,授课班级,授课人数,课时 3、 copy structure to c:\s1_1a.dbf 4、 goto 20 replace rest 讲课
工作量 with int(课时*授课人数/20) 5、 append from c:\y2_1b.dbf 6、 go bottom scatter to memvar append blank gather from menvar 7、 recall for 系名=”
经济系” 8、 list for delete() 9、 sort to s2_1dx.dbf on 职称/A,授课人数/D 2.2 1、goto 2 display rest for GZRQ<={^1990/12/31} 或者 display rest for Year(GZRQ)<1991 2、sort to c:\s2_2dx.dbf on DWDH/A,GZRQ/D 3、goto 30 replace rest SHPT with int(SHPT) 4、browse fields ##,BZGZ,BQ,KZ 5、copy structure to c:\s2_2b.dbf 6、append from c:\y2_2b.txt delimited 7、go bottom scatter to memvar append blank gather from menvar 8、recall for substr(xm,1,2)=”张” 9、recall all 10、delete for BZGZ>100.00 Pack 2.3 1、change for ZY=”学生” 2、list fields ,NL,F1,F2,F3 for XL=”大专” or XL=”大学” 或者 display all fields ,NL,F1,F2,F3 for XL=”大专” or XL=”大学” 3、goto 20 replace rest ZF with sqrt(560) 4、菜单操作,追加记录,数据表已打开: a 选择“表”菜单/追加记录(A)
b 在出现的“追加来源”对话框中做相应设定:类型:delimited text 来源:y2_7b.txt c 点击“确定”按钮即可( 注:类型和来源要根据题目的要求来定) 5、use y2_7d.dbf Copy to c:\y2_7c.dbf Use c:\y2_7c.dbf Recall for XL=”初中” 6、delete for ZY=”干部” and year(NN)<1997 pack 7、use y2_7e.dbf Copy to c:\s2_7d.dbf Use c:\s2_7d.dbf Sort to c:\s2_7dx.dbf on NL/D,SFZH/A 2.4 1、use s2_19.dbf Edit for substr(xm,1,2)=”张” 或者:locate for substr(xm,1,2)=”张” edit 2、use s2_19d.dbf sort to c:\s2_19dx on ZKZH/D,PC/D,T1/A 3 、 display fields ZKZH,XM,F5,F6 for T2=”2” and recno()>recount()-70 or T3=”3” and recno()>recount()-70 4、replace XM with “王一东” for len(XM)=4 或者:locate for len(XM)=4 Replace XM with “王一东” 5、use y2_19a.dbf Copy structure extended to c:\s2_19a.dbf 6、use s2_19a.dbf Append from c:\y2_19b.dbf 7、use y2_19c.dbf Copy to c:\s2_19b.dbf 8、go bottom scatter to memvar append blank gather from menvar 9、use s2_19c.dbf recall for PC=11 10、use s2_19c.dbf Delete for between(T1,3,7) Pack 2.5 1、go 7 或者:goto 7 2、use s2_20d.dbf
Sort to c:\s2_20dx on A1/A,A3/D,A6/A 3、display fields XH,A1,书名,A6,A7 for A5=”大 32” and recno()>recount()-80 或者:locate for A5=”大 32” display fields XH,A1,书名,A6,A7 for recno()>recount()-80 4、replace rest A7 with round(A7) for A1=.f. 或者:locate for A1=.f. replace rest A7 with round(A7) 5、use c:\98sjk\ksml2\y2_20a.dbf Copy structure extended to d:\s2_20a.dbf 6、use d:\s2_20a.dbf Append form c: \9
8sjk\ksml2\y2_20b.txt delimited 7、create c:\s2_20b.dbf from c:\98sjk\ksml2\y2_20c.dbf 8、use c:\s2_20b.dbf go bottom scatter to memvar append blank gather from menvar 9、 use s2_20c.dbf recall for A1=”D” 10、use s2_20c.dbf Delete for A6>50 and A6<100 Pack 7.1 1、A1=”22” B1=22 C1={^1998/07/02} 或者 {07/02/98} D1=NULL E1=.F. 2、DIMENSION SZ(5) SZ(1)=”B” SZ(2)=22 SZ(3)={^1998/06/02} SZ(4)={10:00 AM} SZ(5)=.F. 3、=ADEL(SZ,3) =AINS(SZ,4) 4、FUNCTION MYFUNC1(x) RETURN SQRT(X) ENDFUNC 5、nVAR=MYFUNC1(16) *该函数是计算数据的平方值 FUNCTION MYFUNC1(x) RETURN X*X
ENDFUNC *该程序是转换字符的 ASC 码 FUNCTION MYFUNC1(stri) Return