VFP程序设计各种代码

【#文档大全网# 导语】以下是®文档大全网的小编为您整理的《VFP程序设计各种代码》，欢迎阅读！

系统首页

点击进入系统：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.wddqxz.cn/0eb2da252f60ddccda38a0ef.html