表单复习资料Word文档格式.docx
- 文档编号:19223002
- 上传时间:2023-01-04
- 格式:DOCX
- 页数:17
- 大小:933.83KB
表单复习资料Word文档格式.docx
《表单复习资料Word文档格式.docx》由会员分享,可在线阅读,更多相关《表单复习资料Word文档格式.docx(17页珍藏版)》请在冰豆网上搜索。
请阅读下面的设置并进行填空:
(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
(4)为命令按钮Command2的Click事件编写的代码为(Thisform.release)
(5)若为Command2增加一个快捷键C,应将其Caption属性改为(关闭\<
C)
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)事件代码编写如下代码:
(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
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
p=p+str(a(i),3)+'
'
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
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.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()
(5)“>
”控件的Click事件代码(要求当前是最后一个记录时,按下后,显示提示“当前是最后一个记录”)
skip
ifeof()
gobottom
wait'
最后记录'
windownowait
第'
+alltrim(str(recno()))+'
个记录'
(6)‘添加’按钮的Click事件代码
appendblank
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
对不起,请重新输入!
0+16+0,'
密码错误'
thisform.text1.value='
thisform.text2.value='
thisform.text1.setfocus
19、单选框和复选框的使用
要求:
建立一个表单如下图,能够浏览、编辑学生表、课程表、学生选课表(目录“表单上机/表单上机1”)
①在表单数据环境中加入表学生表、课程表、学生选课表
②控件Command1(‘退出’按钮)的Click事件中加入程序
releasethisform
③控件Command2(‘确定’按钮)的Click事件中加入程序
ifthisform.check1.value=0
ifthisform.optiongroup1.value=1
select*from学生表
else
ifthisform.optiongroup1.value=2
select*from课程表
select*from学生选课表
ifthisform.optiongroup1.value=1
select学生表
browse
ifthisform.optiongroup1.value=2
select课程表
select学生选课表
20、单选框和复选框的使用
单选框可以选择字体(宋体、楷体、隶书),复选框设置编辑框中内容是否加粗、是否是斜体,是否有下化线
控件Optiongroup1的事件Click中加入语句
ifthisform.optiongroup1.value=1
thisform.edit1.fontname='
宋体'
楷体'
隶书'
控件Check2的事件Click中加入语句
ifthis.value=1
thisform.edit1.fontitalic=.t.
thisform.edit1.fontitalic=.f.
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))
i=i+1
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 表单 复习资料