VFP程序设计各种代码

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







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.wddqxz.cn/30d47e6c8beb172ded630b1c59eef8c75ebf95fb.html