VFP60 表单编程练习题.doc

Visual FoxPro 6.0表单编程练习题 （蓝色文字:参考答案） 某表单上有两个命令按钮COMMAND1和COMMAND2。其中COMMAND1 的CLICK事件代码如下： THISFORM.COMMAND2.ENABLED=.T. SKIP –1 IF BOF() THIS.ENABLED=.F. ENDIF THISFORM.REFRESH 其中COMMAND2的CLICK事件代码如下 THISFORM.COMMAND1.ENABLED=.T. SKIP IF EOF() GO BOTTOM THIS.ENABLED=.F. ENDIF THISFORM.REFRESH 试回答:执行以上表单后,若单击COMMAND1命令按钮,程序将作( 记录指针向前移动1条 )处理:若单击COMMAND2命令按钮,程序将作( 记录指针向前后移动1条 )处理 某表单上有一个COMMAND1控件和一个LABEL1控件，其中COMMAND1的CLICK事件代码为： IF THIS.CAPTION=”欢迎(\C)” THISFORM.LABEL1.CAPTION=”欢迎使用VFP” 标签的标题重赋值 THIS.CAPTION=”日期(\W)” 按纽的标题重赋值 ELSE THISFORM.LABEL1.CAPTION=”欢迎使用EXCEL” THIS.CAPTION=”欢迎(\C)” ENDIF 单击按钮COMMAND1的事件发生后,程序将作(当Command1标题不是“欢迎(C)”时，按纽与标签上分别显示“欢迎(C)”、“欢迎使用EXCEL”，反之显示“日期(W)”、“欢迎使用VFP”)处理 如图所示，用标签、文本框、命令按钮构成一个表单FORM1。在标签中显示以下文字：“当前日期和时间”运行表单时，在文本框中单击鼠标左键将显示当前系统日期，单击鼠标右键将显示当前系统时间：单击“消除“按钮，文本框中的结果将被清除：单击”退出“按钮，将退出表单的运行。 为完成上述任务，应该编写的“清除“按钮的CLICK事件代码是（THISFORM.TEXT1.VALUE=’’），“退出”按钮的CLICK事件代码是（THISFORM.RELEASE）在文本框（TEXT1）中的CLICK事件代码是（THISROM.TEXT1.VALUE=DTOC(DATE())），而（RIGHTCLICK）的事件代码是（THISROM.TEXT1.VALUE=TIME()） (在代码过程中选) 4、如要创建一个检查输入口令的表单，口令设定为“SOFTWARE”，允许用户输入三次口令。如果三次输入错误，则显示相关信息，并禁止再次输入口令：如果正确，则显示“欢迎使用本系统！”字样，请阅读下面的设置并进行相应的填空。 如上图，表单中包含如下的控件： （1）LABEL1的 CAPTION 属性值为“请输入口令” （2）LABEL2当运行表单时开始状态为不显示任何信息：当前两次口令输入错误时显示“口令错，请重新输入口令！”；第三次口令输入错误时显示“对不起，您无权使用本系统！”；如果口令输入正确，则显示“欢迎使用本系统！”。其CAPTION属性的初始值应设置为（ “” ） （3）TEXT1用于接受用户输入的口令，当口令三次输入错误时，处于禁用状态；而且当用户输入口令时，其中的值以“*”号显示，应对该文本框的（PASSWORDCHAR）属性为（ * ） （4）COMMAND1：当单击该按钮时，检查用户输入口令的正确性以及输入的次数，当口令三次输入错误时，处于禁用状态，其CAPTION属性为“确定”。 （5）COMMAND2：当单击该按钮时，将关闭该表单。应设置它的（CLICK）事件，其事件代码为：（ THISFORM.RELEASE ） （6）编写表单的ACTIVATE事件代码如下： THISFORM.TEXT1.SETFOCUS PUBLIC N N=0 (7)对COMMAND1的CLICK事件编写如下代码: A=THISFORM.TEXT1.VALUE IF (UPPER(A)=SOFTWARE) THISFORM.LABEL2.CAPTION=”欢迎使用本系统!” ELSE N=N+1 IF N=3 THISFORM.LABEL2.CAPTION=”对不起,您无权使用本系统!” (THISFORM.COMMAND1.ENABLED=.F.) (THISFORM.TEXT1.ENABLED=.F.) ELSE THISFORM.LABEL2.CAPTION=”口令错,请重新输入口令!” THISFORM.TEXT1.VALUE=”” THISFORM.TE