表单复习资料.pdfVIP

1、完成目录‘文本框\密码更改表单’中，‘更改密码.scx’中的要求，用户输入用户名、 密码、旧密码、新密码，其中用户名为‘user1 ’，旧密码为‘ok ’，要求新密码与确认密 码要相同，系统提示“修改成功”或‘旧密码错误’、‘用户名错误’、‘新密码与确认密 码不一致’等，并做相应处理（文本框都清空），同时要求旧密码、新密码输入都使用 ‘*’ 2、完成目录‘复合列表框\列表框2 ’中，显示从2000～2100 年间所有的闰年（被4 整除， 且不被100 整除，或被400 整除），其中控件List1 中RowSourceType 为0 ，使用AddItem （）加入数据 3、完成目录‘表单集\表单集2 ’中，从表单From1 中文本框Text1 输入内容，显示在表单 From2 控件Label1 中，并且能够显示“宋体/楷体/黑体” 4 、完成目录‘编辑框\表格显示’中，要求表单不能修改表的内容，第一条记录时，‘ （上 一条记录）’无效，最后一条记录时，‘ （下一条记录）’无效 5、创建表单（如下图），该表单的功能是：若在Text1 中输入一个除数（整数），然后点击 ‘开始’按钮，就能求出1~500 之间能被此除数整除的数（整数）及这些数之和，并将结果 分别在Edit1 和Text2 中输出。单击‘清除’按钮，则清除Text1 、Edit1 和Text2 中的内容。 请将以下操作步骤和程序填写完整。 （1）在表单上显示文本‘输入除数’，应使用（Label ）控件。 （2 ）创建对象Text1，应使用（Text ）控件 （3 ）创建对象Edit1 ，应使用（Edit ）控件 （4 ）创建‘开始’按钮，应使用（Button ）控件 （5 ）将对象Text1 和Text2 的VALUE 属性值设置为（0 ）。 （6 ）为了完成题目中的要求‘开始’按钮的功能，应使用‘开始’按钮的（Click ）事件编 写如下相应的事件代码 FOR I=1 TO 500 IF (MOD(I,THISFORM.TEXT1.VALUE)=0) (THISFORM).EDIT1.VALUE=(THISFROM).EDIT1.VALUE+STR(I,5)+CHR(13) THISFORM.TEXT2.VALUE=(THISFORM.TEXT2.VALUE+I) ENDIF ENDFOR 6、要创建一个检查输入口令的表单（如下图），口令设定为‘HAPPY ’，允许用户输入3 次 口令。如果3 次输入错误，则显示相关信息，并禁止再次输入口令；如果口令正确，则显示 ‘欢迎使用本系统！’字样。请阅读下面的设置并进行填空： （1） 如上图所示，表单中包含如下的控件：  Label1 ：Caption 属性值为‘请输入口令：’  Label2 ：当运行表单时开始状态为不显示任何信息；当前两次口令输入错误时显示‘口 令错，请重新输入口令！’；第3 次口令输入错误时显示 ‘对不起，您无权使用本系统！’； 如果口令输入正确，则显示‘欢迎使用本系统！’其Caption 属性的初始值应设置为（’’）。  Text1 ：用于接受用户输入口令，当口令三次输入错误时，处于禁用状态；当用户输入 口令时，其中的值以‘*’号显示，应该对该文本框的（PasswordChar ）属性进行设置。  Command1 ：当单击按钮时，检查用户输入口令的正确性以及输入的次数，当口令3 次 输入错误时，处于禁用状态，其Caption 属性为‘确定’。  Command2 ：其Caption 属性为‘关闭’，当单击该按钮时，将关闭该表单。 （2 ） 编写Active 事件代码 ThisForm.Text1.SetFocus PUBLIC n n=0 （3 ） 对COMMAND1 的Click 事件编写如下代码： a=ThisForm.Text1.Value IF(a=’HAPPY’) ThisForm.Label2.Caption= ’欢迎使用本系统！’ ELSE (n=n+1) IF n=3 ThisForm.Label2.Caption= ’ 对不起，您无权使用本系统！’ (ThisForm.Text1.Enabled=.F.) (ThisForm.Command1