系统首页点击进入系统:doform用户登录.sexreleasethisform用户登录登陆:usepasswordLocateFor用户密码=thisform。textl。valueand用户名=thisform.combol。displayvalueIfEof()?Messagebox(”密码错误,请重新输入!!”,0+48+0+0,"确定”)Thisform.RefreshCloseDatabaseElseThisform。releaseDoform主表单。scxEndIf退出:thisform.release影碟登记首页:gototopthisform.refresh上一页:skip-lifbof()messagebox(”不好意思,已是第一个
记录
混凝土 养护记录下载土方回填监理旁站记录免费下载集备记录下载集备记录下载集备记录下载
”,48,”信息窗口")endifthisform.refresh下一页:skipifeof()messagebox("不好意思,已是最后一条记录”,48,”信息窗口")skip-lendifthisform.refresh末页:gotobottomthisform.refresh添加:iflen(thisform。影片编号。value)=0gobottomdelepackwaitwindow"影片编号不能为空"timeoutlendifappendthisform。refresh删除ifmessagebox("确实要删除本记录么?”,1+64+256,"提示”)=1deletepackskip—1thisform。refreshendif退出a=messagebox(”你真的要退出吗?",4+16+0,"对话”)ifa=6releasethisformendif影碟信息查询用户信息查询(用户名用户信息表)租借信息查询()查询a=alltrim(thisform。text1.value)locafor影片编号=8iffound()sele大from影碟信息表videoinfwhere影片编号=aintocursor"ling"thisform.grid1.recordsource=”ling”elsemessagebox("未找到该影片编号的记录!",48,"提示")endif退出thisform。refresh主程序settalkoffsetsafetyoffsetstatbaroffsetsysmenuoffsetsysmenutosetcenturyon_screen.visible=.f.doform系统首页readevents退出程序:是closeall否releasethisformQuit