《数据库》第5章 表单

表单表单是最常见的界面，对话框、向导、设计器等各类窗口，在VFP中统称为表单。表单为数据库信息的显示、输入及编辑提供了非常方便的方法，同时面向对象编程的大多数工作是在表单中进行，设计表单的过程就是设计程序界面的过程。表单的创建表单向导用表单向导创建表单【例STYLEREF1\s5SEQ例\*ARABIC\s11】使用表单向导创建一个维护xsda.dbf的表单。单击“文件”菜单中的“新建”菜单项，在弹出的“新建”对话框中选定“表单”后单击“向导”按钮；或单击“工具”菜单中的“向导”子菜单中选定“表单”菜单项，按以上两种操作均会出现“向导选取”对话框。对话框中有表单向导与一对多表单向导两个选项，前者适用于单表表单，后者适用于一对多关系的两个表的表单。选择“表单向导”后单击“确定”按钮，出现“表单向导”对话框，在“数据库和表”区域的对话按钮，在出现的“打开”对话框中选择xsda表。将可用字段列表框的所有字段移到选定字段列表框，单击“下一步”按钮。在“选择表单样式”对话框中选定“阴影式”，单击“下一步”按钮。在“排序次序”对话框中用户可选择字段或索引标识来排序记录。将姓名字段升序添加到“选定字段”列表框中，单击“下一步”按钮。在“完成”对话框中输入表单标题后单击“完成”按钮，在弹出的“另存为”对话框中输入表单文件名xsda.scx然后选定“保存”按钮。运行表单：在命令窗口中输入“doformxsda”。用“表单向导”创建一对多表单【例STYLEREF1\s5SEQ例\*ARABIC\s12】创建一个用于按学号、姓名显示成绩的基于xsda.dbf和xscj.dbf的表单。在“工具”菜单的向导子菜单中选定“表单”菜单项，在弹出的“向导选取”对话框中选一对多表单向导项后单击“下一步”按钮。在弹出的对话框中单击“数据库和表”区域的对话按钮，在出现的“打开”对话框中选择xsda表，将可用字段中的学号、姓名两个字段移到选定字段列表框，单击“下一步”按钮。在弹出的对话框中“数据库和表”区域的对话按钮，在出现的“打开”对话框中选择xscj表，将可用字段中的除学号、总分两个字段外所有的字段移到选定字段列表框，单击“下一步”按钮。在弹出的“表之间关系”对话框中单击“下一步”按钮。在弹出的“选择表单样式”对话框中选择“浮雕式”，单击“下一步”。在弹出的“排序次序”对话框中不做任何设置，直接点击“下一步”按钮。在“完成”对话框中输入表单标题“学号成绩”后单击“完成”按钮，在弹出的“另存为”对话框中输入xhcj.scx保存文件即可。表单设计器在VFP中创建表单除了可以利用向导外，还可利用设计器。表单设计器集成了用于表单设计的各种对象和操作工具，不仅能创建表单还能修改表单，并给予可视化提示。可以使用以下两种方法打开表单设计器：一种是选定“文件”菜单的“新建”菜单项，在“新建”对话框中选择“表单”项并单击“新建文件”按钮；另一种方法是在命令窗口中输入“modifyform”命令。出现如下图所示的表单设计器窗口。表单设计器打开后，系统自动新建的一个名form1表单，用户可以使用以下要素完成所需表单的设计。包含表单设计工具的各种工具栏：例如表单控件工具栏、布局工具栏、表单设计器工具栏、调色板工具栏。设置、编辑表单对象属性的属性窗口。用于提供表的数据环境设计器窗口。系统菜单中的表单菜单。【例STYLEREF1\s5SEQ例\*ARABIC\s13】利用表单设计器创建基于表xsda.dbf的表单。打开表单设计器。打开“数据环境设计器”：在表单窗口中单击鼠标右键，在弹出的快捷菜单中选定“数据环境”菜单项。在出现的“数据环境设计器”窗口中，单击右键，在快捷菜单中选定“添加”项，将xsda.dbf表添加到数据环境中。从“数据环境设计器”中将需要的字段拖拽到表单中合适位置。关闭“数据环境设计器”，在表单空白处单击表单右键，在弹出的快捷菜单中选“执行表单”运行表单即可。面向对象程序设计基本概念面向对象的程序设计方法是一种新的程序设计方法，是指将数据处理由面向过程转向面向对象，并采用事件驱动其执行过程的程序设计方法。1、类采用面向对象的程序设计方法设计应用软件，首要的任务就是创建所需要的对象。如何创建用户所需的对象，就成为这种程序设计方法要解决的核心问题。VisualFoxPro为我们提供了生成各种所需对象的相应模具，那就是类。用一种模具可以生产同种类的许多产品，使用某一个类也可以在不同的应用程序中创建同种类的许多对象。类具有以下特点：继承性：也就是说可以从现有的类派生出新类。派生类具有父类的所有特性，它直接继承了父类的所有方法和数据，派生类的对象可以调用该类及父类的成员变量和成员函数。封装性：是将方法和数据存放于同一个对象中，并且对数据的存取只能通过对象本身的方法来进行。其他的对象不能直接作用于该对象的数据，对象的相互作用只能通过消息进行。多态性：指的是不同的对象接收到相同的消息时，可以做出完全不同的理解，进而产生完全不同的动作。利用多态性，应用程序可以发送一般形式的消息，而将所有实现的细节留给接收消息的对象自己来解决。2、对象对象是指具有具体属性并指派了方法和事件的类的实例。在VFP中对象分为控件和容器两种。控件类不允许包含其他对象的类称作控件类，有复选框、组合框、命令按钮、编辑框、列表框、文本框、标签、线条、微调器、选择按钮、图像、表头、计时器、OLE绑定型控件、OLE容器控件、自定义、分隔符、形状等。容器类可以包含其他对象的类称作容器类。有表单、表单集、表格、列、页框、页面、命令按钮组、选项按钮组、容器、控件、工具栏等。3、属性属性用来表示对象的特征和状态。比如，一个对象的外观、大小和颜色等都可以由相应的属性表示。对象的属性一般可在表单设计器的属性窗口中设置，对于一些无法在属性窗口中设置的属性可以按以下语法格式进行赋值：父对象名.对象名.属性=属性值4、事件事件是指当用户或系统对对象进行操作时对象所产生的操作。例如，用鼠标单击命令按钮，将产生一个click事件，一个事件对应于一个程序，称为事件过程。一个对象可以有多个事件。VFP常见事件如下表所示。事件触发时机事件触发时机Load创建对象前Unload释放对象时Init创建对象时Keypress按住并释放一个键时Mouseup释放鼠标键时Mousedown按下鼠标键时Gotfocus对象得到焦点时Lostfocus对象失去焦点时Click单击鼠标左键时Dbclick双击鼠标左键时5、方法方法程序是系统预先编好的代码通用过程，对用户是不可见的。用户通过调用方法程序，就可对某一对象执行相应的操作。常用的方法程序有：Refresh功能：刷新表单或控件的值。例如：thisform.refreshRelease功能：释放表单或表单集例如：thisform.releaseCls功能：清除表单上的图形和文本例如：thisform.box(50,50,100,100)&&在当前表单指定位置画一矩形Thisform.cls&&将上述矩形清除对象的引用在面向对象的程序设计中常常需要引用对象，或引用对象的属性、事件与调用方法程序。通常对象的引用由以下关键字开头：Thisformset表示当前表单集Thisform表示当前表单This表示当前对象关键字后跟一个.（点），再写出被引用对象或者对象属性，事件或方法程序。例如，下列语句设置名为form1表单中的label1标签的一些属性值：Thisform.label1.caption=‘程序设计’&&本表单的标签标题This.parent.caption=time()&&本对象的容器的标题【例STYLEREF1\s5SEQ例\*ARABIC\s14】设计如下图所示的表单，当鼠标在文本框上单击时，文本框内显示当前的日期时间。（1）在表单上添加一个标签（label1）对象，将caption属性设为“现在的时间是”，fontsize属性设为12。（2）添加文本框（text1）对象，文本框的click事件代码编写如下：this.value=time()表单中的常用控件在VisualFoxPro6.0中，常用的控件共有25个按钮。它们是1个“按钮”按钮、1个“锁定”按钮、1个“查看类”、21个标准控件和1个“ActiveX”控件。在表单中添加控件，只需在表单控件工具栏中单击所需要的控件，然后在表单中的相应位置拖拽鼠标或单击鼠标左键，控件对象就会显示在表单中，同时与表单一样，控件也是一种对象，其属性值决定了控件的特征和行为，用户可在“属性”窗口设置它的各种属性。1、标签（label）标签控件用于在表单中加入简单的文本串，最常用来标识字段或向用户显示固定的字符信息。常见属性如下表所示。属性功能Caption标签上显示的文本Backstyle标签的背景是否透明Autosize根据标签内容自动调整控件大小name标签的名称Fontsize标签上显示文本的大小forecolor标签上显示文本的颜色2、文本框（text）文本框控件可用于字符型、数值型、日期型、逻辑性数据的输入和输出。常见属性如下表所示。属性功能Value文本框的当前值Readonly文本框是否为只读PasswordChar文本框用作占位符的字符编辑框（edit）编辑框控件用于文本数据的输入和编辑，允许自动换行，该控件常作为备注型字段的数据绑定控件。编辑框与文本框类似，差别主要有以下两点：一是编辑框只能用于输入或编辑字符型数据，而文本框则适用于数值型、逻辑性、日期型和字符型4种类型的数据；二是文本框只能供用户输入一行文本，而编辑框则能输入多行文本。命令按钮（command）与命令按钮组（commandgroup）命令按钮和命令按钮组控件用于在表单上创建一个或一组命令按钮。命令按钮的常见属性如下表所示。属性功能Caption命令按钮的标题Name按钮的名称Enabled命令按钮是否可用Default按下enter键时，按钮是否响应Cancel按钮是否为取消按钮Picture命令按钮上显示图形命令按钮组的常见外观属性一般用生成器设置。此外，用命令按钮的value属性表示按钮中的哪个按钮被单击。有两种判断方法：若value初值为数值型（默认值为1），返回被单击的命令按钮的序列号；若value初值为“空”（字符型），返回被单击的命令按钮的caption属性。【例STYLEREF1\s5SEQ例\*ARABIC\s15】设计如下图所示的密码输入窗口，密码最多允许输入3次，假设正确密码为“123456”，密码错误给出提示。编写“确定”按钮及“取消”按钮的click事件。操作步骤如下：（1）创建一个表单，在其中添加一个标签（label1）、一个文本框（text1）和两个按钮控件（command1、command2）。（2）各控件属性设置如下表所示。对象属性属性值说明Form1Caption密码验证表单的标题文本Label1Caption密码设置标签的显示文字Text1PasswordChar*设置占位符Command1Caption确定设置命令按钮的标题文本Command2Caption取消（3）Form1的init事件代码：Publicn&&存放输入密码的次数N=1（4）command1的click事件代码：ifallt(thisform.text1.value)=='123456'messagebox("欢迎使用本系统！！",48,"成功登录！！")elsen=n+1ifn>3messagebox("你已经输入三次错误用户名，系统拒绝你进入！！",48,"登录失败！！")thisform.releaseelsemessagebox("密码错误！！",48,"重新输入！！")thisform.text1.value=""thisform.text1.setfocusendifendif（5）command2的click事件代码：Thisform.release【例STYLEREF1\s56】设计如下图所示的表单，要求能根据选项按钮组选定的课程来显示该门课程的平均分。操作步骤如下：（1）创建一个表单，在其中添加一个选项按钮组（optiongroup1）、一个命令按钮（command1）和一个标签（label1）控件，将xscj表加到表单的数据环境中。（2）控件属性设置如下表所示。对象属性属性值说明optiongroup1ButtonCount3设置选项按钮组按钮数目Option1Caption高等数学第一个按钮的标题文本Option2Caption英语Option3Caption计算机基础Option4Caption马哲Command1Caption统计Label1Autosize.t.设置自动调整标签大小（3）command1的click事件代码：n=thisform.optiongroup1.valuedocasecasen=1average高等数学toxm="高等数学"casen=2average英语toxm="英语"casen=3average计算机基础toxm="计算机基础"otherwiseaverage马哲toxm="马哲"endcthisform.label1.caption=m+str(x,6,2)复选框（check）复选框控件用来表示一个选项的选中和没选中两种状态。复选框也常与逻辑型字段绑定。主要属性value表示复选框状态，有三种值：为0或.F.表示未选定；为1或.T.表示选定；为2或.null.表示不可用。【例STYLEREF1\s57】设计如下图所示的表单，复选框被选中，文本框可见，否则文本框不可见。操作步骤如下：（1）创建一个表单，在其中添加一个文本框（text1）和一个复选框（check1）控件。（2）控件属性设置如下表所示。对象属性属性值说明Text1Readonly.t.设置文本框为只读Value复选框应用示例设置文本框内容Check1Caption文本框是否可见设置复选框标题文本（3）主要控件的事件代码：check1的click事件代码：n=this.valueifn=0thisform.text1.visible=.f.elsethisform.text1.visible=.t.endif列表框（list）与组合框（combo）列表框与组合框大多数的属性和设计方法是一样的，它们都有一个供用户选项的列表，两者间的区别：一是列表框的列表项全部显示，组合框只显示一项，其他项要通过右端的下拉按钮才显示；二是组合框分为下拉组合框和下拉列表框两类，前者允许输入新数据项，而后者与列表框只能选取已有的数据项。【例STYLEREF1\s58】设计如下图所示的表单，在组合框中选择一个学号，在列表框中显示其所学课程的成绩。操作步骤如下：（1）创建一个表单，在其中添加六个标签、一个组合框（combo1）和一个列表框（list1）控件。将表xsda.dbf和xscj.dbf添加到表单的数据环境中。（2）控件属性设置如下表所示。对象属性属性值说明Label1Caption请选择学号Label2Caption姓名Label3Caption高数Label4Caption英语Label5Caption计算机Label6Caption马哲List1Columncount5设置列表框列数Combo1的属性设置在生成器中完成，如下图所示。（3）主要控件的事件代码：combo1的click事件代码：thisform.list1.rowsourcetype=3thisform.list1.rowsource="sele姓名,高等数学,英语,计算机基础,马哲from;xsda,xscjwherxsda.学号=xscj.学号and;xsda.学号=bo1.value;intocursorf1"thisform.refresh【例5-9】设计如下图所示的表单，将list1中选择的内容，移动到list2中。操作步骤如下：（1）创建一个表单，在其中添加一个标签控件（label1）、一个命令按钮（command1）控件和两个列表框控件（list1，list2）（2）各控件属性设置如下表所示。对象属性属性值Label1Caption从左边的列表框中选出省会城市移到右边Command1Pictured:\vfp98\wizards\wizbmps\wznext.bmp（3）主要控件的事件代码：form1

的init事件代码：thisform.list1.additem("杭州")thisform.list1.additem("西安")thisform.list1.additem("青岛")thisform.list1.additem("沈阳")thisform.list1.additem("深圳")command1的click事件代码：fori=1tothisform.list1.listcountifthisform.list1.selected(i)thisform.list2.additem(thisform.list1.list(i))thisform.list1.removeitem(i)endifnext微调控件（spinner）微调控件用于指定范围内数值型数据的输入，它既可用键盘输入，也可单击控件的上、下箭头按钮来增减其当前值。属性功能Value微调控件当前值Increment单击一次箭头按钮的增减值，默认为1.00KeyBoardHighValue键盘输入数值的上限KeyBoardLowValue键盘输入数值的下限SpinnerHighValue上下箭头按钮输入的上限SpinnerLowValue上下箭头按钮输入的下限事件功能UpClick单击微调控件向上按钮时触发的事件DownClick单击微调控件向下按钮时触发的事件【例STYLEREF1\s510】设计一个如下图所示的表单，要求通过微调按钮设置文本框中的文字的字号大小，文字不能小于9磅，不超过36磅，每次文字改变的大小为3磅。操作步骤如下：（1）创建一个表单，在其中添加一个标签（label1）和一个微调控件（spinner1）。（2）控件属性设置如下表所示。对象属性属性值说明Label1Caption程序设计Autosize.t.Spinner1Value9Increment3KeyBoardHighValue36KeyBoardLowValue9SpinnerHighValue36SpinnerLowValue9（3）主要控件的事件代码：spinner1的upclick、downclick事件代码：thisform.label1.fontsize=this.value表格表格控件是一个容器，用于以表格的形式输出数据。一个表格对象有以下4种元素组成：（1）表格（grid）：由一或多列组成。（2）列（column）：由列标题和列控件组成，一列可显示表的一个字段。（3）列标题（header1）：字段名，允许修改。（4）列控件（常用text1）：该列中每个单元格都可用此控件来显示字段值。属性功能ColumnCount表格的列数。默认为-1，表示表中所有字段都在表格中RecordSourceType表格的数据源类型。RecordSource表格的数据源说明：表格中的数据源类型有5种：0-表、1-别名、2-提示，用户在运行时选择、3-查询，来源于.qpr文件、4-SQL说明，常取1、4两种。若RecordSourceType为1，则RecordSource为表名，若为4则RecordSource是一个带有INTO子句的SQL命令。【例STYLEREF1\s511】设计如下图所示的表单，当用户按下开始排序按钮时，在表格中显示按选定项为关键字降序排序结果。操作步骤如下： （1）创建一个表单，在其中添加一个表格（grid1）、一个选项按钮组（optiongroup1）和一个命令按钮（command1）控件，将表xsda.dbf添加到表单的数据环境。（2）控件command1的caption属性设为“开始排序”，optiongroup1的value属性设为0，buttoncount属性设为3，grid1的属性设置在生成器中完成。（3）主要控件的事件代码：command1的click事件代码：n=thisform.optiongroup1.valuethisform.grid1.recordsourcetype=4docasecasen=1thisform.grid1.recordsource="sele学号,姓名,性别,出生日期fromxsdaorder;by1descintocursorf1"casen=2thisform.grid1.recordsource="sele学号,姓名,性别,出生日期fromxsdaorder;by2descintocursorf1"casen=3thisform.grid1.recordsource="sele学号,姓名,性别,出生日期fromxsdaorder;by4descintocursorf1"endcthisform.refresh计时器计时器控件用于处理反复执行的操作。表单运行时计时器是不可见的。属性功能Interval表示timer事件的触发时间间隔，以毫秒为单位Enabled计时器能否响应用户引发的事件事件功能Timer在Interval属性规定的时间间隔后触发的事件【例STYLEREF1\s5SEQ例\*ARABIC\s112】设计如下图所示的表单，标题“VisualFoxPro6.0程序设计”呈红蓝两色闪烁，右下角设计一个数字时钟。操作步骤如下： （1）创建一个表单，在其中添加两个标签（label1、label2）、两个计时器（timer1、timer2）控件。（2）控件属性设置如下表所示。对象属性属性值说明Label1CaptionVisualFoxPro6.0程序设计Fontsize14Label2Fontsize14Timer1Interval200Timer2Interval1000（3）主要控件的事件代码：form1的load事件代码：PublicflagFlag=.t.timer1的timer事件代码：ifflagthisform.label1.forecolor=rgb(255,0,0)flag=.f.elsethisform.label1.forecolor=rgb(0,255,0)flag=.t.endiftimer2的timer事件代码：thisform.label2.caption=time()form1的unload事件代码：Releaseflag10、页框页框是一个可以创建包含多个页面的容器类控件，以生成带选项卡的对话框，从而扩充表单的使用面积。属性功能PageCount页框对象包含的页面数ActivePage页框对象中活动页面的页码【例STYLEREF1\s5SEQ例\*ARABIC\s113】设计如下图所示的包含两个页面的页框的表单，其中第一个页面用来显示xsda.dbf表；第二个页面用来显示xskc.dbf表。（1）创建一个表单，将xsda.dbf和xskc.dbf添加到表单的数据环境。（2）在其中添加一页框，设置两个页面的caption属性分别为学生信息、课程信息。激活页框，选择“学生信息”页面，从数据环境中拖动xsda.dbf的标题到该页面。按同样的方法将xskc.dbf拖动至“课程信息”页面。11、图象、线条和形状图象、线条和形状三种控件可以用来在表单上显示图形。图象可用图象控件显示的图象文件类型有：.bmp、.ico、gif、jpg等。常见属性如下表所示。属性功能Picture指定显示在对象上的图形文件Stretch当对象的大小发生改变时，对图片的处理方式图象对象一般不用编写事件代码。线条线条控件可用于在表单上画各种类型的线条。常见属性如下表所示。属性功能Height线条高度，为0时为水平直线Width线条宽度，为0是为垂直直线LineSlant斜线走向，为\时，斜线由左上角到右下角，为/时由右上角到左下角形状形状控件可用于在表单上画出各种类型的形状，如矩形、正方形、椭圆或圆等。形状类型由curvature，width与height属性来指定，如下表所示。curvaturewidth与height相等width与height不等0正方形矩形1到99小圆角正方形→大圆角正方形→圆小圆角矩形→大圆角矩形→椭圆【例STYLEREF1\s514】设计如所示的表单，表单上有两个形状控件分别用于显示由矩形到椭圆和由正方形到圆的渐变过程。操作步骤如下：（1）创建一个表单，添加两个形状控件（shape1、shape2）和一个计时器控件（timer1）。（2）各控件的属性设置如下表所示。对象属性属性值Shape1Bordercolor(255,0,0)height80Width130Shape2bordercolor(0,0,255)height80width80Timer1interval100（3）主要控件的事件代码：form1的load事件代码：publici,ji=0j=0timer1的timer事件代码：ifi<=99thisform.shape1.curvature=ii=i+1endififj<=99thisform.shape2.curvature=jj=j+1endif表单管理编辑表单表单设计完成后，为了使表单有一个合理的布局，常常要对表单中的对象进行修改，比如：对象的复制和删除、对象的位置调整、改变大小等操作。1、对象的移动、复制、删除选定对象：选定一个对象可通过单击该对象实现；若要选定多个对象则按下shift键，逐个单击要选取的对象。或者按下鼠标左键进行拖拽，松开鼠标后，圈在虚线框内的对象即为选定对象。取消选定对象：单击表单的空白部分。移动对象：用鼠标将已选定的的对象拖到合适位置。或者用方向键也可微调对象的位置。复制对象：可以利用“编辑”菜单中的“复制”和“粘贴”命令来复制对象。删除对象：选定对象后，按del键或选择“编辑”菜单中的“清除”选项可删除对象。2、调整对象的大小选定多个对象后，利用“格式”→“大小”命令可将对象的大小调整为一致。3、对象的对齐方式对象的对齐方式可“格式”→“对齐”选项来完成，或者在布局工具栏中完成。4、Tab键次序用户可用Tab键来移动表单内光标的位置。所谓Tab键次序，就是连续按Tab键时光标经过表单中控件的顺序。默认情况下，VisualFoxPro6.0按照控件被加入表单的顺序定义Tab键的次序。有时用户需要调整Tab键的先后次序。有两种方法可以改变Tab键的次序，用户可通过如下步骤选定其中之一：选定“工具”菜单的“选项”命令，选定选项对话框的表单选项卡，在Tab键次序组合框中选定“交互”或“按列表”。调整方法确定后，即可选定“显示”菜单中的“Tab键次序”命令来改变Tab键的次序了。对于交互方式，用户可通过单击控件来改变它的顺序号；对于按列表，VFP则显示一个Tab键次序对话框，用户可上下移动对话框中控件选项左端的按钮来改变顺序。保存表单表单设计或修改完成后要存盘，一般有以下两种方法：1、单击表单设计器的关闭按钮或按Ctrl+W键；2、选择“文件”→“保存”选项。表单文件保存后，将产生扩展名为.scx的表单文件及扩展名为.sct的表单备注文件。运行表单运行表单可通过以下四种方法实现：1、“表单设计器”打开的情况下，用户可直接在表单上单击鼠标右键，在弹出的快捷菜单中选择“执行表单”选项。2、在项目管理器中选择要运行的表单，单击“运行”按钮。3、选择“程序”菜单中的“运行”命令。4、在命令窗口中，输入命令“doform表单名”。典型例题分析【例STYLEREF1\s5SEQ例\*ARABIC\s115】已知一表单控件label1、label2、label3、text1、command1、command2，运行表单时在text1中输入一个数作为圆的半径，单击command1（计算并保存），分别用label2、label3显示圆的周长和面积，并将圆半径、周长、面积保存到已经存在的数据表js.dbf（半径I，周长N（10，3），面积N（10，3）)中（若该半径在表中已经存在，则放弃保存），单击command2（结束）程序结束运行；运行界面如下图所示，请分别写出2个命令按钮的事件代码。具体设计步骤如下：利用表单设计器设计如图所示的表单界面，并将js.dbf添加到表单的数据环境。分别设置对象label1、text1、label2、label3的属性。Label1：caption=“请输入圆的半径：”Fontsize=18Label2、label3