《实验八 表单设计vf》由会员分享，可在线阅读，更多相关《实验八 表单设计vf（9页珍藏版）》请在金锄头文库上搜索。
1、实验八 表单设计一、 实验目的1. 熟悉表单设计器的使用。2. 掌握表单设计的基本过程和方法。3. 掌握表单的常用属性，方法和事件。4. 掌握标签、编辑框、命令按钮、组合框、列表框、表格、等常用控件的使用。二、实验内容和步骤建立一个如下图所示表单：图 1 学生登录窗口要求实现：（1）系统初次载入时，不显示文字“学生成绩登录系统”，单击窗体右键时，显示文字“学生成绩登录系统”。（2）单击“登录”按钮时，用户名所对应的文本框的背景色为红色。（3）单击“退出”按钮时，密码所对应的文本框消失。（4）双击窗体时，两文本框恢复正常。设计步骤： 选择“文件/表单/新建文件”，打开表单设计器。 在表单上添加三
2、个标签（Label1、Label2、Label3）、两个文本框（Text1、Text2）和一个命令按纽（Command1）。 设置表单、控件属性如下表所示。表 1 属性设置对 象 属 性 属 性 值Form1 Caption 系统登录Command1 Caption 登录Command1 Caption 退出Caption 学生成绩登录系统Fontsize 20Label1Forecolor 255,0,0Label2 Caption 用户名：Label3 Caption 密码：Text1 InputMask xxxxInputMask xxxText2PasswordChar * 编写相应事
3、件过程代码。 表单 Form1的 Init事件过程代码：ThisForm.label1.visible=.F. 表单 Form1的 Rightclick事件过程代码：ThisForm.label1.visible=.T. 命令按钮 Command1的 Click事件过程代码：Thisform.text1.backcolor=RGB(255,0,0) 命令按钮 Command2的 Click事件过程代码：Thisform.Text2.visible=.F. 表单 Form1的 dblclick事件过程代码：Thisform.text1.backcolor=rgb(255,255,255)This
4、form.text2.visible=.T. 保存表单，命名为“表单 01”。 运行该表单，验证是否达到要求。2.设计一个登录表单，当用户输入用户名和口令并按确认键后，检验其输入是否正确，若正确(假定用户名为“USER”,口令为“123”)，就显示“欢迎使用”字样并关闭表单；若不正确，显示“用户名或口令不对，请重输”字样（要求口令输入时显示星号*），连续三次都输入不正确，显示“输入次数超过三次，你无权使用本系统”。图 2 用户登录界面设计步骤： 新建一表单，在表单上添加两个标签、两个文本框、一个命令按纽。 设置两个标签和一个命令按纽的 Caption属性如上图所示。设置文本框 Text1、Te
5、xt2 的 InputMask属性值分别为 xxxx和 xxx；设置 Text2的 PasswordChar属性值为*。 编写相应对象的相应事件过程代码。 表单 Form1的 Load事件代码:public numnum=0 命令按钮 Command1的 Click事件代码:if upper(thisform.text1.value)=USER.and.;thisform.text2.value=123wait 欢迎登录 window at 25,80thisform.releaseelsenum=num+1if num3thisform.text1.value=thisform.text2.
6、value=thisform.text1.setfocus elsemessagebox(输入次数超过三次，你无权使用本系统,48,提示) thisform.releaseendif endif 保存表单，命名为“表单 02”，运行表单。 3.设计一个选项按钮组表单，能改变文本框内文字的字体格式，如下图所示。图 3 字体设置界面设计步骤： 新建一表单，在表单上添加一个文本框 Text1和一个选项按钮OptionGroup1。 设置文本框 Text1的 Value属性为“设置字体格式”，Fontsize 属性为 20，选项按纽 OptionGroup1的 ButtonCount属性为 4、Cap
7、tion 属性如上图所示。 编写选项按钮 OptionGroup1的 Click事件过程代码： 保存表单，命名为“表单 03”，运行表单。4.设计一个运行结果如下图所示的表单，可用命令按钮组中命令按钮来调整标签控件的位置及大小。图 5 命令按钮组的使用界面设计步骤： 新建一表单，在表单上添加一个标签 label1和一个命令按钮组CommandGroup1。 设置标签 label1和命令按钮组 CommandGroup1的属性如上图所示。 编写命令按钮组的 Click事件过程代码： 保存表单，命名为“表单 04”，运行表单。5.编制一个浏览记录的表单（浏览记录.scx） ，要求具有前后翻页、插入
8、记录、删除当前记录的功能，并能对当前记录进行编辑修改（其中“性别”字段的内容可用单选按钮组控件来控制） 。运行结果如下：图 7 浏览记录窗口设计步骤： 新建一表单，将学生情况表（xsqk.dbf）添加到数据环境中。 用鼠标将有关字段逐个拖到表单中的合适位置形成相应的标签、文本框、复选框、OLE 帮定对象及编辑控件。 添加一个单选按钮组控件“optiongroup1”取代原来的“txt 性别”文本框，并设置其 buttoncount属性为 2，controlsource 属性为 xsqk.性别，将其中的 option1的 caption属性设置为“男”，option2 的caption属性设置为
9、“女”。 设置 OLE照片控件的 stretch 属性为“1-等比填充”。 在表单中添加 6个命令按钮控件 commond1command6，并将它们的caption属性分别设置为：“首记录”、“上一个记录”、“下一个记录”、“尾记录”、“添加记录”、“删除记录”。 编写相应事件过程代码。表单对象的 init事件过程代码：set deleted onselect xsqkgo mand1.enabled=mand2.enabled=.f. “首记录”Command1 按钮的 click事件过程代码：go top mand3.enabled=mand4.enabled=mand2.enabled
10、=.f.this.enabled=.f.thisform.refresh“上一个记录”Command2 按钮的 click事件过程代码：mand3.enabled=mand4.enabled=.t.skip -1if bof()go mand1.enabled=.f.this.enabled=.f.endifthisform.refresh“下一个记录”Command3 按钮的 click事件过程代码：mand1.enabled=mand2.enabled=.t.skipif eof()go mand4.enabled=.f.this.enabled=.f.endifthisform.refr
11、esh“尾记录”Command4 按钮的 click事件过程代码：go mand1.enabled=mand2.enabled=mand3.enabled=.f.this.enabled=.f.thisform.refresh“添加记录”Command5 按钮的 click事件过程代码：append blankthisform.txt学号.setfocusthisform.refresh“删除当前记录”Command6 按钮的 click事件过程代码：ts=messagebox(确实要删除此记录吗？,4+48)if ts=6deleteskip -1if bof()go topendifthi
12、sform.refreshendif 保存表单，命名为“表单 05”，运行表单。6.利用学生管理数据库中的 xsqk表和 cj表，设计一个能进行查询统计的表单，其界面如下图所示。当输入一个学生姓名并单击“查询统计”按钮时，会在右侧表格内显示该同学所选的各门课程的成绩，并在左边相应的文本框内显示其中的最高分、最低分和平均分，单击“退出”按钮将关闭表单。图 8 成绩查询窗口表单设计步骤如下： 新建一表单，打开数据环境设计器窗口，添加表 xsqk和 cj。 在表单上添加四个个标签、四个文本框、两个命令按钮和一个表格控件，设置标签、命令按钮和表单的属性如上图所示。 设置表格的 ColumnCount属
13、性值为 2、RecordsourceType 属性值为“4SQL说明”。 设置表格两列标头的 Caption属性分别为“课程号”和“成绩”，并适当调整两列的宽度。 编写相应事件过程代码。 表单对象的 init事件过程代码：this.grid1.visible=.f. “查询统计”命令按钮 Command1的 Click事件过程代码：thisform.Grid1.Recordsource=select 课程号,成绩 ;from cj,xsqk where cj.学号=xsqk.学号 and ;姓名=alltrim(thisform.text1.value) into cursor lsbthisform.grid1.visible=.t.select max(成绩) as maxcj,min(成绩) as mincj, ;avg(成绩) as avgcj from lsb into cursor lsb1thisform.text2.value=maxcjthisform.text3.value=mincjthisform.text4.value=avgcj “退出”命令按钮 Command2 的 Click事件过程代码：thisform.release 保存表单，命名为“表单 06”，运行表单。
