分页:
上一页 1 2 3 4 5 6 7 [8] 9 10 下一页
(13) ?A,B,A+B
(14) USE
(15) RETURN
4.在新复制的数据库CG.DNF中,按条件查询并显示姓名为李红的信息。
(1) SET TALK OFF
(2) USE GZ2
(3) COPY TO CG FIEL 姓名FOR 奖金>200
(4) USE CG
(5) STOR 李红TO NA
(6) INDEX ON 姓名TO GGL
(7) FIND &NA
(8) DISP
(9) USE
(10) RETURN
5.将内存变量X的值从0开始逐次加2,超过100后输出。、
(1) SET TALK OFF
(2) X=0
(3) DO WHILE .T.
(4) IF X>=100
(5) ?X
(6) EXIT
(7) ENDIF
(8) X=X+2
(9) ENDDO
(10) ?" X= " +STR(X,3)
(11) RETURN
6.显示数据库GZ1.DBF 中的全部记录的部分字段内容。
(1) SET TALK OFF
(2) CLEA
(3) USE GZ1
(4) DO WHILE .T.
(5) @ROW()+1,10 SAY 编号
(6) @ROW(),COL()SAY 姓名
(7) @ROW(),COL()SAY 总收入
(8) SKIP
(9) ENDDO
(10) SET TALK ON
(11) USE
(12) RETURN
7.向数据库GZ1.DBF中追加一条记录。
(1) SET TALK OFF
(2) USE
(3) CLEA
(4) APPE BLANK
(5) @4,5 SAY "编号:" GET 编号
(6) @4,30 SAY "姓名:" GET 姓名、
分页:
上一页 1 2 3 4 5 6 7 [8] 9 10 下一页