资源预览内容
第1页 / 共5页
第2页 / 共5页
第3页 / 共5页
第4页 / 共5页
第5页 / 共5页
亲,该文档总共5页全部预览完了,如果喜欢就下载吧!
资源描述
实验9-2 VFP表单高级设计+ 实验内容1设计表单“字体字型”l 本题知识点:控件选项按钮组、复选按钮、微调按钮的使用,相应方法程序的编写。l 要求如下:(1) 能够通过选项按钮组(间距24)来设置标签控件中的字体;(2)通过复选按钮改变字型(加粗、倾斜);(3)通过微调控件改变字号,微调控件的最大值是36磅,最小值是9,初值为17,每次单击微调控件的上下箭头时数量增加或减少2。l 操作方法:(1) 按照图在表单中添加标签label1,在其Caption属性中输入“Visual FoxPro程序设计”;(2) 在表单中添加选项按钮组OptionGroup1,并进行以下设置: 按右键选择“生成器”,在“按钮”选项卡中将按钮的数目改为4,标题分别改为黑体、楷体、仿宋、隶书, 在“布局”选项卡中将间距设置为24; 对选项按钮组OptionGroup1各个标题进行字体设置,具体步骤是:按右键选择“编辑”,此时按钮组四周带绿色边框(如图所示),再单击选中某个对象,在其属性中的FontName分别设置为相应字体(比如楷体则选择“楷体_GB2312”)。说明:这一步是对标题的字体显示效果进行设置,也可以不必设置,它与对label1的内容显示效果无关。要对label1的内容显示效果进行控制,必须在它的事件中设置,详见下述2种方法。选项按钮组OptionGroup1的事件代码程序可以用两种方法编写:方法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中的Click事件中: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 Thisform.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& 每次单击向上或向下按钮时增加和减少的值(步长)KeyboardHighValue:36& 键盘能输入的最高值。默认值是2147483647KeyboardLowValue:9& 键盘能输入的最低值。默认值是-2147483647SpinnerHighValue:36& 微调控件能显示的最高值SpinnerLowValue:9& 微调控件能显示的最低值 微调按钮Spinner1的interactivechange事件代码程序如下:Thisform.Label1.Fontsize = This.Value2设计表单“显示表格”l 本题知识点:表格与数据表的绑定l 本题数据源:学生.dbfl 要求如下:(1) 建立一个名为“显示表格.scx”的表单。该表单上有一个表格和两个命令按钮;(2) 运行表单时,只显示两个按钮,如图所示,若单击键面显示文字为“显示表格”的按钮,则在表格中显示出每个学生的学号、姓名、入学成绩和毕业中学,如图所示,若单击“退出”按钮,则在关闭了数据表后关闭表单。l 操作方法:(1) 在新建表单中,添加表格控件Grid1 ,可以拖动边界改变大小;(2) 添加两个命令按钮Command1和;Command2,并分别将他们的Caption改为“显示表格”和“退出”;(3) 表格与数据表的绑定:在表格中按右键选择“生成器”,选择“学生”表,并选择所需字段(学号,姓名,入学成绩,毕业中学);(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) 建立一个名为“按姓名查询.scx”的表单;(2) 在表单中添加标签labell,标题是:“请选择教师姓名:”;(3) 添加组合框Combo1;要求从下拉列表中选择姓名,然后显示该教师的信息(包括姓名、性别、职称、工作日期、照片);(4) 要求表单的初始界面只显示标签和组合框,当选择了教师姓名后,再显示相应的信息,如图所示。l 操作方法:(1) 在新建表单中,添加控件标签labell,并将其属性Caption:设置为“请选择教师姓名:”;(2) 添加控件组合框Combo1;按右键选择“生成器”,选择“教师信息表”中的字段“姓名”与之绑定;(3) 在表单空白处按右键选择“数据环境”,调出“数据环境设计器”(由于第步组合框的绑定操作完成,数据环境自动添加了教师信息表);(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的InteractiveChange事件中输入代码: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) 文本框中的文字内容为“热烈欢迎”,红色,26号,隶书;(2) 文字在容器中从左至右移动,当抵达右边界时,重新从左边界开始。容器大小为120400,背景色为浅黄色;(3) 使用如图的三个命令按钮控制移动速度。l 操作方法:(1) 在新建表单中,添加一个“容器”Container1控件,并进行以下属性设置:u Hieght属性设置为120& 容器的高度u Width属性设置为400& 容器的宽度u Backcolor属性设置为浅黄(255,255,128)& 容器的背景色(2) 在“容器”中按右键,选择“编辑”,此时出现蓝绿色边框,再将文本框Text1和计时器Timer1加入其中;(3) 对文本框Text1进行如下设置: 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=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
网站客服QQ:2055934822
金锄头文库版权所有
经营许可证:蜀ICP备13022795号 | 川公网安备 51140202000112号