表单复习资料.docx
- 文档编号:6217697
- 上传时间:2023-01-04
- 格式:DOCX
- 页数:17
- 大小:933.83KB
表单复习资料.docx
《表单复习资料.docx》由会员分享,可在线阅读,更多相关《表单复习资料.docx(17页珍藏版)》请在冰豆网上搜索。
表单复习资料
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)事件编写如下相应的事件代码
FORI=1TO500
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
PUBLICn
n=0
(3)对COMMAND1的Click事件编写如下代码:
a=ThisForm.Text1.Value
IF(a=’HAPPY’)
ThisForm.Label2.Caption=’欢迎使用本系统!
’
ELSE
(n=n+1)
IFn=3
ThisForm.Label2.Caption=’对不起,您无权使用本系统!
’
(ThisForm.Text1.Enabled=.F.)
(ThisForm.Command1.Enabled=.F.)
ELSE
ThisForm.Label2.Caption=’口令错,请重新输入口令!
’
ThisForm.Text1.Value=’’
ThisForm.Text1.Setfocus
ENDIF
ENDIF
(4)为命令按钮Command2的Click事件编写的代码为(Thisform.release)
(5)若为Command2增加一个快捷键C,应将其Caption属性改为(关闭\ 7、如下图所示,用标签、文本框、命令按钮构成一个表单Form1,在标签中显示以下文字: ‘当前日期和时间: ’;运行表单时,在文本框中单击鼠标左键将显示当前系统日期,单击鼠标右键将显示系统时间;单击‘清除’按钮,文本框中的结果将被清除;单击‘退出’按钮,将退出表单运行。 为完成上述任务,应该编写的‘清除’按钮的Click事件代码是(Thisform.text1.value=’’),‘退出’按钮的Click事件代码是(Thisform.release),在文本框(Text1)中的Click事件代码是(This.Value=date()),而(RightClick)的事件代码是(This.Value=time()) 8、如下图所示,表单Form1用来对学生成绩表XSCJ.DBF进行处理,在表单中有一个表格,一个选项按钮组、一个命令按钮组、三个文本框和一个命令按钮,在其数据环境中加入XSCJ.DBF后运行此表单,就可以在其左侧的表格中显示出学生成绩表的内容。 请按以下要求将有关操作与程序填充完整。 (1)要求选中Optiongroup1中的‘数学’后,单击Commandgroup1中的‘总成绩’按钮即可以在右侧Text1中显示所有学生数学课的总成绩,单击‘平均分’按钮即可在其右侧的Text2显示所有学生的平均分,单击‘优等人数’按钮即可在其右侧的Text3中显示数学成绩在85分以上的学生人数。 (2)类似地,如选中Optiongroup1中的‘外语’后,再单击‘总成绩’、‘平均分’、‘优等人数’等按钮则在其右侧文本框中显示外语成绩对应的统计数字 (3)为此,需要为Optiongroup1的(Click)事件代码编写如下代码: DOCASE CASEThis.Value=1 xx=(‘数学’) CASEThis.Value=2 xx=(‘外语’) ENDCASE (4)同时,应为Commandgroup1的(Click)事件代码编写如下代码: DOCASE CASEThis.Value=1 (SUM&xx)TOxxzf Thisform.Text1.Value=xxzf CASEThis.Value=2 (AVERAGE&xx)TOxxpj Thisform.Text2.Value=xxpj CASEThis.Value=3 (COUNTFOR&xx>85)TOxxyou Thisform.Text3.Value=xxyou ENDCASE 9、表单间的参数传递 (1)图1、图2两个表单是独立的表单,要求在图1的用户输入的参数能够在图2的文本框Text1中显示 (2)“打开子表单并传递参数”按钮的click事件代码(假设图2表单的名称为实例36-2.scx) doform实例36-2.scxwiththisform.text1.value__________________________ (3)图2的表单___Init______事件中代码(下面两行各行1分) __LPARAMETERStvalue___________ __thisform.text1.value=tvalue___________ 10、表单集 (1)创建表单集的方法: (使用菜单)“表单”菜单→“创建表单集”菜单 (2)在表单集中增加表单的方法: (使用菜单)“表单”菜单→“添加新表单”菜单 (3)在表单集中删除表单的方法: (使用菜单)“表单”菜单→“移除表单”菜单 (4)表单集中有两个表单Form1、Form2,如下图 (5)按钮“退出”可以退出整个表单集,它的Click事件的代码thisformset.release (6)“改变Form1表单的标题”按钮的Click事件的代码thisformset.form1.caption=thisformset.form1.text1.value (7)“改变Form2表单的标题”按钮的Click事件的代码thisformset.form2.caption=thisformset.form1.text1.value (8)“隐藏Form1表单”按钮的Click事件的代码thisformset.form1.hide 11、新建表单属性 创建表单属性的方法((使用菜单)“表单”菜单→“新建属性”菜单 12、RAND()函数的使用 “重置”按钮将产生15个10到100的随机数,并且在表单中显示出来(Label2只能显示字符型数据) p='' fori=1to15 a(i)=int(rand()*90)+10 forj=1toi-1 ifa(i)=a(j) i=i-1 exit endif endfor endfor fori=1to15 p=p+str(a(i),3)+',' endfor c=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())+'天' thisform.refresh 14、计算阶乘和(1! +2! +…+20! =? ) ‘计算’按钮的Click事件代码 temp=1 sum=0 fori=1to20 sum=sum+temp temp=temp*i endfor thisform.label3.caption=str(sum) 15、表格使用 输入职称按“查询”按钮显示教师情况 操作步骤: ①在数据环境中加入“教师档案”表,其中有字段: 编号、姓名、性别、职称、基本工资、出生日期、籍贯等字段 ②表单的Init事件中加入语句 publicmj mj='' ③“查询”按钮的Click事件代码 if! empty(thisform.text1.value) mj=alltrim(thisform.text1.value) thisform.refresh endif ④表格Grid1的属性RowsourceType设置为4—SQL说明 表格Grid1的属性Rowsource设置select*from教师档案intocursormhwhere职称=mj 16、要求: 设计一个学生档案管理系统的软件方面(如下图),要求该表单的标题为‘学生档案管理系统3.0版’,且其中要有背景,‘教学演示版’是从左至右显示的字幕,当到右边缘时,再从左,任意选择一个高度显示 操作步骤: ①表单的Caption属性设置为“学生档案管理系统3.0版”(设置表单的标题为‘学生档案管理系统3.0版’),表单的Picture属性设置为‘e: \vf\上机\表单上机\表单上机2\113.jpg’(设置背景) ②放入时钟控件Timer1,属性Interval设置为50 ③时钟控件Timer1的Timer事件加入程序 ifthisform.label2.left+thisform.label2.width thisform.label2.left=thisform.label2.left+20 else thisform.label2.left=0 thisform.label2.top=int(rand()*thisform.height)+1 endif thisform.refresh() 17、表格记录的浏览与修改 (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)“|<”控件的Click事件代码 gotop thisform.check1.value=delete() thisform.refresh (5)“>”控件的Click事件代码(要求当前是最后一个记录时,按下后,显示提示“当前是最后一个记录”) skip ifeof() gobottom wait'最后记录'windownowait else wait'第'+alltrim(str(recno()))+'个记录'windownowait endif thisform.check1.value=delete() thisform.refresh (6)‘添加’按钮的Click事件代码 appendblank thisform.check1.value=delete() thisform.refresh thisform.txtno.setfocus (7)‘关闭’按钮的Click事件代码 thisform.release 18、登录表单 操作步骤: ①控件Text2的属性PasswordChar设置为“*”以保证输入密码不被泄露 ②要为控件Text1、控件Text2加上注释: 表单的属性ShowTips设置为.T.,控件Text1的属性ToolTipText设置为“输入用户名”,控件Text2同样 ③‘确认“按钮的Click事件加入语句(用户名为’user1’,密码为’ok’) ifalltrim(thisform.text1.value)=='user1'.and.alltrim(thisform.text2.value)=='ok' messagebox('欢迎使用本系统! ',0+64+0,'用户名和密码正确') releasethisform else messagebox('对不起,请重新输入! ',0+16+0,'密码错误') thisform.text1.value='' thisform.text2.value='' thisform.text1.setfocus endif 19、单选框和复选框的使用 要求: 建立一个表单如下图,能够浏览、编辑学生表、课程表、学生选课表(目录“表单上机/表单上机1”) 操作步骤: ①在表单数据环境中加入表学生表、课程表、学生选课表 ②控件Command1(‘退出’按钮)的Click事件中加入程序 releasethisform ③控件Command2(‘确定’按钮)的Click事件中加入程序 ifthisform.check1.value=0 ifthisform.optiongroup1.value=1 select*from学生表 else ifthisform.optiongroup1.value=2 select*from课程表 else select*from学生选课表 endif endif else ifthisform.optiongroup1.value=1 select学生表 browse else ifthisform.optiongroup1.value=2 select课程表 browse else select学生选课表 browse endif endif endif 20、单选框和复选框的使用 单选框可以选择字体(宋体、楷体、隶书),复选框设置编辑框中内容是否加粗、是否是斜体,是否有下化线 控件Optiongroup1的事件Click中加入语句 ifthisform.optiongroup1.value=1 thisform.edit1.fontname='宋体' else ifthisform.optiongroup1.value=2 thisform.edit1.fontname='楷体' else thisform.edit1.fontname='隶书' endif endif 控件Check2的事件Click中加入语句 ifthis.value=1 thisform.edit1.fontitalic=.t. else thisform.edit1.fontitalic=.f. endif 21、列表框的使用 要求: 完成下图所示表单的操作,显示从2000~2100年间所有的闰年(被4整除,且不被100整除,或被400整除),其中控件List1中RowSourceType为0 步骤: ①控件List1的属性RowSourceTyp设置为0-无 ②控件Command1的Click事件代码 FORi=2000TO2100 ifi%4=0.and.i%100! =0.or.i%400=0 thisform.list1.additem(str(i)) endif i=i+1 ENDFOR thisform.refresh()
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 表单 复习资料