授课-15VFP应用ppt课件

1、茂名职业技术学院 授课授课-15 VFP-15 VFP运用运用 15.1 15.1 创建主表单创建主表单15.2 15.2 建立菜单建立菜单15.3 15.3 编制程序编制程序15.4 15.4 制造子表单制造子表单15.5 15.5 连编运用程序连编运用程序 本课经过一些运用实例，复习稳定前面曾经学习本课经过一些运用实例，复习稳定前面曾经学习过的内容，同时补充学习一些过的内容，同时补充学习一些VFPVFP程序的编写方法。程序的编写方法。 茂名职业技术学院 【学习目的】【学习目的】 表单设计器的运用表单设计器的运用 生成器的运用生成器的运用 【关键概念】【关键概念】 表单的属性设置表单的属性设

2、置茂名职业技术学院 【义务】【义务】 上机上机F FVFVF高新考试汇编高新考试汇编20192019版的第版的第8.58.5题题 1. 1.创建主表单：创建主表单： 将将E:2019VFPDATA1E:2019VFPDATA1中的表中的表Y8_5.DBFY8_5.DBF复制到本人的文件夹，重命名为复制到本人的文件夹，重命名为S8_5.DBF S8_5.DBF ，并将其参与到，并将其参与到“工程工程Y Y的的“自在表中。自在表中。 在在“工程工程Y Y中创建表单用表单设计器，以中创建表单用表单设计器，以F8_5AF8_5A为名保管。为名保管。 设置表单设置表单F8_5AF8_5A中相关的属性，使

3、其成为顶层表单。中相关的属性，使其成为顶层表单。 按图按图8-5A8-5A所示，在表单所示，在表单F8_5AF8_5A中添加中添加“表格控件，将表表格控件，将表Y8_5Y8_5的的fhfh，yssyss，sfsf，ydsyds，dfdf，ymqsymqs，mqfmqf，ysfyysfy字段参与，标题用汉字，见图字段参与，标题用汉字，见图8-5A8-5A，表的，表的款式为款式为“财务型。财务型。 按图按图8-5A8-5A所示，添加三个按钮，分别是所示，添加三个按钮，分别是“计费、计费、“查询、查询、“退出。其中：退出。其中：“计费计费按钮经过调用按钮经过调用P8_5A.PRGP8_5A.PRG文

4、件完成计费功文件完成计费功能；能；“查询按钮经过调用表单查询按钮经过调用表单F8_5B.SCXF8_5B.SCX文件完成个人收费查询；文件完成个人收费查询；“退出按钮可以退出按钮可以解除事件循环并退出运转的程序。解除事件循环并退出运转的程序。 制造完成的表单外观，制造完成的表单外观， 见图见图8-5A8-5A。图图8-5A茂名职业技术学院 【义务分析】【义务分析】1 创建表单创建表单 可以用菜单工具钮、工程管理器、命令创建。可以用菜单工具钮、工程管理器、命令创建。2 设置表单属性设置表单属性下面是一些常用属性名下面是一些常用属性名P244 : AlwaysOnTop 能否处于最上层能否处于最上

5、层 AutoCenter 运转时能否自动居中运转时能否自动居中 Caption 标题往往是要修正的标题往往是要修正的 Name 称号普通不修正称号普通不修正 ForeColor 前风光前风光 ShowWindow 能否顶层能否顶层 Value 值值 Visible 能否可见能否可见3放置按钮并编写事件代码放置按钮并编写事件代码 曾经讲述过，略。曾经讲述过，略。注：打注：打“的是本表单的是本表单需求设置的需求设置的茂名职业技术学院 4 表格生成器的运用表格生成器的运用 见以下图，在见以下图，在“规划选项中，用鼠标点击某一字规划选项中，用鼠标点击某一字段的记录，就可以在标题框内修正该字段的标题了。

6、段的记录，就可以在标题框内修正该字段的标题了。 茂名职业技术学院 表表1 Visual FoxPro 6.0表单的常用属性表单的常用属性属属 性性描描 述述默许值默许值AlwaysOnTop指定表单能否总位于其他翻开窗口之上.F.AutoCenter指定表单初始化时能否自动在系统主菜单中居中显示指定表单初始化时能否自动在系统主菜单中居中显示.F.BackColor指定表单窗口颜色255,255,255BorderStyle指定表单边框的风格。默以为系统边框3Caption指定显示在表单标题栏上的文本Form1Closable指定能否经过封锁按钮或封锁框来封锁表单指定能否经过封锁按钮或封锁框来封

7、锁表单.T.DataSession指定表单里的表是在全局访问的任务区翻开(默许值1)，还是在表单本人的任务区翻开(值2)1MaxButton确定表单能否有最大化按钮.T.MinButton确定表单能否有最小化按钮.T.Movable确定表单能否能挪动.T.ShowWindows控制表单能否在屏幕中控制表单能否在屏幕中0WindowState指定表单的形状0Visible指定表单是显示还是隐藏指定表单是显示还是隐藏.T.茂名职业技术学院 表表2 Visual FoxPro 6.0常用事件常用事件事件称号事件称号产生阐明产生阐明Init在对象建立时引发在对象建立时引发Destroy在对象释放时引发

8、在对象释放时引发Error当对象方法或时间代码在运转过程中产生错误时引发当对象方法或时间代码在运转过程中产生错误时引发Load在表单对象建立之前引发在表单对象建立之前引发Unload在表单对象释放时引发，是表单对象释放时最后一个引发的在表单对象释放时引发，是表单对象释放时最后一个引发的事件事件GotFocus当对象获得焦点时引发当对象获得焦点时引发Click用鼠标单击对象时引发用鼠标单击对象时引发DblClick用鼠标双击对象时引发用鼠标双击对象时引发Valid在控件失去焦点前引发在控件失去焦点前引发InteractiveChange当经过鼠标或键盘交互式改动一个控件的值时引发当经过鼠标或键盘

9、交互式改动一个控件的值时引发茂名职业技术学院 方法称号方法称号产生阐明产生阐明Release将表单从内存中释放将表单从内存中释放Refresh重新绘制表单或控件重新绘制表单或控件Show显示表单显示表单Hide隐藏表单隐藏表单SetFocus让控件获得焦点，使其成为活动对象让控件获得焦点，使其成为活动对象表表3 Visual FoxPro 6.0 常用方法常用方法前往本课菜单前往本课菜单茂名职业技术学院 【学习目的】【学习目的】 用菜单设计器制造菜单用菜单设计器制造菜单 主表单调用菜单的设置主表单调用菜单的设置【关键概念】【关键概念】 菜单的结果选项菜单的结果选项 顶层表单顶层表单茂名职业技术

10、学院 【义务】【义务】 上机上机F F 2. 2. 建立菜单建立菜单 在在“工程工程Y Y中创建菜单，以中创建菜单，以M8_5.MNXM8_5.MNX为名保管。为名保管。 按图按图8-5A8-5A所示，建立所示，建立“计费、计费、“查询、查询、“退出三个退出三个菜单项。其中：菜单项。其中：“计费的结果为命令，调用程序计费的结果为命令，调用程序P8_5A.PRGP8_5A.PRG；“查询有查询有“个人收费查询和个人收费查询和“楼层收费统计楼层收费统计 两个子项，前两个子项，前一个子项的结果为命令，调用表单一个子项的结果为命令，调用表单F8_5B.SCXF8_5B.SCX，后一个子项的，后一个子项

11、的结果为过程，调用查询结果为过程，调用查询Q8_5.QPRQ8_5.QPR和表单和表单F8_5C.SCXF8_5C.SCX；“退出的退出的结果也是过程，要求使其在退出程序之前发出讯问，确认后再结果也是过程，要求使其在退出程序之前发出讯问，确认后再退出本系统，见图退出本系统，见图8-5D8-5D。 将将M8_5.MNXM8_5.MNX设置为由顶层表单设置为由顶层表单调用，生成可执行菜单文件调用，生成可执行菜单文件M8_5.MPRM8_5.MPR。 制造完成的菜单外观，见图制造完成的菜单外观，见图8-5A8-5A。 图图8-5A茂名职业技术学院 【义务分析】【义务分析】1 创建菜单创建菜单 可以用

12、系统菜单或工具钮、工程管理器创建。可以用系统菜单或工具钮、工程管理器创建。2 设置菜单由顶层表单调用设置菜单由顶层表单调用 菜单设计时，在菜单设计时，在“常规选项对话框中选择常规选项对话框中选择“顶层表单复选框。顶层表单复选框。3 设计菜单设计菜单 在在“菜单设计器窗口中设计菜单的方法结果的菜单设计器窗口中设计菜单的方法结果的4种选项的编辑。种选项的编辑。 完成后，先保管，再生成可执行菜单程序文件。完成后，先保管，再生成可执行菜单程序文件。4 主表单属性的设置主表单属性的设置 将主表单的将主表单的 ShowWindow 设置为设置为 2顶层表单；顶层表单； 将主表单的将主表单的 AutoCen

13、ter 设置为设置为 .T.真真 。5 主表单调用菜单的事件代码的编写主表单调用菜单的事件代码的编写 在主表单的在主表单的 Init 事件代码中添加调用菜单程序命令：事件代码中添加调用菜单程序命令： DO M8_5.MPR WITH THIS, M85 在主表单的在主表单的 Destroy 事件代码中添加去除菜单的命令，使得封锁表单事件代码中添加去除菜单的命令，使得封锁表单时同时去除菜单：时同时去除菜单： RELE MENU M85 EXTN茂名职业技术学院 6 6运用信息显示对话框函数运用信息显示对话框函数 格式：格式：=MESSAGEBOX(=MESSAGEBOX( ； , ,) 例如例如

14、 运转运转Messagebox(Messagebox(“您真的要退出本系统吗您真的要退出本系统吗? ?, , 4+32, 4+32,“提示信息提示信息) )语句将显示如上图所语句将显示如上图所 示对话框。示对话框。 图图8-5D8-5D的对话框的对话框, ,用用MESSAGEBOX()MESSAGEBOX()函数制造。函数制造。前往本课菜单前往本课菜单茂名职业技术学院 【学习目的】【学习目的】 编制程序编制程序【关键概念】【关键概念】 内存变量内存变量 程序的顺序、分支、循环三种构造程序的顺序、分支、循环三种构造茂名职业技术学院 【义务】【义务】 上机上机F F3. 3. 编制被调用的程序编制

15、被调用的程序 编制计费程序编制计费程序P8_5A.PRGP8_5A.PRG。计算表。计算表S8_5.DBFS8_5.DBF中的部分中的部分字段的记录值，计费方法：字段的记录值，计费方法：sf=ysssf=yss* *sdjsdj，df=ydsdf=yds* *ddj ddj ，mqf=ymqsmqf=ymqs* *mqdj mqdj ，ysfy=sf+df+mqf ysfy=sf+df+mqf 。计算结果见图计算结果见图8-5A8-5A。图图8-5A茂名职业技术学院 【相关知识】【相关知识】 几个与内存变量有关的命令几个与内存变量有关的命令 定义：定义：publ 全局变量全局变量 local

16、部分变量部分变量 显示：显示： 例例 disp memo like ?7_2 保管保管: 例例 save to 7_2A all like ?7_2 恢复恢复: 例例 rest from 7_2c addi茂名职业技术学院 程序的根本构造 1. 顺序构造 顺序构造是程序设计中最简单、最常用的根本构造。在该构造中，程序按语句出现的先后顺序依次执行。 现实上，程序中的命令假设不进展特殊阐明，就自动按其前后陈列顺序执行。我们以前引见的几个例题都是顺序构造程序设计标题。茂名职业技术学院 2. 2. 分支构造分支构造 单条件选择语句单条件选择语句 格式：格式：IF IF 命令序列命令序列11 ELSE

17、ELSE 命令序列命令序列22 ENDIF ENDIF 功能：假设条件为真功能：假设条件为真.T.T., ,那么执行那么执行命令序列命令序列1,1,假设条件为假假设条件为假.F.F., ,那么那么执行命令序列执行命令序列2 2。茂名职业技术学院 例例15-1 15-1 设出租车不超越设出租车不超越3 3公里时一概收费公里时一概收费7 7元钱，超越元钱，超越时那么超越部分每公里加收时那么超越部分每公里加收2.32.3元。试根据里程数编程元。试根据里程数编程计算并显示出应付车费。程序如下：计算并显示出应付车费。程序如下： CLEARCLEAR INPUT INPUT 请输入里程数：请输入里程数：

18、TO lc TO lc IF lc=3 IF lc=3 cf=7 cf=7 ELSE ELSE cf=7+(lc-3) cf=7+(lc-3)* *2.32.3 ENDIF ENDIF ? ?车费为：车费为：,cf,cf RETURN RETURN茂名职业技术学院 l多条件选择语句多条件选择语句l 格式：格式：DO CASEDO CASEl CASE CASE 1 l 命令序列命令序列11l CASE CASE 2l 命令序列命令序列22l . .l CASE CASE nl 命令序列命令序列nnl OTHERWISE OTHERWISEl 命令序列命令序列n+1n+1l ENDCASE EN

19、DCASE茂名职业技术学院 功能：功能： 系统依次判别各系统依次判别各 能否满足，假设某一能否满足，假设某一 为为.T.T.，就执行该，就执行该 下的下的 命令序列命令序列 ，执行后不再，执行后不再判别其它判别其它 ，而转去执行，而转去执行ENDCASEENDCASE后面的第一条命后面的第一条命令。令。 假设没有一个假设没有一个 为为.T.T.，就执行，就执行OTHERWISEOTHERWISE后面后面的的 命令序列命令序列 ，直到，直到ENDCASEENDCASE；假设没有；假设没有OTHERWISEOTHERWISE，那，那么不作任何操作就转向么不作任何操作就转向ENDCASEENDCAS

20、E之后的第一条命令。之后的第一条命令。茂名职业技术学院 例例15-215-2运用多条件选择语句的例题。给运用多条件选择语句的例题。给GZJ.DBFGZJ.DBF中每位职工添加工资，原中每位职工添加工资，原那么：职称为教授的根本工资加那么：职称为教授的根本工资加20%20%，副教授的加，副教授的加15%15%，讲师的加，讲师的加10%10%，否，否那么，假设根本工资低于那么，假设根本工资低于380380的按的按380380计算。计算。 set talk off set talk off use gzj use gzj Do while .not. Eof() Do while .not. Eof

21、() Do case Do case case case 职称职称= =“教授教授 repl repl 根本工资根本工资 with with 根本工资根本工资* *1.21.2 case case 职称职称= =“副教授副教授 repl repl 根本工资根本工资 with with 根本工资根本工资* *1.151.15 case case 职称职称= =“讲师讲师 repl repl 根本工资根本工资 with with 根本工资根本工资* *1.11.1 case case 根本工资根本工资380380 repl repl 根本工资根本工资 with 380 with 380 Endca

22、se Endcase skip skip Enddo Enddo use use set talk on set talk on return return茂名职业技术学院 3. 循环构造 在程序设计中，有时需求从某处开场有规律地反复执行某些类似的操作，这些类似的操作普通用循环构造程序设计来处理。在VFP中，提供了“当型、“步长型和“表扫描型循环构造。 当型循环 DO WHILE 格式： DO WHILE 命令序列 EXIT LOOP ENDDO 阐明： DO WHILE 和ENDDO 语句应配对运用，各占一行。茂名职业技术学院 功能：功能： 1 1当型循环执行的过程是：根据当型循环执行的过程

23、是：根据 逻辑值进展判别。逻辑值进展判别。假设假设 为为.T.T.，那么执行，那么执行 命令序列命令序列 ， 命令序列命令序列 执行完前往到执行完前往到 DO WHILE DO WHILE 语句，每执行一遍就判别一次语句，每执行一遍就判别一次 DO WHILE DO WHILE 语句中的语句中的 。假设。假设 依然为依然为.T.T.，那，那么继续执行么继续执行 命令序列命令序列 ，直到，直到 的逻辑值为的逻辑值为.F.F.，那么终了循环，转去执行那么终了循环，转去执行 ENDDO ENDDO 之后的第一条命令。之后的第一条命令。 2 2在在 命令序列命令序列 的适当位置可以放置的适当位置可以放

24、置 EXIT EXIT 和和 LOOP LOOP 语句，用以对循环过程作特殊处置。语句，用以对循环过程作特殊处置。EXIT EXIT 的功能是：的功能是：无条件终了循环命令。无条件终了循环命令。LOOP LOOP 语句的功能是：提早终了语句的功能是：提早终了本次循环命令。本次循环命令。茂名职业技术学院 3 3逐个表中符合条件的记录逐个表中符合条件的记录 先用先用LOCATELOCATE或或FINDFIND或或SEEKSEEK定位到符合条件的第一个记录上，定位到符合条件的第一个记录上，再用再用NOT EOF()NOT EOF()或或 FOUND() FOUND()作为循环条件，循环体内必需含有记

25、作为循环条件，循环体内必需含有记录指针挪动的语句。录指针挪动的语句。 例例15-315-3在在GZJ.DBFGZJ.DBF中给职称为教授的职工加工资中给职称为教授的职工加工资20%20%，每加一个就，每加一个就显示该职工的情况。显示该职工的情况。 set talk off set talk off use gzj use gzj locate for locate for 职称职称= =“教授教授 Do while found() Do while found() repl repl 根本工资根本工资 with with 根本工资根本工资* *1.21.2 display display co

26、ntinue continue Enddo Enddo use use茂名职业技术学院 4 4不定次数的循环不定次数的循环 先用某变量先用某变量=6=6作为循环条件，在循环体内用对话框函数作判别条件作为循环条件，在循环体内用对话框函数作判别条件, , 判别判别能否继续执行循环能否继续执行循环, ,这是这是DO DO 循环很典型的用法。循环很典型的用法。 例例15-415-4根据输入的姓名在根据输入的姓名在GZJ.DBFGZJ.DBF中查询工资情况。中查询工资情况。 set talk offset talk off use gzj use gzj x=6 x=6 Do while x=6 Do

27、while x=6 accept accept 输入要查的人名输入要查的人名: to xm: to xm locate for locate for 姓名姓名=xm=xm If found() If found() display display Else Else ? ?查无此人！查无此人！ Endif Endif x=messagebox( x=messagebox(还要查吗还要查吗?,4+32,?,4+32,提示提示) Endd Endd ? ?再见！再见！ Use Use RETU RETU茂名职业技术学院 l步长型循环步长型循环 FORFORl 格式：格式：l FOR FOR = T

28、O TO STEP STEP l 命令序列命令序列 l EXIT EXITl LOOP LOOPl ENDFOR/NEXT ENDFOR/NEXTl 功能：功能：l 首先将初值赋值给循环变量，然后判别循环变量的值能否超越首先将初值赋值给循环变量，然后判别循环变量的值能否超越终值，不超越就执行循环体，遇到终值，不超越就执行循环体，遇到ENDFORENDFOR或或NEXTNEXT语句，自动使循环变语句，自动使循环变量添加一个步长值，再将循环变量的值与终值比较，假设循环变量的量添加一个步长值，再将循环变量的值与终值比较，假设循环变量的值不超越终值，就再执行循环体，不断循环执行。假设循环变量的值值不超

29、越终值，就再执行循环体，不断循环执行。假设循环变量的值超越终值那么转去执行超越终值那么转去执行ENDFORENDFOR或或NEXTNEXT语句后面的第一条语句。语句后面的第一条语句。茂名职业技术学院 阐明：阐明： 1 1 、 、 都是数值表达式；假设步都是数值表达式；假设步长为正数，计数器添加；假设步长为负数，那么计数器长为正数，计数器添加；假设步长为负数，那么计数器减少；当减少；当 是是1 1时，可以省略时，可以省略STEPSTEP子句。子句。 2 2ENDFORENDFOR或或NEXTNEXT语句为循环终端语句，用以标明本循环语句为循环终端语句，用以标明本循环构造的终点。该语句必需和构造的

30、终点。该语句必需和FORFOR语句配对运用。语句配对运用。 3 3在循环体内的在循环体内的EXITEXIT和和LOOPLOOP语句，作用和用法与当型循语句，作用和用法与当型循环构造类似。环构造类似。 茂名职业技术学院 例例15-515-5编程求编程求S=1!+2! +n!S=1!+2! +n! set talk off set talk off input input “请输入终值请输入终值n3n3 to n to n s=0 s=0 For i=1 to n For i=1 to n t=1 t=1 For j=1 to I For j=1 to I t=t t=t* *j j Endfor

31、 Endfor s=s+t s=s+t Endfor Endfor ? ?“1 1！+2+2！+alltrim(str(n)+alltrim(str(n)+“！= =+alltrim(str(s)+alltrim(str(s)茂名职业技术学院 l表扫描型循环表扫描型循环 SCANSCANl 针对表记录、逐条处置表记录的一种循环。针对表记录、逐条处置表记录的一种循环。l 格式：格式：l SCAN SCAN 范围范围 FOR FOR |WHILE |WHILE 2l 语句序列语句序列 l EXITEXITl LOOP LOOPl ENDSCAN ENDSCANl 功能：功能：l 在当前表中给定范围

32、内对符合条件的记录逐个在当前表中给定范围内对符合条件的记录逐个执行语句序列，假设符合条件的记录处置终了，那么执行语句序列，假设符合条件的记录处置终了，那么执行执行ENDSCANENDSCAN后面的语句。后面的语句。茂名职业技术学院 阐明： 1范围有ALL、NEXT n、REST、RECORD n四种，省略时默以为ALL。 2EXIT和LOOP语句，功能和用法同其他循环构造类似。 3表扫描型循环构造每循环一遍，记录指针自动挪动到下一条记录，不需求设置SKIP语句。例15-6在主窗口中逐个显示GZJ.DBF中前5条记录中男性的记录。 use gzj Scan for 性别=男 next 5 dis

33、play Endscan ?显示终了！ retu茂名职业技术学院 【循环的归纳小结】【循环的归纳小结】 DO 循环的格式循环的格式 DO WHILE 命令序列命令序列 EXIT LOOP ENDDFOR 循环的格式循环的格式 FOR = TO STEP 命令序列命令序列 EXIT LOOP ENDFSCAN 循环的格式循环的格式 SCAN 范围范围 FOR |WHILE 命令序列命令序列 EXIT LOOP ENDS茂名职业技术学院 【本项义务的处理】【本项义务的处理】 由于有数据共享的问题，表单中的数据更由于有数据共享的问题，表单中的数据更新计算普通运用新计算普通运用SQL的数据更新命令。的

34、数据更新命令。 UPDA S8_5 SET SF = SDJ*YSS UPDA S8_5 SET DF = DDJ*YDS UPDA S8_5 SET MQF = MQDJ*YMQS UPDA S8_5 SET YSFY = MQF+SF+DF RETU 可见，这是一个顺序构造的编程问题。可见，这是一个顺序构造的编程问题。前往本课菜单前往本课菜单茂名职业技术学院 【学习目的】【学习目的】 导游、设计器、生成器等综合运用制造表单导游、设计器、生成器等综合运用制造表单 查询的方法查询的方法【关键概念】【关键概念】 控件的类库控件的类库 查询的分组统计查询的分组统计茂名职业技术学院 【义务】【义务】

35、 上机上机F FVFVF高新考试汇编高新考试汇编20192019版的第版的第8.58.5题题4. 4. 创建两个子表单创建两个子表单 按图按图8-5B8-5B所示，在所示，在“工程工程Y Y中创建个人收费中创建个人收费 查询子查询子表单表单( (运用表单导游运用表单导游) )，表单以，表单以F8_5B.SCXF8_5B.SCX为名保管。表为名保管。表单的数据源为表单的数据源为表S8_5.DBFS8_5.DBF。 按楼层分组制造楼层收费统计的查询。查询的数据源按楼层分组制造楼层收费统计的查询。查询的数据源为表为表S8_5.DBFS8_5.DBF，查询输出到表，查询输出到表S8_5A.DBFS8_

36、5A.DBF中，保管在中，保管在“工程工程Y Y的的“自在表中。查询文件以自在表中。查询文件以Q8_5.QPRQ8_5.QPR为名保为名保管在管在“工程工程Y Y的的“查询中。查询中。 按图按图8-5C8-5C所示，在所示，在“工程工程Y Y中创建楼层收费统计子表中创建楼层收费统计子表单单( (运用表单设计器运用表单设计器) )，以，以F8_5C.SCXF8_5C.SCX为名保管。表单的为名保管。表单的数据源为表数据源为表S8_5A.DBFS8_5A.DBF。结果见图结果见图8-5B8-5B、图、图8-5C8-5C。图图8-5B图图8-5C茂名职业技术学院 【义务分析】【义务分析】1本义务的表

37、单本义务的表单F8_5B可以运用表单导游制造，然后用表单设可以运用表单导游制造，然后用表单设计器进展规划方面的修正。计器进展规划方面的修正。2本义务的第本义务的第2点是要制造一个查询，经过查询构成一个楼层点是要制造一个查询，经过查询构成一个楼层收费表收费表S8_5A.DBF。为了完成这个查询，需求在表。为了完成这个查询，需求在表S8_5.DBF中中添加一个字段添加一个字段“lc，其各记录的值为，其各记录的值为“fh的百位数字。查询可的百位数字。查询可以用查询设计器制造，用以用查询设计器制造，用“lc作为分组，并运用求和函数完成查作为分组，并运用求和函数完成查询。询。3本义务的表单本义务的表单F

38、8_5C 运用表单设计器、生成器制造，数据运用表单设计器、生成器制造，数据源为查询构成的表源为查询构成的表S8_5A.DBF。F8_5C的的“ShowWindows属性属性要设置为：要设置为：“1在顶层表单中。在顶层表单中。茂名职业技术学院 【相关知识】 其实，表单F8_5B也可以直接用表单设计器制造。 添加控件 点击表单控件中的某个控件，再在表单中施放即可。 实例 添加文本按钮组的方法： 在“表单控件工具栏中进展如下三步操作 单击“查看类按钮，选择“添加命令； 在“翻开对话框中，选择要加载的通用数据支配控制按钮组类库文件VFP98WIZARDSWIZBTNS.VCX； 将控件TXTBTNS拖

39、放添加到表单中。茂名职业技术学院 表单对象的规划表单对象的规划 在表单中施放的各个对象，能够会很散乱，可以用在表单中施放的各个对象，能够会很散乱，可以用鼠标先将需求对齐的对象选定，再用规划工具栏中的各鼠标先将需求对齐的对象选定，再用规划工具栏中的各种对齐按钮使之对齐。种对齐按钮使之对齐。 图图1414茂名职业技术学院 用多种工具制造表单用多种工具制造表单 运用多种工具制造表单的普通步骤：运用多种工具制造表单的普通步骤：(1) (1) 用表单导游制造表单；用表单导游制造表单；(2) (2) 用表单设计器进展规划修正；用表单设计器进展规划修正；(3) (3) 添加表单控件，用表单生成器进展部分修正

40、；添加表单控件，用表单生成器进展部分修正；(4) (4) 编写一些必要的事件代码；编写一些必要的事件代码；(5) (5) 经过对控件、表单属性等的设置，修饰表单。经过对控件、表单属性等的设置，修饰表单。 茂名职业技术学院 属性的设置属性的设置1用属性窗口用属性窗口在设置框键入、选择或运用生成器，假设输入表达式，须在设置框键入、选择或运用生成器，假设输入表达式，须先键入先键入“=。2在运转中设置编写代码在运转中设置编写代码绝对援用格式：绝对援用格式：容器对象名容器对象名.对象名对象名.属性名属性名=属性值属性值例：例：Formset1.Text1.Value=DATE Formset1.Text

41、1.Forecolor=RGB128，0，0茂名职业技术学院 控件引见控件引见常用的控件常用的控件P267，21个个标签、文本、编辑、按钮、按钮组、选项、复选、组合、列表、标签、文本、编辑、按钮、按钮组、选项、复选、组合、列表、微调、表格微调、表格图像、计时器、页框、图像、计时器、页框、OLE对象、对象、O绑定、线条、外形、容器、绑定、线条、外形、容器、分隔、链接分隔、链接经过实例学习典型的用法。经过实例学习典型的用法。茂名职业技术学院 控件运用举例控件运用举例例例15-7 制造字体能变形的表单制造字体能变形的表单Bd8-1zx.scx。运转。运转结果见右图：结果见右图： 内有：内有：1个标签

42、框，个标签框，1个选项组，个选项组，3个复选组，个复选组，1个组合个组合框，框，1个按钮。个按钮。茂名职业技术学院 1.Check1的Click代码：if this.value=1 thisform.label1.fontbold=.t.else thisform.label1.fontbold=.f.Endif2. Check2的Click代码：if this.value=1 thisform.label1.fontunderline=.t.3. Check3的Click代码： if this.value=1 thisform.label1.fontItalic=.t.4.OptionGro

43、up1的Click代码：n=this.valuedo case case n=1 thisform.label1.fontname=宋体 case n=2 thisform.label1.fontname=楷体_GB2312 case n=3 thisform.label1.fontname=隶书 case n=4 thisform.label1.fontname=华文新魏endc茂名职业技术学院 5bo1的Init代码：this.additem(15)this.additem(18)this.additem(“20)this.additem(24)6. Combo1的Interactivechang代码：thisform.label1.fontsize=val(alltrim(this.displayvalue)7mand1的Click代码：thisform.release8.标签的属性设置略 前往本课菜单前往本课菜单茂名职业技术学院 【学习目的】【学习目的】 用工程管理器连编运用程序文件用工程管理器连编运用程序文件 【关键概念】【关键概念】 主文件主文件 包含和排除包含和排除 运用程序文件运用程序文件茂名职业技术学院 【义务】【义务】 上机