第五章表单程序设计概论

第五章表单程序设计§1 面向对象程序设计一、对象在面向对象程序设计中，对象是将数据和操作结合在一起的数据结构，是程序设计的基本单元。

•属性：描述对象的状态和特征的值。

•方法：描述对象行为的操作。

•事件：对象能够识别的动作。

事件发生后，对象自动执行处理事件的操作（事件过程）。

二、类类是对具有共同特征和行为的对象的抽象描述。

•封装：隐藏对象的内部数据或操作细节。

•继承：基于现有的类（父类）创建新类（子类），子类保持了父类的属性和行为，但增加了新的功能。

•多态：不同对象对同一消息具有不同的反应能力。

§2 对象的操作一、对象的引用在Visual FoxPro中，引用和操作对象必须标识出对象和与之关联的容器层次。

Form1Command1 Optiongroup1 Option1Option2Grid1 Column1Text1Header1Column2Text1Header1Myform1.scx1. 绝对引用从容器的最高层开始，提供完整容器层次来引用对象。

[e.g. 5-1]在表单Myform1.scx中绝对引用按钮Command1。

mand12. 相对引用从容器层次中的某个对象开始，提供完整容器层次来引用对象。

引用关键字说明This当前对象Thisform包含当前对象的表单Thisformset包含当前对象的表单集Parent对象的上一层容器对象[e.g. 5-2]在表单Myform1.scx中相对引用对象。

Form1Command1 Optiongroup1 Option1Option2Grid1 Column1Text1Header1Column2Text1Header1mand1 Thisfrom.Optiongroup1.Option1 Thisfrom.Grid1.Column1.Text1二、设置属性对象的属性既可以在设计时使用属性窗口设置，也可以在程序运行时使用赋值命令设置。

命令<对象引用>.<属性>= <值>功能设置对象的属性。

[e.g. 5-3]在表单Myform1.scx中将按钮Command1的标题设置为“排序”。

mand1.Caption="排序"三、调用方法命令<对象引用>.<方法>功能调用无参数的方法。

命令<对象引用>.<方法>(参数表)功能调用有参数的方法。

[e.g. 5-4]在表单Myform1.scx中调用release方法关闭表单。

Thisfrom.Release§3 Visual FoxPro的事件一、事件事件是由系统预先定义的能被对象识别的动作。

•系统事件：由系统自动触发的事件。

•用户事件：由用户的操作触发的事件。

1. Visual FoxPro的核心事件事件类型事件名称鼠标事件Click, DblClick, RightClick, MouseDown, MouseUp, MouseMove 键盘事件KeyPress控件值改变事件InteractiveChange, ProgrammaticChange控件焦点事件GotFocus, LostFocus, When, Valid表单事件Load, Unload, Init, Destroy, Activate数据环境事件BeforeOpenTable, AfterCloseTable其他事件Timer, Error2.事件发生的顺序序号对象事件说明1表单Load创建表单之前发生2数据环境Init创建数据环境时发生3对象Init创建对象时发生4表单Init创建表单时发生5表单Activate激活表单时发生6对象用户事件用户操作时发生7表单Destroy释放表单时发生8对象Destroy释放对象时发生9表单Unload从内存释放表单时发生*注：1. Init事件从最内层的对象到最外层的容器依次触发。

2. Destroy事件从最外层的对象到最内层的容器依次触发。

§4 表单设计一、表单表单是用于显示、输入和修改数据的Windows窗口，可以包含标签、文本框、按钮、表格、图片等对象。

命令功能CREATE FORM <表单文件>创建表单MODIFY FORM <表单文件>修改表单DO FORM <表单文件>运行表单二、表单设计器1.工作界面查看类文本框命令按钮组组合框表格页框线条分隔符按钮锁定选定对象标签命令按钮复选框微调控件计时器OLE 绑定控件容器生成器锁定编辑框选项按钮组列表框图象OLE 控件形状超级链接对象选择框选项卡功能按钮列表框属性说明三、表单的属性、事件和方法1. 表单的常用属性属性默认值取值范围说明Name"Form1"表单的名称Left0表单左边与主窗口的距离Top0表单上边与主窗口的距离Width375表单的宽度Height250表单的高度Caption"Form1"表单的标题AutoCenter.F..F. –不居中.T. –居中表单是否在主窗口居中显示BackColor RGB(236, 233, 216)表单的背景色*注：所有表单对象（控件）都有Name属性，属性值为对象的名称。

属性（续）默认值取值范围说明BorderStyle30 –无边框1 –单线边框2 –固定对话框3 –可调边框表单的边框样式Picture(无)表单的背景图片MaxButton.T..F. –无效.T. –有效最大化按钮是否有效MinButton.T..F. –无效.T. –有效最小化按钮是否有效Closable.T..F. –无效.T. –有效关闭按钮是否有效2. 表单的常用事件事件说明Init创建表单时发生Destroy释放表单时发生Click鼠标单击表单时发生DblClick鼠标双击表单时发生RightClick鼠标右击表单时发生3. 表单的常用方法事件说明Release释放表单Refresh刷新表单控件的值四、表单的数据环境1. 数据环境设计器2. 字段与表单控件的映射字段类型表单控件字符型文本框数值型文本框日期型文本框逻辑型复选框备注型编辑框通用型ActiveX绑定控件表/视图表格五、表单程序设计的步骤☐创建表单☐设置数据环境☐添加控件☐设置控件属性☐编写事件代码（INIT , CLICK , RIGHTCLICK等）[e.g. 5-5]编写表单程序，表单的标题为“信息查询”、运行时自动居中显示，根据输入的姓名查询并显示学生信息。

设置控件属性（部分）对象属性值thisform Caption"信息查询" AutoCenter.T.thisform.txt学号ControlSource"学生.学号" thisform.txt姓名ControlSource"学生.姓名" thisform. txt性别ControlSource"学生.性别" thisform.txt出生日期ControlSource"学生.出生日期"编写事件代码mand1.ClickLocate for 姓名=alltrim(thisform.Text1.value) thisform.refresh§5 表单控件一、标签（Label）标签控件是最常用的显示文本信息的控件对象，标签控件显示的信息为固定文本，没有数据源。

属性默认值取值范围说明Caption"Label1"标签的标题AutoSize.F..F. –不调整.T. –调整标签是否自动调整大小FontName"宋体"标签文本的字体FontSize9标签文本的字号ForeColor RGB(0, 0, 0)标签文本的前景色BackColor RGB(236, 233, 216)标签文本的背景色BackStyle10 –透明1 –不透明标签的背景是否透明二、文本框（Text Box）文本框是用来输入或者查看文本的控件，文本框一般只包含一行数据。

属性默认值取值范围说明Value(无)文本框的内容ControlSource(无)文本框的数据源ReadOnly.F..F. –可修改.T. –不可修改文本框的值是否可修改PasswordChar(无)文本框显示的占位符三、编辑框（Edit Box）编辑框是用来编辑长字段或者备注字段的控件，编辑框可以包含多行数据。

属性默认值取值范围说明Value(无)编辑框的内容ControlSource(无)编辑框的数据源ReadOnly.F..F. –可修改.T. –不可修改编辑框的值是否可修改[e.g. 5-6]编写表单程序，标签内容为“学生信息管理”，字体为隶书，字号为24，颜色为蓝色。

使用上一条、下一条按钮可以浏览学生表的学生信息，退出按钮关闭表单。

设置控件属性（部分）对象属性值bel1Caption"学生信息管理" FontName"隶书" FontSize24ForeColor RGB(0, 0, 255)thisform.txt学号ControlSource"学生.学号" thisform.txt姓名ControlSource"学生.姓名" thisform.txt性别ControlSource"学生.性别" thisform.txt出生日期ControlSource"学生.出生日期"编写事件代码mand1.Click if !bof( )skip -1endifthisform.refreshmand2.Click if !eof( )skipendifthisform.refreshmand3.Click thisform.Release四、命令按钮（Command Button）命令按钮通过鼠标单击来完成特定的功能。

属性默认值取值范围说明Caption"Command1"命令按钮的标题Enabled.T..F. –不可用.T. –可用命令按钮是否可用事件说明Click鼠标单击命令按钮时触发[e.g. 5-7]编写表单程序，显示第一条记录时上一条按钮不可用，显示最后一条记录时下一条按钮不可用，如下图。

设置控件属性（部分）对象属性值bel1Caption"学生信息管理" FontName"隶书" FontSize24ForeColor RGB(0, 0, 255)thisform.txt学号ControlSource"学生.学号" thisform.txt姓名ControlSource"学生.姓名" thisform.txt性别ControlSource"学生.性别" thisform.txt出生日期ControlSource"学生.出生日期" mand1Enabled.F.编写事件代码mand1.Clickif !bof( )skip -1endifthisform.refreshif bof( )mand1.enabled=.f. endifmand2.enabled=mand2.Clickif !eof( )skipendifthisform.refreshif eof( )mand2.enabled=.f. endifmand1.enabled=.t.mand3.Click thisform.Release五、命令按钮组（Command Group）命令按钮组是一个包含多个命令按钮的容器控件，每个按钮可以分别定义自己的属性和事件。