福建工程学院面向对象程序设计

《福建工程学院面向对象程序设计》由会员分享，可在线阅读，更多相关《福建工程学院面向对象程序设计（97页珍藏版）》请在装配图网上搜索。

1、福建工程学院面向对象程序设计表单控件设计表单控件设计 1控件分类控件分类 VFP“表单控件表单控件”工具栏上有工具栏上有21个基类控件，按功能可分成以下个基类控件，按功能可分成以下5类：类：（1）输出类：标签、图像、线条、形状。）输出类：标签、图像、线条、形状。（2）输入类：文本框、编辑框、微调控件、列表框、组合框。）输入类：文本框、编辑框、微调控件、列表框、组合框。（3）控制类：命令按钮、命令按钮组、复选框、选项按钮组、计时器。）控制类：命令按钮、命令按钮组、复选框、选项按钮组、计时器。（4）容器类：表格、页框、）容器类：表格、页框、Contain容器、表单集。容器、表单集。（5）连接类：）

2、连接类：ActiveX控件、控件、ActiveX挷挷定控件、超级链接控件。定控件、超级链接控件。2各类控件的缺省名称各类控件的缺省名称 各类控件的缺省名称见表各类控件的缺省名称见表810。1标签控件的作用标签控件的作用 标签控件常用于显示说明信息和对象的标题。标签控件常用于显示说明信息和对象的标题。2标签常用属性标签常用属性 标签的常用属性见下：标签的常用属性见下：标签标签(Label)(Label)属 性功 能Caption指定标签的标题，字符型数据AutoSize为.T.时，将根据内容自动改变标签的大小，缺省值为.F.WordWorp为.T.时，标签的内容自动换行，缺省值为.F.BackS

3、tyle指定标签是否透明（0透明，1（缺省值）不透明）BorderStyle指定标签的边框风格（0（缺省值）无边框，1单线边框）Alignment指定文本在标签中的对齐方式（0左，1右，2中央）【例例87】在表单上创建在表单上创建3个标签，只要鼠标单击任何一个标签，则其个标签，只要鼠标单击任何一个标签，则其他两个标签的标题互换。他两个标签的标题互换。（1）设计界面）设计界面 1）打开）打开“表单设计器表单设计器”窗口，并创建一个空白表单。窗口，并创建一个空白表单。2）在表单上创建）在表单上创建3个标签控件个标签控件Label1、Label2和和Label3。（2）设置对象属性）设置对象属性对

4、象属 性 名属 性 值Label1Caption第一个标签控件Label2Caption第二个标签控件Label3Caption第三个标签控件（3）编写事件代码 1）标签控件Label1的Click事件代码如下：t=Thisform.Label2.Caption&t为中间变量 Thisform.Label3.Caption=t 2）标签控件Label2的Click事件的如下代码：Thisform.Label3.Caption=t 3）标签控件Label3的Click事件代码如下：Thisform.Label2.Caption=t（4）保存表单单击工具栏中的“保存”按钮，在“另存为”对话框中，选

5、择表单保存的位置，输入表单的名称：，单击“保存”按钮。（5）执行表单单击“常用”工具栏中的“运行”按钮，表单运行结果如图842所示。图842标签控件运行效果 1图像（图像（Image）（1）图像控件的作用）图像控件的作用 图像控件用于在其中显示图像文件的图片。图像控件用于在其中显示图像文件的图片。（2）图像常用属性）图像常用属性 图象对象常用属性见下表：图象对象常用属性见下表：图像、线条、形状图像、线条、形状属 性功 能Picture图像文件名Strech指定图像填充方式：0剪裁（默认值），1等比，2变比 2线条（线条（Line）（1）线条控件的作用）线条控件的作用 线条控件用于在表单上创建直

6、线或斜线。默认创建一条。线条控件用于在表单上创建直线或斜线。默认创建一条。（2）线条常用属性）线条常用属性 线条对象常用属性见下：线条对象常用属性见下：属 性功 能LineSlant（默认值）斜线方向从左上角到右下角/斜线方向从右上角到左下角Height0水平线Width0垂直线 【例例88】设计一个如图设计一个如图843所示的应用程序封面。所示的应用程序封面。（1）设计界面）设计界面 在表单上创建一个标签控件在表单上创建一个标签控件Label1、一个图像控件、一个图像控件Image1、一个形状控件、一个形状控件Shape1和两条水平线和两条水平线Line1、Line2。（2）设置对象属性）设

7、置对象属性 在在“属性属性”窗口中，分别设置各对象的属性值如下表：窗口中，分别设置各对象的属性值如下表：对 象属 性 名属 性 值Form1Picture故都的秋.bmpLabel1CaptionForeColorAutoSizeFontNameFontSizeFontBoldFontItalic职工管理系统0,0,255（蓝色）.T.（自动）隶书26.T.（粗体）.T.（斜体）3形状（形状（Shape）（1）形状控件的作用）形状控件的作用 形状控件用于在表单上创建圆、椭圆、正方形、矩形、圆角正方形和圆角矩形形状控件用于在表单上创建圆、椭圆、正方形、矩形、圆角正方形和圆角矩形等几何形状。等几何

8、形状。（2）形状设置）形状设置 形状对象常用属性见下表：形状对象常用属性见下表：Curvature的值Width与Height的值相等Width与Height的值不等0正方形矩形199小圆角正方形大圆角正方形圆小圆角矩形大圆角矩形椭圆对 象属 性 名属 性 值Image1Picturefox.bmpShape1CurvatureBackStyleBorderColor99（椭圆）0（透明）255,0,0（红色）Line1HeightWidthTop033655Line2HeightWidthTop033660（3）编写事件代码）编写事件代码1）表单）表单Form1的的Init事件事件“代码代码

9、”如下：如下：&椭圆横向居中椭圆横向居中Thisform.Shape1.Top=Y&椭圆顶端在表单高度的椭圆顶端在表单高度的1/31/3处处&标签横向居中标签横向居中Thisform.Label1.Top=Y+(Thisform.Shape1.Height/2-Thisform.Label1.Height/2)&标签位于椭圆的垂直居中位置标签位于椭圆的垂直居中位置（4）保存表单）保存表单 单击工具栏中的单击工具栏中的“保存保存”按钮，在按钮，在“另存为另存为”对话框中，选择对话框中，选择表单保存的位置，输入表单的名称：表单保存的位置，输入表单的名称：L8-8，单击，单击“保存保存”按钮。按钮。

10、图图8 84343应用程序封面应用程序封面 （5）执行表单 单击“常用”工具栏中的“运行”按钮，表单运行效果如图843所示。文本框又称为输入框文本框又称为输入框,用于输入数据用于输入数据,它可接受字符型、数值型、它可接受字符型、数值型、日期型和逻辑型的数据。使用文本框只能输入一段文本。也就是说日期型和逻辑型的数据。使用文本框只能输入一段文本。也就是说,按回车键即终止输入。按回车键即终止输入。1文本框常用属性文本框常用属性 文本框常用属性见下页表。文本框常用属性见下页表。Format属性取值见表属性取值见表818。InputMark属性取值见表属性取值见表819。文本框文本框(Text)(Tex

11、t)属 性功 能Value文本框存放的值，类型可以是C、N、D、L，分别对应于（无）、0、.F.。其中（无）表示C型数据，也是默认值。设计时可对此属性赋初值，初值的类型决定文本框数据的类型ControlSource指定与文本框绑定的数据源。数据源可以是字段变量或内存变量Format指定Value属性输入时的约束或显示方式（参数的意义见表818）InputMask控制输入数据格式和显示方式（参数的意义见表819）PasswordChar指定文本框内显示输入的占位符Alignment指定文本框中数据对齐的方式：0左对齐，1右对齐，2居中（默认值）SelLength文本框中被选择的文本的字数SelT

12、ext文本框中被选择的文本内容2文本框常用方法文本框常用方法 SetFocus：设置文本框控件的焦点。：设置文本框控件的焦点。3文本框常用事件文本框常用事件 （1）When：在获得焦点之前发生。：在获得焦点之前发生。（2）Valid：在失去焦点之前发生。：在失去焦点之前发生。（3）KeyPress：按住并释放一个键盘键时发生。：按住并释放一个键盘键时发生。（4）InteractivateChange：文本框的值时发生：文本框的值时发生。【例例89】设计如图设计如图844所示的表单，其功能是：从键盘输入职工所示的表单，其功能是：从键盘输入职工的职工号，即显示该职工的姓名和基本工资。的职工号，即显

13、示该职工的姓名和基本工资。（1）设计界面）设计界面 在表单上创建两个标签在表单上创建两个标签Label1和和Label2，一个文本框，一个文本框Text1和一和一个命令按钮个命令按钮Command1。（2）设置数据环境）设置数据环境 1）右击表单，在弹出的快捷菜单中选择）右击表单，在弹出的快捷菜单中选择“数据环境数据环境”命令。命令。2）在弹出的）在弹出的“添加表或视图添加表或视图”对话框中，选择表，单击对话框中，选择表，单击“添加添加”按钮，将其添加到按钮，将其添加到“数据环境设计器数据环境设计器”窗口中。窗口中。（3）创建字段映像）创建字段映像 用鼠标将用鼠标将“数据环境设计器数据环境设计

14、器”窗口中表的窗口中表的“姓名姓名”和和“基本工资基本工资”字段拖放到表单上，从而在表单上产生两个标签控件（字段拖放到表单上，从而在表单上产生两个标签控件（lbl姓名，姓名，lbl基本工资）和两个文本框控件（基本工资）和两个文本框控件（txt姓名，姓名，txt基本工资）。基本工资）。对 象属 性 名属 性 值Label1Caption职工号Label2CaptionAutoSize提示：.T.Text1InputMark9999Txt姓名Readonly.T.Txt基本工资Readonly.T.Command1Caption查询（4）设置对象属性（5）编写事件代码 1）表单Form1的Init

15、事件代码如下：*故意将记录指针移出界，使“txt姓名”与“txt基本工资”文本框无内容 Go Bottom Skip2）命令按钮）命令按钮Command1的的Click事件代码如下：事件代码如下：If !Empty(Thisform.Text1.Value)&若文本框非空若文本框非空 Go Top Locate For 职工号职工号=Alltrim(Thisform.Text1.Value)If Found三三 Thisform.Label2.Caption=提示：记录找到，相关内容显示如提示：记录找到，相关内容显示如下：下：Else Thisform.Label2.Caption=提示：未找

16、到相关记录！提示：未找到相关记录！Endif&刷新表单刷新表单Else Thisform.Label2.Caption=提示：请在文本框中输入查找内容！提示：请在文本框中输入查找内容！Endif（6）保存表单）保存表单 以以“L8-9.scx”为名称保存表单。为名称保存表单。图图844查询职工的姓名和专业查询职工的姓名和专业 （7）执行表单）执行表单 单击单击“常用常用”工具栏中的工具栏中的“运行运行”按钮，表单运行效果如图按钮，表单运行效果如图844所示所示 1编辑框的特点编辑框的特点 （1）编辑框实际上是一个字处理器，可以输入和编辑字符型数据，）编辑框实际上是一个字处理器，可以输入和编辑字

17、符型数据，常作为备注型字段数据的绑定控件。常作为备注型字段数据的绑定控件。（2）编辑框只能输入字符型的数据，且可以输入多段文本。）编辑框只能输入字符型的数据，且可以输入多段文本。2编辑框常用属性编辑框常用属性 编辑框常用属性见表编辑框常用属性见表821。3编辑框常用方法和事件编辑框常用方法和事件 编辑框常用方法和事件与文本框相似。编辑框常用方法和事件与文本框相似。编辑框编辑框(Edit)(Edit)【例例810】将文本框中选定的内容复制到编辑框中。具体要求如将文本框中选定的内容复制到编辑框中。具体要求如下：下：1）文本框中选定内容后，）文本框中选定内容后，“复制复制”命令按钮被激活；命令按钮被

18、激活；2）按下）按下“复制复制”命令按钮，实现文本框选定内容复制到剪贴板；命令按钮，实现文本框选定内容复制到剪贴板；3）按下）按下“粘贴粘贴”命令按钮，实现剪贴板内容粘贴到编辑框。命令按钮，实现剪贴板内容粘贴到编辑框。（1）设计界面）设计界面 新建一个表单，在表单上添加新建一个表单，在表单上添加2个标签个标签Label1和和Label2，1个文个文本辑框本辑框Text1、1个编辑框个编辑框Edit1和和2个命令按钮个命令按钮Command1和和Command2。（2）设置对象属性）设置对象属性 在在“属性属性”窗口中，分别设置各对象的属性值，见表窗口中，分别设置各对象的属性值，见表822。对

19、象属 性属 性 值Form1Caption剪贴板Label1Caption文本框Label2Caption编辑框Command1CaptionEnabled复制.F.Command2CaptionEnabled粘贴.F.（3）编写事件代码）编写事件代码1）表单）表单Form1的的Init事件的代码如下：事件的代码如下：Public X&内存变量内存变量X X用于存放剪贴的内容用于存放剪贴的内容Thisform.Text1.SetFocus&文本框获得焦点文本框获得焦点X=&内存变量内存变量X X的初值为空串的初值为空串2）文本框）文本框Text1的的MouseUp事件的代码如下：事件的代码如下

20、：LPARAMETERS nButton,nShift,nXCoord,nYCoord*判断文本框中是否有选定内容，有则激活判断文本框中是否有选定内容，有则激活Command1Command1If )0&若文本框中有被选定的内容若文本框中有被选定的内容 Thisform.Command1.Enabled=.T.&“&“复制复制”命令按钮有效命令按钮有效Endif 3）命令按钮）命令按钮Command1的的Click事件的代码如下：事件的代码如下：X=Thisform.Text1.selText&将选定内容复制到剪贴板将选定内容复制到剪贴板=.F.&“&“复制复制”命令按钮失效命令按钮失效 Th

21、isform.Command2.Enabled=.T.&“&“粘贴粘贴”命令按钮有效命令按钮有效图图845例例810运行的结果运行的结果4）命令按钮Command2的Click事件的代码如下：Thisform.Edit1.SelText=X&将剪贴板内容粘贴到编辑框 Thisform.Edit1.SetFocus&编辑框获得焦点（4）以“L8-10.SCX”为文件名保存表单。（5）单击“常用”工具栏中的“运行”按钮，表单运行结果如图845所示。1列表框与组合框的异同点列表框与组合框的异同点 列表框与组合框都是提供选择一个或多个输入项的列表，二者之列表框与组合框都是提供选择一个或多个输入项的列表

22、，二者之间又存在如下区别：间又存在如下区别：（1）列表框显示全部选项列表；组合框只显示一条选项，单击右）列表框显示全部选项列表；组合框只显示一条选项，单击右端下拉按钮，才显示全部选项列表。端下拉按钮，才显示全部选项列表。（2）组合框又分为下拉组合框和下拉列表框，前者允许输入数据，）组合框又分为下拉组合框和下拉列表框，前者允许输入数据，后者与列表框一样仅有选取功能。后者与列表框一样仅有选取功能。2列表框与组合框常用属性列表框与组合框常用属性 列表框与组合框的常用属性见表列表框与组合框的常用属性见表823。列表框与组合框列表框与组合框(List&Combo)(List&Combo)属 性说 明Ro

23、wSourceType指定列表框或组合框数据源的类型（共9类，见表824）RowSource指定列表框或组合框的数据源ColumnCount指定列表框或组合框中的列数Value返回列表框或组合框中的选定项（若为数值型，则返回被选定项的序号；若为字符型，则返回被选定项的本身内容。对于多列列表框，则返回由BoundCount属性指定的列的数据项）DisplayValue指定列表框或组合框中所选定项第一列的内容MultiSelect指定是否允许多重选择（0或.F.（缺省值）不允许，1或.T.允许）ControlSource指定存储列表框或组合框选定项的数据绑定字段ListCount返回列表框或组合框

24、中列表项的个数ListIndex返回列表框或组合框中选定项的序号List(i,j)返回列表框或组合框t第i行，第j列的值Selected(i)若i行被选中，则返回.T.；否则返回.F.Style指定组合框的类型：0下拉组合框，2下拉列表框RowSourceTypeRowSource在控件中显示0无（默认值）在程序中用AddItem()添加条目用RemoveItem()移去条目1值RowSource=one,two,three,fourone,two,three,fou2别名RowSource=表的名称表的字段的内容3SQL语句RowSource=select *FROM zg INTO CUR

25、SOR tempSQL语句执行的结果（记录）4查询RowSource=查询文件名.qpr查询文件执行的结果（记录）5数组RowSource=数组名数组元素的值6字段RowSource=字段（变量）名字段（变量）的值7文件例如：RowSource=*.dbf指定的文件名8结构RowSource=表的名称表的全部字段名9弹出式菜单RowSource=弹出式菜单名菜单选项3RowSourceType与与RowSource属性（见表属性（见表824）4列表框与组合框常用方法列表框与组合框常用方法（1）AddItem：当组合框或列表框的：当组合框或列表框的RowSourceType属性值属性值为为0时，

26、可使用此方法在列表中添加一条新选项。时，可使用此方法在列表中添加一条新选项。（2）RemoveItem：当组合框或列表框的：当组合框或列表框的RowSourceType属属性值为性值为0时，可使用此方法删除列表中一条选项。时，可使用此方法删除列表中一条选项。【例例811】设计如图设计如图846所示的表单，用于查询职工的工资所示的表单，用于查询职工的工资信息。双击列表框中某职工的职工号，该职工的职工号、姓名及信息。双击列表框中某职工的职工号，该职工的职工号、姓名及工资信息显示于文本框中。工资信息显示于文本框中。（1）设计界面）设计界面 创建表单，并在表单上添加两个标签创建表单，并在表单上添加两个

27、标签Label1、Label2，一个列，一个列表框表框List1和一个命令按钮和一个命令按钮Command1。（2）设置数据环境）设置数据环境 1）鼠标右击表单，在弹出的快捷菜单中选择）鼠标右击表单，在弹出的快捷菜单中选择“数据环境数据环境”命令。命令。2）在弹出的）在弹出的“添加表或视图添加表或视图”对话框中，分别选择表和对话框中，分别选择表和Gz表，表，单击单击“添加添加”按钮，将其添加到按钮，将其添加到“数据环境设计器数据环境设计器”窗口中。窗口中。（3）创建字段映像）创建字段映像 用鼠标将用鼠标将“数据环境设计器数据环境设计器”窗口中表的窗口中表的“职工号职工号”、“姓名姓名”和和“基

28、本工资基本工资”字段拖放到表单上，将表的字段拖放到表单上，将表的“津贴津贴”、“奖金奖金”、“住房公积金住房公积金”、“工会费工会费”和和“实发工资实发工资”字段拖放到表单上，字段拖放到表单上，从而在表单上产生相应的控件。从而在表单上产生相应的控件。（4）设置对象属性）设置对象属性对 象属 性 名属 性 值Label1CaptionFontSizeFontBold（加粗）工资查询20.T.Label2Caption请选择职工号：List1RowsourceTypeRowsource6字段zgjk.职工号Command1Caption退出（5）编写事件代码 1）列表框List1的Interact

29、iveChange事件代码如下：&刷新表单 2）命令按钮Command1的Click事件代码如下：&释放表单图图846例例811运行的结果运行的结果 （6）保存表单 以为名称保存表单。（7）执行表单 单击“常用”工具栏中的“运行”按钮，表单运行结果如图846所示。【例例812】设计一个表单，用于选拔职工参加演讲比赛。在组设计一个表单，用于选拔职工参加演讲比赛。在组合框中显示职工简况表中所有职工的姓名，单击合框中显示职工简况表中所有职工的姓名，单击“添加添加”按钮，按钮，将其添加到列表框中；单击将其添加到列表框中；单击“删除删除”按钮，则移去列表框中被选按钮，则移去列表框中被选中的职工姓名；单击

30、中的职工姓名；单击“全部清除全部清除”按钮，则清除列表框中所有的按钮，则清除列表框中所有的职工姓名。职工姓名。（1）设计界面）设计界面 创建表单，并在表单上添加两个标签创建表单，并在表单上添加两个标签Label1和和Label2，一个组，一个组合框合框Combo1，一个列表框，一个列表框List1，三个命令按钮，三个命令按钮Command1、Command2和和Command3。（2）设置对象属性）设置对象属性对 象属 性属 性 值Form1Caption选拔职工Label1Caption请选择职工姓名Label2Caption被选中职工姓名列表Combo1RowsourceTypeRowso

31、urce 6字段 zgjk.姓名Command1Caption添加Command2Caption删除Command3Caption全部清除（3）编写事件代码）编写事件代码 1）命令按钮）命令按钮Command1的的Click事件的代码如下：事件的代码如下：If Empty(Thisform.Combo1.Value)&若组合框为空，则什么都不做若组合框为空，则什么都不做 ReturnEndifFor i=1 to Thisform.List1.Listcount&历遍列表框的所有选项历遍列表框的所有选项 If Thisform.Combo1.Value=Thisform.List1.List(

32、i)If Thisform.Combo1.Value=Thisform.List1.List(i)&若组合框中的选项已存在于列表框，若组合框中的选项已存在于列表框，则提示则提示 Messagebox(已存在该列表项已存在该列表项)Return EndifEndforThisform.List1.Additem(Thisform.Combo1.Value)&将组合框内容添加到列表框将组合框内容添加到列表框Thisform.Combo1.Value=&清空组合框清空组合框Thisform.Combo1.Setfocus&组合框获得焦点组合框获得焦点2）命令按钮）命令按钮Command2的的Clic

33、k事件的代码如下：事件的代码如下：If Thisform.List1.Listindex0&若列表框有选中项，则删除若列表框有选中项，则删除 Thisform.List1.Removeitem(Thisform.List1.Listindex)Endif&将末项设为选中项将末项设为选中项3）命令按钮）命令按钮Command3的的Click事件的代码如下：事件的代码如下：&清空列表框清空列表框（4）以）以“L8-12.SCX”为文件名保存表单为文件名保存表单。（5）单击）单击“常用常用”工具栏中的工具栏中的“运行运行”按钮，表单运行结果如图按钮，表单运行结果如图847所示所示。图847例L8-1

34、2运行的结果【例例813】设计一个表单，用于浏览职工销售业绩。在组合框中选定职设计一个表单，用于浏览职工销售业绩。在组合框中选定职工号，即在列表框中显示该职工的销售业绩信息，包括：姓名、销售数量、工号，即在列表框中显示该职工的销售业绩信息，包括：姓名、销售数量、商品编号、商品名称、规格型号和单价。商品编号、商品名称、规格型号和单价。对 象属 性属性值Label1CaptionFontSizeFontBoldAutoSize职工销售业绩20.T.T.Label2 Caption请选择职工号Label3 Caption姓名 销售数量 商品编号 商品名称 规格型号 单价Combo1RowSource

35、TypeRowSource6字段Zgjk.职工号List1RowSourceTypeColumnCount3SQL语句6（列数）（1）设计界面）设计界面创建表单，并在表单上创建表单，并在表单上添加三个标签添加三个标签Label1、Label2和和Label3，一个组合，一个组合框框Combo1和一个列表框和一个列表框List1。（2）设置对象属性）设置对象属性 如右表所示。如右表所示。（3）编写事件代码）编写事件代码组合框组合框Combo1的的InteractivateChange事件代码如下：事件代码如下：Thisform.List1.Rowsource=;Select Zgjk.姓名姓名,

36、Xs.销售数量销售数量,Sp.商品编号商品编号,Sp.商品名称商品名称,Sp.规规格型号格型号,Sp.单价单价;From Zgjk,Xs,Sp;Where Sp.商品编号商品编号=Xs.商品编号商品编号 AND Zgjk.职工号职工号=Xs.职工号职工号 AND Zgjk.职工号职工号=;Into Cursor temptable&从从3 3个表选择符合条件的记录放入个表选择符合条件的记录放入临时表，作为临时表，作为list1list1的数据源的数据源&刷新表单刷新表单（4 4）以）以“L8-13.SCX”L8-13.SCX”为文件名保存表单。为文件名保存表单。（5 5）单击）单击“常用常用”

37、工具栏中的工具栏中的“运行运行”按钮，表单运行结果如图按钮，表单运行结果如图8 85555所示。所示。图图 命令按钮常用于启动事件命令按钮常用于启动事件,以执行某项操作，如关闭表单、移动记录指针等。以执行某项操作，如关闭表单、移动记录指针等。1命令按钮常用属性（见下表）命令按钮常用属性（见下表）命令按钮命令按钮(Commmand)(Commmand)属 性功 能Caption按钮标题，若含“字符”，则该字符成为热键Default为.T.时，按回车键执行该命令按钮Click事件（缺省值为.F.）Cancel为.T.时，按ESC键执行该命令按钮Click事件（缺省值为.F.）Enable指定是否响

38、应用户引发的事件（.T.（缺省值）响应，.F.不响应）Visible指定对象可见或隐藏（缺省值为.T.）2命令按钮常用方法命令按钮常用方法（1）Click（2）RightClick命令按钮组是包含若干个命令按钮的容器。命令按钮组和组内各命令按命令按钮组是包含若干个命令按钮的容器。命令按钮组和组内各命令按钮都有各自的属性、方法和事件。钮都有各自的属性、方法和事件。1命令按钮组常用属性（见下表）命令按钮组常用属性（见下表）命令按钮组命令按钮组(CommmandGroup)(CommmandGroup)属 性功 能ButtonCount设置组容器所包含的命令按钮数Value为1（默认值）时，单击组控

39、件内某命令按钮，将返回此命令按钮的序号；值为“空”时，单击组控件内某命令按钮，将返回此命令按钮的Caption属性对 象属 性属 性 值Form1Caption加减计算器CommandGroup1ButtonCount15Command1Command2Caption1，2，3，4，5，6，7，8，9，0，CText1Alignment1右【例814】创建简单加减计算器，如图856所示。该计算器的功能如下：1）单击按钮，则清空文本框中的内容；2）单击正负号、数字和小数点按钮,将在文本框中输入相应的内容；3）单击按钮，将计算的结果显示于文本框内。（1）设计界面 创建表单,并在表单上添加一个文本框

40、Text1和命令按钮组CommandGroup1。（2）设置对象属性2命令按钮组中命令按钮的编辑命令按钮组中命令按钮的编辑要编辑命令按钮组中的命令按钮，必须先激活组容器。激要编辑命令按钮组中的命令按钮，必须先激活组容器。激活组容器有如下两种方法：活组容器有如下两种方法：（1）右击命令按钮组，在弹出的快捷菜单中选择）右击命令按钮组，在弹出的快捷菜单中选择“编辑编辑”命令。组容器被激活后，呈现绿色斜线边框。命令。组容器被激活后，呈现绿色斜线边框。（2）在）在“属性属性”窗口中，选定组容器内的对象。窗口中，选定组容器内的对象。（3）编写事件代码）编写事件代码1）表单）表单Form1的的Load事件的

41、代码如下：事件的代码如下：Public C,N C=N=02）表单）表单Form1的的Destroy事件的代码如下：事件的代码如下：Release C,N3）命令按钮）命令按钮Command1 Command13的的Click事件的代码如下：事件的代码如下：C=&累加连接按钮的标题的字符串累加连接按钮的标题的字符串 ThisForm.Text1.Value=C 4）命令按钮）命令按钮Command15的的Click事件的代码如下：事件的代码如下：C=&清空内存变量清空内存变量C C ThisForm.Text1.Value=“&清空文本框清空文本框5）命令按钮）命令按钮Command14的的C

42、lick事件的代码如下：事件的代码如下：N=&C&将字符型内存变量将字符型内存变量C C的内容宏替换出来，放入变量的内容宏替换出来，放入变量N N ThisForm.Text1.Value=N&刷新表单刷新表单图图856简单加减计算器简单加减计算器（4）以“L8-14.SCX”为文件名保存表单。（5）单击“常用”工具栏中的“运行”按钮，表单运行结果如图856所示。复选框由一个方框和标题说明组成，用于标记一个两值状态：为真复选框由一个方框和标题说明组成，用于标记一个两值状态：为真（.T.）状态，为假（）状态，为假（.F.）状态。用户可选择若干个复选框中的一个或多）状态。用户可选择若干个复选框中的

43、一个或多个。个。1复选框常用属性（见下表）复选框常用属性（见下表）复选框复选框(CheckBox)(CheckBox)属属 性性说说 明明CaptionCaption指定显示在复选框旁的标题文字指定显示在复选框旁的标题文字ValueValue设置或返回复选框当前状态（设置或返回复选框当前状态（0 0或或.F.F.（缺省值）（缺省值）未被选中未被选中，1 1或或.T.T.选定，选定，2 2或或.NULL.NULL.禁用（灰色显示）禁用（灰色显示）ControlSourceControlSource指定复选框的数据源，通常与逻辑型字段绑定指定复选框的数据源，通常与逻辑型字段绑定StyleStyle

44、指定复选框的显示风格（指定复选框的显示风格（0 0（缺省值）（缺省值）标准样式，标准样式，11图形样式）图形样式）对 象属 性属性值Label1CaptionFontSizeFontBoldAutoSize统计男女职工人数和基本工资总额14.T.T.Check1Caption性别（选中为男，否则为女）Command1Caption统计（1）设计界面）设计界面 创建表单，并在表单上添加创建表单，并在表单上添加3个标签个标签Label1、Label2和和Label3，一个复选框，一个复选框Check1，两个文本框两个文本框Text、Text2和一个命令按钮和一个命令按钮Command1。（2）设置

45、对象属性）设置对象属性 在在“属性属性”窗口中，分别设置各对象的属性值，见表窗口中，分别设置各对象的属性值，见表832。2复选框常用事件复选框常用事件（1）Click：单击复选框时引发。：单击复选框时引发。（2）InteractivateChange：复选框值发生改变时引发。：复选框值发生改变时引发。【例例815】设计一个表单，用于分别统计男女职工的人数和基本设计一个表单，用于分别统计男女职工的人数和基本工资总额。若选中复选框，则统计男职工的人数和基本工资总额；工资总额。若选中复选框，则统计男职工的人数和基本工资总额；否则统计女职工的人数和基本工资总额。否则统计女职工的人数和基本工资总额。操作

46、步骤如下：操作步骤如下：（3）编写事件代码）编写事件代码命令按钮命令按钮Command1的的Click事件代码如下：事件代码如下：Dimension X(2)&定义数组定义数组Chx=ThisForm.Check1.Value&复选框的值为复选框的值为0 0或或1 1Sex=Iif(chx=0,“女女”,“男男”)&若若chx=0chx=0，则，则Sex=Sex=女女；否则；否则Sex=Sex=男男Select Count(*),SUM(基本工资基本工资)From Zgjk Where 性别性别=Sex Into Array XThisform.Label2.Caption=Sex+职工人数职

47、工人数Thisform.Label3.Caption=Sex+职工基本工资总额职工基本工资总额Thisform.Text1.value=X(1)Thisform.Text2.value=X(2)&刷新表单刷新表单（4）以）以“L8-15.SCX”为文件名保存表单。为文件名保存表单。（5）单击）单击“常用常用”工具栏中的工具栏中的“运行运行”按钮，表单运行结果如图按钮，表单运行结果如图857所示。所示。选项按钮组是包含选项按钮的容器。其特点是按钮组中只能一个选选项按钮组是包含选项按钮的容器。其特点是按钮组中只能一个选项按钮被选中。项按钮被选中。1选项按钮组常用属性选项按钮组常用属性选项按钮组常用

48、属性见下表：选项按钮组常用属性见下表：选项按钮组选项按钮组(OptionGroup)(OptionGroup)属属 性性说说 明明CaptionCaption指定显示在复选框旁的标题文字指定显示在复选框旁的标题文字ValueValue设置或返回复选框当前状态（设置或返回复选框当前状态（0 0或或.F.F.（缺省值）（缺省值）未被选中未被选中，1 1或或.T.T.选定，选定，2 2或或.NULL.NULL.禁用（灰色显示）禁用（灰色显示）ControlSourceControlSource指定复选框的数据源，通常与逻辑型字段绑定指定复选框的数据源，通常与逻辑型字段绑定StyleStyle指定复选

49、框的显示风格（指定复选框的显示风格（0 0（缺省值）（缺省值）标准样式，标准样式，11图形图形样式）样式）2选项按钮组常用事件选项按钮组常用事件（1）Click：单击选项按钮时引发。：单击选项按钮时引发。（2）InteractivateChange：选项按钮组发生改变时引发。：选项按钮组发生改变时引发。【例例816】设计表单实现按部门统计职工的人数。设计表单实现按部门统计职工的人数。操作步骤如下：（1）设计界面创建一个表单,并在表单上添加一个选项组、一个文本框和两个标签，如图858所示。（2）设置对象属性在“属性”窗口中，分别设置各对象的属性值见下表。对 象属 性属性值Form1Caption

50、统计各部门人数Label2Caption人Text1BackStylBorderStylValue0（透明）0（无边框）0OptionGroup1ControlSourceButtonCountValueZgjk.部门3无（返回选中选项按钮标题）Option1Caption（3）编写事件代码）编写事件代码选项按钮组选项按钮组OptionGroup1的的Click事件代码如下：事件代码如下：Select Count(*)From Zgjk;Where 部门部门=Into Array X&统计部门人数统计部门人数,并将结果放入内存变量并将结果放入内存变量x xThisform.Text1.Valu

51、e=X(1)&将数组的值写入文本框将数组的值写入文本框Thisform.Label1.Caption=+部门共有部门共有&Value&Value的值为的值为 家电家电、服装服装 或或 文具文具 图858例816运行的结果（4）以）以“L8-16.SCX”为文件名保为文件名保存表单。存表单。（5）单击）单击“常用常用”工具栏中的工具栏中的“运行运行”按钮，表单运行结果如图按钮，表单运行结果如图858所示。所示。计时器控件计时器控件(Timer)像一个闹钟，它以一定的时间间隔重复执行某种操作。像一个闹钟，它以一定的时间间隔重复执行某种操作。当达到规定的时间间隔时，系统自动触发当达到规定的时间间隔时

52、，系统自动触发Timer事件。事件。在表单设计的过程中，计时器控件可见；表单运行时，计时器控件自动在表单设计的过程中，计时器控件可见；表单运行时，计时器控件自动隐藏。隐藏。1计时器常用属性（见下表）计时器常用属性（见下表）2计时器常用事件计时器常用事件Timer：达到：达到Interval设置计时间隔即触发。设置计时间隔即触发。8.3.10 8.3.10 计时器计时器(Timer)(Timer)属属 性性说说 明明IntervalInterval用于设置计时间隔，单位是用于设置计时间隔，单位是msms，当值为，当值为0 0时，不产生时，不产生TimerTimer事件事件EnabledEnabl

53、ed.T.T.表单加载时，计时器即开始计时；表单加载时，计时器即开始计时；.F.F.计时器不计时计时器不计时对 象属 性 名属 性 值Form1NameCaptionTimer时钟Label1CaptionFontSizeAutoSize现在时间是：16.T.真Label2AlignmentFontSizeAutoSize2中央16.T.真Timer1IntervalEnabled500.T.Command1 Caption 暂停Command2 Caption 继续Command3 Caption 退出（2）设置对象属性）设置对象属性 在在“属性属性”窗口中，分别设置各对象的属性值见下表。窗

54、口中，分别设置各对象的属性值见下表。分析：使用计时器控件分析：使用计时器控件Timer，将该控件的，将该控件的Interval属性设置为属性设置为500，即每秒触发一次计时器，即每秒触发一次计时器控件的控件的Timer事件（显示一次系统时间）；将计时器控件的事件（显示一次系统时间）；将计时器控件的Interval属性设置为属性设置为0将停止触发将停止触发Timer事件。事件。操作步骤如下：操作步骤如下：（1）设计界面）设计界面 创建一个表单，并在表单上添加两个标签创建一个表单，并在表单上添加两个标签Label1，Label2；三命令按钮；三命令按钮Command1，Command2，Comma

55、nd3和一个计时器控件和一个计时器控件Timer1。【例例817】设计一个如图设计一个如图859所示的表单，具体要求如下：所示的表单，具体要求如下：1）表单名为）表单名为Timer,表单标题为表单标题为“时钟时钟”,表单运行时自动显示系统的当前时间；表单运行时自动显示系统的当前时间；2）要求显示时间的标签控件）要求显示时间的标签控件Label1在表单中居中，标签文本对齐方式为居中；在表单中居中，标签文本对齐方式为居中；3）单击）单击“暂停暂停”命令按钮（命令按钮（Command1）时，时钟停止；）时，时钟停止；4）单击）单击“继续继续”命令按钮（命令按钮（Command2）时，时钟继续显示系统

56、的当前时间；）时，时钟继续显示系统的当前时间；5）单击）单击“退出退出”命令按钮（命令按钮（Command3）时，关闭表单。）时，关闭表单。（3）编写事件代码）编写事件代码1）双击）双击“暂停暂停”按钮，打开代码编辑窗口，输入按钮，打开代码编辑窗口，输入Click事件代码如下：事件代码如下：Thisform.Timer1.Interval=02）双击）双击“继续继续”按钮，打开代码编辑窗口，输入按钮，打开代码编辑窗口，输入Click事件代码如下：事件代码如下：Thisform.Timer1.Interval=5003）双击）双击“退出退出”按钮，打开代码编辑窗口，输入按钮，打开代码编辑窗口，输

57、入Click事件代码如下：事件代码如下：4）双击计时器控件）双击计时器控件timer1，打开代码编辑窗口，输入，打开代码编辑窗口，输入timer事件代码如下：事件代码如下：Thisform.Label2.Caption=Time三三图860例817运行的结果（4）以）以“L8-17.SCX”为文件名保存表单。为文件名保存表单。（5）单击）单击“常用常用”工具栏中的工具栏中的“运行运行”按钮，表单运行结果如图按钮，表单运行结果如图860所示所示。1容器的特性容器的特性 容器可包含表单和表单集之外多个不同类型的对象。容器可包含表单和表单集之外多个不同类型的对象。要向容器中添加对象，必须先激活容器。

58、具体操作方法是：右击容器，在弹出要向容器中添加对象，必须先激活容器。具体操作方法是：右击容器，在弹出的快捷菜单中选择的快捷菜单中选择“编辑编辑”命令，使容器处于编辑状态，此时添加的对象才会到容命令，使容器处于编辑状态，此时添加的对象才会到容器中。如果没有激活容器而添加对象，实际上对象是添加到表单上而不是容器中。器中。如果没有激活容器而添加对象，实际上对象是添加到表单上而不是容器中。推而广之，容器类的对象，若要编辑其中的对象，都先激活它们，使其进入编辑状推而广之，容器类的对象，若要编辑其中的对象，都先激活它们，使其进入编辑状态。态。2容器常用属性容器常用属性 容器对象常用属性见下表：容器对象常用

59、属性见下表：容器（容器（ContainerContainer）属属 性性说说 明明IntervalInterval用于设置计时间隔，单位是用于设置计时间隔，单位是msms，当值为，当值为0 0时，不产生时，不产生TimerTimer事件事件EnabledEnabled.T.T.表单加载时，计时器即开始计时；表单加载时，计时器即开始计时；.F.F.计时器不计时计时器不计时【例例818】建立如图建立如图861所示的表单，用于调查职工的情况。单击所示的表单，用于调查职工的情况。单击“统计统计”按钮，将该职工的情况显示于编辑框中。按钮，将该职工的情况显示于编辑框中。操作步骤如下：操作步骤如下：（1）设

60、计界面）设计界面 创建一个表单，并在表单上添加如图创建一个表单，并在表单上添加如图861所示的控件。其中所示的控件。其中“爱好爱好”的的3个个复选框（复选框（“体育体育”、“音乐音乐”和和“美术美术”）是置于容器）是置于容器Container1中。中。（2）设置对象属性）设置对象属性 在在“属性属性”窗口中，分别设置各对象的属性值，见表窗口中，分别设置各对象的属性值，见表838。对 象属 性属 性 值Form1Caption调查表Label1Caption姓名Label2Caption性别 对 象属 性属 性 值Label3Caption年龄Label4Caption爱好Text1Value张

61、芳（初值）OptionGroup1Value男（初值）Container1SpecialEffect0（凸起）Sprinner1SprinnerLowValueSprinnerHightValueKeyboardLowValueKeyboardHightValue0 （微调下限）150（微调上限）0 （键盘输入下限）150（键盘输入上限）Check1CaptionValue体育1（初值为选定）Check2CaptionValue音乐1（初值为选定）Check3CaptionValue美术1（初值为选定）Command1CaptionDefault 统计C（C为热键）.T.真（为缺省按钮）2）命

62、令按钮）命令按钮Command1的的Click事件代码如下：事件代码如下：str1=姓名：姓名：+Alltrim(Thisform.Text1.value)&累加连接姓名字符串累加连接姓名字符串str1=str1+，性别：，性别：+Alltrim(Thisform.OptionGroup1.Value)&累加连接性别字符串累加连接性别字符串str1=str1+，年龄：，年龄：+Str(Thisform.Spinner1.value,3)&累加连接年龄字符串累加连接年龄字符串With Thisform.Container1&可用可用WithWithEndwithEndwith语句设置多个属性值语

63、句设置多个属性值 If.Check1.Value=1 or.Check2.Value=1 or.Check3.Value=1 str1=str1+，爱好：，爱好：Endif If.Check1.Value=1&体育体育 str1=str1+.Check1.Caption+、Endif If.Check2.Value=1&音乐音乐 str1=str1+.Check2.Caption+、Endif If.Check3.Value=1&美术美术 str1=str1+.Check3.Caption+、EndifEndwithThisform.Edit1.Value=Left(str1,Len(str1

64、)-2)+。&删除最后一个顿号删除最后一个顿号,并添加句号并添加句号（3）编写事件代码）编写事件代码 1）文本框）文本框Text1的的Valid事件代码如下：事件代码如下：If )&姓名不能为空姓名不能为空 Return.F.Endif（3）编写事件代码）编写事件代码 1）文本框）文本框Text1的的Valid事件代码如下：事件代码如下：If )&姓名不能为空姓名不能为空 Return.F.Endif（4）以）以“L8-18.SCX”为文件名为文件名保存表单。保存表单。（5）单击）单击“常用常用”工具栏中工具栏中的的“运行运行”按钮，表单运行结按钮，表单运行结果如图果如图861所示。所示。表格

65、是一种按行与列显示数据的容器对象，其外观与表格是一种按行与列显示数据的容器对象，其外观与Browse窗口相似。表格是窗口相似。表格是一种多重容器，一个表格由若干个列对象（一种多重容器，一个表格由若干个列对象（Colunm）组成，每个列对象包含一）组成，每个列对象包含一个列标头对象（个列标头对象（Header）和若干个列控件。表格、列、列标头和列控件都有）和若干个列控件。表格、列、列标头和列控件都有属于自己的属性、事件和方法。属于自己的属性、事件和方法。1表格的组成表格的组成 （1）表格（）表格（Grid）：容器对象，由若干个列对象组成。）：容器对象，由若干个列对象组成。（2）列（）列（Colu

66、nm）：也是容器对象，由列标头和列控件组成。）：也是容器对象，由列标头和列控件组成。（3）列标头（）列标头（Header）：默认值为数据库表、自由表和视图中的字段名或字）：默认值为数据库表、自由表和视图中的字段名或字段标题。段标题。（4）列控件：默认值为文本框（）列控件：默认值为文本框（Text1），允许修改为与该控件字段类型相容的其他），允许修改为与该控件字段类型相容的其他控件。例如：逻辑型字段可用复选框，数值型字段可用微调控件。控件。例如：逻辑型字段可用复选框，数值型字段可用微调控件。表格表格(Grid)(Grid)属属 性性说说 明明RecordSourceRecordSource指定表格的数据源指定表格的数据源RecordSourceTypeRecordSourceType指定表格数据源的类型（指定表格数据源的类型（00表，表，11别名（默认值），别名（默认值），22提示，提示，33查询（查询（.qpr.qpr），），4SQL4SQL语句）语句）ColumnCountColumnCount指定表格的列数（默认值为指定表格的列数（默认值为-1-1，此时表格列数为数据源表的，此时表