实验八 表单设计VF概要.docVIP

实验表单设计实验目的表单设计器表单设计的基本过程和方法。掌握表单的属性，方法和事件。掌握标签、编辑框命令按钮组合框、列表框、表格、等控件的使用。二实验内容１．建立一个如下图所示表单： 图1 学生登录窗口 要求实现： （1）系统初次载入时，不显示文字“学生成绩登录系统”，单击窗体右键时，显示文字“学生成绩登录系统”。 （2）单击“登录”按钮时，用户名所对应的文本框的背景色为红色。 （3）单击“退出”按钮时，密码所对应的文本框消失。 （4）双击窗体时，两文本框恢复正常。 设计步骤： 选择“文件/表单/新建文件”，打开表单设计器。 在表单上添加三个标签（Label1、Label2、Label3）、两个文本框（Text1、Text2）和一个命令按纽（Command1）。 设置表单、控件属性如下表所示。 表1 属性设置 对 象 属 性 属 性 值 Form1 Caption 系统登录 Command1 Caption 登录 Command1 Caption 退出 Label1 Caption 学生成绩登录系统 Fontsize 20 Forecolor 255,0,0 Label2 Caption 用户名： Label3 Caption 密码： Text1 InputMask Text2 InputMask xxx PasswordChar * 编写相应事件过程代码。 表单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) Thisform.text2.visible=.T. 保存表单，命名为“表单01”。 运行该表单，验证是否达到要求。 2.设计一个登录表单，当用户输入用户名和口令并按确认键后，检验其输入是否正确，若正确(假定用户名为“USER”,口令为“123”)，就显示“欢迎使用”字样并关闭表单；若不正确，显示“用户名或口令不对，请重输…”字样（要求口令输入时显示星号*），连续三次都输入不正确，显示“输入次数超过三次，你无权使用本系统”。 图2 用户登录界面 设计步骤： 新建一表单，在表单上添加两个标签、两个文本框、一个命令按纽。 设置两个标签和一个命令按纽的Caption属性如上图所示。设置文本框Text1、Text2的InputMask属性值分别为xxxx和xxx；设置Text2的PasswordChar属性值为*。 编写相应对象的相应事件过程代码。 表单Form1的Load事件代码: public num num=0 命令按钮Command1的Click事件代码: if upper(thisform.text1.value)=USER.and.; thisform.text2.value=123 wait 欢迎登录 window at 25,80 thisform.release else num=num+1 if num3 thisform.text1.value= thisform.text2.value= thisform.text1.setfocus else messagebox(输入次数超过三次，你无权使用本系统,48,提示) thisform.release endif endif 保存表单，命名为“表单02”，运行表单。 3.设计一个选项按钮组表单，能改变文本框内文字的字体格式，如下图所示。 图3 字体设置界面 设计步骤： 新建一表单，在表单上添加一个文本框Text1和一个选项按钮OptionGroup1。 设置文本框Text1的Value属性为“设置字体格式”，Fontsize属性为20，选项按纽OptionGroup1的ButtonCount属性为4、Caption属性如上图所示。 编写选项按钮OptionGroup1的Click事件过程代码： 保存表单，命名为“表单03”，运行表单。 4.设计一个运行结果如下图所示的表单，可用命令按钮组中