表单练习

第六章 表单设计一、选择题1、设表单FORM1包含命令按钮组G1和文本框T1，G1中包含命令按钮C1和C2，在C2的Click事件代码中要引用T1的VALUE属性，则正确引用是 。

A)THISORM.T1.VALUEB)THIS.Parent.T1.VALUEC)THIS.Parent.Parent.T1.VALUE D)T1.VALUE2、当调用表单的Show方法时，可能激发表单的 。

A)Load事件 B)Init事件 C)Activate事件D)Click事件3、组合框的内容进行一次新的选择，一定发生的事件是 。

A)change B)interactivechange C)whenD)click4、创建对象时发生 事件。

A)Init B)Load C)InteractiveChangeD)Activate5、用表单设计器设计表单，下列叙述中错误的是 。

A)可以创建表单集 B)可以向表单添加新属性和方法C)可以对表单添加新事件 D)数据环境对象可以加到表单中6、表单的Name属性用于______。

A)作为保存表单时的文件名 B)引用表单对象C)显示运行表单标题栏中 D)作为运行表单时的表单名7、可以在表单的数据环境中添加的是 。

A)表 B)表之间的临时关系 C)查询D)视图8、可改写计数属性的容器是 。

A)表单集、表格、页框、页面 B)命令按钮组、选项按钮组、表格、页框C)表单、列、页面、容器 D)页面、表单、工具栏、-SCREEN9、如果在运行表单前向表单中传递参数，则应在表单的 事件代码中包含PARAMENTERS语句。

A)Init B)Load C) Activate D)数据环境的BeforeOpenTables10、按钮的Name属性用于 。

A)作为按钮上的文字 B)按钮对象的引用名C)按钮的属性名 D)以上都不是11、下面关于OLE对象的说法中错误的是 。

A)可插入的OLE对象只能来自于支持OLE的应用程序，例如Excel和WordB)一个OLE对象，只能是图片、声音和Excel、Word文档C)在表单中，可以用绑定型OLE对象来显示通用型字段中OLE对象的内容D)使用表单设计器可以创建绑定型OLE对象12、一个按钮，若要在单击按钮后，按钮销毁，需要在click事件中写代码 。

运行状态(如图1)编辑状态(如图2)制作如图所示表单。

设置：1：设置表单名称为Form1，表单运行时不能最大化。

2：在窗体内添加3个Label 控件，名称分别为：Label1、Label2、Label3。

添加2个TextBox 控件，名称分别为：Text1、Text2。

添加1个CommandButton 控件，名称为：Command1。

3：设置Label1的标签标题为“交换A 、B 的值”，字体为：隶书、20号字。

设置Label2的标签标题为“A ：”，字体为宋体、18号字。

设置Label3的标签标题为“B ：”，字体为宋体、18号字。

2号题运行状态(如图1)编辑状态(如图2)制作如图所示表单。

设置：1：设置表单名称为Form1。

2：在窗体内添加3个Label 控件，名称分别为：Label1、Label2、Label3。

添加2个TextBox 控件，名称分别为：Text1、Text2。

添加1个CommandButton 控件，名称为：Command1。

3：设置Label1的标签标题为“行李重量（公斤）：”，字体为：宋体、14号字。

设置Label2的标签标题为“托运费(元)：”，字体为：宋体、14号字。

设置Label3的标签标题为“托运费核算”，字体为：隶书、20号字。

3号题运行状态(如图1)编辑状态(如图2)制作如图所示表单。

设置：1：设置表单名称为Form1。

2：在窗体内添加3个Label 控件，名称分别为：Label1、Label2、Label3。

添加3个TextBox 控件，名称分别为：Text1、Text2、Text3。

添加1个CommandButton 控件，名称为：Command1。

3：设置Label1的标签标题为“输入A 的值”，字体为：黑体、14号字。

设置Label2的标签标题为“输入B 的值”，字体为：黑体、14号字。

设置Label3的标签标题为“A,B 最大值：”，字体为：黑体、14号字。

办公室10085办公室102301部门领导风格您的工作建议是否得到重视？c) 既不被重视也不被轻视办公室102302工作满足感与自我成长您认为目前的工作a) 很合适，并且有信心、有能力作好办公室102303公司管理您认为公司的奖惩制度及合理化建议制度是否运行有效？c) 一般办公室102304团队氛围您认为公司各部门间的团队协作氛围如何？c) 一般办公室102305部门领导风格当您工作出色时上级是否对您进行表扬c) 有时办公室102306工作满足感与自我成长上级领导是否为您制定相应的培训计划，并尽可能按计划实施d) 极少有培训计划办公室102307团队氛围您认为部门内同事间团队协作氛围如何？b) 好办公室102308部门领导风格工作中遇到困难,上司会提供有力的支持和协助吗？b) 经常办公室102309工作环境因为工作需要，您所需要的资源是否及时提供？b) 一般（大部分情况）是及时的办公室1023010团队氛围当发生问题时能否与相关人员、部门沟通顺畅。

b) 经常能够办公室1023011公司认同您对公司的发展情况是否清楚？希望通过什么途径获得该类信息？b) 清楚办公室1023012薪酬福利您对公司提供的福利待遇是否满意？有什么改善建议？b) 较好办公室1023013工作满足感与自我成长您的工作是否得到了领导及同事的认可b) 较认可办公室1023014工作满足感与自我成长在目前的岗位上，您认为自己的能力是否得到了充分发挥a) 已尽我所能办公室1023015团队氛围您所在部门内的员工关系是否融洽？a) 很融洽办公室1023016工作满足感与自我成长您认为，您在公司的发展前景：b) 努力工作对您非常有利办公室1023017部门领导风格您是否同意变换上级后您将有更杰出的表现b) 极少这样认为办公室1023018公司认同您是否阅读了公司公布的制度、通告等信息？b) 大致看了，但与我有关的，我会认真看的办公室1023019公司认同针对您所从事的工作，您认为整体工作条件处于什么水平？c) 一般办公室1023020薪酬福利相对于工作职责而言，您认为您的报酬c) 得到了公正的报酬办公室1023021公司管理您认为公司的绩效考核工作c) 一般办公室1023022工作满足感与自我成长您所在的工作小组的每一位成员c) 仅完成他/她的全部工作份额办公室1023023工作环境工作安全是否得到了充分的关注？c) 有时办公室1023024公司管理时间是否因有不必要的重复工作而浪费 ？c) 有时办公室1023025公司认同关于公司产品质量，您认为公司整体质量情况是b) 比较重视质量，以提供符合公司质量要求的产品和服务为目标办公室1023026公司管理公司制定的规章制度和工作流程是否能够得到有效落实？c) 一般办公室1023027工作环境工作岗位设备是否处于良好的工作状况？b) 经常保持良好状态办公室1023028公司管理您认为公司的整体工作效率如何？c) 一般办公室1023029公司认同您的朋友找工作时，非常适合公司相关工作岗位，您b) 介绍公司情况，供他（她）考虑办公室1023030公司管理您认为公司制度及工作业务流程是否合理？如果不合理，应在哪些方面进行改进？c) 一般办公室110511部门领导风格您的工作建议是否得到重视？a) 深受重视办公室110512工作满足感与自我成长您认为目前的工作a) 很合适，并且有信心、有能力作好办公室110513公司管理您认为公司的奖惩制度及合理化建议制度是否运行有效？a) 非常有效办公室110514团队氛围您认为公司各部门间的团队协作氛围如何？a) 很好办公室110515部门领导风格当您工作出色时上级是否对您进行表扬a) 总是办公室110516工作满足感与自我成长上级领导是否为您制定相应的培训计划，并尽可能按计划实施a) 制定了具体的培训计划，并很好实施办公室110517团队氛围您认为部门内同事间团队协作氛围如何？a) 很好办公室110518部门领导风格工作中遇到困难,上司会提供有力的支持和协助吗？a) 总是办公室110519工作环境因为工作需要，您所需要的资源是否及时提供？a) 总是及时的办公室1105110团队氛围当发生问题时能否与相关人员、部门沟通顺畅。

1.扩展名为SCX的文件是( )。

•A、备注文件•B、项目文件•C、表单文件•D、菜单文件参考答案： C2.在当前表单的LABEL1控件中显示系统时间的语句是（）。

•A、BEL1.CAPTION=TIME()•B、BEL1.VALUE=TIME()•C、BEL1.TEXT=TIME()•D、BEL1.CONTROL=TIME()参考答案： A3.以下叙述与表单数据环境有关，其中正确的是（）。

•A、当表单运行时，数据环境中的表处于只读状态，只能显示不能修改•B、当表单关闭时，不能自动关闭数据环境中的表•C、当表单运行时，自动打开数据环境中的表•D、当表单运行时，与数据环境中的表无关参考答案： C4.在Visual FoxPro中，运行表单T1.SCX的命令是（）。

•A、DO T1•B、RUN FORM1 T1•C、DO FORM T1•D、DO FROM T1参考答案： C5.假定一个表单里有一个文本框Text1和一个命令按钮组Comman dGroup1，命令按钮组是一个容器对象，其中包含Command1 和Command2两个命令按钮。

如果要在Command1命令按钮的某个方法中访问文本框的value属性值，下面哪个式子是正确的？（）。

•A、ThisForm.Text1.value•B、This.Parent.value•C、Parent.Text1.value•D、this.Parent.Text1.value参考答案： A6.假设表单上有一选项组：●男○女，如果选择第二个按钮“女”，则该项组Value属性的值为________。

•A、.F.•B、女•C、 2•D、女或2参考答案： D7.关闭当前表单的程序代码是ThisForm.Release，其中的Release 是表单对象的（）。

•A、标题•B、属性•C、事件•D、方法参考答案： D8.指定用户能否在列表框控件内进行多重选定的列表框属性是（）•A、Value属性•B、ControlSource•C、Selected•D、MultiSelect参考答案： D9.假设表单My Form隐藏着，让该表单在屏幕上显示的命令是____ ____。

1．创建一个“计算机科学与计算”标签，单击该标签字体变成红色，双击该标签字体变成蓝色，按右键变为黑色，开始为黑色。

1)新建一个表单，向表单中添加一个label控件。

2)设置对象label1中的属性：caption为”计算机科学与计算”，forecolor为黑色rgb(0,0,0)。

3)编辑代码：Label1的click事件代码如下：this.forecolor=rgb(255,0,0)Label1的dbclick事件代码如下：this.forecolor=rgb(0,0,255)Label1的rightclick事件代码如下：this.forecolor=rgb(0,0,0)2．利用文本框输入圆的半径，并利用文本框的lostfocus事件计算圆的面积。

1)新建一个表单，向表单中添加两个label控件，两个textbox控件。

Text1的lostfocus事件代码如下：r=this.values=3.14*r*rthisform.text2.value=s3．制作电子日历1)新建一个表单，向表单添加控件：一个容器，三个标签，三个计时器。

3)编辑代码如下：Timer1的timer事件代码如下：if bel1.visible=.t.bel1.visible=.f.elsebel1.visible=.t.endifTimer2的timer事件代码如下：if bel2.caption<>time()bel2.caption=time()endifTimer3的timer事件代码如下：if bel3.backcolor=rgb(128,255,128)bel3.backcolor=rgb(128,255,255)elsebel3.backcolor=rgb(128,255,128)endif4．设计一个登录界面，登录三次之后退出界面，用户名为aa,口令为123。

1)新建一个表单，向表单添加控件：两个标签，两个文本框，一个命令按钮。

上机测试题打开素材目录下的项目文件SPGL；在该项目中已有一数据库SPSL。

一、根据如下要求，完善“学生信息查询”表单（form_1）的设计：图11、该表单上有4个标签，对象名分别为label1、label2、label3、label4；3个文本框控件（对象名分别为TEXT1、TEXT2、TEXT3），1个OLEcontrol1控件，它们用于显示学生信息。

1个命令按钮组控件（对象名分别为COMMANDgroup1）用于操作，如图1所示，设计表单的相关控件。

2、该表单的功能是单击按钮浏览学生表中的记录信息。

当到第一条时，不允许单击“上一条”按钮，当到最后一条时，不允许单击“下一条”按钮。

单击“退出”按钮，结束表单运行。

二、根据如下要求，完成“教师查询”表单（form_2）的设计：图21、该表单上有4个标签，对象名分别为label1、label2，有1个列表框控件（对象名分别为list1），1个组合框控件（combox1），如图2所示，设计表单的相关控件。

2、该表单的功能是表单运行时，在列表框中显示系代号，选择了某一个系代号后，在组合框中显示该系教师的姓名和工号。

三、根据如下要求，完成“查询统计”表单（form_cxtj.scx）的设计：1、该表单上有4个文本框控件（对象名分别为TEXT1、TEXT2、TEXT3、TEXT4），1个表格控件GRID1，2个命令按钮控件（对象名分别为COMMAND1、COMMAND2），如图3所示，设计表单的相关控件。

2、该表单的功能是当输入部门名称并单击“查询统计”按钮时，在表格中显示该部门的每种商品的名称、单价和数量，并在左边相应文本框中显示该部门的商品的最高单价、最低单价和商品总数量；单击“退出”按钮将关闭表单。

（如图4所示）3、表单对象创建前需将数据库（SPGL）及其相关表（BM表、SP表）打开，完善Load事件代码；表单对象释放时要求将当前数据库关闭，请在相应事件上编写代码实现。

【相关例题】重要属性10.在下列VFP基类中，无Caption属性的基类是______。

心之所向，所向披靡belB.OptionGroupC.CheckD.EditBox17.在下列几组VFP 基类中，均具有ControlSource 属性的是______。

A.ListBox，Lable，OptionButtonboBox，EditBox，GridboBox，Grid，TimerD.EditBox，CheckBox，OptionButton8.在下列各组控件中，均可与表中数据绑定的控件是______。

box，Grid和TextBoxB.EditBox，Grid和LineC.ListBox，Shape和OptionButtonD.CheckBox，Separator和Command【相关例题】容器类控件和非容器类控件18.下列几组控件中，都有ControlCount属性的是___ __ 。

A.表单（Form）、文本框（TextBox）、列表框（ListBox）B.表单集（FormSet）、表单（Form）、页框（PageFrame）C.表单（Form）、页面（Page）、列（Column）D.列（Column）、选项按钮组（OptionGroup）、命令按钮组（CommandGroup）5.在下列VFP对象（控件）中，不能直接（独立）地添加到表单中的是。

A.命令按钮（Command）B.选项按钮（Option）C.复选框（Check）D.计时器（Timer）6.在下列有关表单及其控件的叙述中，错误的是_____________ 。

A.从容器层次来看，表单是最高层的容器类，它不可能成为其他对象的集成部分B.表格控件包含列控件，而列控件本身又是一个容器类控件C.页控件的 PageCount 属性值可以为 0D.表格控件可以添加到表单中，但不可以添加到工具栏中【相关例题】默认绑定控件23.在默认的情况下利用表单设计器设计表单时，若从数据环境里将某个表的一个逻辑型字段用鼠标托放到表单上，则在表单上添加的控件个数和控件类型分别是______A.2，标签与文本框B.2，标签与复选框C.1，文本框D.1，复选框【相关例题】重要方法24.在下列各组控件中，均有SetAll()方法的是______。

图2VFP 表单练习一、修改表单FORMDTEST 项目中已经存在表单FORMD ，该表单用来进行系统登录。

已知A 盘根目录下存在表文件USER ，该表用来存放登录用户的编号（no ）、姓名（name ）、职务（title ）和口令（password ）。

另一张表LOGIN 用来存放登录的年（year ）和月（month ）根据下列要求对表单进行修改，完成以后运行表单，效果如图2所示。

1． 将表单的标题设置为“系统登录”。

2． 设置表单有关属性，使表单运行时不可最小化。

3． 使口令文本框中输入的字符以“*”号显示。

4． 为“确定”按钮设置有关属性，使得当表单运行并按 ENTER 键时，无论当前焦点在哪个对象上，“确定”按钮总能得到焦点并自动执行它的Click 事件代码。

5． “年月”下拉列表框的RowSouceType 为“3-SQL 语句”，设置它的RowSource 属性，使得该下拉列表框中显示LOGIN 表中的年月两个字段的数据。

且显示格式为 ××××年××月（如图2所示）。

6． 假如USER 表中姓名（name ）字段的值不重复，且已经按姓名建立了一个普通索引name ，索引表达式为name ，完善姓名下拉列表框的InterActiveChange 事件，使得当选择不同的用户姓名时，“职务”文本框中显示其相应的职务(title)字段的值。

答案：1． 表单的Caption 属性为“系统登录” （1）2． 表单的MinButton 属性值为.F. （1）3． 口令文本框的PasswordChar 值为* （1）4． “确定”按钮的Default 属性为.T. （1）5． SELECT year+'年'+Right('0'+ALLT(month),2)+'月' FROM login INTO CURS cYmtmp（2）6． SEEK lsname ORDER name IN USER (2)THISFORM.TXT_TITLE.V ALUE = USER.TITLE (2)TEST项目中已经存在表单FORMA，Array该表单可以完成类似于Windows中的记事本功能。

例题1:新建一个表单文件form.scx。

然后完成如下操作：1.在属性窗口中设置表单的有关属性，使表单在打开时在VFP主窗口内居中显示。

2.在属性窗口中将表单设置为不可移动的，并将其标题设置为"表单操作"。

例题2:1.新建一个表单，表单文件名和表单控件名均为myform。

2.将myform表单设置为模式表单，并将其标题设置为"表单操作"。

例题3:为表单新建一个名为mymethod的方法，方法代码为：wait "mymethod" window timeout 10然后在表单中添加一个命令按钮,在它的click 事件中调用mymethod方法.调用表单方法的代码: thisform.方法名例题4：新建表单MYFORM44，把表单(名称为Form1)标题改为"欢迎您"，在表单上添加一个标签label1,其上显示"欢迎您访问系统"字样,标签文本的字号为25，字体为黑体。

再在表单上添加"关闭"命令按钮，单击此按钮关闭表单。

例题5：建立下面的表单，要求：在第一个文本框中输入学生的姓名，单击"查询"按钮,在第二个文本框中显示该同学的入学成绩。

单击"退出"按钮，关闭和释放表单.查询按钮(click)代码select 入学成绩from 学生表where 姓名=thisform.text1.value into array aathisform.text2.value=aa退出按钮按钮(click)代码：thisform.release例题6：查询按钮(click)代码if thisform.check1.value=1select * from 学生表where 少数民族=.t. elseselect * from 学生表where 少数民族=.f. endif退出按钮按钮(click)代码：thisform.release例题7：查询按钮(click)代码do casecase thisform.optiongroup1.value=1select * from 学生表where 性别="男"case thisform.optiongroup1.value=2select * from 学生表where 性别="女"case thisform.optiongroup1.value=3select * from 学生表endcase例题8：新建表单myform,表单中包含一个列表框和一个命令按钮查询，其中列表框的RowSourceType 属性为字段，使得当表单运行时，列表框内显示仓库表中城市字段的值,运行表单时,单击按钮,查询列表框中选定城市的仓库信息.查询按钮(click)代码select * from 仓库表where 城市=thisform.list1.value例题9：建立表单one，向其中添加一个组合框(Combo1),并将其设置为下拉列表框。

三、程序设计填空(每空2分，共16分)1.如下图所示，用标签、文本框(Text1)和命令按扭构成一个表单。

运行表单时，标题显示为“显示当前系统时间”，单击“显示”按扭将在文本框中显示系统时间，单击“清除”按扭，文本框中的内容将被清除，单击“退出”按扭，将退出表单运行。

(1) “显示”按扭的Click事件代码为：_____________________________________；01.Thisform.text1.value=time()(2) “清除”按扭的Click事件代码为：_____________________________________；02.Thisform.text1.value=””(3) “退出”按扭的Click事件代码为：_____________________________________；03.Thisform.Release 或 Release Thisform(4) 应在窗体(Form)的load事件里，设置表单的标题属性其代码为：___________________________________________________________________。

04.Thisform.Caption=”显示当前系统时间”2.通过下面的窗体来实现数据库记录的浏览。

(1) “首记录”按扭的Click事件的代码：________________________________ Go TopThisform.Refresh(2) “上一条”按扭的Click事件的代码：If _________________________________ Not Bof()或Bof=.T._____________________________ Skip -1ElseMessagebox (“已经是第一条记录！”,0+48,”系统信息”)EndifThisform.Refresh1、如下表单请编写“上一条记录”、“下一条记录”、“退出”三个命令按钮的Click事件代码，要求单击“上一条记录”按钮浏览到最前一条记录后就始终停到第一条记录，单击“下一条记录”按钮浏览到最后一条记录后就始终停到最后一条记录上。