《data9-2实验9-2答题文件（答案）》由会员分享，可在线阅读，更多相关《data9-2实验9-2答题文件（答案）（5页珍藏版）》请在金锄头文库上搜索。
1、实验9-2 VFP表单高级设计+ 实验内容1设计表单“字体字型”l 本题知识点：控件选项按钮组、复选按钮、微调按钮的使用，相应方法程序的编写。l 要求如下：(1) 能够通过选项按钮组（间距24）来设置标签控件中的字体；(2）通过复选按钮改变字型（加粗、倾斜）；(3）通过微调控件改变字号，微调控件的最大值是36磅，最小值是9，初值为17，每次单击微调控件的上下箭头时数量增加或减少2。l 操作方法：(1) 按照图在表单中添加标签label1,在其Caption属性中输入“Visual FoxPro程序设计”；(2) 在表单中添加选项按钮组OptionGroup1,并进行以下设置： 按右键选择“生成
2、器”，在“按钮”选项卡中将按钮的数目改为4，标题分别改为黑体、楷体、仿宋、隶书， 在“布局”选项卡中将间距设置为24； 对选项按钮组OptionGroup1各个标题进行字体设置，具体步骤是：按右键选择“编辑”，此时按钮组四周带绿色边框（如图所示），再单击选中某个对象，在其属性中的FontName分别设置为相应字体（比如楷体则选择“楷体_GB2312”）。说明：这一步是对标题的字体显示效果进行设置，也可以不必设置，它与对label1的内容显示效果无关。要对label1的内容显示效果进行控制，必须在它的事件中设置，详见下述2种方法。选项按钮组OptionGroup1的事件代码程序可以用两种方法编写
3、：方法1：在选项按钮组OptionGroup1的InteractiveChange（或Click）事件中编写代码程序：n=This.valueDO CASE CASE n=1 Thisform.Label1.Fontname =黑体 CASE n=2 Thisform.Label1.Fontname =揩体_GB2312 CASE n=3 Thisform.Label1.Fontname =仿宋_GB2312 CASE n=4 Thisform.Label1.Fontname =隶书Endcase方法2：在选项按钮组OptionGroup1的各个按钮选项中直接编写：1）Option1中的Cli
4、ck事件中：Thisform.Label1.Fontname =黑体2）Option2中的Click事件中：Thisform.Label1.Fontname =揩体_GB23123）Option3中的Click事件中：Thisform.Label1.Fontname =仿宋_GB23124）Option4中的Click事件中：Thisform.Label1.Fontname =隶书(3) 在表单中添加2个复选框Check1和Check2, 并进行以下设置： 将他们的Caption分别设置为“粗体”和“斜体”； 在Check1（粗体）的click事件代码：If This.Value=1 This
5、form.Label1.Fontbold=.t.Else Thisform.Label1.Fontbold=.f.Endif 在Check2（斜体）的click事件代码：If This.Value=1 Thisform.Label1.Fontitalic=.t.Else Thisform.Label1.Fontitalic=.f.Endif 说明：复选框的值有3种：未选中时，其值为0，选中时，其值为1，灰色（不可操作）时其值为2。(4) 在表单中添加微调按钮Spinner1,并进行以下设置： 微调按钮Spinner1的有关属性设置：Value: 17& 初始值Increment：2& 每次单击
6、向上或向下按钮时增加和减少的值(步长)KeyboardHighValue：36& 键盘能输入的最高值。默认值是2147483647KeyboardLowValue：9& 键盘能输入的最低值。默认值是-2147483647SpinnerHighValue：36& 微调控件能显示的最高值SpinnerLowValue：9& 微调控件能显示的最低值 微调按钮Spinner1的interactivechange事件代码程序如下：Thisform.Label1.Fontsize = This.Value2设计表单“显示表格”l 本题知识点：表格与数据表的绑定l 本题数据源：学生.dbfl 要求如下：(1
7、) 建立一个名为“显示表格.scx”的表单。该表单上有一个表格和两个命令按钮；(2) 运行表单时，只显示两个按钮，如图所示，若单击键面显示文字为“显示表格”的按钮，则在表格中显示出每个学生的学号、姓名、入学成绩和毕业中学，如图所示，若单击“退出”按钮，则在关闭了数据表后关闭表单。l 操作方法：(1) 在新建表单中，添加表格控件Grid1 ，可以拖动边界改变大小；(2) 添加两个命令按钮Command1和；Command2，并分别将他们的Caption改为“显示表格”和“退出”；(3) 表格与数据表的绑定：在表格中按右键选择“生成器”，选择“学生”表，并选择所需字段（学号，姓名，入学成绩，毕业中
8、学）；(4) 在表单FORM1的INIT过程中输入如下代码： THIS.GRID1.VISIBLE=.F.& 开始运行表单时，表格不可见(5) 在COMMAND1的CLICK过程中输入如下代码： THISFORM.GRID1.VISIBLE=.T.& 单击“显示表格”按钮，表格可见(6) 在COMMAND2的CLICK过程中输入如下代码：CLOSE TABLES& 关闭数据表RELEASE THISFORM& 关闭表单3设计表单“按姓名查询”l 本题知识点：控件组合框的使用，组合框与字段的绑定，相应方法程序的编写。l 本题数据源：教师信息表.dbfl 要求如下：(1) 建立一个名为“按姓名查询
9、.scx”的表单；(2) 在表单中添加标签labell，标题是：“请选择教师姓名：”；(3) 添加组合框Combo1；要求从下拉列表中选择姓名，然后显示该教师的信息（包括姓名、性别、职称、工作日期、照片）；(4) 要求表单的初始界面只显示标签和组合框，当选择了教师姓名后，再显示相应的信息，如图所示。l 操作方法：(1) 在新建表单中，添加控件标签labell，并将其属性Caption：设置为“请选择教师姓名：”；(2) 添加控件组合框Combo1；按右键选择“生成器”，选择“教师信息表”中的字段“姓名”与之绑定；(3) 在表单空白处按右键选择“数据环境”，调出“数据环境设计器”（由于第步组合框
10、的绑定操作完成，数据环境自动添加了教师信息表）；(4) 将所需字段（姓名、性别、职称、工作日期、照片）从数据环境设计器中拖到表单中适当的位置，并将照片的标签删去；(5) 在表单的init 事件中将初始界面中不要显示的部分设置为不可见：Thisform. SetAll(visible,.f.,TextBox) & 见本题疑难解答This.lbl姓名.Visible=.f. This.lbl性别.Visible=.f.This.lbl职称.Visible=.f.This.lbl工作日期.Visible=.f.This.olb照片.Visible=.f.(6) 在表单的组合框Combo1的Inter
11、activeChange事件中输入代码：Thisform. SetAll(visible,.t.,TextBox)Thisform.lbl姓名.Visible=.t. Thisform.lbl性别.Visible=.t.Thisform.lbl职称.Visible=.t.Thisform.lbl工作日期.Visible=.t.Thisform.olb照片.Visible=.t.locat for 姓名=This.ValueThisform.Refresh4设计表单“容器应用”l 本题知识点：按钮、容器、计时器的应用，文本框内容的动态显示，相应方法程序的编写。l 要求如下：(1) 文本框中的文字
12、内容为“热烈欢迎”，红色，26号，隶书；(2) 文字在容器中从左至右移动，当抵达右边界时，重新从左边界开始。容器大小为120400，背景色为浅黄色；(3) 使用如图的三个命令按钮控制移动速度。l 操作方法：(1) 在新建表单中，添加一个“容器”Container1控件，并进行以下属性设置：u Hieght属性设置为120& 容器的高度u Width属性设置为400& 容器的宽度u Backcolor属性设置为浅黄（255，255，128）& 容器的背景色(2) 在“容器”中按右键，选择“编辑”，此时出现蓝绿色边框，再将文本框Text1和计时器Timer1加入其中；(3) 对文本框Text1进行
13、如下设置： u Caption属性设置为“热烈欢迎”& 文本框标题u ForColor属性设置为红色（255，0，0）& 字体颜色u FontName属性设置为“隶书”& 字体名u FontSize属性设置为26；& 字号u BackStyle属性设置为0-透明 & 背景风格u BorderStyle属性设置为0-无 & 边框风格(4) 对计时器Timer1进行如下设置： u Timer事件中输入程序代码：IF THIS.PARENT.TEXT1.LEFT=THIS.PARENT.WIDTH THIS.PARENT.TEXT1.LEFT=1ELSE THIS.PARENT.TEXT1.LEFT
14、=THIS.PARENT.TEXT1.LEFT+1ENDIFu Enabled属性设置为：.T.u Interval属性设置为：5 （只要是一个非0数即可，5表示5毫秒计时器执行一次程序代码） (5) 在表单中，添加三个命令按钮控件，并进行以下设置：u 对命令按钮Command1，Caption设置为“快速”；为其Click事件编写代码：THISFORM.CONTAINER1.TIMER1.INTERVAL=5u 对命令按钮Command2，Caption设置为“中速”；为其Click事件编写代码：THISFORM.CONTAINER1.TIMER1.INTERVAL=10u 对命令按钮Command3，Caption设置为“慢速”；为其Click事件编写代码：THISFORM.CONTAINER1.TIMER1.INTERVAL=5093
