《使用表单控》PPT课件

Page1,第七章使用表单控件,7.1命令按钮7.2标签7.3文本框与编辑框7.4列表框与组合框7.5微调按钮7.6复选框与选项按钮组7.7命令按钮组,7.8表格7.9页框与页面7.10容器7.11计时器7.12线条、形状、图像7.13ActiveX绑定控件7.14表单高级设计,Page2,第七章使用表单控件,控件是面向对象程序设计的基本操作单元。在VisualFoxPro中，控件用在表单中起到获取数据、显示数据、执行命令和美化界面的作用，因此也称作表单控件。本章介绍了各种表单控件的常用属性、事件及方法，并以实例形式详细介绍了这些控件在表单设计中的具体应用。,Page3,命令按钮：主要用于启动某个事件代码以完成指定的功能。如发出控制命令、释放表单等。命令按钮最常用事件Click（单击）事件：当用户单击某一命令按钮或显式调用命令按钮的Click事件时，Click事件被触发，其相应的事件代码被执行，从而实现该命令按钮的功能。,7.1命令按钮,Page4,7.1命令按钮,命令按钮的常用属性,Page5,7.1命令按钮,命令按钮常用属性使用说明1）Caption属性指定命令按钮的文字标题。可以在Caption属性值中用“字母”将该字母设置为按钮访问键（也称热键）2）命令按钮的标题可以既有文字又有图像，也可以只有图像，图像文件名由Picture属性指定。4）Default属性值为.T.时，与命令按钮单击操作等价的是Enter键或Ctrl+Enter5）仅当表单的ShowTips属性值为.T.时，命令按钮的ToolTipText属性设置才有效。,Page6,7.1命令按钮,例7.1设计表单计算100到999之间的所有水仙花数，设计界面和运行界面如下:,说明：表单运行时，单击“计算”按钮，在表单上显示100到999之间所有水仙花数,Page7,7.1命令按钮,操作步骤：1）创建表单（Form1），在表单中放置两个命令按钮（Command1和Command2）。2）选择“格式”菜单下的命令，设置两个命令按钮大小一致且左对齐。3）设置对象的属性值：,Page8,7.1命令按钮,4）代码编写：Command1的Click事件代码：Forn=100To999a=int(n/100)并设置各控件的Caption属性值。Text1的Format属性值为:T，Text1的Inputmast属性值为：9999999。2)在表单的数据环境中添加表Student。,Page24,7.3文本框与编辑框,3)Command1的Click事件代码：LocateFor姓名=Thisform.Text1.Value;And学号=Thisform.Text2.ValueIfFound()Wait欢迎使用WindowsElseWait姓名或学号不对，请重新输入！WindowsEndif4)保存表单并运行。,Page25,7.3文本框与编辑框,文本框常用事件,Page26,例7.4创建表单设计界面如下图所示，要求：在“原串”后的文本框中输入字符。当按下Esc键时，清空该文本框中内容；当按下Enter键时，把“原串”中的内容复制到“目标串”中；按下Shift+A组合键时关闭表单。,操作步骤:1)创建表单,并按图示添加控件和各控件的Caption属性值。,7.3文本框与编辑框,Page27,2）编写Text1的KeyPress事件代码：LPARAMETERSnKeyCode,nShiftAltCtrlSelectStudent.学号,姓名,课程号,成绩;Fromstudent;InnerJoingrade;OnStudent.学号=Grade.学号;WhereStudent.专业=ch;OrderByGrade.学号;IntoCursortempSelecttempx=Reccount()ThisForm.Label7.Caption=Str(x,3)ThisForm.Refresh,7.4列表框与组合框,Page57,7.5微调控件,微调控件（Spinner）微调控件是一种输入控件，主要是用来接受给定范围内的数值输入。它可以接收用户键盘输入的数值，也可以使用微调控件中的向上、向下箭头对微调控件中的值进行增减。,Page58,7.5微调控件,微调控件常用属性,Page59,7.5微调控件,说明：1）微调控件默认显示的是整数。若要按指定格式输入，那么可以使用输入掩码来限定。例如，要使用键盘在微调控件中输入12.34，那么InputMask属性值设置为：99.99。2）如果要求单击向上、向下箭头时增减幅度含有小数位，如Increment属性值为：1.50。那么，Value属性值也要相应设置为：0.00（当Value属性值为0时，只显示整数）。,Page60,7.5微调控件,微调控件常用事件,Page61,7.5微调控件,例7.8利用文本框和微调控件调整日期，设计界面和运行界面如下图。,运行表单时单击微调上、下箭头，实现文本框中的日期增1、减1。,Page62,7.5微调控件,代码编写Spinner1的UpClick事件代码：ThisForm.Text1.Value=ThisForm.Text1.Value+1Spinner1的DownClick事件代码：ThisForm.Text1.Value=ThisForm.Text1.Value-1Command1的Click事件代码：ThisForm.Release,控件的属性设置,Page63,7.6复选框与选项按钮组,复选框控件（CheckBox）复选框是在两个状态间进行选择的控件，即只有选中与不选中，常用于表示一个逻辑型表达式或字段的值。,Page64,7.6复选框与选项按钮组,说明：1）复选框通常与逻辑型变量或逻辑型字段进行数据绑定。2）Value属性的取值：复选框未选中时，值为0或.F.复选框被选中时，值为1或.T.若设置为2或.Null.时，复选框为灰色表示不确定Value的值是数值型还是逻辑型的，取决于ControlSource的类型，若ControlSource为(无)，则取决于Value初值的类型,Page65,7.6复选框与选项按钮组,例7.9设计一个选课表单，设计界面如下图：,要求：1）在组合框（Combo1）中选择学号，在5个复选框选中相应的课程。2）单击“确定”按钮，将把学生选课的信息保存到数据表：选课.dbf。3）单击“退出”按钮，将关闭所有打开的数据表并关闭表单。,Page66,操作步骤：1）按题意创建数据表：选课.dbf：学号（C,7）和课程号（C,5）。2）创建表单，按图示放置各个控件，并设置各控件的Caption属性值。3）把Student表、Course表和选课表等三个数据表依次表单的数据环境中。4）组合框的属性值：,7.6复选框与选项按钮组,Page67,代码编写：Command1的Click事件代码：Fori=1to5s=Str(i,1)IfThisForm.Check课程号withCourse.课程号EndifEndFor,7.6复选框与选项按钮组,Page68,7.6复选框与选项按钮组,选项按钮组（OptionGroup）选项按钮组是一种容器类控件，其中包容了若干个选项按钮。其作用：在同一个选项按钮组中，用户能且只能选中其中的某一个按钮，在选中某一个按钮的同时释放先前的选择。,Page69,7.6复选框与选项按钮组,选项按钮组常用属性,注意：选项按钮组是一个容器类控件，该容器只能包容选项按钮控件。,Page70,7.6复选框与选项按钮组,说明：1）Value属性值有数值型和字符型两种，取决于Value属性的初值类型。若初值为数值型（默认值为1），那么，Value属性值为当前被选中按钮的序号，0表示不选择任何按钮。若初值为字符型（例如一个空串），那么，Value属性值为当前被选中按钮的Caption属性值。2）ControlSource属性指定的数据源用来存放选项按钮组的当前值即Value属性值。选项按钮组可以与一个内存变量或字段变量实现数据绑定。,Page71,7.6复选框与选项按钮组,说明：1）选项按钮组控件没有Caption属性，选项按钮组中的选项按钮才具有Caption属性。2）选项按钮的Value属性值只有数值型（1和0）与逻辑型（.T.和.F.）两种，用于表示选项按钮是否被选中。,选项按钮的常用属性,Page72,7.6复选框与选项按钮组,说明：1）选项按钮组和其所包容的选项按钮都有Click事件。单击选项按钮组中的某选项按钮时，若该选项按钮没有对Click事件编写代码，它触发的将是选项按钮组的Click事件。2）若单击选项按钮组的空白处，选项按钮组的Click事件被触发。,选项按钮组常用事件,Page73,7.6复选框与选项按钮组,例7.10设计表单为数据表添加新记录，设计界面:,运行时单击“添加剂新记录”按钮时即可添加新记录,Page74,操作步骤：首先，打开数据表Student.dbf，并利用表设计器把Student表的“学号”字段的默认值设置为：”0000000”，随后关闭Student表。1）创建表单，把Student表添加到数据环境设计器。2）把数据环境设计器中Student表里的字段：学号、姓名、出生日期、入学总分、定向否和简历依次拖到表单的相应位置。3）在表单中添加2个标签控件（lbl性别和lbl专业）、1个选项按钮组（opt性别）和3个命令按钮（cmdApp、cmdCancel和cmdExit）。按图示设置各控件的标题。4）再在表单中添加下拉列表框（cmb专业）。,7.6复选框与选项按钮组,Page75,设置相关控件属性值,7.6复选框与选项按钮组,Page76,代码编写Form1的Init事件代码：ThisForm.cmb专业.RowSource=社会学,汉语言文学,工商管理,经济学,英语,日语,计算机应用,软件,系统工程cmdApp的Click事件代码：AppendBlankThisForm.RefreshcmdCancel的Click事件代码：GoBottomDeletePack,7.6复选框与选项按钮组,Page77,7.7命令按钮组,命令按钮组（CommandGroup）命令按钮组是包含若干个命令按钮的容器类控件，是Windows中最常用的控件之一。当表单中需要多个命令按钮时，将一系列功能类似的命令按钮装载在一个容器命令按钮组，以便对命令按钮进行统一的管理和使用。与选项按钮组控件类似，命令按钮组与其所包容的命令按钮都有各自独立的属性、方法和事件。命令按钮组最常用事件是Click事件。,Page78,7.7命令按钮组,说明：1）Value属性的类型、取值与选项按钮组的Value属性完全相同。2）Buttons属性代表的数组在创建命令按钮组时由系统自动创建，该数组保存命令按钮组中各命令按钮的索引号。,命令按钮组常用属性,Page79,7.7命令按钮组,例7.11设计表单实现对Student表记录内容的浏览和修改要求实现：1）每页显示一条记录内容。2）前4个命令按钮的功能是实现记录指针的移动，并要求：当记录指针指向首记录或文件首时，第1、2个命令按钮变为不可用，否则可用。当记录指针指向末记录或文件尾时，第3、4个命令按钮变为不可用，否则可用。鼠标指向命令按钮时，它们显示的提示信息分别为：“首记录”、“前一记录”、“下一记录”和“末记录”。3）最后一个命令按钮用于确认退出，并关闭表单。,Page80,7.7命令按钮组,设计界面,Page81,7.7命令按钮组,操作步骤：1）创建表单，打开数据环境设计器，并添加STUDENT表。2）在数据环境设计器中，依次把STUDENT表的各相关字段拖动到表单设计器中，表单设计器将自动创建相应的控件。3）在表单中添加一个命令按钮组内含5个命令按钮，并把它们的Name属性值分别设置为：CmdTop、CmdPre、CmdNxt、CmdBtm和CmdExit。然后按下表设置5个命令按钮和表单的属性。,Page82,7.7命令按钮组,Page83,7.7命令按钮组,续前表,Page84,代码编写：CmdTop的Click事件代码：GoTopWithThisForm.CommandGroup1.CmdTop.Enabled=.F.CmdPre.Enabled=.F.CmdNxt.Enabled=.T.CmdBtm.Enabled=.T.EndWithThisForm.Refresh,7.7命令按钮组,Page85,CmdPre的Click事件代码：WithThisForm.CommandGroup1.CmdNxt.Enabled=.T.CmdBtm.Enabled=.T.IfBof()MessageBox(已到文件首,48,移动记录).CmdTop.Enabled=.F.CmdPre.Enabled=.F.ElseSkip-1EndIfEndWithThisForm.Refresh,7.7命令按钮组,Page86,CmdNxt的Click事件代码和CmdBtm的Click事件代码与前面二个类似。CmdExit的Click事件代码：IfMessageBox(确定退出!,4+32,确认框)=6ThisForm.ReleaseEndif,7.7命令按钮组,Page87,7.8表格,表格（Grid）是一个容器类控件，其外观类似数据表的Browse窗口，按照行和列的二维表格形式显示数据，可以同时操作和显示多行数据。表格控件的组成一个表格控件（Grid）是由若干个列对象（Column）组成；每个列对象是由标头对象（Header）和若干个文本框、编辑框、列表框、组合框、复选框、微调按钮等控件组成。表格对象、列对象、标头对象和列对象所包容的控件都有自己的属性、方法和事件。,Page88,表格常用属性表一,7.8表格,Page89,表格常用属性表二,7.8表格,Page90,7.8表格,说明1）RecordSourceType属性与RecordSource属性关系,Page91,7.8表格,当RecordSourceType属性值为别名时，相应的表要添加到表单的数据环境中。当表格控件要求数据来源于多个表时，RecordSourceType属性值要设置为3或4，相应地RecordSource的属性值为查询文件名或SQL语句。2）ColumnCount属性用于设定表格控件中所含列对象的数目。其默认值为-1，表示用足够的列来显示数据源中的所有字段。,Page92,7.8表格,列的常用属性,Page93,7.8表格,为列添加新的控件操作步骤如下：右击表格对象，选择“编辑”。将控件工具栏中的控件拖到指定列（此时，新添加的控件并没有显示）。在“属性”窗口，把CurrentControl属性值设置为指定控件（指定控件显示为图标）。,Page94,7.8表格,标头的常用属性,Page95,7.8表格,表单设计初始界面（左）利用表格生成器设计后界面（中）运行界面（右）,例7.12设计表单，实现按学号查询学生的各科成绩。,Page96,7.8表格,例7.13设计表单,利用Student表查询各专业学生信息，要求：当在下拉列表框中选择指定专业后，单击“确定”按钮，在表格中显示该专业的学生相关信息。当单击“退出”按钮，将关闭所有的表文件并退出表单。操作步骤：1）创建表单，按图示添加1个标签控件（Label1）、1个下拉列表框（Combo1）、1个表格对象（Grid1）和2个命令按钮（command1和command2）。,Page97,7.8表格,运行界面：,Page98,2）设置各个控件的属性,7.8表格,Page99,代码编写:Command1的Click事件代码：zy=alltrim(ThisFbo1.value)Thisform.Grid1.RecordSource=;Select学号,姓名,出生日期,定向否,入学总分;FromStudent;Where专业=zy;IntoCursorlsbCommand2的Click事件代码：ClosedbfallThisForm.Release,7.8表格,Page100,7.9页框与页面,页框（PageFrame）页框是包容页面的容器类对象，一个页框可以包容若干个页面对象，每个页面在页框中以选项卡形式出现。页面（Page）页面也是一个容器类对象，页面上可存在若干个控件。在任何时候只有一个活动页面，且只有活动页面的对象在表单上是可见的。利用页框、页面可以构造Windows应用程序中常见的选项卡对话框。,Page101,页框常用属性,7.9页框与页面,Page102,说明：Pages属性代表的数组在创建页框时由系统自动建立，用于保存各个页面在页框中的索引号。用户可以利用该数组引用页框中的各页面，例如：Pages(1)、Pages(2)分别表示页框中第1页面、第2页面。,7.9页框与页面,Page103,页面常用属性,7.9页框与页面,Page104,例7.14设计表单，实现按学号查询学生的相关信息。运行界面如下:,运行时用户在表单下方文本框中输入一个学号,单击“查找”按钮，在页框的两个页面中分别显示相关信息,7.9页框与页面,Page105,操作步骤:1）创建表单，添加一个页框控件（PageFrame1）、一个标签控件（Label1）、一个文本框（Text1）、和两个命令按钮（Command1、Command2）。2）打开数据环境设计器，添加Student表。3）在页框选中第1个页面，然后从数据环境中将Student表的学号、姓名、专业和定向否等4个字段拖入该页中（实现数据绑定）。4）在页框第2个页面（Page2）中添加一个表格控件。,7.9页框与页面,Page106,5)各控件的属性设置,7.9页框与页面,Page107,代码编写:Form1的Activate事件代码：Thisform.Text1.SetFocusSelectGrade.课程号,课程名,成绩;FromGrade,Course;WhereGrade.课程号=Course.课程号;AndGrade.学号=numIntoCursorlsbElseMessageBox(数据出错,请重新输入!)Thisform.Text1.Value=EndifThisform.Text1.SetFocus,7.9页框与页面,Page109,7.10容器,容器（Container）容器控件能够根据需要包容除表单集和表单以外的所有类型的对象。在表单设计器中，容器可以使包容其中的对象作为一个整体来处理。要在容器对象中添加对象首先必须激活容器对象，然后才可以往容器对象中添加控件。注意：不能使用鼠标拖动的方法把表单中已存在的控件拖动到容器对象中。,Page110,7.11计时器,计时器（Timer）计时器控件可以按给定的时间间隔自动地触发事件，因此可以自动定时执行一些特定的任务。计时器控件设计时是可见的，运行时不可见，它是属于后台执行的一种控件。,Page111,7.11计时器,说明：InterVal属性取值范围是02147483647（596.5小时，24.85天）。InterVal属性只能决定Timer事件发生的频率，而不能决定Timer事件代码执行的时间长短，故间隔的精度要根据需要来设定。,计时器的常用属性,Page112,7.11计时器,例7.15设计一个计时器，设计界面如下:,Page113,7.11计时器,说明：1）运行时，单击“开始计时”按钮，文本框（Text1）先清零，然后开始计数；“开始计时”按钮变为无效，“暂停”和“停止”按钮变为有效。2）单击“暂停”按钮，系统停止计时，并且该按钮标题改为“继续”。3）单击“继续”按钮，系统继续计时，并且该按钮标题改为“暂停”。4）单击“停止”按钮，系统停止计时，“暂停”按钮变为无效，并把所用时间转换为“时分秒”的形式显示出来。“开始计时”变为有效（为下一轮的计时作准备）。,Page114,操作步骤：1）创建表单，并在表单放置4个标签（Label1Label4）、1个文本框（Text1）、4个命令按钮（Command1Command4），并分别设置各控件的Caption属性值，标签控件的AutoSize的属性值皆为.T.。2）设置其它属性,7.11计时器,Page115,代码编写Timer1的Timer事件代码：Thisform.Text1.Value=Thisform.Text1.Value+1Command1的Click事件代码：Thisform.Text1.Value=0Thisform.Timer1.Enabled=.T.Thisform.Command1.Enabled=.F.Thisform.Command2.Enabled=.T.Thisform.Command3.Enabled=.T.,7.11计时器,Page116,Command2的Click事件代码：IfThis.Caption=暂停This.Caption=继续Thisform.Timer1.Enabled=.F.ElseThis.Caption=暂停Thisform.Timer1.Enabled=.T.EndifCommand4的Click事件代码：Thisform.Release,7.11计时器,Page117,Command3的Click事件代码：Thisform.Timer1.Enabled=.F.Thisform.Command1.Enabled=.T.Thisform.Command2.Enabled=.F.Thisform.Command3.Enabled=.F.tot=Thisform.Text1.Valueh=Int(tot/3600)tot=tot%3600m=Int(tot/60)s=tot%60Thisform.Label4.Caption=Str(h,2)+时+Str(m,2);+分+Str(s,2)+秒,7.11计时器,Page118,7.12线条、形状、图像,线条（Line）:线条主要用于修饰表单，可以根据实际要求在表单上的任意两点间画出一条的直线。线条常用属性:,Page119,7.12线条、形状、图像,形状（Shape）形状控件用于美化表单界面；可以作为其他控件的背景。形状控件可直接在表单上画矩形、正方形和椭圆等图形。形状控件的常用属性:,Page120,7.12线条、形状、图像,图像（Image）图像控件用于在表单中显示图像。其支持的图像文件类型包括.BMP、.JGP、.GIF、.CUR、.ICO和.ANI等。图像控件的常用属性:,Stretch属性的取值及含义如下：0剪裁（默认）：图像通过剪裁来适应控件大小。1等比填充：按原比例缩放图像以尽可能适应控件大小。2变比填充：缩放图像（不必保持原比例）适应控件大小。,Page121,7.13ActiveX绑定控件,ActiveX绑定控件也称为OLE绑定控件，用于在表单中显示数据表中通用型字段的内容。常用属性:,在表单运行期间，右击ActiveX绑定控件，选择快捷菜单中的“打开”或“编辑”命令，可以调用创建该对象的源应用程序对对象进行编辑处理。,Page122,7.14表单高级设计（了解）,7.14.1表单集7.14.2多重表单7.14.3添加表单自定义的属性和方法,Page123,7.14.1表单集,表单集是一种容器类控件,其中可以包容一个或多个表单。在实际应用程序的开发过程中，经常需要把几个表单进行统一控制和管理，这就要求创建一个表单集。表单集优点：1）运行表单集时，它所包容的表单都将被加载。2）表单集隐藏时，其包容的表单也被同时隐藏。3）可以采用可视化方式调整各个表单的相对位置。4）表单集及其所包容的所有表单共享一个数据环境。只要建立关系之后，可以使处于不同表单中的数据表指针同步移动。5）表单集中的各个表单处在同一层次上。,Page124,创建表单集在表单设计器的环境下，选择“表单”菜单中的“创建表单集”命令，即可创建一个表单集，该表单集的Name属性值默认为：Formset1。在表单集中添加新表单：通过“表单”菜单下的“创建新表单”命令从表单集中删除表单:通过“表单”菜单下的“移除表单”命令,7.14.1表单集,Page125,删除表单集在设计阶段，当表单集中只剩下一个表单时，选择“表单”菜单中的“移除表单集”命令，可以删除表单集。表单运行期间释放表单集两种方法：（1）使用命令：Thisformset.Release或ReleaseThisformset（2）表单集中的最后一个表单被释放后，表单集也自动被释放。请注意此时表单集的AutoRelease的属性值必须为.T.。,7.14.1表单集,Page126,例7.16创建表单集，利用Student表查询学生的相关信息,运行界面如下：,运行时同时显示2个表单，在第1表单的文本框中输入学号，单击“查询”按钮后，在第2个表单中显示该生的学号、姓名等信息。,7.14.1表单集,Page127,操作步骤：1）新建表单，进入表单设计器窗口，新建的表单Name属性值为：Form1。选择“表单”菜单中的“创建表单集”（此时在属性窗口的“对象”列表框可以看到新建的Formset1对象）。2）选择“表单”菜单中的“创建新表单”命令，在表单集中添加1个新表单Form2。3）打开“数据环境设计器”，并添加Student表。4）在Form1中添加1个标签控件、1个文本框和2个命令按钮；各控件的Caption属性值按图示设置；文本框（Text1）的Format属性值为：.T.。5）把“数据环境设计器”中Student表的各个字段拖放Form2中。各控件属性采用默认值。,7.14.1表单集,Page128,代码编写：Form1.Command1的Click事件代码：xh=Thisformset.Form1.text1.ValueLocateFor学号=xhIfFound()Thisformset.Form2.RefreshElseMessageBox(数据出错，请重新输入!)Thisformset.Form1.text1.SetFocusEndifForm1.Command2的Click事件Thisformset.Release&请注意这里是释放表单集Formset1的Init事件代码：SelectStudent&设置打开Student表的工作区为当前工作区Gobottom&记录指针指向最后一个记录Skip&记录指针指向最后一个记录之后,7.14.1表单集,Page129,7.14.2多重表单,表单集所包容的表单是平等的，没有主次关系。多重表单是指具有主次关系的表单，主表单（也称之为父表单）调用子表单。应用程序界面的类型:（1）单文档界面（SingleDocumentInterface，简称SDI）（2）多文档界面（MultipleDocument，Interface，简称MDI）,Page130,表单的类型（1）顶层表单没有父表单的独立表单，用于创建SDI应用程序或作为MDI应用程序中其他子表单的的父表单。顶层表单和Windows的应用程序同级，可以出现在前台或后台，并显示在Windows的桌面和任务栏中。（2）子表单包含在另一窗口中，用于创建MDI应用程序的表单。子表单只能置于主表单之前，主表单最小化时它也同时被最小化。子表单又分为浮动表单和非浮动表单。浮动表单可以移到桌面任意位置，最小化时显示在桌面底部；非浮动表单不能移到主表单边界之外，最小化时显示在主表单底部。,7.14.2多重表单,Page131,多重表单常用属性,7.14.2多重表单,Page132,表单调用和表单间的数据传递在主表单