《面向对象程序设计》PPT课件.ppt

本 章 内 容表单控件设计表单控件设计标签标签图像、线条、形状图像、线条、形状文本框文本框编辑框编辑框列表框与组合框列表框与组合框命令按钮命令按钮命令按钮组命令按钮组 第八章面向对象程序设计第八章面向对象程序设计 复选框复选框选项按钮组选项按钮组 微调控件微调控件计时器计时器容器容器表格表格页框页框表单集表单集表单控件设计表单控件设计 1控件分类控件分类 VFP“表单控件表单控件”工具栏上有工具栏上有21个基类控件，按功能可分成以下个基类控件，按功能可分成以下5类：类：（1）输出类：标签、图像、线条、形状。）输出类：标签、图像、线条、形状。（2）输入类：文本框、编辑框、微调控件、列表框、组合框。）输入类：文本框、编辑框、微调控件、列表框、组合框。（3）控制类：命令按钮、命令按钮组、复选框、选项按钮组、计时）控制类：命令按钮、命令按钮组、复选框、选项按钮组、计时器。器。（4）容器类：表格、页框、）容器类：表格、页框、Contain容器、表单集。容器、表单集。（5）连接类：）连接类：ActiveX控件、控件、ActiveX挷定控件、超级链接控件。挷定控件、超级链接控件。2各类控件的缺省名称各类控件的缺省名称 各类控件的缺省名称见表各类控件的缺省名称见表810。2各类控件的缺省名称各类控件的缺省名称各类控件的缺省名称见下表。各类控件的缺省名称见下表。控控 件件缺缺 省省 名名 称称控控 件件缺缺 省省 名名 称称表表单单FormForm微微调调控件控件SprinnerSprinner标签标签LabelLabel表格表格GridGrid命令按命令按钮钮CommandCommand图图像像ImageImage文本框文本框TextText计时计时器器TimerTimer编辑编辑框框EditEdit页页框框PageframePageframe命令按命令按钮组钮组CommandgroupCommandgroup容器容器ContainerContainer选项选项按按钮组钮组OptiongroupOptiongroup线线条条LineLine复复选选框框CkeckCkeck形状形状ShapeShape组组合框合框ComboComboActiveActive挷挷定控件定控件OleboundctrolOleboundctrol列表框列表框ListList超超级链级链接接HyperlinkHyperlink标签控件标签控件(Label)常用于显示说明信息和对象的标题。常用于显示说明信息和对象的标题。1标签常用属性标签常用属性标签的常用属性见下表：标签的常用属性见下表：标签标签属属 性性功功 能能Caption指定标签的标题，字符型数据指定标签的标题，字符型数据WordWrap为为.T.T.时，标签的内容自动换行，缺省值为时，标签的内容自动换行，缺省值为.F.F.【例例87】创建如图创建如图842所示的系统启动界面。所示的系统启动界面。（1）设计界面）设计界面 1）打开）打开“表单设计器表单设计器”窗口，并创建一个空白表单。窗口，并创建一个空白表单。2）在表单上创建）在表单上创建4个标签控件个标签控件Label1、Label2、Label3和和Label4。（2）设置对象属性）设置对象属性对对 象象属属 性性 名名属属 性性 值值Form1Form1CaptionCaptionAutoCenterAutoCenter职职工管理系工管理系统统.T.T.真真Label1Label1CaptionCaptionAutoSizeAutoSizeBackStyleBackStyleFontNameFontNameFontSizeFontSizeForeColorForeColor职职工管理系工管理系统统.T.T.0 0透明透明华文彩云华文彩云28280,0,00,0,0Label2Label2CaptionCaptionAutoSizeAutoSizeBackStyleBackStyleFontNameFontNameFontSizeFontSizeForeColorForeColor职职工管理系工管理系统统.T.T.真真0 0透明透明华文彩云华文彩云28280,0,00,0,0Label3Label3CaptionCaptionFontNameFontNameFontSizeFontSizeWordWrapWordWrap版版权权所有所有楷体楷体GB2112GB21121616.T.T.真真Label3Label3CaptionCaptionFontNameFontNameFontSizeFontSizeWordWrapWordWrap版版权权所有所有楷体楷体GB2112GB21121616.T.T.真真（3）调整控件）调整控件 1）选定标签）选定标签Label2，使用箭头键移动，使其与，使用箭头键移动，使其与Label1重叠，但不重叠，但不生重合，产生阴影效果。生重合，产生阴影效果。2）调整标签）调整标签Label3和和Label4的高度和宽度，使其成为竖排标签。的高度和宽度，使其成为竖排标签。（4）保存表单）保存表单 单击工具栏中的单击工具栏中的“保存保存”按钮按钮，在，在“另存为另存为”对话框中，选择表单保存对话框中，选择表单保存的位置，输入表单的名称的位置，输入表单的名称“系统启动界面系统启动界面.scx”，单击，单击“保存保存”按钮。按钮。（5）运行表单）运行表单单击单击“常用常用”工具栏中的工具栏中的“运行运行”按钮按钮，表单运行结果如图，表单运行结果如图842所示。所示。图图842系统启动界面系统启动界面 1图像（图像（Image）（1）图像控件的作用）图像控件的作用 图像控件用于在其中显示图像文件的图片。图像控件用于在其中显示图像文件的图片。（2）图像常用属性）图像常用属性 图象对象常用属性见下表：图象对象常用属性见下表：图像、线条、形状图像、线条、形状属属 性性作作 用用PicturePicture图图像文件名像文件名StrechStrech指定指定图图像填充方式：像填充方式：00剪裁（默剪裁（默认值认值），），11等比，等比，22变变比比 2线条（线条（Line）（1）线条控件的作用）线条控件的作用 线条控件用于在表单上创建直线或斜线。默认创建一条。线条控件用于在表单上创建直线或斜线。默认创建一条。（2）线条常用属性）线条常用属性 线条对象常用属性见下：线条对象常用属性见下：属属 性性作作 用用LineSlantLineSlant（默（默认值认值）斜斜线线方向从左上角到右下角方向从左上角到右下角/斜斜线线方向从右上角到左下角方向从右上角到左下角BorderColorBorderColor指定线条的颜色指定线条的颜色BorderStyleBorderStyle指定线条的样式（实线、虚线、点线、点划线指定线条的样式（实线、虚线、点线、点划线）BorderWidthBorderWidth指定线条的宽度指定线条的宽度HeightHeight00水平水平线线WidthWidth00垂直垂直线线 3形状（形状（Shape）（1）形状控件的作用）形状控件的作用 形状控件用于在表单上创建圆、椭圆、正方形、矩形、圆角正方形和形状控件用于在表单上创建圆、椭圆、正方形、矩形、圆角正方形和圆角矩形等几何形状。圆角矩形等几何形状。（2）形状设置）形状设置 形状对象常用属性见下表：形状对象常用属性见下表：属属 性性作作 用用BorderColor指定形状控件边框线的颜色指定形状控件边框线的颜色 BorderStyle指定形状控件边框线的样式（实线、虚线、点线、点划线指定形状控件边框线的样式（实线、虚线、点线、点划线）Border Width指定形状控件边框线的宽度指定形状控件边框线的宽度 Curvature0（若（若Width与与Height的值相等，则为正方形；若的值相等，则为正方形；若Width与与Height的的值不等，则为矩形）值不等，则为矩形）199（若（若Width与与Height的值相等，则小圆角正方形的值相等，则小圆角正方形大圆角正方大圆角正方形形圆；若圆；若Width与与Height的值不等，则小圆角矩形的值不等，则小圆角矩形大圆角矩形大圆角矩形椭圆）椭圆）SpecialEffect 指定形状控件特殊效果（指定形状控件特殊效果（1平面，平面，0三维）三维）4应用举例应用举例【例例88】设计一个如图设计一个如图843所示的应用程序界面。所示的应用程序界面。（1）设计界面）设计界面 在表单上创建一个标签控件在表单上创建一个标签控件Label1、一个图像控件、一个图像控件Image1、一个形状、一个形状控件控件Shape1和两条水平线和两条水平线Line1、Line2。（2）设置对象属性）设置对象属性 在在“属性属性”窗口中，分别设置各对象的属性值如下表：窗口中，分别设置各对象的属性值如下表：对对 象象属属 性性 名名属属 性性 值值Form1Form1PicturePicture故都的秋故都的秋.bmp.bmpLabel1Label1CaptionCaptionForeColorForeColorAutoSizeAutoSizeFontNameFontNameFontSizeFontSizeFontBoldFontBoldFontItalicFontItalic职工管理系统职工管理系统0,0,2550,0,255（蓝色）（蓝色）.T.T.（自动）（自动）隶书隶书2626.T.T.（粗体）（粗体）.T.T.（斜体）（斜体）Curvature对对 象象属属 性性 名名属属 性性 值值Image1Image1PicturePicturefox.bmpfox.bmpShape1Shape1CurvatureCurvatureBackStyleBackStyleBorderColorBorderColor9999（椭圆椭圆）0 0（透明）（透明）255,0,0255,0,0（红色）（红色）Line1Line1HeightHeightWidthWidthTopTop0 03363365555Line2Line2HeightHeightWidthWidthTopTop0 03363366060（3）编写事件代码）编写事件代码表单表单Form1的的Init事件事件“代码代码”如下：如下：&椭圆横向居中椭圆横向居中Thisform.Shape1.Top=Y&椭圆顶端在表单高度的椭圆顶端在表单高度的1/31/3处处&标签横向居中标签横向居中Thisform.Label1.Top=Y+(Thisform.Shape1.Height/2-Thisform.Label1.Height/2)&标签位于椭圆的垂直居中位置标签位于椭圆的垂直居中位置（4）保存表单）保存表单 单击工具栏中的单击工具栏中的“保存保存”按钮，在按钮，在“另存为另存为”对话框中，选择对话框中，选择表单保存的位置，输入表单的名称：表单保存的位置，输入表单的名称：L8-8，单击，单击“保存保存”按钮。按钮。图图8 84343应用程序封面应用程序封面 （5）执行表单）执行表单 单击单击“常用常用”工具栏中的工具栏中的“运行运行”按钮，表单运行效果如图按钮，表单运行效果如图843所示。所示。文本框文本框(Text)又称为输入框又称为输入框,用于用于输入数据输入数据和和显示数据显示数据,它可接受它可接受字符字符型、型、数值数值型、型、日期日期型和型和逻辑逻辑型的数据。使用文本框型的数据。使用文本框只能输入只能输入一段一段文本。也就是说文本。也就是说,按回车键即终止输入。按回车键即终止输入。1文本框常用属性文本框常用属性 文本框常用属性见表文本框常用属性见表817。Format属性取值见表属性取值见表818。InputMark属性取值见表属性取值见表819。文本框文本框属属 性性作作 用用ValueValue文本框存放的文本框存放的值值，类类型可以是型可以是C C、N N、D D、L L，分，分别对应别对应于（无）、于（无）、0 0、.F.F.。其中（无）表示。其中（无）表示C C型数据，也是默型数据，也是默认值认值。设计时设计时可可对对此属性此属性赋赋初初值值，初，初值值的的类类型决定文本框数据的型决定文本框数据的类类型型ControlSourceControlSource指定与文本框指定与文本框绑绑定的数据源。数据源可以是字段定的数据源。数据源可以是字段变变量或内存量或内存变变量量FormatFormat指定指定ValueValue属性属性输输入入时时的的约约束或束或显显示方式（参数的意示方式（参数的意义见义见表表8 81818）InputMaskInputMask控制控制输输入数据格式和入数据格式和显显示方式（参数的意示方式（参数的意义见义见表表8 81919）PasswordCharPasswordChar指定文本框内指定文本框内显显示示输输入的占位符入的占位符AlignmentAlignment指定文本框中数据指定文本框中数据对齐对齐的方式：的方式：00左左对齐对齐，11右右对齐对齐，22居中（默居中（默认值认值）SelLengthSelLength文本框中被文本框中被选择选择的文本的字数的文本的字数SelTextSelText文本框中被文本框中被选择选择的文本内容的文本内容表表8 81717文本框对象常用属性文本框对象常用属性属性属性值值作作 用用A A只允只允许许字母字符（无空格和字母字符（无空格和标标点符号）点符号）D D使用当前使用当前SET DATESET DATE格式格式设设置的日期格式置的日期格式E E按按BRITISHBRITISH日期格式日期格式编辑编辑日期型数据日期型数据K K当光当光标标移到文本框上移到文本框上时时，框中数据就被，框中数据就被选选定定L L在文本框中在文本框中显显示数示数值值型数据的前型数据的前导导0 0（以取代空格），只使（以取代空格），只使用于数用于数值值型数据型数据R R显显示文本框的格式屏蔽，屏蔽不放入控制源中，只使用于示文本框的格式屏蔽，屏蔽不放入控制源中，只使用于字符型或数字符型或数值值型数据型数据T T截去截去输输入字段中前入字段中前导导空格和尾随空格空格和尾随空格!小写字母小写字母转换转换成大写字母，只使用于字符型数据成大写字母，只使用于字符型数据 用科学表示法用科学表示法显显示数示数值值型数据，只使用于数型数据，只使用于数值值型数据型数据$显显示示货币货币符，只使用于数符，只使用于数值值型和型和货币货币型数据型数据表表8 81818FormatFormat属性取值属性取值属属 性性作作 用用X X允允许输许输入任何字符入任何字符A A只允只允许输许输入字母入字母9 9允允许输许输入数字和正入数字和正负负号号#允允许输许输入数字、正入数字、正负负号和空格号和空格$显显示当前示当前货币货币符号（由符号（由SET CURRENCYSET CURRENCY命令指定）命令指定）*在数字左在数字左边显边显示星号示星号*.指示小数点位置指示小数点位置,分隔小数点左分隔小数点左边边的数字串的数字串表表8 81919InputMaskInputMask属性取值属性取值2文本框常用方法文本框常用方法 SetFocus：文本框获得焦点。：文本框获得焦点。3文本框常用事件文本框常用事件 （1）Valid：在失去焦点之前发生。：在失去焦点之前发生。（2）KeyPress：按下并释放一个键盘键时发生。：按下并释放一个键盘键时发生。（3）LostFocus：按下并释放一个键盘键时发生。：按下并释放一个键盘键时发生。（4）MouseDown：在该对象按下鼠标时发生。：在该对象按下鼠标时发生。（5）MouseUp：在该对象释放鼠标时发生。：在该对象释放鼠标时发生。（6）InteractivateChange：文本框的值时发生：文本框的值时发生。【例例89】设计如图设计如图844所示的表单，其功能是：从键盘输所示的表单，其功能是：从键盘输入职工的职工号，即显示该职工的姓名和基本工资。入职工的职工号，即显示该职工的姓名和基本工资。（1）设计界面）设计界面 在表单上创建两个标签在表单上创建两个标签Label1和和Label2，一个文本框，一个文本框Text1和和一个命令按钮一个命令按钮Command1。（2）设置数据环境）设置数据环境 1）右击表单，在弹出的快捷菜单中选择）右击表单，在弹出的快捷菜单中选择“数据环境数据环境”命令。命令。2）在弹出的）在弹出的“添加表或视图添加表或视图”对话框中，选择表，单击对话框中，选择表，单击“添加添加”按钮，将其添加到按钮，将其添加到“数据环境设计器数据环境设计器”窗口中。窗口中。（3）创建字段映像）创建字段映像 用鼠标将用鼠标将“数据环境设计器数据环境设计器”窗口中表的窗口中表的“姓名姓名”和和“基本工基本工资资”字段拖放到表单上，从而在表单上产生两个标签控件（字段拖放到表单上，从而在表单上产生两个标签控件（lbl姓姓名，名，lbl基本工资）和两个文本框控件（基本工资）和两个文本框控件（txt姓名，姓名，txt基本工资）。基本工资）。对对 象象属属 性性 名名属属 性性 值值Label1Caption职工号职工号Label2CaptionAutoSize提示：提示：.T.Text1InputMark9999Txt姓名姓名Readonly.T.Txt基本工资基本工资Readonly.T.Command1Caption查询查询（4）设置对象属性）设置对象属性（5）编写事件代码）编写事件代码 1）表单）表单Form1的的Init事件代码如下：事件代码如下：*故意将记录指针移出界，使故意将记录指针移出界，使“txttxt姓名姓名”与与“txttxt基本工资基本工资”文本框无内容文本框无内容 Go Bottom Skip 1）表单）表单Form1的的Init事件代码如下：事件代码如下：*故意将记录指针移出界，使故意将记录指针移出界，使“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=提示：未找到相关记录！提示：未找到相关记录！Endif&刷新表单刷新表单Else Thisform.Label2.Caption=提示：请在文本框中输入查找内容！提示：请在文本框中输入查找内容！Endif图图8 84444查询职工的姓名和专业查询职工的姓名和专业 （6）保存表单）保存表单 以以“L8-9.scx”为名称保存表单。为名称保存表单。（7）执行表单）执行表单 单击单击“常用常用”工具栏中的工具栏中的“运行运行”按钮，表单运行效果如图按钮，表单运行效果如图844所示所示。编辑框编辑框(Edit)实际上是一个字处理器，可以输入和编辑字符型数实际上是一个字处理器，可以输入和编辑字符型数据，据，常作为备注型字段数据的绑定控件常作为备注型字段数据的绑定控件。编辑框编辑框只能输入字符型的数据，且可以输入多段文本。只能输入字符型的数据，且可以输入多段文本。1编辑框常用属性编辑框常用属性 编辑框常用属性见下页表编辑框常用属性见下页表821。2编辑框常用方法和事件编辑框常用方法和事件 编辑框常用方法和事件与文本框相似。编辑框常用方法和事件与文本框相似。编辑框编辑框属属 性性作作 用用ControlSourceControlSource指定指定编辑编辑框的数据源。通常与框的数据源。通常与备备注型字段注型字段绑绑定定EnabledEnabled指定指定编辑编辑框是否有效（框是否有效（.T.T.有效有效 .F.F.无效）无效）HideSelectionHideSelection.T.T.（缺省（缺省值值）失去焦点失去焦点时时，编辑编辑框中框中选选定的文本不定的文本不显显示示为为选选定状定状态态；.F.F.失去焦点失去焦点时时，编辑编辑框中框中选选定的文本仍定的文本仍显显示示为选为选定状定状态态ReadOnlyReadOnly指定指定编辑编辑框中内容的只框中内容的只读读属性（属性（.T.T.只只读读，.F.F.缺省缺省值值可可写）写）ScrollBarsScrollBars指定指定编辑编辑框是否有框是否有滚动滚动条（条（00无，无，2 2缺省缺省值值有）有）SelTextSelText编辑编辑框中被框中被选择选择的文本内容的文本内容SelStartSelStart编辑编辑框中被框中被选择选择的文本的起始位置的文本的起始位置SelLengthSelLength编辑编辑框中被框中被选择选择的文本的字数的文本的字数ValueValue指定指定编辑编辑框中的框中的值值，并在，并在编辑编辑框中框中显显示（只能是示（只能是C C类类型数据）型数据）表表8 82121编辑框的常用属性编辑框的常用属性 【例例810】将文本框中选定的内容复制到编辑框中。具体要求将文本框中选定的内容复制到编辑框中。具体要求如下：如下：1）文本框中选定内容后，）文本框中选定内容后，“复制复制”命令按钮被激活；命令按钮被激活；2）按下）按下“复制复制”命令按钮，实现文本框选定内容复制到剪贴板；命令按钮，实现文本框选定内容复制到剪贴板；3）按下）按下“粘贴粘贴”命令按钮，实现剪贴板内容粘贴到编辑框。命令按钮，实现剪贴板内容粘贴到编辑框。（1）设计界面）设计界面 新建一个表单，在表单上添加新建一个表单，在表单上添加2个标签个标签Label1和和Label2，1个文个文本辑框本辑框Text1、1个编辑框个编辑框Edit1和和2个命令按钮个命令按钮Command1和和Command2。（2）设置对象属性）设置对象属性 在在“属性属性”窗口中，分别设置各对象的属性值，见表窗口中，分别设置各对象的属性值，见表822。对对 象象属属 性性属属 性性 值值Form1Caption剪贴板剪贴板Label1Caption文本框文本框Label2Caption编辑框编辑框Command1CaptionEnabled复制复制.F.Command2CaptionEnabled粘贴粘贴.F.表表822对象属性值的设置对象属性值的设置（3）编写事件代码）编写事件代码1）表单）表单Form1的的Init事件的代码如下：事件的代码如下：Public X&内存变量内存变量X X用于存放剪贴的内容用于存放剪贴的内容Thisform.Text1.SetFocus&文本框获得焦点文本框获得焦点X=&内存变量内存变量X X的初值为空串的初值为空串2）文本框）文本框Text1的的MouseUp事件的代码如下：事件的代码如下：LPARAMETERS nButton,nShift,nXCoord,nYCoord*判断文本框中是否有选定内容，有则激活判断文本框中是否有选定内容，有则激活Command1Command1If )0&若文本框中有被选定的内容若文本框中有被选定的内容 Thisform.Command1.Enabled=.T.&“&“复制复制”命令按钮有效命令按钮有效Endif 3）命令按钮）命令按钮Command1的的Click事件的代码如下：事件的代码如下：X=Thisform.Text1.selText&将选定内容复制到剪贴板将选定内容复制到剪贴板=.F.&“&“复制复制”命令按钮失效命令按钮失效 Thisform.Command2.Enabled=.T.&“&“粘贴粘贴”命令按钮有效命令按钮有效图图845例例810运行的结果运行的结果4）命令按钮）命令按钮Command2的的Click事件的代码如下：事件的代码如下：Thisform.Edit1.SelText=X&将剪贴板内容粘贴到编辑框将剪贴板内容粘贴到编辑框 Thisform.Edit1.SetFocus&编辑框获得焦点编辑框获得焦点（4）以）以“L8-10.SCX”为文件为文件名保存表单。名保存表单。（5）单击）单击“常用常用”工具栏中的工具栏中的“运行运行”按钮，表单运行结果按钮，表单运行结果如图如图845所示。所示。列表框列表框(List)与组合框与组合框(Combo)都是提供选择一个或多个输入都是提供选择一个或多个输入项的列表，二者之间又存在如下区别：项的列表，二者之间又存在如下区别：（1）列表框显示全部选项列表；组合框只显示一条选项，单击）列表框显示全部选项列表；组合框只显示一条选项，单击右端下拉按钮，才显示全部选项列表。右端下拉按钮，才显示全部选项列表。（2）组合框又分为下拉组合框和下拉列表框，前者允许输入数）组合框又分为下拉组合框和下拉列表框，前者允许输入数据，后者与列表框一样仅有选取功能据，后者与列表框一样仅有选取功能。1列表框与组合框常用属性列表框与组合框常用属性 列表框与组合框的常用属性见表列表框与组合框的常用属性见表824。列表框与组合框列表框与组合框 属属 性性作作 用用ColumnCountColumnCount指定列表框或指定列表框或组组合框中的列数合框中的列数ControlSourceControlSource指定存指定存储储列表框或列表框或组组合框合框选选定定项项的数据的数据绑绑定字段定字段DisplayValueDisplayValue指定列表框或指定列表框或组组合框中所合框中所选选定定项项第一列的内容第一列的内容ListCountListCount返回列表框或返回列表框或组组合框中列表合框中列表项项的个数的个数ListIndexListIndex返回列表框或返回列表框或组组合框中合框中选选定定项项的序号的序号List(i,j)List(i,j)返回列表框或返回列表框或组组合框第合框第i i行第行第j j列的列的值值MultiSelectMultiSelect指定是否允指定是否允许许多重多重选择选择(0(0或或.F.F.缺省缺省值值不允不允许许，1 1或或.T.T.允允许许）RowSourceTypeRowSourceType指定列表框或指定列表框或组组合框数据源的合框数据源的类类型（共型（共9 9类类，见见表表8 82424）RowSourceRowSource指定列表框或指定列表框或组组合框的数据源合框的数据源Selected(i)Selected(i)若若i i行被行被选选中，中，则则返回返回.T.T.；否；否则则返回返回.F.F.StyleStyle指定指定组组合框的合框的类类型：型：00下拉下拉组组合框，合框，22下拉列表框下拉列表框ValueValue返回列表框或返回列表框或组组合框中的合框中的选选定定项项（若（若为为数数值值型，型，则则返回被返回被选选定定项项的序号；的序号；若若为为字符型，字符型，则则返回被返回被选选定定项项的本身内容。的本身内容。对对于多列列表框，于多列列表框，则则返回由返回由BoundCountBoundCount属性指定的列的数据属性指定的列的数据项项）表表8 82424列表框与组合框的常用属性列表框与组合框的常用属性RowSourceTypeRowSource在控件中在控件中显显示示0无（默认值）无（默认值）在程序中用在程序中用AddItem()添加条目添加条目用用RemoveItem()移去条目移去条目1值值RowSource=one,two,three,four one,two,three,fou2别名别名RowSource=表的名称表的名称表的字段的内容表的字段的内容3SQL语句语句RowSource=select *FROM zg INTO CURSOR tempSQL语句执行的结果语句执行的结果（记录）（记录）4查询查询RowSource=查询文件名查询文件名.qpr查询文件执行的结果查询文件执行的结果（记录）（记录）5数组数组RowSource=数组名数组名数组元素的值数组元素的值6字段字段RowSource=字段（变量）名字段（变量）名字段（变量）的值字段（变量）的值7文件文件例如：例如：RowSource=*.dbf指定的文件名指定的文件名8结构结构RowSource=表的名称表的名称表的全部字段名表的全部字段名9弹出式菜单弹出式菜单RowSource=弹出式菜单名弹出式菜单名菜单选项菜单选项2RowSourceType与与RowSource属性属性（见下表）（见下表）3列表框与组合框常用方法列表框与组合框常用方法（1）AddItem：当组合框或列表框的：当组合框或列表框的RowSourceType属性值属性值为为0时，可使用此方法在列表中添加一条新选项。时，可使用此方法在列表中添加一条新选项。（2）RemoveItem：当组合框或列表框的：当组合框或列表框的RowSourceType属性值为属性值为0时，可使用此方法删除列表中一条选项。时，可使用此方法删除列表中一条选项。（3）Clear：清除列表框中所有选项。：清除列表框中所有选项。4列表框与组合框常用事件列表框与组合框常用事件（1）InteractivateChange：列表框或组合框的值发生改变时引：列表框或组合框的值发生改变时引发。发。（2）Click：单击列表框或组合框时引发。：单击列表框或组合框时引发。5列表框和组合框生成器列表框和组合框生成器 使用生成器可方便地设置列表框和组合框的属性。使用生成器可方便地设置列表框和组合框的属性。【例例811】设计如图设计如图853所示的表单，用于查询职工的工资信息。所示的表单，用于查询职工的工资信息。双击列表框中某职工的职工号，该职工的职工号、姓名及工资信息显双击列表框中某职工的职工号，该职工的职工号、姓名及工资信息显示于文本框中。示于文本框中。（1）设计界面）设计界面 创建表单，并在表单上添加两个标签创建表单，并在表单上添加两个标签Label1、Label2，一个列表框，一个列表框List1和一个命令按钮和一个命令按钮Command1。（2）设置数据环境）设置数据环境 1）鼠标右击表单）鼠标右击表单,在弹出的快捷菜单中选择在弹出的快捷菜单中选择“数据环境数据环境”命令。命令。2）在弹出的）在弹出的“添加表或视图添加表或视图”对话框中对话框中,分别选择表和分别选择表和Gz表表,单击单击“添加添加”按钮，将其添加到按钮，将其添加到“数据环境设计器数据环境设计器”窗口中。窗口中。（3）创建字段映像）创建字段映像 用鼠标将用鼠标将“数据环境设计器数据环境设计器”窗口中表的窗口中表的“职工号职工号”、“姓名姓名”和和“基本工资基本工资”字段拖放到表单上，将表的字段拖放到表单上，将表的“津贴津贴”、“奖金奖金”、“住住房公积金房公积金”、“工会费工会费”和和“实发工资实发工资”字段拖放到表单上，从而在字段拖放到表单上，从而在表单上产生相应的控件。表单上产生相应的控件。（4）设置对象属性）设置对象属性对对 象象属属 性性 名名属属 性性 值值Label1CaptionFontSizeFontBold（加粗）（加粗）工资查询工资查询20.T.Label2Caption请选择职工号：请选择职工号：List1RowsourceTypeRowsource6字段字段zgjk.职工号职工号Command1Caption退出退出（5）编写事件代码）编写事件代码 1）列表框）列表框List1的的InteractiveChange事件事件代码如下：代码如下：&刷新表单刷新表单 2）命令按钮）命令按钮Command1的的Click事件代码如下：事件代码如下：&释放表单释放表单图图853例例812运行的结果运行的结果 （6）保存表单）保存表单 以为名称保存表单。以为名称保存表单。（7）执行表单）执行表单 单击单击“常用常用”工具栏中的工具栏中的“运行运行”按钮，表单运行结果如图按钮，表单运行结果如图853所示。所示。【例例813】设计一个如图设计一个如图854所示的表单，用于选拔职工所示的表单，用于选拔职工参加演讲比赛。在组合框中显示职工简况表中所有职工的姓名，参加演讲比赛。在组合框中显示职工简况表中所有职工的姓名，单击单击“添加添加”按钮，将其添加到列表框中；单击按钮，将其添加到列表框中；单击“删除删除”按钮，按钮，则移去列表框中被选中的职工姓名；单击则移去列表框中被选中的职工姓名；单击“全部清除全部清除”按钮，按钮，则清除列表框中所有的职工姓名。则清除列表框中所有的职工姓名。（1）设计界面）设计界面 创建表单，并在表单上添加两个标签创建表单，并在表单上添加两个标签Label1和和Label2，一个，一个组合框组合框Combo1，一个列表框，一个列表框List1，三个命令按钮，三个命令按钮Command1、Command2和和Command3。（2）设置对象属性）设置对象属性对对 象象属属 性性属属 性性 值值Form1Caption选拔职工选拔职工Label1Caption请选择职工姓名请选择职工姓名Label2Caption被选中职工姓名列表被选中职工姓名列表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.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&组合框获得焦点组合框获得焦点2）命令按钮）命令按钮Command2的的Click事件的代码如下：事件的代码如下：If Thisform.List1.Listindex0&若列表框有选中项，则删除若列表框有选中项，则删除 Thisform.List1.Removeitem(Thisform.List1.Listindex)Endif&将末项设为选中项将末项设为选中项3）命令按钮）命令按钮Command3的的Click事件的代码如下：事件的代码如下：&清空列表框清空列表框（4）以）以“L8-12.SCX”为文件名保为文件名保存表单。存表单。（5）单击）单击“常用常用”工具栏中的工具栏中的“运行运行”按钮，表单运行结果如图按钮，表单运行结果如图854所示。所示。图图854例例L8-13运行的结果运行的结果【例例813】设计一个如图设计一个如图855所示表单，用于浏览职工销售业所示表单，用于浏览职工销售业绩。在组合框中选定职工号，即在列表框中显示该职工的销售业绩。在组合框中选定职工号，即在列表框中显示该职工的销售业绩信息，包括：姓名、销售数量、商品编号、商品名称、规格型绩信息，包括：姓名、销售数量、商品编号、商品名称、规格