VFP程序设计各种代码
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
系统首页
点击进入系统：do form 用户登录.scx
release thisform
用户登录
登陆：use password
Locate For 用户密码= thisform。
text1.value and 用户名= bo1。
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。