VFP第二版电子教案2.ppt

1,中篇程序设计,4.结构化程序设计5.菜单设计6.表单设计基础7.表单控件设计8.表单高级设计9.报表设计,2,第6章表单设计基础6.1表单向导,打开向导选取对话框：在工具菜单的向导子菜单中选定表单命令。,3,单表表单向导与一对多表单向导,4,6.2表单设计器,创建和运行表单的基本步骤打开表单设计器modifyform文件名对象操作与编码：表单设计器，数据环境设计器，表单控件工具栏保存表单运行表单：例如doformsbq快速创建表单：表单菜单的快速表单命令,5,6,6.3面向对象的程序设计方法,对象控件容器属性事件方法程序,7,表6.3属性选列,8,表6.4vfp部分常见事件表,方法程序一例：refresh方法程序form.object.refresh功能:重画表单或控件,并刷新所有的值。,9,对象引用,对象引用规则(1)通常用以下引用关键字开头:thisformset表示当前表单集(表单集的概念参阅8.1.2节)thisform表示当前表单this表示当前对象(2)引用格式:引用关键字后跟一个点号,再写出被引用对象或者对象的属性,事件或方法程序。例如：this.caption&本对象(表单或控件)的caption属性thisform.cls&本表单的cls方法程序,清除表单中的图形和文本thisform.command1.caption&本表单的command1命令按钮的caption属性this.command1.click&本对象的command1命令按钮的click事件(3)控件也可引用包含它的容器,格式为:control.parent其中control表示控件,parent表示容器。例如this.parent.command1.caption,表示引用本对象的容器(例如表单)的command1命令按钮的caption属性。,10,编程方式设置属性值属性值设置格式:objectname.property=setting其中setting为要设置的属性值。例如,this.fontbold=.t.&本对象文本以粗体显示this.parent.caption=time()&本对象的容器的caption属性设置为当前时间例6-4设计只含一个文本框控件的表单(见图6.17),要求逐次单击文本框的内部能轮流显示当前日期与时间,试写出设计步骤。(1)创建表单：往命令窗口键入命令modifyformrqsj,使显示rqsj表单设计器窗口。(2）创建文本框:单击表单控件工具栏中的文本框按钮,然后单击form1表单窗口内某处,该处就会产生一个text1文本框控件。(3)将表单的caption属性改为“日期与时间”：单击表单窗口,属性窗口的组合框中便显示form1在属性列表中选定caption属性在文本框中输入日期与时间字样,按回车键后表单窗口的标题栏就会显示这些文字。,11,(4)表单的load事件代码的设置:双击表单窗口打开代码编辑窗口在对象组合框中确定表单选项,并在过程组合框中确定load事件选项在列表框中输入以下代码：publici&load事件在表单装入内存时触发,设置i为公共变量(5)文本框的click事件代码编写如下:ifi=.t.&变量i用于控制轮流显示thisform.text1.value=date()&本表单的文本框的值设置为当前日期thisform.text1.dateformat=12&日期格式设置为年月日次序thisform.text1.datemark=.&年月日间隔符设置为点号i=.f.&触发click事件i值就变反elsethisform.text1.value=time()&本表单的文本框的值设置为当前时间i=.t.&触发click事件i值就变反endif,12,第7章表单控件设计7.1输出类控件,标签(label)属性选介(1)使标签区域自动调整为与标题文本大小一致：可将autosize属性设置为.t.。(2)使标签的标题竖排：先将wordwrap属性设置为.t.,然后在水平方向压缩标签区域迫使文字换行。(3)使标签与表单背景颜色一致：将backstyle属性设置为0(透明)(4)使标签带有边框：将borderstyle属性设置为1(单选框)图像(image)、线条(line)与形状(shape)创建图像的步骤如下:在表单上创建一个图像控件在属性窗口选定picture属性,并通过文本框右侧的对话按钮选定一个图像,该图像即显示在图像控件处。线条控件用于在表单上画各种类型的线条,包括斜线、水平线和垂直线。形状控件用于在表单上画出各种类型的形状,包括矩形、圆角矩形、正方形、圆角正方形,椭圆或圆。,表7.3形状控件的形状设置,13,例7-1设计如图7.1所示的应用程序封面。(1)创建表单fm.scx。(2)在表单上创建标签和形状控件各1个。(3)设置属性：详见表7.4(4)将封面的文字置前于椭圆：选定label1,然后在布局工具栏中选定“置前”按钮。若已置前,则该步骤可省。(5)form1的rightclick事件代码编写如下:thisform.release&右击表单执行release方法程序,从内存释放该表单,14,表7.4“封面”属性设置,15,7.2输入类控件,文本框(text)文本框的值value属性焦点控件设置焦点方法程序格式：control.setfocus获得焦点事件(gotfocusevent)失去焦点事件(lostfocusevent)控件的数据绑定controlsource属性文本框生成器编辑框(edit),16,列表框(list)列表框生成器例7-3在列表框中填充sb表的编号和名称两个字段,要求选定列表框的任一项,就能使文本框中显示编号字段值。(1)在表单中创建1个列表框控件和1个文本框控件。(2)打开列表框生成器在列表项选项卡的“用此填充列表”组合框中选定“表或视图中的字段”选项如图7.4(a1)所示,通过对话按钮选出sb表,然后将编号和名称字段从可用字段列表添入选定字段列表中按确定按钮。(3)list1的interactivechange事件代码编写如下:thisform.text1.value=this.value&将列表框选项值赋给文本框,(a1),17,表7.5列表框、组合框控件的值源类型,组合框(combo)下拉组合框style属性值0下拉列表框style属性值1控件值源的类型,18,例7-4试用bmdm表的代码来修改sb表的部门字段。要求sb表在列表框显示,bmdm表在组合框显示；并且当列表框确定一个记录后,便可用组合框的选项来替代sb表的部门字段值。(1)在表单上创建2个标签,1个列表框和1个组合框。(2)在数据环境中添加sb表和bmdm。注意，若存在关联联线则将它取消。(3)属性设置：见表7.7。(4)combo1的interactivechange事件代码编写如下：thisform.list1.refresh&在组合框列表中选项并替代sb.部门后更新列表框的显示(5)form1的init事件代码编写如下：thisform.combo1.enabled=.f.&使初始时不能操作组合框,只可在列表框先确定记录(6)list1的interactivechange事件代码编写如下：thisform.combo1.enabled=.t.&列表框操作后即允许组合框操作(7)list1的init事件代码编写如下：setordertotag编号&使列表按设备编号次序显示(假定sb表中该索引标识已存在),19,表7.7“用bmdm表修改sb表的部门”属性设置,20,例7-6在表单上创建1个组合框和1个文本框,要求如下：(1)组合框的列表包含sb表的编号字段值。(2)能在组合框中为其列表键入新选项。(3)若选取组合框列表中的项(也可以是刚添入的新选项),便能将它送入文本框。假定组合框和文本框已在表单上创建(图略),下面列出主要的属性和事件代码。(1)combo1属性设置style：0(默认值,表示组合框类型为下拉组合框)rowsourcetype:6(表示控件值源类型为字段)rowsource：sb.编号(在数据环境中添加sb表后,就能在属性窗口选取字段)(2)combo1的keypress事件代码编写如下：lparametersnkeycode,nshiftaltctrlifnkeycode=13&按回车键则条件表达式返回.t.ifthis.listindex=0&组合框列表中无此键入值返回.t.,才允许添加数据this.rowsourcetype=0&控件值源类型设置为可用additem方法程序添加数据this.additem(this.displayvalue)&键入值添入列表末尾this.value=this.displayvalue&使键入值立即成为列表中的选项insertintovfpexsb(编号)values(this.displayvalue)&insert-sql命令在sb表末尾添加一个记录,并将键入值存入该记录的编号字段this.rowsourcetype=6&恢复控件值源类型为字段endifendif(3)combo1的interactivechange事件代码编写如下:thisform.text1.value=this.value,21,微调控件(spinner)属性选介(1)value：表示微调控件的当前值。(2)keyboardhighvalue：设定键盘输入数值高限。(3)keyboardlowvalue：设定键盘输入数值低限。(4)spinnerhighvalue：设定按钮微调数值高限。(5)spinnerlowvalue：设定按钮微调数值低限。(6)increment：设定按一次箭头按钮的增减数,默认为1.00。若设置为1.50则增减数为1.5。(7)inputmask：设置输入掩码。微调控件默认带两位小数,若只要整数可用输入掩码来限定,例如999999表示6位整数。若微调控件绑定到表的字段,则输入掩码位数不得小于字段宽度,否则将显示一串*号。事件选介(1)downclickevent：按微调控件的向下按钮事件。(2)upclickevent：按微调控件的向上按钮事件。,22,7.3控制类控件,命令按钮(command)例7-7设计一个如图7.8所示的密码输入窗口,要求最多允许输入3次密码。(1)创建一个表单,然后在其中创建标签和文本框各1个,命令按钮2个。(2)属性设置：见表7.8。(3)form1的load事件代码编写如下：publici&i用于计算输入次数i=0(4)command1的click事件代码编写如下：i=i+1ifthisform.text1.value=123456&文本框输入值与123456(预置的密码)比较thisform.release&本表单从内存释放elseifi3&允许输入3次messagebox(密码错,请重新输入!)thisform.text1.value=&为重新输入清空文本框thisform.text1.setfocus&使文本框获得焦点,就是使光标在其中闪烁elsemessagebox(密码错,禁止进入系统!)thisform.releaseendifendif,23,表7.8“密码输入”属性设置,(5)command2的click事件代码编写如下：thisform.release,24,命令按钮组(commandgroup)命令按钮组生成器click事件的判别例如图7.11中，commandgroup1的click事件代码编写如下：docasecasethis.value=1&单击command1命令按钮(下页)返回.t.ifrecno()1&防止上移出界skip-1endifthisform.refreshcasethis.value=3&单击command3命令按钮(退出)返回.t.thisform.release&表单从内存释放endcase,25,复选框(check)复选框的值value属性：0或.f.表示清除；1或.t.表示选定；2表示灰色状态。其中数字为默认值。选项按钮组(optiongroup)选项按钮的value属性：1表示选定,0表示未选定。选项按钮组的value属性：表明被选定按钮的序号,默认为1。例如第2个按钮被选定时value值为2。选项按钮组生成器例7-11设计一个能编辑或浏览关于设备的4个数据库表的对话框,界面要求如图7.12所示。(1)在表单上创建1个复选框和2个命令按钮。(2)数据环境设置：在数据环境中添加sb表,bmdm表,dx表和zz表。,表7.12“选表编辑或浏览”部分属性设置,26,(3)创建选项按钮组optiongroup1：先在表单上创建一个选项按钮组，然后再利用选项按钮组生成器进行设置。打开选项组生成器对话框：用表单控件工具栏的选项按钮组按钮在表单中创建一个选项按钮组，右击选项按钮组并选定快捷菜单的生成器命令。在按钮选项卡(参阅图7.9)中进行设置：在微调控件中将按钮的数目置为4将表格标题列中4项依次改为设备表、部门表、大修表和增值表。在布局选项卡中进行设置：将微调控件按钮间隔置为10按确定按钮关闭选项组生成器对话框将选项按钮组移到表单左部适当位置。(4)对其它控件的属性进行设置：见表7.12。(5)optiongroup1的click事件代码编写如下：docasecasethis.value=1&选定option1选项按钮(设备表)时返回.t.selectsb&选择sb表所在工作区casethis.value=2&选定option2选项按钮(部门表)时返回.t.selectbmdm&选择bmdm表所在工作区casethis.value=3&选定option3选项按钮(大修表)时返回.t.selectdx&选择dx表所在工作区casethis.value=4&选定option4选项按钮(增值表)时返回.t.selectzz&选择zz表所在工作区endcase(6)command1的click事件代码编写如下：*确定ifthisform.check1.value=1&check1被选定时返回.t.browse&可编辑数据else&若check1未选定browsnomodifynoappendnodelete&仅可浏览,不可编辑endif(7)command2的click事件代码编写如下：*退出thisform.release&表单释放,27,7.4容器类控件,表格(grid)表格的组成(1)表格(grid)：由一或若干列组成。(2)列(column)：一列可显示表的一个字段,列由列标题和列控件组成。(3)列标题(header1)：默认显示字段名,允许修改。(4)列控件(例如text1)：一列必须设置一个列控件,列控件默认为文本框。创建表格控件在数据环境中将表窗口的标题栏拖放到表单窗口利用表格生成器创建表格编辑,28,例7-14设计一个如图7.16所示的表单,要求能按部门浏览所有设备数据。(1)创建表单,并在数据环境中建立如图7.17所示4个表的两级一多关系。(2)在表单上创建1个下拉列表框,2个标签,3个表格。表格控件可从数据环境创建,即将数据环境中sb窗口的标题栏拖到表单释放,从而产生grdsb表格。然后可用同样方法创建表格grddx和grdzz,如图7.16所示。表格创建后按图调整好表格位置、大小与列宽。(3)如图7.16所示创建矩形框形状控件,然后选定格式菜单的置后命令。(4)属性设置：见表7.14。(5)combo1的init事件:selectbmdmgobottomskip&故意将记录指针移到出界,以使表格在表单运行之初显示空白(6)combo1的click事件:thisform.label2.caption=thisform.combo1.value+设备情况&标题例如“一车间设备情况”,29,表7.14“按部门浏览设备”属性设置,30,页框(pageframe)例7-15在表单上创建一个如图7.18所示含有两个页面的页框,分别用来维护sb表和bmdm表。(1)在表单上创建一个页框。(2)在数据环境中添加sb表和bmdm表。(3)页面标题设置：在页框中选定page1页面,将页面的caption值改为设备。以同样方法将page2页面标题改为部门。(4)在页面中创建表格：在页框中选定设备页面,做一个从数据环境中sb窗口标题栏到设备页面的拖放动作,页面中就会显示关于sb表的表格。以同样方法在部门页面中创建关于bmdm表的表格。,31,7.5连接类控件,连接技术的演变（ole规范）（activex标准）ole技术ole控件activex控件,32,activex控件(olecontrol)例7-16用滑块控件浏览设备表的设备名称，要求滑块指向什么数值，就显示记录号为该数值的设备名。(1)在表单上创建1个文本框控件。(2)在表单上创建1个滑块控件：从表单控件工具栏中选定activex(olecontrol)控件按钮单击表单下部某处在插入对象对话框中选定“插入控件”选项按钮在控件类型列表中选定microsoftslidercontrol,version6.0选项选定确定按钮返回表单窗口(见图7.20)。,33,(3)在数据环境中添加sb表。(4)将form1表单的caption属性设置为浏览设备名称。(5)olecontrol1的init事件代码编写如下：*滑块指针刻度范围按表的记录数设置this.min=1&刻度值最小为1this.max=reccount()&刻度值最大与记录个数相同(6)olecontrol1的mousemove事件代码编写如下：lparametersbutton,shift,x,y*移动滑块指针来显示sb表的名称字段值*olecontrol1：滑块控件的name*thisform.olecontrol1.value：滑块指针所在刻度的值gothisform.olecontrol1.value&记录指针指向滑块指针所在刻度thisform.text1.value=名称&文本框显示名称字段值,34,activex绑定控件(oleboundcontrol)例7-17自制一个如图7.23所示的图像编辑器,要求能对sb表通用型字段中的图像进行浏览、修改、增入与替换。(1)在表单上创建ole绑定型控件、滑块控件、命令按钮控件和形状控件各1个。(2)将形状控件置于ole绑定型控件之后：选定形状控件,然后选定格式菜单的置后命令。(3)属性设置：见表7.15。,表7.15“图像浏览器”属性设置,35,(4)olecontrol1的init事件代码编写如下：*滑块指针刻度范围按sb表记录数设置this.min=1this.max=reccount()(5)olecontrol1的mouseup事件代码编写如下：lparametersbutton,shift,x,ygothisform.olecontrol1.value&记录指针指向滑块指针所在刻度thisform.oleboundcontrol1.refresh&为使图像当场显示,刷新ole绑定型控件的显示(6)command1的click事件代码编写如下：*既能向当前记录通用型字段增入图像,又能替换图像tx=getpict()&显示打开图片对话框,并返回用户选定的图像文件名appendgeneralsb.商标from&tx&从选定文件向当前记录的通用型字段代入ole图像对象thisform.oleboundcontrol1.refresh&为使代入的图像当场显示,刷新ole绑定型控件的显示,36,第8章表单高级设计8.1多表单应用程序,应用程序界面单文档界面与多文档界面顶层表单与子表单非浮动表单和浮动表单调用子表单：doform命令,37,例8-1为例7-10设计的表单增加一个查页命令按钮,要求单击它能打开一个供用户输入记录号的窗口,如图8.1所示。当指定记录号并单击确定按钮后，新打开的窗口随即关闭，原表单也立即更新记录显示。(1)从例7-10的表单文件sbxg.scx复制出sbbd1.scx,并将后者打开。(2)在sbbd1.scx的表单窗口form1中增加命令按钮command1。(3)创建表单文件sbbd2.scx,并在其表单窗口form1中创建标签、文本框各1个。(4)属性设置：见表8.1。,38,(5)在form1(sbbd1.scx)的init事件代码中增加公共变量jlh：publicyh,mc(10,1),jlh&公共变量jlh用来表示记录号copytoarraymcfieldssb.名称&保持原样go1&保持原样(6)form1(sbbd1.scx)中command1的click事件代码编写如下：doformsbbd2&调用子表单gojlh&记录指针指向在子表单中指定的记录thisform.refresh&父表单更新(7)form1(sbbd2.scx)中command1的click事件代码编写如下：jlh=thisform.text1.value&文本框值赋给公共变量(可事先在文本框中键入一个数)thisform.release&释放form1(sbbd2.scx)(8)form1(sbbd1.scx)的unload事件代码编写如下：releasejlh&清除公共变量jlh,程序运行结束公共变量不会自动清除,表8.1“查页”属性设置,39,表单集使用表单集的优点表单集的创建与删除表单集的编辑例8-3用表单集来实现查看设备大修情况。(1)从例7-13产生的表单文件bg.scx复制出bdj.scx,并使后者打开,表单设计器窗口中将会显示“sb表编辑”表单窗口。(2)为表单文件bdj.scx创建表单集：选定表单菜单的创建表单集命令。(3)向表单集添加表单：选定表单菜单的添加新表单命令,表单设计器窗口中就会出现form2表单窗口。(4)在数据环境中添加dx表,并将sb表与dx表按编号关联起来。(5)将数据环境中dx窗口的标题栏拖放到form2表单窗口,该表单中就会产生一个关于大修的表格。(6)将form2表单的caption属性值改为“大修情况”。,40,8.2用户定义属性与方法程序,用户定义属性变量属性创建：打开表单设计器后,选定表单菜单的新建属性作用域：对表单集中的所有表单都有效引用格式：thisformset.变量属性名数组属性多表单应用程序的有效参数用public设置的公共变量用户在表单集中自定义的属性父表单与子表单间的参数传递：doformwithto命令用户定义方法程序创建：表单菜单中选定“新建方法程序”命令过程代码的编辑调用基本格式为：thisformset.方法程序名,41,8.3类,类的概念类（class）与对象（object）基类（baseclass）子类（subclass）用户定义类（user-definedclass）容器类(containerclasses)和控件类(controlclasses)类库（classlibrary）类的特征封装特征子类特征继承性特征用户定义类类的创建将类添加到工具栏类的编辑用户定义工具栏,42,例8-7创建一个带有确认功能的“退出按钮”类。(1)从commandbutton基类新建子类：选定文件菜单的新建命令在新建对话框中选定“类”选项按钮,然后选定新建文件按钮在如图8.7所示新建类对话框的类名文本框中键入类名：退出按钮；在“派生于”下拉列表框中选定基类commandbutton；在“存储于”文本框中键入类库的名字：用户控件选定确定按钮关闭对话框。(2)在类设计器中为“退出按钮”类设置属性与事件:新建类对话框关闭后,随即会弹出一个类设计器窗口(参阅图8.8)。类设计器窗口内显示一个“退出按钮”窗口，这就是“退出按钮”类；“退出按钮”窗口中有一个“command1”按钮(在图8.8中command1已改作退出两个字)，这是类的实例的模样。在属性窗口中将“退出按钮”类的caption属性由command1改为“退出”,这将使按钮上显示“退出”两个字(见图8.8)。双击“退出按钮”窗口内部来打开代码窗口,然后为click事件键入如下代码:ifmessagebox(一定要退出吗?,4+48,请确认)=6&信息框包含“是”和“否”按钮,图标显示惊叹号,按“是”按钮返回数值6thisform.releaseclearevents&停止处理事件(参阅10.1节第三点)endif(3)关闭类设计器窗口。,43,44,例8-8试将例8-7创建的“退出按钮”类添加到表单控件工具栏中。打开任一表单(参阅图8.10)选定表单控件工具栏的查看类按钮在弹出菜单中选定添加命令在如图8.9所示的打开对话框列表中选定可视类库文件：用户控件.vcx选定确定按钮关闭对话框,表单控件工具栏中就会包含一个“退出按钮”。,45,例8-11设计一个能移动记录指针的工具栏,要求包括首页、上页、下页、末页、和关闭等5个按钮。,46,第9章报表设计9.1打印基础,toprinter打印命令list|displaystructuretoprinter&打印当前表的结构list|displaytoprinter&打印当前表的内容list|displaymemorytoprinter&打印当前的变量和数组内容list|displaystatustoprinter&打印vfp环境状态dirtoprinter&打印当前目录中表的名字typetoprinter&打印ascii字符文件的内容定向输出命令setprinteron|offsetprintertoadditive|,47,9.2报表设计器的基本操作,打开报表设计器窗口modifyreport快速制表报表菜单中的快速报表命令例9-3利用快速制表功能为sb.dbf设计一张包括编号、名称和价格3栏的报表。(1)打开报表设计器窗口：往命令窗口键入命令modifyreportsbjgb,使屏幕上出现报表设计器窗口(参阅图9.12)。(2)设置数据源：在报表设计器窗口击右键,在快捷菜单中选定数据环境命令,在数据环境设计器窗口中添加sb表。(3)启动快速制表：选定报表设计器窗口,然后在报表菜单中选定快速报表命令,使出现如图9.11所示的快速报表对话框。(4)设置快速报表属性：选定快速报表对话框的字段按钮,在字段选择器对话框(图略)中依次选出编号、名称和价格等3个字段,选定确定按钮返回快速报表对话框。选定确定按钮返回报表设计器窗口。(5)保存报表定义：选定文件菜单的保存选项,将产生报表文件sbjgb.frx及其备注文件sbjgb.frt。,48,49,页面预览,50,命令方式打印报表reportformenvironmentforheadingnoconsoleplainrange开始页,结束页previewinwindow|inscreennowaittoprinterprompt|tofileasciisummary菜单方式打印报表“报表”菜单的“运行报表”命令,51,9.3报表设计器的高级操作,1.页面设置,52,2.设计报表带区,表9.1报表带区的建立及作用,53,基本带区例9-4在例9-3所制报表的基础上,设计如图9.11所示具有表格线的设备价格表。,54,标题与总结带区数据分组与组标头/组注脚带区报表菜单的数据分组命令,55,由报表向导产生一个经过数据分组的报表工具菜单中向导选项的报表命令例9-5打印如图9.15所示带费用总计的设备大修分类表。,56,57,创建报表控件例9-6打印如图9.24所示设备大修费用表,要求相同的设备编号仅输出第一个。(1)定义快速报表：键入命令modifyreportdxfy来打开报表设计器窗口在数据环境中添加dx表单击报表设计器窗口,然后选定报表菜单的快速报表命令选定快速报表