VFP第6章表单设计

编辑框编辑框编辑框编辑框(EditBoxEditBox)控件接收输入文本或查看文本控件接收输入文本或查看文本信息。信息。编辑框的主要属性有：编辑框的主要属性有：ControlSourceControlSource 设置编辑框的数据源设置编辑框的数据源Value Value 设置编辑框当前值设置编辑框当前值ReadOnlyReadOnly：能否编辑编辑框的文本，默认为能否编辑编辑框的文本，默认为.F.F.例例6-106-10：设计表单，当文本框得到焦点时，在文设计表单，当文本框得到焦点时，在文本框中显示编辑框中选定的文本内容。本框中显示编辑框中选定的文本内容。表单文件名：表单文件名：EX6-10EX6-10编辑框编辑框.SCXSCX设计步骤：设计步骤：(1)(1)创建一个编辑框和一个文本框控件；创建一个编辑框和一个文本框控件；(2)(2)在数据环境中添加在数据环境中添加SB.DBFSB.DBF，将将Edit1Edit1控件与控件与SB.DBFSB.DBF中的中的“SB.SB.备注备注”绑定；绑定；编写编写Edit1Edit1编辑框的编辑框的Lost FocusLost Focus事件代码；事件代码；u可可THIS.HideSelectionTHIS.HideSelection=.F.=.F.；当当Edit1Edit1控件失去控件失去焦点时，选定文本仍然显示为已选定状态。焦点时，选定文本仍然显示为已选定状态。u也可也可THIS.VisibleTHIS.Visible=.T.=.T.；指定指定Edit1Edit1控件可见。控件可见。编写编写Text1Text1文本框的文本框的GotFocusGotFocus事件代码；事件代码；uText1Text1显示显示Edit1Edit1的的SeltextSeltext属性返回选定文本，属性返回选定文本，如果没有选定，则返回长度为零的空串。如果没有选定，则返回长度为零的空串。复选框复选框 复选框复选框(Check1)Check1)指选项是否被选定的控件。当指选项是否被选定的控件。当选项被选定时，复选框中出现复选标记。选项被选定时，复选框中出现复选标记。复选框有三种可能的状态复选框有三种可能的状态:ValueValue属性值属性值=0=0或或.F.F.时，复选框显示未选中，时，复选框显示未选中，表示清除；表示清除；ValueValue属性值属性值=1=1或或.T.T.时，复选框显示选中；时，复选框显示选中；ValueValue属性值属性值=2=2时，复选框显示为灰色，表示不时，复选框显示为灰色，表示不可用。可用。例例6-116-11：设计表单，根据表文件设计表单，根据表文件SB1.DBFSB1.DBF统计某个统计某个车间或几个车间拥有的设备台数。车间或几个车间拥有的设备台数。表单文件名：表单文件名：EX6-11EX6-11复选框复选框.SCXSCX设计步骤：设计步骤：(1)(1)创建创建3 3个复选框，个复选框，2 2个命令按钮，个命令按钮，1 1个标签；个标签；(2)(2)设置属性；设置属性；(3)(3)在数据环境中添入在数据环境中添入SB1SB1表；表；(4)(4)编写编写Command1Command1的的ClickClick事件代码；事件代码；(5)(5)编写编写Command2Command2的的ClickClick事件代码。事件代码。选项按钮组选项按钮组u选项按钮组选项按钮组(Optiongroup1Optiongroup1)，又叫单选按钮，又叫单选按钮，是包含选项按钮的控件数组，任何时侯只能从多是包含选项按钮的控件数组，任何时侯只能从多个选项中选择其中的一项。个选项中选择其中的一项。选项按钮组常用属性选项按钮组常用属性ButtonCountButtonCount 属性属性:设置选项按钮数目，系统默认设置选项按钮数目，系统默认包含包含2 2个按钮。个按钮。ValueValue属性属性:设置选定哪一个按钮。例如，选项按设置选定哪一个按钮。例如，选项按钮组有钮组有4 4个选项按钮，如果用户选择了第个选项按钮，如果用户选择了第2 2个选项，个选项，选项按钮组选项按钮组ValueValue属性值为属性值为2 2。ControlSotuceControlSotuce属性属性:设置选项按钮组与字段绑定。设置选项按钮组与字段绑定。选项按钮组生成器选项按钮组生成器选项按钮组生成器包括按钮、布局和值选项按钮组生成器包括按钮、布局和值3 3个选项卡。个选项卡。按钮：按钮：设置按钮数目，设置按钮数目，布局：布局：设置按钮布局，设置按钮布局，值：值：设置选项按钮组与字段绑定。设置选项按钮组与字段绑定。例例6-126-12：设计浏览设计浏览4 4个数据库表的表单。当选择某个数据库表的表单。当选择某个表时，显示该表数据，当选择复选框时，可编个表时，显示该表数据，当选择复选框时，可编辑该数据，否则，数据为只读。辑该数据，否则，数据为只读。表单文件名：表单文件名：EX6-12EX6-12选项按钮组选项按钮组.SCXSCX创建创建1 1个选项按钮组，个选项按钮组，1 1个复选框，个复选框，2 2个命令按钮，个命令按钮，1 1个标签控件。个标签控件。设置数据环境设置数据环境:在数据环境中添加在数据环境中添加SB.DBFSB.DBF、MBDM.DBFMBDM.DBF、DX.DBFDX.DBF和和ZZ.DBFZZ.DBF。用选项按钮组生成器设置选项按钮组标题与布局。用选项按钮组生成器设置选项按钮组标题与布局。编写编写Optiongroup1Optiongroup1的的ClickClick事件代码；事件代码；编写编写Command1(Command1(确定确定)的的C1ickC1ick事件代码；编写事件代码；编写Command2(Command2(退出退出)的的ClickClick事件代码。事件代码。例：例：单选按钮单选按钮-字体变化。字体变化。表单文件名单选按钮表单文件名单选按钮-字体变化字体变化.SCXSCX列表框列表框列表框列表框(List1)List1)提供包含选项和信息的可滚动列提供包含选项和信息的可滚动列表，可以从中选择一个或多个项目。表，可以从中选择一个或多个项目。利用列表框生成器的列表项、样式、布局、值利用列表框生成器的列表项、样式、布局、值4 4个选项卡可设置列表框属性。个选项卡可设置列表框属性。例例6-136-13：利用表文件利用表文件xsda.DBFxsda.DBF和和cjk.DBFcjk.DBF，设计一一个个“查询奖学金学金”表表单。表单文件名：表单文件名：2727TEST1EX6-13TEST1EX6-13列表框列表框.SCXSCX设计要求：要求：当文本框内容当文本框内容为空空时，显示全部学生示全部学生信息。信息。创建建2 2个个标签、1 1个个列列表表框框、1 1个个表表格格和和3 3个个命命令令按按钮控件控件。编写列表框写列表框List1List1的的ClickClick事件代事件代码。编写写命命令令按按钮Commamd1Commamd1Commamd3Commamd3的的ClickClick事事件件代代码。表表格格Grid1Grid1中中的的4 4个个栏目目分分别为学学号号、姓姓名名、奖学金、平均分。学金、平均分。当当选择列列表表框框中中的的学学号号时，表表格格控控件件的的数数据据随随之之变化。化。当当点点击“一一等等奖学学金金人人数数”或或“二二等等奖学学金金人人数数”按按钮时分分别统统计计获获奖人人数数，计数数结果果在在相相应的的文文本本框框中中显示示；当当点点击“退退出出”按按钮时，结束束表表单运运行。行。设计步骤：设计步骤：设置数据环境；设置数据环境；属性设置：属性设置：u列列表表框框数数据据源源RowSourceRowSource,数据源类型数据源类型RowSourceTypRowSourceTypu与与表表格格字字段段建建立立联联系系的的数数据源据源ControlSourceControlSource列表框列表框List1List1的的ClickClick事件代事件代码；命令按命令按钮“一等一等奖学金人数学金人数”ClickClick事件代事件代码；命令按命令按钮“二等二等奖学金人数学金人数”ClickClick事件代事件代码；命令按命令按钮“退出退出”的的ClickClick事件代事件代码。组合框组合框u组组合合框框(Combo1)Combo1)结结合合ListBoxListBox和和TextBoxTextBox特特性性，既可在文本框输入信息，也可在列表框选项。既可在文本框输入信息，也可在列表框选项。u组组合合框框的的StyleStyle属属性性:组组合合框框的的StyleStyle属属性性把把组组合框控件分为下拉组合框和下拉列表框。合框控件分为下拉组合框和下拉列表框。u组组合合框框的的RowSourceTypeRowSourceType属属性性:当当在在列列表表框框中中选选择一个值时，记录指针将自动指向所需的记录。择一个值时，记录指针将自动指向所需的记录。例例6-146-14：用用在在列列表表框框显显示示SBSB表表，在在组组合合框框显显示示BMDMBMDM表表；当当选选定定列列表表框框SBSB表表一一个个记记录录时时，用用BMDMBMDM表表“代码代码”字段值修改字段值修改SBSB表表“部门部门”字段值。字段值。表单文件名：表单文件名：EX6-14EX6-14组合框组合框.SCXSCX设计步骤：设计步骤：创创建建2 2个个标标签签，1 1个个列列表表框框List1List1，1 1个个组组合合框框Combo1Combo1，1 1个命令按钮。个命令按钮。在在数数据据环环境境中中添添加加SBSB表表和和BMDMBMDM。【提提示示】取取消消关联连线，否则不能达到修改目的。关联连线，否则不能达到修改目的。属性设置属性设置:列表框列表框List1List1属性设置属性设置:指指定定列列表表框框值值的的源源类类型型和和列列表表框值的源；框值的源；指定列表框列对象数目为指定列表框列对象数目为3 3；把把第第3 3列列数数据据与与该该控控件件的的ValueValue属性绑定；属性绑定；组合框组合框Combo1Combo1属性设置属性设置:指定组合框类型；指定组合框类型；指定组合框数据源类型和值的源；指定组合框数据源类型和值的源；指定组合框中列对象数目；指定组合框中列对象数目；把把第第1 1列列数数据据绑绑定定在在该该控控件件的的ValueValue属性上；属性上；指定与列表框建立联系的数据源；指定与列表框建立联系的数据源；为为了了达达到到修修改改目目的的，要要求求取取消消关关联联连连线线。并并应应为为SBSB表表指指定定主主控控索索引引，指指定定SBSB的的主主控控索索引引属属性性OrderOrder=编号。编号。编写编写Form1Form1的的InitInit事件代码；事件代码；编写编写List1List1的的InitInit事件代码；事件代码；编写编写List1List1的的InteractiveChangeInteractiveChange事件代码；事件代码；编写编写Combo1Combo1的的InteractiveChangeInteractiveChange事件代码。事件代码。表格表格表格表格(Grid1)Grid1)是以行列方式显示数据的容器控是以行列方式显示数据的容器控件。与件。与BrowseBrowse窗口相似。窗口相似。表格中，每个表格、列、标头表格中，每个表格、列、标头(Header)Header)和列控和列控件件(Column)Column)都有自己的属性、事件和方法。都有自己的属性、事件和方法。常用的表格属性常用的表格属性:RecordSourceRecordSource属性属性:为表格指为表格指定数据源。定数据源。RecordSourceTypeRecordSourceType属性属性:为表为表格指定数据源类型。格指定数据源类型。ControlSourceControlSource属性属性:为表格为表格的列指定数据源。的列指定数据源。ColumnCountColumnCount属性属性:为表格指为表格指定列数目。定列数目。标头对象标头对象(Header)Header)属性属性:CaptionCaption属性属性-指定标头指定标头对象的标题文本。对象的标题文本。AlignmentAlignment属性属性-指定标指定标题文本的对齐方式。题文本的对齐方式。例例6-156-15：利用数据表文件利用数据表文件:学生学生1.1.DBFDBF、教师教师1.1.DBFDBF和选课和选课1.1.DBFDBF，设计一个表单，当点击选项按钮组设计一个表单，当点击选项按钮组中任意选项时，在表格中显示该表文件数据。中任意选项时，在表格中显示该表文件数据。表单文件名：表单文件名：EX6-15EX6-15表格表格.scxscx设计步骤设计步骤:在表单上创建在表单上创建1 1个标签控件，个标签控件，1 1个选项按钮组控个选项按钮组控件件(有有3 3个选项按钮个选项按钮)，3 3个表格控件，并利用布局个表格控件，并利用布局工具栏调整工具栏调整3 3个表格位置；个表格位置；1 1个命令按钮个命令按钮(退出退出)控控件，并设置属性值。件，并设置属性值。把学生把学生1.1.DBFDBF、教师教师1.1.DBFDBF和选课和选课1.1.DBFDBF添加到数添加到数据环境中。据环境中。编写选项按钮组编写选项按钮组OptionGroup1ClickOptionGroup1Click事件代码。事件代码。编写表格编写表格Grid1-Grid3Grid1-Grid3的的InitInit事件代码。事件代码。编写命令按钮控件编写命令按钮控件Commamd1Commamd1的的ClickClick事件代码事件代码 (十一十一)计时器计时器计时器计时器(Timer1)Timer1)控件是利用系统时钟控制具有规控件是利用系统时钟控制具有规律性周期任务的定时操作。律性周期任务的定时操作。它对时间作出反应，使计时器按一定的时间间隔它对时间作出反应，使计时器按一定的时间间隔重复地执行某种操作。重复地执行某种操作。计时器控件在表单运行时计时器控件在表单运行时是不可见的。是不可见的。计时器的主要属性：计时器的主要属性：IntervalInterval属属性性：定定义义两两次次计计时时器器触触发发的的时时间间间间隔隔，以以毫毫秒秒计计等等间间隔时间接收隔时间接收TimerTimer事件。事件。EnabledEnabled属属性性：控控制制计计时时器器开开关关，EnabledEnabled=.=.T.T.时时计计时时器器在在表表单单加加载载时时开开始始工工作作；否否则则，计计时时器器的的运行被挂起。运行被挂起。TimerTimer事事件件：当当计计时时器器的的时时间间间间隔隔过过去去后后，系系统统产产生生一一个个TimerTimer事事件件，通通过过检检查查条条件件对对该该事事件件作作出响应。出响应。例例6-166-16：在在表表单单设设计计一一个个向向左左滚滚动动的的字字幕幕，左左下下一个数字时钟，右下一个命令按钮。一个数字时钟，右下一个命令按钮。表单文件名：表单文件名：EX6-16EX6-16时钟时钟.scxscx 设计步骤：设计步骤：创建创建1 1个标签，个标签，2 2个计时器，个计时器，1 1个命令按钮控件。个命令按钮控件。设置属性值：设置属性值：Label1Label1的的Caption=Visual FoxPro 6.0Caption=Visual FoxPro 6.0程序设计程序设计 Label2Label2的的Caption=TimeCaption=TimeTimer1Timer1的的Interval=200 Interval=200 Timer2Timer2的的Interval=500Interval=500编写编写Timer1Timer1的的TimerTimer事件代码：事件代码：编写编写Timer2Timer2的的TimerTimer事件代码：事件代码：(十二十二)图像、线条与形状图像、线条与形状1.1.图像图像(Image)(Image)图图像像控控件件可可以以在在表表单单中中显显示示图图片片，并并可可在在程程序序运运行的动态过程中改变图片。行的动态过程中改变图片。利利用用图图像像控控件件的的PicturePicture属属性性在在表表单单上上添添加加各各种种类型的图像。类型的图像。常用的图象属性常用的图象属性PicturePicture属属性性:设设置置表表单单上上图片文件图片文件BorderStyleBorderStyle属属性性:图图象象是是否带有边框否带有边框BackStyleBackStyle属属性性:图图象象是是否否透明透明WidthWidth属性属性:确定图象宽度确定图象宽度HeightHeight属性属性:确定图象高度确定图象高度StretchStretch属性属性:图片显示方式图片显示方式图图 片片 有有 三三 种种 显显 示示 方方 式式：当当StretchStretch=0=0时时，将将把把图图像像的的超超出出部部分分裁裁剪剪掉掉；当当Stretch=Stretch=1 1时时，等等比比例例填填充充；当当Stretch=Stretch=2 2时时，变比例填充。变比例填充。例例6-176-17：设计如图所示封面表单。设计如图所示封面表单。表单文件名：表单文件名：EX6-17EX6-17图像图像.scxscx设计步骤：设计步骤：在表单上创建在表单上创建1 1个标签、个标签、1 1个图像控件；个图像控件；Form1Form1的的Caption=Caption=图像应用图像应用；属性设置属性设置:标签属性设置标签属性设置(略略)图图像像控控件件PicturePicture属属性性，从从PicturePicture属属性性对对话话窗窗口中选定一个图像。口中选定一个图像。调整图像大小及位置，将其复制、粘贴。调整图像大小及位置，将其复制、粘贴。选择选择Stretch=Stretch=1 1，等比例填充。，等比例填充。2.2.线条线条(LINE)LINE)线线条条控控件件在在表表单单上上画画各各种种类类型型的的线线条条，如如斜斜线线、水水平平线线、垂垂直直线线。并并可可以以控控制制线线条条位位置置、长长度度、颜颜色、样式等外观。色、样式等外观。例例6-186-18：线条示例。表单文件：线条示例。表单文件：EX6-18EX6-18线条线条.scxscx2.2.形状形状(Shape)Shape)形形状状控控件件在在表表单单中中产产生生矩矩形形、圆圆角角矩矩形形、正正方方形形、圆圆角角正正方方形形，椭椭圆圆、圆圆等等形形状状。在在程程序序应应用用中中经经常利用形状来修饰程序界面。常利用形状来修饰程序界面。常用形状属性值常用形状属性值:Curvature=0Curvature=0，WidthWidthHeightHeight时，产生矩形。时，产生矩形。Curvature=99Curvature=99，WidthWidth=HeightHeight时，产生圆。时，产生圆。Curvature=99Curvature=99，Width WidthHeightHeight时，产生椭圆。时，产生椭圆。fillStylefillStyle属性属性 指定形状填充方案指定形状填充方案fillColorfillColor属性属性 指定形状填充色指定形状填充色VisibleVisible属性属性 形状控件是否可见形状控件是否可见如果形状控件遮住了其它控件，可以用如果形状控件遮住了其它控件，可以用“格式格式”菜单的菜单的“置后置后”命令，或用命令，或用“布局工具栏布局工具栏”的的“置后置后”按钮设置形状控件置后。按钮设置形状控件置后。例例6-196-19：形状示例。形状示例。表单文件：表单文件：EX6-19EX6-19形状形状.scxscx设计步骤：设计步骤：创创建建1 1个个标标签签、1 1个个形形状状、3 3个个命命令令按按钮钮控控件件，并并设置属性值。设置属性值。编写命令按钮的编写命令按钮的ClickClick事件代码。事件代码。例例6-206-20：设设计计一一个个包包含含图图像像、线线条条、形形状状、标标签签等等控控件件的的应应用用程程序序封封面面，文文字字显显示示为为立立体体字字，不不显示标题栏。显示标题栏。表单文件：表单文件：EX6-20EX6-20图象图象-线条线条-形状形状.scxscx设计步骤：设计步骤：创创建建控控件件；4 4个个标标签签、1 1个个图图像像、1 1个个线线条条、1 1个个形状、形状、1 1个命令按钮。个命令按钮。设置表单属性值设置表单属性值:DesktopDesktop属属性性值值=.=.T.T.&表表单单设设置置在在桌桌面上面上WindowStateWindowState属性值属性值=0-0-普通普通&表单运行大小表单运行大小BorderStyleBorderStyle属性值属性值=0=0&表单无边框表单无边框TitleBarTitleBar属属性性值值=11&表表单单有有标标题栏题栏BackColorBackColor属性值属性值&表单背景色表单背景色标签标签Lable1Lable1，Lable2Lable2属性值属性值:ForeColorForeColor属性值属性值&Lable1Lable1兰色兰色;Lable2Lable2红色红色BackStyleBackStyle属属 性性 值值=0=0&背背 景景 透透 明明，不不 显显 示示Lable1Lable1和和Lable2Lable2区域区域设置形状设置形状Spape1Spape1角曲率属性值角曲率属性值:CurvatureCurvature=99=99&椭圆椭圆BorderColorBorderColor&边框色边框色BackColorBackColor&背景色背景色将封面文字置于椭圆前面将封面文字置于椭圆前面:选定选定Lable1Lable1，使置前；或选定使置前；或选定Spape1Spape1，使置后。使置后。设置线条设置线条Line1Line1颜色与粗细。颜色与粗细。设设置置PicturePicture属属性性值值&指指定定控控件上图形件上图形