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/b74a4572f142336c1eb91a37f111f18583d00c32.html