VFP程序设计各种代码

2022-05-19 13:15:13 第一文档网 [ 字体：小中大 ] [

阅读： ] [

说明：文章内容仅供预览，部分内容可能不全。下载后的文档，内容与下面显示的完全一致。下载之前请确认下面内容是否您想要的，是否完整无缺。下载word有问题请添加QQ：admin处理，感谢您的支持与谅解。

【#第一文档网# 导语】以下是®第一文档网的小编为您整理的《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.dywdw.cn/0eb2da252f60ddccda38a0ef.html