系统首页 点击进入系统：do form 用户登录.scx release thisform 用户登录 登陆：use password Locate For 用户密码 = thisform.text1.value and 用户名 = thisform.combo1.displayvalue If Eof() ?Messagebox("密码错误,请重新输入!!",0+48+0+0,"确定") Thisform.Refresh Close Database Else Thisform.release Do form 主表单.scx EndIf 退出：thisform.release 影碟登记 首页：goto top thisform.refresh 上一页：skip -1 if bof() messagebox("不好意思，已是第一个记录",48,"信息窗口") endif thisform.refresh 下一页：skip if eof() messagebox("不好意思，已是最后一条记录",48,"信息窗口") skip -1 endif thisform.refresh 末页：goto bottom thisform.refresh 添加：if len(thisform.影片编号.value)=0 go bottom dele pack wait window "影片编号不能为空" timeout 1 endif append thisform.refresh 删除if messagebox("确实要删除本记录么？",1+64+256,"提示")=1 delete pack skip -1 thisform.refresh endif 退出a=messagebox("你真的要退出吗?",4+16+0,"对话") if a=6 release thisform endif 影碟信息查询 用户信息查询 （用户名 用户信息表） 租借信息查询（） 查询a=alltrim(thisform.text1.value) loca for 影片编号=a if found() sele * from 影碟信息表videoinf where 影片编号=a into cursor "ling" thisform.grid1.recordsource="ling" else messagebox("未找到该影片编号的记录!",48,"提示") endif 退出thisform.refresh 主程序set talk off set safety off set stat bar off set sysmenu off set sysmenu to set century on _screen.visible=.f. do form 系统首页 read events 退出程序：是close all 否release thisform Quit 本文来源：https://www.wddqw.com/doc/0eb2da252f60ddccda38a0ef.html