《精品PPT课件--第8章面向对象程序设计控件.ppt》由会员分享，可在线阅读，更多相关《精品PPT课件--第8章面向对象程序设计控件.ppt（107页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、精品PPT课件-第8章面向对象程序设计控件 Still waters run deep.流静水深流静水深,人静心深人静心深 Where there is life,there is hope。有生命必有希望。有生命必有希望8.3表单控件设计表单控件设计 1控件分类控件分类 VFP“表单控件表单控件”工具栏上有工具栏上有21个基类控件，按功能可分成以下个基类控件，按功能可分成以下5类：类：（1）输出类：标签、图像、线条、形状。）输出类：标签、图像、线条、形状。（2）输入类：文本框、编辑框、微调控件、列表框、组合框。）输入类：文本框、编辑框、微调控件、列表框、组合框。（3）控制类：命令按钮、命令按
2、钮组、复选框、选项按钮组、计时）控制类：命令按钮、命令按钮组、复选框、选项按钮组、计时器。器。（4）容器类：表格、页框、）容器类：表格、页框、Contain容器、表单集。容器、表单集。（5）连接类：）连接类：ActiveX控件、控件、ActiveX挷定控件、超级链接控件。挷定控件、超级链接控件。2各类控件的缺省名称各类控件的缺省名称 各类控件的缺省名称见表各类控件的缺省名称见表810。2各类控件的缺省名称各类控件的缺省名称各类控件的缺省名称见下表。各类控件的缺省名称见下表。控 件缺 省 名 称控 件缺 省 名 称表单Form微调控件Sprinner标签Label表格Grid命令按钮Comman
3、d图像Image文本框Text计时器Timer编辑框Edit页框Pageframe命令按钮组Commandgroup容器Container选项按钮组Optiongroup线条Line复选框Ckeck形状Shape组合框ComboActive挷定控件Oleboundctrol列表框List超级链接Hyperlink标签控件标签控件(Label)常用于显示说明信息和对象的标题。常用于显示说明信息和对象的标题。1标签常用属性标签常用属性标签的常用属性见下表：标签的常用属性见下表：8.3.18.3.1标签标签属 性功 能Caption指定标签的标题，字符型数据WordWrap为.T.时，标签的内容自动
4、换行，缺省值为.F.1图像（图像（Image）（1）图像控件的作用）图像控件的作用 图像控件用于在其中显示图像文件的图片。图像控件用于在其中显示图像文件的图片。（2）图像常用属性）图像常用属性 图象对象常用属性见下表：图象对象常用属性见下表：8.3.28.3.2图像、线条、形状图像、线条、形状属 性作 用Picture图像文件名Strech指定图像填充方式：0剪裁（默认值），1等比，2变比 2线条（线条（Line）（1）线条控件的作用）线条控件的作用 线条控件用于在表单上创建直线或斜线。默认创建一条。线条控件用于在表单上创建直线或斜线。默认创建一条。（2）线条常用属性）线条常用属性 线条对象常
5、用属性见下：线条对象常用属性见下：属 性作 用LineSlant（默认值）斜线方向从左上角到右下角/斜线方向从右上角到左下角BorderColor指定线条的颜色BorderStyle指定线条的样式（实线、虚线、点线、点划线）BorderWidth指定线条的宽度（粗细）Height0水平线Width0垂直线 3形状（形状（Shape）（1）形状控件的作用）形状控件的作用 形状控件用于在表单上创建圆、椭圆、正方形、矩形、圆角正方形和形状控件用于在表单上创建圆、椭圆、正方形、矩形、圆角正方形和圆角矩形等几何形状。圆角矩形等几何形状。（2）形状设置）形状设置 形状对象常用属性见下表：形状对象常用属性见
6、下表：属 性作 用BorderColor指定形状控件边框线的颜色 BorderStyle指定形状控件边框线的样式（实线、虚线、点线、点划线）Border Width指定形状控件边框线的宽度 Curvature0（若Width与Height的值相等，则为正方形；若Width与Height的值不等，则为矩形）199（若Width与Height的值相等，则小圆角正方形大圆角正方形圆；若Width与Height的值不等，则小圆角矩形大圆角矩形椭圆）SpecialEffect 指定形状控件特殊效果（1平面，0三维）4应用举例应用举例【例例88】设计一个如图设计一个如图841所示的应用程序封面，显示所示的
7、应用程序封面，显示“职工管理系统职工管理系统”和和“福建商业高等专科学校研制福建商业高等专科学校研制”，使用图片，使用图片start.jpg作为封面的背景图案。单击作为封面的背景图案。单击“登录系统登录系统”按钮，则打开按钮，则打开登录窗口。封面停留半分钟后自动关闭。登录窗口。封面停留半分钟后自动关闭。（1）设计界面）设计界面在表单上创建在表单上创建2个标签个标签Label1与与Label2、1个形状控件个形状控件Shape1、1条水平线条水平线Line1、1个计时器个计时器Timer1与与1个命令按钮个命令按钮Command1。（2）设置对象属性）设置对象属性在在“属性属性”窗口中，分别设置
8、各对象的属性值如下表：窗口中，分别设置各对象的属性值如下表：对 象属 性 名属 性 值说 明Form1PictureAutoCenterShowWindowd:vfpstart.jpg.T.2指定表单背景图案文件运行时自动居中作为顶层表单Label1CaptionAutoSizeBackStyleForeColorFontNameFontSize职工管理系统.T.0255,0,0隶书48自动大小透明红色字符字体字号Label2CaptionAutoSizeBackStyleForeColorFontNameFontSizeFontBold福建商业高等专科学校研制.T.00,0,255楷体231
9、220.T.自动大小透明蓝色字符字体字号加粗对 象属 性 名属 性 值说 明Shape1CurvatureHeightWidthBackStyleBorderColor BorderWidth991006000255,0,03椭圆椭圆外切矩形的高椭圆外切矩形的宽透明红色线粗Line1HeightWidthTopLeftBorderColor03362043480,0,255水平线水平线长左上角的纵坐标左上角的横坐标蓝色Timer1Interval30000单位为毫秒Command1Caption登录系统（3）编写事件代码）编写事件代码1）计时器控件）计时器控件timer1的的timer事件代码
10、如下：事件代码如下：Thisform.Release&30秒后关闭表单秒后关闭表单2）命令按钮）命令按钮Command1的的Click事件代码如下：事件代码如下：DO FORM Login.scx&调用登录表单调用登录表单（4）保存表单）保存表单以以“Start.scx”为名称保存表单。为名称保存表单。图图8 84141应用程序封面应用程序封面 （5）运行表单）运行表单 单击单击“常用常用”工具栏中的工具栏中的“运行运行”按钮，表单运行效果如图按钮，表单运行效果如图841所示。所示。文本框文本框(Text)又称为输入框又称为输入框,用于用于输入数据输入数据和和显示数据显示数据,它可接受它可接受
11、字符字符型、型、数值数值型、型、日期日期型和型和逻辑逻辑型的数据。使用文本框型的数据。使用文本框只能输入只能输入一段一段文本。也就是说文本。也就是说,按回车键即终止输入。按回车键即终止输入。1文本框常用属性文本框常用属性 文本框常用属性见表文本框常用属性见表817。Format属性取值见表属性取值见表818。InputMark属性取值见表属性取值见表819。8.3.38.3.3文本框文本框属 性作 用Value文本框存放的值，类型可以是C、N、D、L，分别对应于（无）、0、.F.。其中（无）表示C型数据，也是默认值。设计时可对此属性赋初值，初值的类型决定文本框数据的类型ControlSourc
12、e指定与文本框绑定的数据源。数据源可以是字段变量或内存变量Format指定Value属性输入时的约束或显示方式（参数的意义见表818）InputMask控制输入数据格式和显示方式（参数的意义见表819）PasswordChar指定文本框内显示输入的占位符Alignment指定文本框中数据对齐的方式：0左对齐，1右对齐，2居中（默认值）SelLength文本框中被选择的文本的字数SelText文本框中被选择的文本内容表表8 81717文本框对象常用属性文本框对象常用属性表表8 88 81717FormatFormat属性取值属性取值属性值属性值作作 用用A A只允许字母字符（无空格和标点符号）只
13、允许字母字符（无空格和标点符号）D D使用使用SETSET DATE DATE命令设置当前的日期格式命令设置当前的日期格式E E按按BRITISHBRITISH日期格式编辑日期型数据日期格式编辑日期型数据K K当光标移到文本框上时，框中数据就被选定当光标移到文本框上时，框中数据就被选定L L在文本框中显示数值型数据的前导在文本框中显示数值型数据的前导0 0（以取代空格），只（以取代空格），只使用于数值型数据使用于数值型数据R R显示文本框的格式屏蔽，屏蔽不放入控制源中，只使用显示文本框的格式屏蔽，屏蔽不放入控制源中，只使用于字符型或数值型数据于字符型或数值型数据T T截去输入字段中前导空格和尾
14、随空格截去输入字段中前导空格和尾随空格!小写字母转换成大写字母，只使用于字符型数据小写字母转换成大写字母，只使用于字符型数据 用科学表示法显示数值型数据，只使用于数值型数据用科学表示法显示数值型数据，只使用于数值型数据$显示货币符，只使用于数值型和货币型数据显示货币符，只使用于数值型和货币型数据属 性作 用X允许输入任何字符A只允许输入字母9允许输入数字和正负号#允许输入数字、正负号和空格$显示当前货币符号（由SET CURRENCY命令指定）*在数字左边显示星号*.指示小数点位置,分隔小数点左边的数字串表表8 81919InputMaskInputMask属性取值属性取值2文本框常用方法文本
15、框常用方法 SetFocus：文本框获得焦点。：文本框获得焦点。3文本框常用事件文本框常用事件 （1）Valid：在失去焦点之前发生。：在失去焦点之前发生。（2）KeyPress：按下并释放一个键盘键时发生。：按下并释放一个键盘键时发生。（3）LostFocus：按下并释放一个键盘键时发生。：按下并释放一个键盘键时发生。（4）MouseDown：在该对象按下鼠标时发生。：在该对象按下鼠标时发生。（5）MouseUp：在该对象释放鼠标时发生。：在该对象释放鼠标时发生。（6）InteractivateChange：文本框的值时发生：文本框的值时发生。【例例89】设计如图设计如图842所示的表单，其
16、功能是：从键盘输所示的表单，其功能是：从键盘输入职工的职工号，即显示该职工的姓名和基本工资。入职工的职工号，即显示该职工的姓名和基本工资。（1）设计界面）设计界面 在表单上创建两个标签在表单上创建两个标签Label1和和Label2，一个文本框，一个文本框Text1和和一个命令按钮一个命令按钮Command1。（2）设置数据环境）设置数据环境 1）右击表单，在弹出的快捷菜单中选择）右击表单，在弹出的快捷菜单中选择“数据环境数据环境”命令。命令。2）在弹出的）在弹出的“添加表或视图添加表或视图”对话框中，选择对话框中，选择Zgjk.dbf表，单表，单击击“添加添加”按钮，将其添加到按钮，将其添加
17、到“数据环境设计器数据环境设计器”窗口中。窗口中。（3）创建字段映像）创建字段映像 用鼠标将用鼠标将“数据环境设计器数据环境设计器”窗口中窗口中Zgjk.dbf表的表的“姓名姓名”和和“基本工资基本工资”字段拖放到表单上，从而在表单上产生两个标签控字段拖放到表单上，从而在表单上产生两个标签控件（件（lbl姓名，姓名，lbl基本工资）和两个文本框控件（基本工资）和两个文本框控件（txt姓名，姓名，txt基本基本工资）。工资）。对 象属 性 名属 性 值说明 Label1Caption职工号Label2CaptionAutoSize提示：.T.自动大小 Text1InputMark9999允许输入
18、4位任意数字 Txt姓名Readonly.T.只读 Txt基本工资Readonly.T.只读 Command1Caption查询（4）设置对象属性）设置对象属性（5）编写事件代码）编写事件代码 1）表单）表单Form1的的Init事件代码如下：事件代码如下：*将记录指针移出界，使运行时将记录指针移出界，使运行时“姓名姓名”与与“基本工资基本工资”文本框内无内容文本框内无内容 Go Bottom Skip2）命令按钮）命令按钮Command1的的Click事件代码如下：事件代码如下：If !Empty(Thisform.Text1.Value)&若文本框非空若文本框非空 Go Top Locat
19、e For 职工号职工号=Alltrim(Thisform.Text1.Value)If Found()Thisform.Label2.Caption=提示：记录找到提示：记录找到,相关内容显示如下：相关内容显示如下：Else Thisform.Label2.Caption=提示：未找到相关记录！提示：未找到相关记录！Endif Thisform.Refresh&刷新表单刷新表单Else Thisform.Label2.Caption=提示：请在文本框中输入查找内容！提示：请在文本框中输入查找内容！Endif图图8 84242查询职工的姓名和基本工资查询职工的姓名和基本工资 （6）保存表单）保
20、存表单 以以“查询姓名和工资查询姓名和工资.scx”为名称保存表单。为名称保存表单。（7）执行表单）执行表单 单击单击“常用常用”工具栏中的工具栏中的“运行运行”按钮，表单运行效果如图按钮，表单运行效果如图842所示所示。编辑框编辑框(Edit)实际上是一个字处理器，可以输入和编辑字符型数实际上是一个字处理器，可以输入和编辑字符型数据，据，常作为备注型字段数据的绑定控件常作为备注型字段数据的绑定控件。编辑框编辑框只能输入字符型的数据，且可以输入多段文本。只能输入字符型的数据，且可以输入多段文本。1编辑框常用属性编辑框常用属性 编辑框常用属性见下页表编辑框常用属性见下页表820。2编辑框常用方法
21、和事件编辑框常用方法和事件 编辑框常用方法和事件与文本框相似。编辑框常用方法和事件与文本框相似。8.3.48.3.4编辑框编辑框属 性作 用ControlSource指定编辑框的数据源。通常与备注型字段绑定Enabled指定编辑框是否有效（.T.有效 .F.无效）HideSelection.T.（缺省值）失去焦点时，编辑框中选定的文本不显示为选定状态；.F.失去焦点时，编辑框中选定的文本仍显示为选定状态ReadOnly指定编辑框中内容的只读属性（.T.只读，.F.缺省值可写）ScrollBars指定编辑框是否有滚动条（0无，2缺省值有）SelText编辑框中被选择的文本内容SelStart编辑
22、框中被选择的文本的起始位置SelLength编辑框中被选择的文本的字数Value指定编辑框中的值，并在编辑框中显示（只能是C类型数据）表表8 82121编辑框的常用属性编辑框的常用属性 【例例810】创建一个如图创建一个如图843所示的所示的“剪贴板剪贴板”表单。要求表单。要求如下：如下：1）文本框中选定内容后，）文本框中选定内容后，“复制复制”命令按钮被激活；命令按钮被激活；2）按下）按下“复制复制”命令按钮，实现文本框选定内容复制到剪贴板；命令按钮，实现文本框选定内容复制到剪贴板；3）按下）按下“粘贴粘贴”命令按钮，实现剪贴板内容粘贴到编辑框。命令按钮，实现剪贴板内容粘贴到编辑框。（1）设
23、计界面）设计界面 新建一个表单，在表单上添加新建一个表单，在表单上添加2个标签个标签Label1和和Label2，1个文个文本辑框本辑框Text1、1个编辑框个编辑框Edit1和和2个命令按钮个命令按钮Command1和和Command2。（2）设置对象属性）设置对象属性 在在“属性属性”窗口中，分别设置各对象的属性值，见表窗口中，分别设置各对象的属性值，见表821。对 象属 性属 性 值说 明 Form1Caption剪贴板Label1Caption文本框Label2Caption编辑框Command1CaptionEnabled复制.F.失效Command2CaptionEnabled粘贴
24、.F.失效表表821对象属性值的设置对象属性值的设置（3）编写事件代码）编写事件代码1）表单）表单Form1的的Init事件的代码如下：事件的代码如下：Thisform.Text1.SetFocus&文本框获得焦点文本框获得焦点2）文本框）文本框Text1的的MouseUp事件的代码如下：事件的代码如下：LPARAMETERS nButton,nShift,nXCoord,nYCoord*判断文本框中是否有选定内容，有则激活判断文本框中是否有选定内容，有则激活Command1Command1If Len(this.SelText)0&若文本框中有被选定的内容若文本框中有被选定的内容 Thisf
25、orm.Command1.Enabled=.T.&“&“复制复制”命令按钮有效命令按钮有效Endif 3）“复制复制”命令按钮命令按钮Command1的的Click事件的代码如下：事件的代码如下：_CLIPTEXT=Thisform.Text1.selText&将选定内容复制到剪贴板将选定内容复制到剪贴板 This.Enabled=.F.&“&“复制复制”命令按钮失效命令按钮失效 Thisform.Command2.Enabled=.T.&“&“粘贴粘贴”命令按钮有效命令按钮有效图图843例例810运行的结果运行的结果4）“粘贴粘贴”命令按钮命令按钮Command2的的Click事件的代码如下
26、：事件的代码如下：Thisform.Edit1.SelText=_CLIPTEXT&将剪贴板内容粘贴到编辑框将剪贴板内容粘贴到编辑框 Thisform.Edit1.SetFocus&编辑框获得焦点编辑框获得焦点（4）以）以“剪贴板剪贴板.SCX”为文为文件名保存表单。件名保存表单。（5）单击）单击“常用常用”工具栏中的工具栏中的“运行运行”按钮，表单运行结果按钮，表单运行结果如图如图843所示。所示。【例例811】创建如图创建如图844所示的修改表的简历字段的表单。要所示的修改表的简历字段的表单。要求如下：求如下：1）在文本框中输入要修改记录的职工号，若该职工号存在，即显）在文本框中输入要修改
27、记录的职工号，若该职工号存在，即显示其姓名和简历，此时示其姓名和简历，此时“修改简历修改简历”按钮有效；若该职工号不存在，按钮有效；若该职工号不存在，即弹出提示框，要求重新输入。即弹出提示框，要求重新输入。2）单击）单击“修改简历修改简历”命令按钮，则光标移入编辑框。命令按钮，则光标移入编辑框。3）按下）按下“确认退出确认退出”命令按钮，则关闭表单。命令按钮，则关闭表单。（1）设计界面）设计界面新建一个表单，在表单上添加新建一个表单，在表单上添加1个标签个标签Label1，1个文本辑框个文本辑框Text1和和2个命令按钮个命令按钮Command1和和Command2。（2）创建字段映像）创建字
28、段映像1）打开）打开“数据环境设计器数据环境设计器”窗口，添加窗口，添加Zgjk.dbf表。表。2）用鼠标将）用鼠标将“数据环境设计器数据环境设计器”窗口中的窗口中的“姓名姓名”字段拖放到表字段拖放到表单上，生成单上，生成2个字段映像控件：标签个字段映像控件：标签“lbl.姓名姓名”和文本框和文本框“txt.姓姓名名”；将；将“简历简历”字段拖放到表单上，生成字段拖放到表单上，生成2个字段映像控件：标签个字段映像控件：标签“lbl.简历简历”和编辑框和编辑框“edt.简历简历”。表表822对象属性值的设置对象属性值的设置（2）设置对象属性）设置对象属性对对 象象属属 性性属属 性性 值值说明说
29、明Form1Form1CaptionCaption修改简历修改简历Label1Label1CaptionCaption输入职工号：输入职工号：Command1Command1CaptionCaption修改简历修改简历Command2Command2CaptionCaption确认退出确认退出（3）编写事件代码）编写事件代码1）表单）表单Form1的的Init事件的代码如下：事件的代码如下：Go BottSkip&将指针移出记录，使运行初始界面无数据将指针移出记录，使运行初始界面无数据Thisform.edt.简历简历.Enabled=.F.&简历编辑框失效简历编辑框失效Thisform.Co
30、mmand1.Enabled=.F.&“修改简历修改简历”按钮失效按钮失效2）文本框）文本框Text1的的InteractivateChange事件的代码如下：事件的代码如下：Locate FOR 职工号职工号=ALLTRIM(This.Value)IF FOUND()Thisform.edt.简历简历.Enabled=.F.&简历编辑框有效简历编辑框有效 Thisform.Command1.Enabled=.T.&“修改简历修改简历”按钮有效按钮有效ELSE MESSAGEBOX(输入的职工号不存在，请重新输入！输入的职工号不存在，请重新输入！)This.Value=&清空输入职工号文本框清
31、空输入职工号文本框 This.SetFocus&输入职工号文本框获得焦点输入职工号文本框获得焦点ENDIFThisform.Refresh&刷新表单刷新表单图图844“修改简历修改简历”表单运行的结果表单运行的结果 3）“确认退出确认退出”命令按钮命令按钮Command2的的Click事件代码如下：事件代码如下：ThisForm.Release&释放表单释放表单 （5）以）以“修改简历修改简历.SCX”为文件名保存表单。为文件名保存表单。（6）单击）单击“常用常用”工具栏中的工具栏中的“运行运行”按钮按钮，表单运行结果，表单运行结果如图如图844所示。所示。列表框列表框(List)与组合框与组
32、合框(Combo)都是提供选择一个或多个输入都是提供选择一个或多个输入项的列表，二者之间又存在如下区别：项的列表，二者之间又存在如下区别：（1）列表框列表框显示全部选项列表；组合框只显示一条选项，单击显示全部选项列表；组合框只显示一条选项，单击右端下拉按钮，才显示全部选项列表。右端下拉按钮，才显示全部选项列表。（2）组合框组合框又分为又分为下拉组合框下拉组合框和和下拉列表框下拉列表框，前者允许输入数，前者允许输入数据，后者与列表框一样仅有选取功能据，后者与列表框一样仅有选取功能。1列表框与组合框常用属性列表框与组合框常用属性 列表框与组合框的常用属性见表列表框与组合框的常用属性见表823。8.
33、3.58.3.5列表框与组合框列表框与组合框 属 性作 用ColumnCount指定列表框或组合框中的列数ControlSource指定存储列表框或组合框选定项的数据绑定字段DisplayValue指定列表框或组合框中所选定项第一列的内容ListCount返回列表框或组合框中列表项的个数ListIndex返回列表框或组合框中选定项的序号List(i,j)返回列表框或组合框第i行第j列的值MultiSelect指定是否允许多重选择(0或.F.缺省值不允许，1或.T.允许）RowSourceType指定列表框或组合框数据源的类型（共9类，见表824）RowSource指定列表框或组合框的数据源Se
34、lected(i)若i行被选中，则返回.T.；否则返回.F.Style指定组合框的类型：0下拉组合框，2下拉列表框Value返回列表框或组合框中的选定项（若为数值型，则返回被选定项的序号；若为字符型，则返回被选定项的本身内容。对于多列列表框，则返回由BoundCount属性指定的列的数据项）表表8 82 23 3列表框与组合框的常用属性列表框与组合框的常用属性RowSourceTypeRowSource在控件中显示0无（默认值）在程序中用AddItem()添加条目用RemoveItem()移去条目1值RowSource=one,two,three,fourone,two,three,fou2别
35、名RowSource的表由数据环境提供 显示字段数目由olumnCount确定3SQL语句RowSource=select *FROM zg INTO CURSOR tempSQL语句执行的结果(记录)4查询RowSource=查询文件名.qpr查询文件执行的结果(记录)，列数由ColumnCount确定5数组RowSource=数组名数组元素的值6字段RowSource=字段名字段的值7文件例如：RowSource=*.dbf以目录与文件名填充8结构RowSource的表由数据环境提供 表的全部字段名9弹出式菜单RowSource=弹出式菜单名菜单选项2RowSourceType与与RowS
36、ource属性属性（见下表）（见下表）3列表框与组合框常用方法列表框与组合框常用方法（1）AddItem：当组合框或列表框的：当组合框或列表框的RowSourceType属性值属性值为为0时，可使用此方法在列表中添加一条新选项。时，可使用此方法在列表中添加一条新选项。（2）RemoveItem：当组合框或列表框的：当组合框或列表框的RowSourceType属性值为属性值为0时，可使用此方法删除列表中一条选项。时，可使用此方法删除列表中一条选项。（3）Clear：清除列表框中所有选项。：清除列表框中所有选项。4列表框与组合框常用事件列表框与组合框常用事件（1）InteractivateChan
37、ge：列表框或组合框的值发生改变时引：列表框或组合框的值发生改变时引发。发。（2）Click：单击列表框或组合框时引发。：单击列表框或组合框时引发。5列表框和组合框生成器列表框和组合框生成器 使用生成器可方便地设置列表框和组合框的属性。使用生成器可方便地设置列表框和组合框的属性。【例例812】设计一个如图设计一个如图851所示的表单，用于选拔职工所示的表单，用于选拔职工参加演讲比赛。在组合框中显示职工简况表中所有职工的姓名，参加演讲比赛。在组合框中显示职工简况表中所有职工的姓名，单击单击“添加添加”按钮，将其添加到列表框中；单击按钮，将其添加到列表框中；单击“删除删除”按钮，按钮，则移去列表框
38、中被选中的职工姓名；单击则移去列表框中被选中的职工姓名；单击“全部清除全部清除”按钮，按钮，则清除列表框中所有的职工姓名。则清除列表框中所有的职工姓名。（1）设计界面）设计界面 创建表单，并在表单上添加两个标签创建表单，并在表单上添加两个标签Label1和和Label2，一个，一个组合框组合框Combo1，一个列表框，一个列表框List1，三个命令按钮，三个命令按钮Command1、Command2和和Command3。（2）设置对象属性）设置对象属性对 象属 性属 性 值说 明Form1Caption选拔职工Label1Caption请选择职工姓名Label2Caption被选中职工姓名列表
39、Combo1RowsourceTypeRowsource 6字段 zgjk.姓名字段 Command1Caption添加Command2Caption删除Command3Caption全部清除（3）编写事件代码）编写事件代码 1）命令按钮）命令按钮Command1的的Click事件的代码如下：事件的代码如下：If Empty(Thisform.Combo1.Value)&若组合框为空，则什么都不做若组合框为空，则什么都不做 ReturnEndifFor i=1 to Thisform.List1.Listcount&历遍列表框的所有选项历遍列表框的所有选项 If Thisform.Combo1
40、.Value=Thisform.List1.List(i)If Thisform.Combo1.Value=Thisform.List1.List(i)&若组合框中的选项已存若组合框中的选项已存在于列表框，则提示在于列表框，则提示 Messagebox(已存在该列表项已存在该列表项)Return EndifEndforThisform.List1.Additem(Thisform.Combo1.Value)&将组合框内容添加到列表框将组合框内容添加到列表框Thisform.Combo1.Value=&清空组合框清空组合框Thisform.Combo1.Setfocus&组合框获得焦点组合框获得
41、焦点2）命令按钮）命令按钮Command2的的Click事件的代码如下：事件的代码如下：If Thisform.List1.Listindex0&若列表框有选中项，则删除若列表框有选中项，则删除 Thisform.List1.Removeitem(Thisform.List1.Listindex)EndifThisform.List1.Listindex=Thisform.List1.Listcount&将末项设为选中项将末项设为选中项3）命令按钮）命令按钮Command3的的Click事件的代码如下：事件的代码如下：Thisform.List1.Clear&清空列表框清空列表框（4）以）以“
42、选拔职工选拔职工.SCX”为文件为文件名保存表单。名保存表单。（5）单击）单击“常用常用”工具栏中的工具栏中的“运行运行”按钮，表单运行结果如图按钮，表单运行结果如图851所示。所示。图图851例例L8-13运行的结果运行的结果【例例813】设计一个如图设计一个如图852所示表单，用于浏览职工销所示表单，用于浏览职工销售业绩。在组合框中选定职工号，即在列表框中显示该职工的售业绩。在组合框中选定职工号，即在列表框中显示该职工的销售业绩信息，包括：姓名、销售数量、商品编号、商品名称、销售业绩信息，包括：姓名、销售数量、商品编号、商品名称、规格型号和单价。规格型号和单价。（1）设计界面）设计界面创建
43、表单，并在表单上添加三个标签创建表单，并在表单上添加三个标签Label1、Label2和和Label3，一，一个组合框个组合框Combo1和一个列表框和一个列表框List1。（2）设置对象属性（）设置对象属性（如下页表所示）。如下页表所示）。对 象属 性属性值说 明Label1CaptionAutoSizeFontSizeFontBold职工销售业绩20.T.T.自动大小 字号加粗Label2Caption请选择职工号Label3Caption姓名 销售数量 商品编号 商品名称 规格型号 单价Combo1RowSourceTypeRowSource6字段Zgjk.职工号字段 List1RowS
44、ourceTypeColumnCount36SQL语句列数 （3）编写事件代码）编写事件代码组合框组合框Combo1的的InteractivateChange事件代码如下：事件代码如下：Thisform.List1.Rowsource=;Select Zgjk.姓名姓名,Xs.销售数量销售数量,Sp.商品编号商品编号,Sp.商品名称商品名称,Sp.规格型号规格型号,;Sp.单价单价 From Zgjk,Xs,Sp;Where Sp.商品编号商品编号=Xs.商品编号商品编号 AND;Zgjk.职工号职工号=Xs.职工号职工号 AND Zgjk.职工号职工号=This.Value;Into Cur
45、sor temptable“&从从3 3个表选择符合条件的记录放入临时表，个表选择符合条件的记录放入临时表，作为作为list1list1的数据源的数据源 Thisform.Refresh&刷新表单刷新表单（4 4）以）以“浏览销售业绩浏览销售业绩.SCX”.SCX”为文件名保存表单。为文件名保存表单。（5 5）单击）单击“常用常用”工具栏中的工具栏中的“运行运行”按钮，表单运行结果如按钮，表单运行结果如图图8 85252所示。所示。图图8 8 8 852525252例例例例8 8 8 813131313运行的结果运行的结果运行的结果运行的结果 命令按钮命令按钮(Commmand)常用于启动事件
46、常用于启动事件,以执行某项操作，如关闭表单、移动以执行某项操作，如关闭表单、移动记录指针等。记录指针等。1命令按钮常用属性（见下表）命令按钮常用属性（见下表）8.3.68.3.6命令按钮命令按钮属 性作 用Caption按钮标题，若含“字符”，则该字符成为热键Default为.T.时，按回车键执行该命令按钮Click事件（缺省值为.F.）Cancel为.T.时，按ESC键执行该命令按钮Click事件（缺省值为.F.）Enable指定是否响应用户引发的事件（.T.（缺省值）响应，.F.不响应）Visible指定对象可见或隐藏（缺省值为.T.）2命令按钮常用方法命令按钮常用方法（1）Click（2
47、）RightClick3应用举例应用举例【例例814】创建一个如图创建一个如图853所示的表单。若单击所示的表单。若单击“表单背表单背景色景色”命令按钮，则随机地改变表单背景的颜色；若单击命令按钮，则随机地改变表单背景的颜色；若单击“标标签前景色签前景色”命令按钮，则随机地改变标题的颜色。命令按钮，则随机地改变标题的颜色。操作步骤如下：操作步骤如下：（1）设计界面）设计界面1）打开）打开“表单设计器表单设计器”窗口，并创建一个空白表单。窗口，并创建一个空白表单。2）在表单上创建）在表单上创建1个标签控件个标签控件Label1与与2个命令按钮个命令按钮Command1和和Command2。（2）
48、设置对象属性）设置对象属性在在“属性属性”窗口中，分别设置各对象的属性值，见表窗口中，分别设置各对象的属性值，见表828对 象属 性 名属 性 值说明Form1Caption随机改变颜色Label1CaptionAutoSizeFontNameFontSizeBackStyle职工管理系统.T.华文新魏360自动大小字体字号透明Command1CaptionAutoSize表单背景色.T.自动大小Command2CaptionAutoSize标签前景色.T.自动大小表表8 82 28 8对象属性值的设置对象属性值的设置（3 3）编写事件代码）编写事件代码1 1）命令按钮）命令按钮Command
49、1Command1的的ClickClick事件代码如下事件代码如下：a=INT(RAND()*255)a=INT(RAND()*255)&随机函数随机函数RAND()RAND()产生不大于产生不大于1 1的随机数的随机数b=INT(RAND()*255)b=INT(RAND()*255)c=INT(RAND()*255)c=INT(RAND()*255)Thisform.BackColor=RGB(a,b,c)Thisform.BackColor=RGB(a,b,c)2）命令按钮）命令按钮Command2的的Click事件代码如下：事件代码如下：a=INT(RAND()*255)b=INT(R
50、AND()*255)c=INT(RAND()*255)Thisform.Label1.ForeColor=RGB(a,b,c)（4）保存表单）保存表单以以“随机改变颜色随机改变颜色.scx”为文件名，保存为文件名，保存表单表单。表表8 85 53 3随机改变颜色随机改变颜色（5）运行表单）运行表单单击单击“常用常用”工具栏中工具栏中的的“运行运行”按钮，表单运行按钮，表单运行结果如图结果如图853所示。所示。命令按钮组命令按钮组(CommmandGroup)是包含若干个命令按钮的容器。命是包含若干个命令按钮的容器。命令按钮组和组内各命令按钮都有各自的属性、方法和事件。令按钮组和组内各命令按钮都