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