表单复习资料.docx

1、表单复习资料1、 完成目录文本框密码更改表单中，更改密码.scx中的要求，用户输入用户名、密码、旧密码、新密码，其中用户名为user1，旧密码为ok，要求新密码与确认密码要相同，系统提示“修改成功”或旧密码错误、用户名错误、新密码与确认密码不一致等，并做相应处理（文本框都清空），同时要求旧密码、新密码输入都使用*2、 完成目录复合列表框列表框2中，显示从20002100年间所有的闰年（被4整除，且不被100整除，或被400整除），其中控件List1中RowSourceType为0，使用AddItem（）加入数据3、 完成目录表单集表单集2中，从表单From1中文本框Text1输入内容，显示在表

2、单From2控件Label1中，并且能够显示“宋体/楷体/黑体”4、 完成目录编辑框表格显示中，要求表单不能修改表的内容，第一条记录时，（下一条记录）无效5、创建表单（如下图），该表单的功能是：若在Text1中输入一个除数（整数），然后点击开始按钮，就能求出1500之间能被此除数整除的数（整数）及这些数之和，并将结果分别在Edit1和Text2中输出。单击清除按钮，则清除Text1、Edit1和Text2中的内容。请将以下操作步骤和程序填写完整。（1）在表单上显示文本输入除数，应使用（Label）控件。（2）创建对象Text1，应使用（Text）控件（3）创建对象Edit1，应使用（Edit）

3、控件（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) ENDIFENDFOR6、要创建一个检查输入口令的表单（如下图），口令

4、设定为HAPPY，允许用户输入3次口令。如果3次输入错误，则显示相关信息，并禁止再次输入口令；如果口令正确，则显示欢迎使用本系统！字样。请阅读下面的设置并进行填空：（1） 如上图所示，表单中包含如下的控件： Label1：Caption属性值为请输入口令： Label2：当运行表单时开始状态为不显示任何信息；当前两次口令输入错误时显示口令错，请重新输入口令！；第3次口令输入错误时显示对不起，您无权使用本系统！；如果口令输入正确，则显示欢迎使用本系统！其Caption属性的初始值应设置为（）。 Text1：用于接受用户输入口令，当口令三次输入错误时，处于禁用状态；当用户输入口令时，其中的值以*号

5、显示，应该对该文本框的（PasswordChar）属性进行设置。 Command1：当单击按钮时，检查用户输入口令的正确性以及输入的次数，当口令3次输入错误时，处于禁用状态，其Caption属性为确定。 Command2：其Caption属性为关闭，当单击该按钮时，将关闭该表单。（2） 编写Active事件代码ThisForm.Text1.SetFocusPUBLIC nn=0（3） 对COMMAND1的Click事件编写如下代码：a=ThisForm.Text1.ValueIF(a=HAPPY)ThisForm.Label2.Caption=欢迎使用本系统！ELSE (n=n+1) IF n

6、=3 ThisForm.Label2.Caption= 对不起，您无权使用本系统！ (ThisForm.Text1.Enabled=.F.) (ThisForm.Command1.Enabled=.F.) ELSE ThisForm.Label2.Caption= 口令错，请重新输入口令！ ThisForm.Text1.Value=ThisForm.Text1.Setfocus ENDIFENDIF（4） 为命令按钮Command2的Click事件编写的代码为（Thisform.release）（5） 若为Command2增加一个快捷键C，应将其Caption属性改为（关闭85) TO xxy

7、ou Thisform.Text3.Value=xxyouENDCASE9、表单间的参数传递（1）图1、图2两个表单是独立的表单，要求在图1的用户输入的参数能够在图2的文本框Text1中显示（2）“打开子表单并传递参数”按钮的click事件代码（假设图2表单的名称为实例36-2.scx）do form 实例36-2.scx with thisform.text1.value_（3）图2的表单_Init_事件中代码(下面两行各行1分)_ LPARAMETERS tvalue _thisform.text1.value=tvalue _10、表单集（1）创建表单集的方法：（使用菜单）“表单”菜单“

8、创建表单集”菜单 （2）在表单集中增加表单的方法：（使用菜单）“表单”菜单“添加新表单”菜单 （3）在表单集中删除表单的方法：（使用菜单）“表单”菜单“移除表单”菜单 （4）表单集中有两个表单Form1、Form2，如下图（5）按钮“退出”可以退出整个表单集，它的Click事件的代码 thisformset.release （6）“改变Form1表单的标题”按钮的Click事件的代码thisformset.form1.caption=thisformset.form1.text1.value （7）“改变Form2表单的标题”按钮的Click事件的代码thisformset.form2.cap

9、tion=thisformset.form1.text1.value （8）“隐藏Form1表单”按钮的Click事件的代码 thisformset.form1.hide 11、新建表单属性创建表单属性的方法（使用菜单）“表单”菜单“新建属性”菜单 12、RAND()函数的使用“重置”按钮将产生15个10到100的随机数，并且在表单中显示出来（Label2只能显示字符型数据）p=for i=1 to 15 a(i)=int(rand()*90)+10 for j=1 to i-1 if a(i)=a(j) i=i-1 exit endif endforendforfor i=1 to 15 p

10、=p+str(a(i),3)+,endforc=len(p)p=left(p,c-1)thisform.label2.caption=p 13、文本框的使用其中将显示今天的日期，在文本框中输入日期（格式为：月/日/年），按“统计”（Command1）按钮将显示相隔的天数（XX天）操作步骤：控件Text1的属性Value设置为表单Form1的Init事件加入语句thisform.label2.caption=dtoc(date()“统计”（Command1）按钮的Click事件加入语句thisform.label5.caption=str(thisform.text1.value-date()+

11、 天thisform.refresh14、计算阶乘和（1！2！20！？）计算按钮的Click事件代码temp=1sum=0for i=1 to 20 sum=sum+temp temp=temp*iendforthisform.label3.caption=str(sum)15、表格使用输入职称按“查询”按钮显示教师情况操作步骤：在数据环境中加入“教师档案”表，其中有字段：编号、姓名、性别、职称、基本工资、出生日期、籍贯等字段表单的Init事件中加入语句public mjmj=“查询”按钮的Click事件代码if !empty(thisform.text1.value) mj=alltrim(

12、thisform.text1.value) thisform.refresh endif 表格Grid1的属性RowsourceType设置为 4SQL说明 表格Grid1的属性Rowsource设置select * from 教师档案 into cursor mh where 职称=mj16、要求：设计一个学生档案管理系统的软件方面（如下图），要求该表单的标题为学生档案管理系统3.0版，且其中要有背景，教学演示版是从左至右显示的字幕，当到右边缘时，再从左，任意选择一个高度显示操作步骤：表单的Caption属性设置为“学生档案管理系统3.0版”（设置表单的标题为学生档案管理系统3.0版），表单

13、的Picture属性设置为e:vf上机表单上机表单上机2113.jpg（设置背景）放入时钟控件Timer1，属性Interval设置为 50时钟控件Timer1的Timer事件加入程序if thisform.label2.left+thisform.label2.widththisform.width thisform.label2.left=thisform.label2.left+20else thisform.label2.left=0 thisform.label2.top=int(rand()*thisform.height)+1endifthisform.refresh()17、表

14、格记录的浏览与修改(1)数据环境 表STUDENT字段：no（C(8)）、name（C(8)）、sex（C(2)）、class（C(6)）、birthday（D）,heahpict(G)(2)txtNo、txtName、txtClass、txtSex、txtBirthday分别与学号、姓名、班号、性别、出生日期绑定为了实现txtNo与学号的绑定，txtNo的_ControlSource_属性赋值为_student.no_(3) 显示图像使用控件Oleboundcontrol,为了使控件能显示图像，将控件的_ ControlSource_属性赋值为_student.headpict_（4）“|”

15、 控件的Click事件代码（要求当前是最后一个记录时，按下后，显示提示“当前是最后一个记录”）skipif eof() go bottom wait 最后记录 window nowaitelse wait 第+alltrim(str(recno()+个记录 window nowaitendifthisform.check1.value=delete()thisform.refresh（6）添加按钮的Click事件代码append blankthisform.check1.value=delete()thisform.refreshthisform.txtno.setfocus（7）关闭按钮的C

16、lick事件代码thisform.release18、登录表单操作步骤：控件Text2的属性PasswordChar设置为“*”以保证输入密码不被泄露要为控件Text1、控件Text2加上注释：表单的属性ShowTips设置为.T.，控件Text1的属性ToolTipText设置为“输入用户名”，控件Text2同样确认“按钮的Click事件加入语句（用户名为user1，密码为ok）if alltrim(thisform.text1.value)=user1 .and. alltrim(thisform.text2.value)=ok messagebox(欢迎使用本系统！,0+64+0,用户名

17、和密码正确) release thisformelse messagebox(对不起，请重新输入！,0+16+0,密码错误) thisform.text1.value= thisform.text2.value= thisform.text1.setfocusendif19、单选框和复选框的使用要求：建立一个表单如下图，能够浏览、编辑学生表、课程表、学生选课表（目录“表单上机/表单上机1”）操作步骤：在表单数据环境中加入表学生表、课程表、学生选课表控件Command1（退出按钮）的Click事件中加入程序release thisform控件Command2（确定按钮）的Click事件中加入程序

18、if thisform.check1.value=0 if thisform.optiongroup1.value=1 select * from 学生表 else if thisform.optiongroup1.value=2 select * from 课程表 else select * from 学生选课表 endif endifelse if thisform.optiongroup1.value=1 select 学生表 browse else if thisform.optiongroup1.value=2 select 课程表 browse else select 学生选课表

19、browse endifendifendif20、单选框和复选框的使用单选框可以选择字体（宋体、楷体、隶书），复选框设置编辑框中内容是否加粗、是否是斜体，是否有下化线控件Optiongroup1的事件Click中加入语句if thisform.optiongroup1.value=1 thisform.edit1.fontname=宋体else if thisform.optiongroup1.value=2 thisform.edit1.fontname=楷体else thisform.edit1.fontname=隶书endifendif控件Check2的事件Click中加入语句if th

20、is.value=1 thisform.edit1.fontitalic=.t.else thisform.edit1.fontitalic=.f.endif21、列表框的使用要求：完成下图所示表单的操作，显示从20002100年间所有的闰年（被4整除，且不被100整除，或被400整除），其中控件List1中RowSourceType为0 步骤：控件List1的属性RowSourceTyp设置为0无控件Command1的Click事件代码FOR i = 2000 TO 2100 if i%4=0 .and. i%100!=0 .or. i%400=0 thisform.list1.additem(str(i) endif i=i+1ENDFORthisform.refresh()