Command1的MouseDown事件代码为：
Thisform . text1 . value = dtoc ( date( ) )
Command1的MouseUp事件代码为：
Thisform . text1 . value = time( )
9.某银行的客户帐号和密码都存储在表“登录.dbf”中，登录表的结构为：登录(客户姓名 c(6) , 帐号 c(6) , 密码 c(6) ) 。请设计验证帐号和密码的表单。请
编写表单Form1的Load事件代码和按钮command1的Click事件代码
① 当输入次数小于等于3，并且输入的帐号与密码均正确时，用函数messagebox()给出提示，然后释放表单。
② 当输入次数小于等于3，输入的密码不对时，用函数messagebox()给出提示，文本框text2清空，为文本框text2设置焦点。
③ 当输入次数小于等于3，输入的帐号不对时，用函数messagebox()给出提示，文本框text1和text2都清空，为文本框text1设置焦点。 ④ 三次输入均不正确，用函数messagebox()给出提示后，然后释放表单。
表单Form1的Load事件代码为：
Set exact on public i i = 0 use 登录
按钮command1的Click事件代码为：
i = i + 1
locate for 帐号 = thisform . text1 . value do case
case i<=3 and found() and 密码=thisform . text2 . value
messagebox (\帐号与密码正确，将进入系统！\thisform . release
case i<=3 and found() and 密码 != thisform . text2 . value
messagebox (\密码错误，请重新输入密码！\thisform . text2 . value=\thisform . text2 . setfocus
case i<=3 and not found()
messagebox( \帐号错误，请重新输入！\thisform . text1 . value = \thisform . text2 . value= \thisform . text1 . setfocus
case i >3
messagebox (\禁止进入系统！\thisform . release
endcase
10．设计一个如图所示的系统编辑表单，能完成对RSB表进行浏览、添加、删除和查询功能。已将教材中rsb表添加到表单的数据环境设计器中，并使其字段与左侧的三个文本框绑定。具体设计时要求：
① 编写命令按钮Command1的Click事件代码，实现显示下一条记录的功能。 ② 编写Command2的Click事件代码，实现显示上一条记录的功能。 ③ 编写Command3的Click事件代码，实现添加一条记录的功能。
④ 编写Command4的Click事件代码，实现删除当前记录的功能。删除时用messagebox函数给出提示信息。 ⑤ 编写Command5的Click事件代码，实现按编号或姓名查询的功能
答：按钮command1的Click事件代码为：
Select rsb skip if eof() go bottom endif
thisform . refresh
答：按钮command2的Click事件代码为：
select rsb skip -1 if bof() go top endif
thisform . refresh
答：按钮command3的Click事件代码为：
select rsb append blank thisform.refresh
答：按钮command4的Click事件代码为：
select rsb bh=编号
sel=messagebox(\真的要删除编号为\的记录吗？\提示\if sel=6 delete pack endif
thisform.refresh
答：按钮command5的Click事件代码为：
select rsb
locate for 编号=thisform.text1 .value .or . 姓名=thisform.text1.value thisform.refresh
百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库vfp2011重点复习题(3)在线全文阅读。
相关推荐：