1、系统首页点击进入系统：do form 用户登录.scxrelease thisform用户登录登陆：use passwordLocate For 用户密码 = thisform.text1.value and 用户名 = bo1.displayvalueIf Eof()?Messagebox(“密码错误,请重新输入!“,0+48+0+0,“确定“)Thisform.RefreshClose DatabaseElseThisform.releaseDo form 主表单.scxEndIf退出：thisform.release影碟登记首页：goto topthisform.refresh上一页：s
2、kip -1if bof()messagebox(“不好意思，已是第一个记录“,48,“ 信息窗口“)endifthisform.refresh下一页：skipif eof() messagebox(“不好意思，已是最后一条记录“,48,“ 信息窗口“)skip -1 endif thisform.refresh末页：goto bottomthisform.refresh添加：if len(thisform.影片编号.value)=0go bottomdelepackwait window “影片编号不能为空 “ timeout 1endifappendthisform.refresh删除 i
3、f messagebox(“确实要删除本记录么？“,1+64+256,“提示 “)=1deletepackskip -1thisform.refreshendif退出 a=messagebox(“你真的要退出吗?“,4+16+0,“ 对话“)if a=6release thisformendif影碟信息查询 用户信息查询 （用户名 用户信息表） 租借信息查询（）查询 a=alltrim(thisform.text1.value)loca for 影片编号=aif found()sele * from 影碟信息表 videoinf where 影片编号=a into cursor “ling“thisform.grid1.recordsource=“ling“elsemessagebox(“未找到该影片编号的记录!“,48,“提示“)endif退出 thisform.refresh主程序 set talk offset safety offset stat bar offset sysmenu offset sysmenu toset century on_screen.visible=.f.do form 系统首页read events退出程序：是 close all 否 release thisformQuit
