第7章-表单设计概要

1、2022-1-71第第7 7章章 表单设计表单设计之二之二2022-1-72常用控件常用控件l列表框和组合框控件列表框和组合框控件 l微调控件微调控件 l表格和页框控件表格和页框控件 l命令按钮组控件命令按钮组控件 2022-1-7.5 列表框和组合框列表框和组合框 l列表框与组合框都有一个供用户选项列表框与组合框都有一个供用户选项的列表，但两者之间有两个区别：的列表，但两者之间有两个区别：列表框任何时候都显示它的列表，而组列表框任何时候都显示它的列表，而组合框平时只显示一个项，待用户单击它合框平时只显示一个项，待用户单击它的向下按钮后才能显示可滚动的下拉列的向下按钮后才能显

2、示可滚动的下拉列表。若要节省空间，并且突出当前选定表。若要节省空间，并且突出当前选定的项时可使用组合框。的项时可使用组合框。组合框又分下拉组合框与下拉列表框两组合框又分下拉组合框与下拉列表框两类，前者允许键入数据项；而列表框与类，前者允许键入数据项；而列表框与下拉列表框都仅有选项功能。下拉列表框都仅有选项功能。2022-1-74列表框控件列表框控件l生成器生成器 列表框生成器含有列表项、布局、列表框生成器含有列表项、布局、样式、值等样式、值等4 4个选项卡，用于为列表个选项卡，用于为列表框设置各种属性。框设置各种属性。v列表项选项卡列表项选项卡 v样式选项卡样式选项卡 v布局选项卡布局选项卡

3、v值选项卡值选项卡2022-1-75列表框控件列表框控件l列表项选项卡列表项选项卡该选项卡用于指定要填充到列表框中的该选项卡用于指定要填充到列表框中的项。项。填充项可以是填充项可以是3 3种类型数据之一：表或视种类型数据之一：表或视图中的字段、手工输入的数据或数组中图中的字段、手工输入的数据或数组中的值。的值。 v表或视图中的字段表或视图中的字段 v手工输入数据手工输入数据v数组中的值数组中的值 2022-1-76列表框控件列表框控件l样式选项卡该选项卡用于指定列表框的样式，该选项卡用于指定列表框的样式，所显示的行数，要否递增搜索。所显示的行数，要否递增搜索。v“要显示的行数要显示的行数”微调

4、控件用来调整微调控件用来调整列表框的显示行数，但是仅在文本选列表框的显示行数，但是仅在文本选取取7 7号字时所设置的行数与实际项数相号字时所设置的行数与实际项数相符。原因是该微调控件的设置实际上符。原因是该微调控件的设置实际上改变了列表框的改变了列表框的HeightHeight属性，而属性，而Visual FoxProVisual FoxPro则按象素来指定高度则按象素来指定高度。 2022-1-77列表框控件列表框控件l布局选项卡布局选项卡含有布局选项卡含有1 1个复选框和个复选框和1 1个表格，用于控个表格，用于控制列表框的列宽和显示。制列表框的列宽和显示。1)“调整列表框的宽度来显示所有

5、列调整列表框的宽度来显示所有列”复选框：该选复选框：该选项自动设置了项自动设置了WidthWidth属性，能根据列表项选项卡中微属性，能根据列表项选项卡中微调控件指定的列数自动调整列表框的宽度。调控件指定的列数自动调整列表框的宽度。2)2)表格：表格中显示了在列表项选项卡中定义的列，表格：表格中显示了在列表项选项卡中定义的列，并可用鼠标拖动列标头右边的列间隔线来调整列宽，并可用鼠标拖动列标头右边的列间隔线来调整列宽，相当于修改了相当于修改了Co1umnWidthsCo1umnWidths属性。双击列标头还可属性。双击列标头还可隐藏该列，使得表单执行时该列不显示，但其数据隐藏该列，使得表单执行时

6、该列不显示，但其数据仍起作用。仍起作用。2022-1-78列表框控件列表框控件l值选项卡值选项卡包含两个组合框，分别用来指值选项卡包含两个组合框，分别用来指定返回值的列以及存储返回值的字段。定返回值的列以及存储返回值的字段。1)“1)“从哪一列中返回值从哪一列中返回值”组合框：该组合框组合框：该组合框的操作对应于的操作对应于BoundColumnBoundColumn属性。组合框列属性。组合框列表中包含字段名或表示列号的选项，供用户表中包含字段名或表示列号的选项，供用户决定列表框返回值的字段或列。决定列表框返回值的字段或列。2)2)字段名组合框：该组合框的操作对应于字段名组合框：该组合框的操作

7、对应于ControlSourceControlSource属性，用来指定存储返回值属性，用来指定存储返回值的字段。的字段。 2022-1-79列表框控件列表框控件l控件值源的类型控件值源的类型 列表框和组合框的列表中可以填充各列表框和组合框的列表中可以填充各类数据，在上述的列表框生成器中，类数据，在上述的列表框生成器中，已涉及值，数组和字段已涉及值，数组和字段3 3种类型，实际种类型，实际上共有上共有9 9类它们均由类它们均由RowSourceTypeRowSourceType属性来指定，属性来指定，RowSourceTypeRowSourceType 属性的可属性的可取值如表取值如表7-57

8、-5所示：所示： 2022-1-710列表框控件列表框控件2022-1-711列表框控件列表框控件l列表框的常用属性列表框的常用属性 MoverBarsMoverBars：设置列表框的左侧是否显示：设置列表框的左侧是否显示移动按钮。移动按钮。MultiSelectMultiSelect：设置用户是否可以同时在列：设置用户是否可以同时在列表中选择多项。表中选择多项。ValueValue：返回列表框中选定的项，如果有：返回列表框中选定的项，如果有多列，返回由多列，返回由BoundColumnBoundColumn属性指定的列属性指定的列的内容。的内容。DisplayValueDisplayValu

9、e：返回列表框中选定的项第：返回列表框中选定的项第一列的内容。一列的内容。 2022-1-712列表框控件举例列表框控件举例 例例7-5 7-5 设计一个如图设计一个如图 所示的查询表单，其所示的查询表单，其功能是：用户可在文功能是：用户可在文本框中输入性别，然本框中输入性别，然后查询出后查询出RSBRSB表中相应表中相应性别的所有人的名字，性别的所有人的名字，并在列表框中显示出并在列表框中显示出来。来。 2022-1-713列表框控件举例列表框控件举例l操作步骤如下：操作步骤如下：在在Visual FoxProVisual FoxPro中新建一个表单窗口；中新建一个表单窗口；按上图所示，在该

10、表单窗口中分别按上图所示，在该表单窗口中分别创建一个标签对象、一个文本框对创建一个标签对象、一个文本框对象、一个列表框对象，调整它们的象、一个列表框对象，调整它们的大小并摆放到相应的位置；大小并摆放到相应的位置；设置各控件的属性如表设置各控件的属性如表7-67-6所示所示 2022-1-714列表框控件举例列表框控件举例2022-1-715列表框控件举例列表框控件举例在在 Text1 Text1 的的 Valid Valid 事件中输入下事件中输入下列代码：列代码：Thisform.List1.RowSource= ;Thisform.List1.RowSource= ;SELECT SELE

11、CT 姓名姓名 FROM rsbFROM rsb ; ;WHERE WHERE 性别性别 =ALLT(This.Value) ;=ALLT(This.Value) ; INTO CURS pp INTO CURS pp2022-1-716组合框控件组合框控件 l组合框是列表框和文本框的组合。组组合框是列表框和文本框的组合。组合框有两种类型：合框有两种类型：下拉式组合框下拉式组合框, Style, Style属性的值是属性的值是0 0时时下拉式列表框，下拉式列表框，StyleStyle属性的值是属性的值是2 2时时l组合框控件也有生成器，用法与列表组合框控件也有生成器，用法与列表框完全相同框完全

12、相同 l除了生成器提到的属性外，组合框的除了生成器提到的属性外，组合框的常用属性还有：常用属性还有：2022-1-717组合框的常用属性组合框的常用属性lValueValue属性属性功能：返回组合框中选定的项，如功能：返回组合框中选定的项，如果有多列，返回由果有多列，返回由BoundColumnBoundColumn属性属性指定的列的内容。指定的列的内容。lDisplayValueDisplayValue属性属性功能：返回组合框中选定的项第一功能：返回组合框中选定的项第一列的内容。也可返回用户输入的内列的内容。也可返回用户输入的内容。容。 2022-1-718组合框的常用属性组合框的常用属性l

13、ListCountListCount属性属性功能：返回组合框或列表框中列表功能：返回组合框或列表框中列表项的个数。项的个数。说明：该属性在设计时不可用，运说明：该属性在设计时不可用，运行时为只读属性。即仅可取用属性行时为只读属性。即仅可取用属性值，不可进行设置。值，不可进行设置。 2022-1-719组合框的常用属性组合框的常用属性lListIndexListIndex属性属性格式：格式：Control.ListIndex=nIndexControl.ListIndex=nIndex 功能：返回或设置组合框功能：返回或设置组合框(列表框列表框)列表显示时列表显示时选定项的顺序号。选定项的顺序号

14、。说明：说明：(1)(1)本属性用顺序号来表示某项已被选定。本属性用顺序号来表示某项已被选定。nIndexnIndex则则代表要设置的顺序号，可取代表要设置的顺序号，可取1 1到到ListCountListCount之间的整之间的整数之一。数之一。nIndexnIndex的缺省值是的缺省值是0 0，表示没有选定列表项。对于下，表示没有选定列表项。对于下拉组合框，当列表中没有与键入值相同的项时就返拉组合框，当列表中没有与键入值相同的项时就返回回0 0。(2)(2)本属性设计时不可用，运行时可读写。本属性设计时不可用，运行时可读写。 2022-1-720组合框的常用属性组合框的常用属性lListL

15、ist属性属性格式：格式：Control.List(nRow,nColControl.List(nRow,nCol ) )功能：返回组合框或列表框第功能：返回组合框或列表框第nRownRow行，行，nColnCol列的内容。列的内容。2022-1-721组合框的常用属性组合框的常用属性lSelectedSelected属性属性格式：格式：vcontrol.Selected(nIndex)=IExprcontrol.Selected(nIndex)=IExpr 功能：用于分辨组合框或列表框中某一列表项功能：用于分辨组合框或列表框中某一列表项是否被选中。当选中时是否被选中。当选中时Selected

16、Selected属性返回属性返回.T.T.，否，否则返回则返回.F.F.。说明：说明：(1)nIndex(1)nIndex表示列表项的显示顺序号；表示列表项的显示顺序号；(2)IExpr(2)IExpr可取可取.T.T.或或.F.F.之一，用来设置属性值；之一，用来设置属性值；(3)(3)本属性设计时不可用，运行时可读写。本属性设计时不可用，运行时可读写。 2022-1-722组合框控件举例组合框控件举例 例例7-67-6设计一个设计一个如图所示的查询如图所示的查询表单，要求当表表单，要求当表单执行时单执行时, ,用户在用户在组合框中选择了组合框中选择了哪一条记录哪一条记录, ,哪一哪一条记录

17、的内容就条记录的内容就在下面显示出来。在下面显示出来。2022-1-723组合框控件举例组合框控件举例l操作步骤如下：操作步骤如下：在在Visual FoxProVisual FoxPro中新建一个表单窗口；中新建一个表单窗口；按上图所示，在该表单窗口中分别按上图所示，在该表单窗口中分别创建一个标签对象、一个组合框对创建一个标签对象、一个组合框对象。调整它们的大小并摆放到表单象。调整它们的大小并摆放到表单上方相应的位置；上方相应的位置；设置各控件的属性如表设置各控件的属性如表7-77-7所示。所示。 2022-1-724组合框控件举例组合框控件举例2022-1-725组合框控件举例组合框控件举

18、例l添加数据环境添加数据环境RSBRSB，将，将RSBRSB的相应字段拖的相应字段拖拽到表单，并调整对象的位置如图拽到表单，并调整对象的位置如图7-127-12所示。所示。l为组合框为组合框Combo1Combo1的的ClickClick事件中输入下列事件中输入下列代码：代码：LOCAT FOR LOCAT FOR 编号编号=ALLTRIM(This.Value)=ALLTRIM(This.Value)ThisformThisform.Refresh .Refresh l为组合框为组合框Combo1Combo1的的InitInit事件中输入下列事件中输入下列代码：代码：This.ListInd

19、exThis.ListIndex=1=1 2022-1-72.6 微调控件微调控件 l微调控件的常用属性有：微调控件的常用属性有：IncrementIncrement：用户点按向上或向下按钮时每次增：用户点按向上或向下按钮时每次增大或减小的值。大或减小的值。KeyboardHighValueKeyboardHighValue：能输入到微调控件文本框：能输入到微调控件文本框中的最大值。中的最大值。KeyboardLowValueKeyboardLowValue：能输入到微调控件文本框：能输入到微调控件文本框中的最小值。中的最小值。SpinnerHighValueSpinnerH

20、ighValue：用户按向上按钮时能达到的：用户按向上按钮时能达到的最大值。最大值。SpinnerLowValueSpinnerLowValue：用户按向下按钮时能达到的：用户按向下按钮时能达到的最小值。最小值。ValueValue：返回用户设置的值。：返回用户设置的值。2022-1-727微调控件举例微调控件举例 例例7-77-7设计一个如设计一个如图所示的表单，要图所示的表单，要求当表单执行时求当表单执行时, ,用用户在微调控件中设户在微调控件中设置好年月日，当用置好年月日，当用户单击确定时，用户单击确定时，用户设定的日期将在户设定的日期将在文本框中显示出来。文本框中显示出来。 2022-

21、1-728微调控件举例微调控件举例l操作步骤如下：操作步骤如下：在在Visual FoxProVisual FoxPro中新建一个表单窗口；中新建一个表单窗口；按上图所示，在该表单窗口中分别按上图所示，在该表单窗口中分别创建一个文本框对象、一个命令按创建一个文本框对象、一个命令按钮对象、三个微调对象、三个标签钮对象、三个微调对象、三个标签对象。调整它们的大小并摆放到相对象。调整它们的大小并摆放到相应的位置；应的位置；设置各控件的属性如表设置各控件的属性如表7-87-8所示所示 2022-1-729微调控件举例微调控件举例2022-1-730微调控件举例微调控件举例2022-1-731微调控件举

22、例微调控件举例l为为 命令按钮命令按钮Command1Command1的的 Click Click 事事件中输入下列代码：件中输入下列代码：x=STR(This.Parent.Spinner1.Value,4)x=STR(This.Parent.Spinner1.Value,4) y=STR(This.Parent.Spinner2.Value,2) y=STR(This.Parent.Spinner2.Value,2) z=STR(This.Parent.Spinner3.Value,2) z=STR(This.Parent.Spinner3.Value,2) t=+x+/+y+/+z+ t

23、=+x+/+y+/+z+Thisform.Text1.Value=&tThisform.Text1.Value=&t2022-1-7327.1.7-17.1.7-1 表格控件表格控件 lVisual FoxProVisual FoxPro提供了一个强大的提供了一个强大的工具来显示和操作多行数据，这就工具来显示和操作多行数据，这就是表格。表格是一个容器对象，像是表格。表格是一个容器对象，像表单集能包含多个表单一样，它可表单集能包含多个表单一样，它可以包含多个列。另外，列可以包含以包含多个列。另外，列可以包含表头和控件，并且每一部分都有自表头和控件，并且每一部分都有自己的属性、事件

24、和方法。己的属性、事件和方法。 2022-1-733表格控件表格控件l表格的组成表格的组成表格表格(Grid)(Grid)：由一或若干列组成：由一或若干列组成列列(Column)(Column)：一列可显示表的一个字段，：一列可显示表的一个字段，列由列标题和列控件组成。列由列标题和列控件组成。列标题列标题( (例如：例如：HeaderlHeaderl) )：默认显示字段名，：默认显示字段名，允许修改。允许修改。列控件列控件( (例如：例如：TextlTextl) )；一列必须设置一个；一列必须设置一个列控件，该列中的每个单元格都可用此列控件，该列中的每个单元格都可用此控件来显示字段值。列控件默

25、认为文本控件来显示字段值。列控件默认为文本框框 2022-1-734表格控件表格控件l在表单窗口添加表格控件在表单窗口添加表格控件从数据环境创建从数据环境创建 利用表格生成器创建利用表格生成器创建 v表格项选项卡表格项选项卡 v样式选项卡样式选项卡 v布局选项卡布局选项卡 v关系选项卡关系选项卡 交互式创建交互式创建2022-1-735表格编辑表格编辑修改列标题修改列标题v前已提到，在表格生成器的标题文本框中可前已提到，在表格生成器的标题文本框中可以修改列标题。此外还有下面两种方法。以修改列标题。此外还有下面两种方法。v用代码修改：例如用代码修改：例如Thisform.Gridl.Column

26、2.Headerl.CaptionThisform.Gridl.Column2.Headerl.Caption=”=”名称名称”，可将表格中第，可将表格中第2 2列的标题修改为：列的标题修改为：名称。名称。v在属性窗口对象列表中按照从容器到对象的在属性窗口对象列表中按照从容器到对象的次序，找到次序，找到HeaderlHeaderl对象后，选择该对象作对象后，选择该对象作为当前对象，然后修改其为当前对象，然后修改其CaptionCaption属性。属性。 2022-1-736表格编辑表格编辑调整表格的行高与列宽调整表格的行高与列宽v 调整列宽：表格激活后，将鼠标指针置于表格两列调整列宽：表格激活

27、后，将鼠标指针置于表格两列标题之间，这时指针变为带有左右双向箭头的竖条，标题之间，这时指针变为带有左右双向箭头的竖条，便可左右拖动列线来改变列宽另一种方法是设置便可左右拖动列线来改变列宽另一种方法是设置列的列的WidthWidth属性，例如令属性，例如令Thisform.Gridl.ColumnlThisform.Gridl.Columnl.Width=50.Width=50v调整行高：标题栏行和内容行的调整方法略有不同。调整行高：标题栏行和内容行的调整方法略有不同。表格激活后，若调整标题栏高度，可将鼠标指针置表格激活后，若调整标题栏高度，可将鼠标指针置于表格标题栏行首按钮的下框线处，当指针变

28、成带于表格标题栏行首按钮的下框线处，当指针变成带有上下双向箭头的横条后，即可上下拖动行线来改有上下双向箭头的横条后，即可上下拖动行线来改变高度。调整内容行高度时，应将鼠标指针置于表变高度。调整内容行高度时，应将鼠标指针置于表格内容第格内容第1行行首按钮的下框线处，然后上下拖动行行行首按钮的下框线处，然后上下拖动行线来改变行高。此时，所有内容行的高度将统一变线来改变行高。此时，所有内容行的高度将统一变化。化。 2022-1-737表格编辑表格编辑若要禁止用户在运行时擅自改变表若要禁止用户在运行时擅自改变表格 标 题 栏 的 高 度 ， 可 将 表 格 的格 标 题 栏 的 高 度 ， 可 将 表

29、 格 的AllowHeaderSizingAllowHeaderSizing属性设置为属性设置为.F.F.；若；若表格的表格的AllowRowSizingAllowRowSizing属性为属性为.F.F.，则，则禁止改变表格内容行的高度。禁止改变表格内容行的高度。2022-1-738表格编辑表格编辑列的增删列的增删a. a. 在表格的在表格的ColumnCountColumnCount属性中设置表属性中设置表格的列数，从而改变表格的列数。格的列数，从而改变表格的列数。b. b. 打开表格生成器，在表格项选项卡打开表格生成器，在表格项选项卡中可增加或减少字段。中可增加或减少字段。c. c. 要删

30、除列，可在属性窗口中选定某要删除列，可在属性窗口中选定某列后按列后按DelDel健。健。2022-1-739表格的常用属性表格的常用属性表格属性表格属性vChildOrderChildOrder：与父表的主关键字相连接的子表的外：与父表的主关键字相连接的子表的外部关键字。部关键字。vColumnCountColumnCount：列数。如果：列数。如果ColumnCountColumnCount设置为设置为-1-1，表格的列数与表格的列数与RecordSourceRecordSource中的字段数相同。中的字段数相同。vLinkMasterLinkMaster：在表格中显示的子记录的父表。：在表

31、格中显示的子记录的父表。vRecordSourceRecordSource：显示在表格中的数据源。：显示在表格中的数据源。vRecordSourceTypeRecordSourceType：显示在表格中的数据类型。：显示在表格中的数据类型。vAllowAddNewAllowAddNew：该属性为：该属性为.T.T.时允许用户向表格中的时允许用户向表格中的表添加记录。该属性为表添加记录。该属性为.F.(.F.(默认值默认值) )时，只能用时，只能用APPEND BLANKAPPEND BLANK或或INSERTINSERT命令来添加记录。命令来添加记录。2022-1-740表格的常用属性表格的常

32、用属性列属性列属性vControlSourceControlSource：指定某表的某字段作为本：指定某表的某字段作为本列的数据源。列的数据源。vCurrentControlCurrentControl：为列指定控件。：为列指定控件。vSparesSpares：取值为：取值为.T.(.T.(默认值默认值) )时，在列表中时，在列表中只有选中的单元格以只有选中的单元格以CurrentControlCurrentControl指定的指定的控件显示，其它单元格仍以文本框显示。取控件显示，其它单元格仍以文本框显示。取值为值为.F.F.时，该列的所有单元格均以时，该列的所有单元格均以CurrentCon

33、trolCurrentControl指定的控件显示。指定的控件显示。 2022-1-741用表格控件建立一对多表单用表格控件建立一对多表单在数据环境中建立一对多表单的步在数据环境中建立一对多表单的步骤如下：骤如下：v从数据环境设计器的父表中把期望的从数据环境设计器的父表中把期望的字段拖动到表单里。字段拖动到表单里。v从数据环境设计器中把相关的子表拖从数据环境设计器中把相关的子表拖动到表单里。动到表单里。2022-1-742表格控件举例表格控件举例 例例7-8 7-8 设计一个设计一个如图所示的用表如图所示的用表格显示格显示RSBRSB所有记所有记录的表单。录的表单。2022-1-743表格控件

34、举例表格控件举例l操作步骤如下：操作步骤如下：在在Visual FoxProVisual FoxPro中新建一个表单窗口；中新建一个表单窗口；向表单的数据环境添加表向表单的数据环境添加表RSBRSB；将人事表的标题拖拽到表单；将人事表的标题拖拽到表单；保存当前设计结果，并运行该表单，保存当前设计结果，并运行该表单，查看是否获得预期的结果。查看是否获得预期的结果。 2022-1-744表格控件举例表格控件举例 例例7-97-9设计一个如设计一个如图所示的查询表单，图所示的查询表单，要求当用户单击查要求当用户单击查询时询时, ,将在表格中显将在表格中显示出示出RSBRSB的编号的编号, ,姓姓名名

35、, ,职称和职称和GZBGZB的实的实发工资字段的值。发工资字段的值。2022-1-745表格控件举例表格控件举例l操作步骤如下：操作步骤如下：在在Visual FoxProVisual FoxPro中新建一个表单窗口；中新建一个表单窗口；按上图所示，在该表单窗口中分别按上图所示，在该表单窗口中分别创建一个表格对象、两个命令按钮创建一个表格对象、两个命令按钮对象。调整它们的大小并摆放到相对象。调整它们的大小并摆放到相应的位置；应的位置；设置各控件的属性如表设置各控件的属性如表7-97-9所示：所示： 2022-1-746表格控件举例表格控件举例2022-1-747表格控件举例表格控件举例l为命

36、令按钮为命令按钮 Command1 Command1 的的 Click Click 事件中输事件中输入下列代码入下列代码：Thisform.Grid1.RecordSource=;Thisform.Grid1.RecordSource=;SELECT rsbSELECT rsb. .编号编号, ,姓名姓名, ,职称职称, ,实发工资实发工资 ; ; FROM rsb,gzb WHERE rsb FROM rsb,gzb WHERE rsb. .编号编号=gzb=gzb. .编号编号; ; INTO CURS pp INTO CURS ppl为命令按钮为命令按钮 Command2 Command

37、2 的的 Click Click 事件中输事件中输入下列代码：入下列代码：CLOSE ALLCLOSE ALLThisformThisform.Release.Release2022-1-748表格控件举例表格控件举例 例例7-10 7-10 设计一个按部门浏览人事表记设计一个按部门浏览人事表记录的表单，如图所示。录的表单，如图所示。2022-1-749表格控件举例表格控件举例l设计步骤如下：设计步骤如下：建立一个新表单，为该表单添加数据环境，在建立一个新表单，为该表单添加数据环境，在数据环境中添加表数据环境中添加表BMDMBMDM和表和表RSBRSB，将表，将表BMDMBMDM的的“部门名称

38、部门名称”字段从数据环境中拖到字段从数据环境中拖到表单中，在表单中将出现一个文本框控件，该表单中，在表单中将出现一个文本框控件，该控件的控件的ControlSourceControlSource属性将自动设置为：属性将自动设置为：BMDM.BMDM.部门名称。在部门名称。在RSBRSB的标题处按下鼠标拖的标题处按下鼠标拖到表单中，将出现一个表格控件，该控件的到表单中，将出现一个表格控件，该控件的RecordSourceTypeRecordSourceType属性自动被设置为：属性自动被设置为：1- 1-别名，别名，RecordSourceRecordSource属性自动被设置为：属性自动被设置

39、为：RSBRSB。 2022-1-750表格控件举例表格控件举例向表单添加两个命令按钮控件，设置向表单添加两个命令按钮控件，设置各控件的属性如表各控件的属性如表7-107-10所示：所示：2022-1-751表格控件举例表格控件举例l在在Command1Command1的的ClickClick事件中输入下列代码：事件中输入下列代码：SKIP -1 SKIP -1 IF BOF()IF BOF()=MESSAGEBOX(=MESSAGEBOX(已到第一条记录！已到第一条记录！,48, ;,48, ; 信息信息) ) This.Enabled=.F. This.Enabled=.F. ELSEEL

40、SEThisformThisform.Refresh .Refresh This.Parent.Command2.Enabled=.T.This.Parent.Command2.Enabled=.T.ENDIFENDIF2022-1-752表格控件举例表格控件举例l在在Command2Command2的的ClickClick事件中输入下列代码：事件中输入下列代码：SKIPSKIPIF EOF()IF EOF()=MESSAGEBOX(=MESSAGEBOX(已到最后一条记录！已到最后一条记录！,48,48,信息信息) ) This.Enabled=.F. This.Enabled=.F. SK

41、IP-1SKIP-1ELSEELSEThisformThisform.Refresh.RefreshThis.Parent.Command1.Enabled=.T. This.Parent.Command1.Enabled=.T. ENDIF ENDIF 2022-1-7537.1.7-27.1.7-2 页框控件页框控件 l页框是一个包含页面的容器对象，用页框是一个包含页面的容器对象，用户可在页框中定义多个页面，以生成户可在页框中定义多个页面，以生成带选项卡的对话框。带选项卡的对话框。l在表单中添加页框控件的步骤为：在表单中添加页框控件的步骤为：在表单控件工具栏中单页框控件按钮；在表单控件工具

42、栏中单页框控件按钮；移动鼠标指针到表单中，单击并拖拽到移动鼠标指针到表单中，单击并拖拽到合适的大小；合适的大小；2022-1-754页框控件页框控件l页框的常用属性有：页框的常用属性有：PageCountPageCount：设置页框中页面的个数。：设置页框中页面的个数。l页面的常用属性有：页面的常用属性有：CaptionCaption：设置页面的名称。：设置页面的名称。2022-1-755页框控件页框控件l在页框中选择不同页面的步骤如下：在页框中选择不同页面的步骤如下：在页框中单击鼠标右键，选择编辑，在页框中单击鼠标右键，选择编辑，则页框呈现出选中状态，边框变粗；则页框呈现出选中状态，边框变粗

43、；单击要选择的页面标签。单击要选择的页面标签。2022-1-756页框控件页框控件l在页面中加入控件的步骤如下：在页面中加入控件的步骤如下：选中要加入控件的页面；选中要加入控件的页面；在表单控制工具栏中单击所需控件，在表单控制工具栏中单击所需控件，移动鼠标到所选页面中，单击并拖移动鼠标到所选页面中，单击并拖拽到合适大小。拽到合适大小。2022-1-757页框控件举例页框控件举例 例例7-11 7-11 设计一个如图设计一个如图所示的查询表单，要所示的查询表单，要求对求对RSBRSB表可按姓名查表可按姓名查询，也可按编号查询。询，也可按编号查询。并显示查找到的记录并显示查找到的记录的编号、姓名、

44、性别、的编号、姓名、性别、职称、基本工资、简职称、基本工资、简历、相片字段的值，历、相片字段的值，如果找不到满足条件如果找不到满足条件的记录，则弹出一个的记录，则弹出一个信息窗，显示信息窗，显示“没找没找到满足条件的记录，到满足条件的记录，请重新输入！请重新输入！” ” 2022-1-758页框控件举例页框控件举例l操作步骤如下：操作步骤如下：新建一个表单，添加一个页框控件。新建一个表单，添加一个页框控件。在页框的第一个页面中添加一个标签控在页框的第一个页面中添加一个标签控件、一个文本框控件、一个命令按钮，件、一个文本框控件、一个命令按钮，操作方法为：操作方法为：v在页框中单击鼠标右键，选择编

45、辑，选中第在页框中单击鼠标右键，选择编辑，选中第一个页面，在表单控件工具栏中单击标签控一个页面，在表单控件工具栏中单击标签控件，移动鼠标到第一个页面中，单击鼠标。件，移动鼠标到第一个页面中，单击鼠标。2022-1-759页框控件举例页框控件举例 将将RSB.DBFRSB.DBF添加到表单的数据环境添加到表单的数据环境中，分别将编号、姓名、性别、职中，分别将编号、姓名、性别、职称、基本工资、简历、相片字段拖称、基本工资、简历、相片字段拖入页框的第一个页面；按图入页框的第一个页面；按图7-187-18所所示位置摆放。示位置摆放。 设置各控件的属性如表设置各控件的属性如表7-117-11所示所示 2

46、022-1-760页框控件举例页框控件举例2022-1-761页框控件举例页框控件举例2022-1-762页框控件举例页框控件举例选择页框第一个页面的所有对象，选择页框第一个页面的所有对象，选择【编辑】选择【编辑】【复制】，在属性【复制】，在属性窗口的对象列表中选择窗口的对象列表中选择Page2Page2对象，对象，再选择【编辑】再选择【编辑】【粘帖】，这一【粘帖】，这一步操作将所有的对象复制到页框的步操作将所有的对象复制到页框的第二个页面中；并修改标签控件的第二个页面中；并修改标签控件的CaptionCaption的属性为：请输入编号：的属性为：请输入编号：2022-1-763页框控件举例页

47、框控件举例l在在PageFrame1.Page1.Command1PageFrame1.Page1.Command1的的ClickClick事事件中输入下列代码：件中输入下列代码：LOCAT FOR ALLTRIM(LOCAT FOR ALLTRIM(姓名姓名)=;)=;ALLTRIM(This.Parent.Text1.Value) ALLTRIM(This.Parent.Text1.Value) IF NOT FOUND()IF NOT FOUND()=MessageBox=MessageBox( (没找到满足条件的记录，没找到满足条件的记录，; ;请重新输入！请重新输入！,48,48,信

48、息信息) )ENDIFENDIFThisformThisform.Refresh .Refresh This.Parent.Text1.setfocus This.Parent.Text1.setfocus 2022-1-764页框控件举例页框控件举例l在在PageFrame1.Page2.Command1PageFrame1.Page2.Command1的的ClickClick事事件中输入下列代码：件中输入下列代码：LOCAT FOR ALLTRIM(LOCAT FOR ALLTRIM(编号编号)=;)=;ALLTRIM(This.Parent.Text1.Value) ALLTRIM(Th

49、is.Parent.Text1.Value) IF NOT FOUND()IF NOT FOUND()=MessageBox=MessageBox( (没找到满足条件的记录，没找到满足条件的记录，; ;请重新输入！请重新输入！,48,48,信息信息) )ENDIFENDIFThisformThisform.Refresh .Refresh This.Parent.Text1.setfocusThis.Parent.Text1.setfocus2022-1-765页框控件举例页框控件举例l在在PageFrame1PageFrame1的的InitInit事件中输入下列代码：事件中输入下列代码：GO

50、 BOTTOM GO BOTTOM SKIPSKIP l在在PageFrame1. Page1PageFrame1. Page1的的ActivateActivate事件中输事件中输入下列代码：入下列代码：This.Text1.setfocusThis.Text1.setfocus l在在PageFrame1. Page2PageFrame1. Page2的的ActivateActivate事件中输事件中输入下列代码：入下列代码：This.Text1.setfocusThis.Text1.setfocus 2022-1-76.8 命令按钮组控件命令按钮组控件 l命令按钮组控件是

51、一个容器控件，命令按钮组控件是一个容器控件，它可包含若干个命令按钮，并能统它可包含若干个命令按钮，并能统一管理这些命令按钮，命令按钮组一管理这些命令按钮，命令按钮组与组内的各命令按钮都有自己的属与组内的各命令按钮都有自己的属性，事件和方法程序，因而既可单性，事件和方法程序，因而既可单独操作各命令按钮，也可对组控件独操作各命令按钮，也可对组控件进行操作。进行操作。2022-1-767命令按钮组控件命令按钮组控件lClickClick事件的判别事件的判别若命令按钮组及其所含的各命令按若命令按钮组及其所含的各命令按钮分别设置了钮分别设置了ClickClick事件代码，事件代码，Visual Visual FoxProFoxPro以命令按钮的以命令按钮的ClickClick事件代码优事件代码优先，忽略命令按钮组的先，忽略命令按钮组的ClickClick事件代事件代码。若单击组内空白处，既不触发码。若单击组内空白处，既不触发组控件的组控件的ClickClick事件，也不触发命令事件，也不触发命令按钮的按钮的ClickClick事件。事件。 2022-1-7