数据库系统及应用 第五版 高职计算机大类专业基础 赖申江数据库 第9章.pptVIP

第9章 表单控件及应用 许多控件都有相同的属性及事件。例如，每个控件都有Name属性，标签和命令按钮都有Caption属性及Click事件。但除了一些共性外，每个控件都有其个性。例如，计时器控件有Interval属性及Timer事件。 本章是全书的重点。对于Visual FoxPro的程序设计用户而言，表单设计中常用控件部分更为重要。为了加深理解，达到融会贯通的目的，本章通过三个不同的完整案例，进一步说明了表单常用控件的应用。知识的掌握和应用，在于举一反三的编程练习和实践。书中提供的案例，可以分别独立运行。若将三个案例综合起来，适当修改，可以构成一个应用程序的基本框架。 * * * * 第9章 表单控件及应用 图9-26 操作员表user.dbf 第9章 表单控件及应用 2．表单设计 （1）创建表单集FormSet1，该表单集包含Form1和Form2两个表单。FormSet1的Init事件过程代码为： thisformset.form1.show 显示登陆窗口 thisformset.form2.hide 隐藏选课窗口 （2）为表单建立数据环境：打开数据环境设计器，在同时打开的“添加表或视图”对话框中选择 student.dbf 和 user.dbf ，然后单击【添加】命令按钮，将选定的表加入数据环境设计器中。 （3）登陆窗口表单设计 根据案例要求，在表单Form1中放入3个标签、1个组合框、1个文本框及2个命令按钮控件。参考图8.36登陆窗口界面进行布局。 第9章 表单控件及应用 各控件的初始属性设置完成后，即可进行代码设计。根据案例操作要求，表单Form1中各控件的事件过程代码如下： ① Form1的Init事件过程代码为： public mnb 定义全局变量mnb，用于记录用户输入密码的次数 mnb=0 mnb的初值为零 第9章 表单控件及应用 ② Text1的LostFocus事件过程代码为： 用户输入结束，密码输入次数加1 mnb=mnb+1 在标签上同步显示密码输入次数 thisformset.form1.label3.caption=密码输入+alltrim(str(mnb,3,0))+次 将操作员密码值赋给ms变量 ms=user.userpsw 判断文本框的输入值与user表预置密码值是否相等 if thisformset.form1.text1.value=ms thisformset.form1.label3.caption= 密码正确 thisformset.form1.Command1.enabled= .T. else if mnb3 thisformset.form1.label3.caption= thisformset.form1.label3.caption+密码错！重新输入 thisformset.form1.Command1.enabled= .F. thisformset.form1.text1.setfocus else release thisformset endif endif 第9章 表单控件及应用 ③ Combo1的Click事件过程代码为： thisformset.form1.text1.setfocus ④ Command1的Click事件过程代码为： thisformset.form2.show 密码正确，打开选课窗口 ⑤ Command2的Click事件过程代码为： thisformset.release 第9章 表单控件及应用 （4）选课窗口表单设计 根据案例要求，在表单Form2中放入3个标签、1个组合框、1个列表框、6个复选框及3个命令按钮控件。参考图9-23选课窗口界面进行布局。 根据案例操作要求，表单Form2中各控件的事件过程代码如下： ① Form2的Init事件过程代码为： thisform.Combo1.RowSource=学号,姓名,院系 thisform.Combo1.ColumnCount=5 thisform.Combo1.BoundColumn=2 public mnb1 定义全局变量mnb1，用于记录选课学生人次 mnb1=0 mnb1的初值为零 第9章 表单控件及应用 ② Command1的Click事件过程代码为： 单击【确定】命令按钮，选课学生人次加1 mnb1=mnb1+1 thisformset.form2.Label3.caption=选课人数：+alltrim(str(mnb1))+人次 mkcnb=所选的课程编号为： mkcnb用于选课显示 if thisformset.form2.check1.v