1、上一个
if bof() then
wait "已到首记录" window
go top
else **此语句后必须另起一行再写，否则程序没有反应
skip -1
endif
thisform.refresh
2、下一个
if eof() then
wait "已是尾记录" window
go bottom
else
skip 1
endif
thisform.refresh
3、首记录
go top
thisform.refresh
4、尾记录
go bottom
thisform.refresh
5、添加
append blank
thisform.refresh
6、删除
delete
back
thisform.refresh
7、返回到登录窗口
do form "系统登录"
thisform.releas
8、登录系统
WAIT "欢迎使用本系统" windows TIMEOUT 5
DO form "学生信息管理系统"
thisform.release
9、打印报表代码：
Messagebox（“请准备好打印纸，并开启打印机！”，16,“提示信息”）
Report form 库存明细表.frx to printer
10、添加背景音乐：
set bell to *.wav,0
chr(7)
11、搜索
If (客户资料.姓名)=ALLT(THISFORM.TEXT1.VALUE) OR ALLT(客户资料.性别)=ALLT (THISFORM.TEXT2.VALUE)
LOCATE FOR ALLT(客户资料.姓名)=ALLT(THISFORM.TEXT1.VALUE) OR ALLT(客户资料.性别)=ALLT(THISFORM.TEXT2.VALUE)
THISFORM.GRED1.VISIBLE=.T.
THISFORM.REFRESH
ELSE
=MESSAGEBOX(“没有找到有关资料！,,”提示”)
endif
