基于VFP的OOP实现(续)

1、4.8 组件技术概述组件技术概述 n组件技术演变组件技术演变（1 1）从定制控制到）从定制控制到OLE2.0OLE2.0（2 2）ActiveXActiveX 组件技术概述组件技术概述(1) n组件对象模型组件对象模型（1 1）COMCOM（2 2）DCOMDCOM 组件技术概述组件技术概述(2) nVFPVFP的的COMCOM对象功能对象功能（1 1）使用）使用CREATEOBJECTCREATEOBJECT（）（）函数创建对象函数创建对象举例：在举例：在VFPVFP中启动中启动WORDWORD（程序）程序）Ox=createobject(“word.application”)Ox=crea

2、teobject(“word.application”)Ox.visible=.t.Ox.visible=.t.Ox.quitOx.quit 组件技术概述组件技术概述(3) nVFPVFP的的COMCOM对象功能对象功能（1 1）使用）使用CREATEOBJECTCREATEOBJECT（）（）函数创建对象函数创建对象举例：在举例：在VFPVFP中启动中启动WORDWORD（运行结果）运行结果） 组件技术概述组件技术概述(4) nVFPVFP的的COMCOM对象功能对象功能（1 1）使用）使用GETOBJECTGETOBJECT（）（）函数创建对象函数创建对象 格式：格式：GETOBJECTG

3、ETOBJECT（文件名文件名 ，类名，类名 ）举例：创建举例：创建EXCELEXCEL对象，并在表格中输入信息对象，并在表格中输入信息（代码）代码）oe1=getobject(,excel.sheet)oe1=getobject(,excel.sheet)xapp=oe1.applicationxapp=oe1.applicationxapp.visible=.t.xapp.visible=.t.xt=xapp.activesheetxt=xapp.activesheetxt.cells(1,1).value=xt.cells(1,1).value=学号学号 xt.cells(1,2).va

4、lue=xt.cells(1,2).value=课程号课程号 xt.cells(1,3).value=xt.cells(1,3).value=成绩成绩 组件技术概述组件技术概述(5) nVFPVFP的的COMCOM对象功能对象功能（1 1）使用）使用GETOBJECTGETOBJECT（）（）函数创建对象函数创建对象举例：创建举例：创建EXCELEXCEL对象，并在表格中输入信息对象，并在表格中输入信息（执行结果）执行结果） 4.9 OLE控件应用控件应用 nOLEOLE对象嵌入与链接对象嵌入与链接（1 1）向数据表的通用字段中嵌入图片（步骤）向数据表的通用字段中嵌入图片（步骤） 打开数据表打

5、开数据表 双击双击gengen字段字段 编辑菜单编辑菜单 插入对象菜单插入对象菜单 调出插入对象对话框调出插入对象对话框 选择选择“新建新建”按钮按钮 选择新建选择新建对象类型对象类型 调出相应编辑器调出相应编辑器 编辑图片编辑图片 gengen字段变为字段变为GenGen OLE控件应用控件应用(1) nOLEOLE对象嵌入与链接对象嵌入与链接（1 1）向数据表的通用字段中嵌入图片（图形示例）向数据表的通用字段中嵌入图片（图形示例）OLE控件应用控件应用(2) nOLEOLE对象嵌入与链接对象嵌入与链接（1 1）向数据表的通用字段中链接图片（步骤）向数据表的通用字段中链接图片（步骤） 打开数

6、据表打开数据表 双击双击gengen字段字段 编辑菜单编辑菜单 插入对象菜单插入对象菜单 调出插入对象对话框调出插入对象对话框 选择选择“由文件创建由文件创建”按钮按钮 选选择链接的文件择链接的文件 gengen字段变为字段变为GenGen OLE控件应用控件应用(3) nOLEOLE对象嵌入与链接对象嵌入与链接（1 1）向数据表的通用字段中链接图片（图形示例）向数据表的通用字段中链接图片（图形示例）OLE控件应用控件应用(4) nOLEOLE对象嵌入与链接对象嵌入与链接（1 1）命令方式）命令方式APPEND general APPEND general from olefrom linkl

7、ink（2 2）嵌入与链接的区别嵌入与链接的区别OLE控件应用控件应用(5) n绑定控件的应用绑定控件的应用举例：阅读和修改图片（构建和设计）举例：阅读和修改图片（构建和设计） 设计一个设计一个OLEOLE绑定型控件绑定型控件 将将OLEOLE控件的控件的CONTROLSOURCECONTROLSOURCE属性设置为属性设置为GENGEN的字段名。的字段名。OLE控件应用控件应用(6) n绑定控件的应用绑定控件的应用举例：阅读和修改图片（运行）举例：阅读和修改图片（运行）嵌入方式嵌入方式OLE控件应用控件应用(7) n绑定控件的应用绑定控件的应用举例：阅读和修改图片（运行）举例：阅读和修改图片

8、（运行）链接方式链接方式链接方式只能显示图表，需双击才能调出图片，同时需要相应的图片阅读软链接方式只能显示图表，需双击才能调出图片，同时需要相应的图片阅读软件。件。OLE控件应用控件应用(8) nMS GraphMS Graph的应用的应用举例：使用举例：使用MS GRAPH MS GRAPH 画图（设计）画图（设计）OLE控件应用控件应用(9) nMS GraphMS Graph的应用：的应用：举例：使用举例：使用MS GRAPH MS GRAPH 画图（代码设计：画图（代码设计：FORMFORM的的INITINIT事件）事件）crlf=chr(13)+chr(10) &crlf=c

9、hr(13)+chr(10) &回车换行回车换行tab=chr(9) tab=chr(9) bartype=-4099 &bartype=-4099 &棒状图形棒状图形set safety offset safety offcreate table tg (gen1 g)create table tg (gen1 g)set safety onset safety onappe blankappe blankgdata=+TAB+gdata=+TAB+数据库数据库+TAB+TAB+操作系统操作系统+crlf+TAB+91+TAB+60+crlf+TAB+60+TAB+8

10、0+crlfcrlf+TAB+91+TAB+60+crlf+TAB+60+TAB+80+crlfthis.lockscreen=.t.this.lockscreen=.t.appe general gen1 class msgraph.chart data m.gdataappe general gen1 class msgraph.chart data m.gdatathis.lockscreen=.f.this.lockscreen=.f.OLE控件应用控件应用(10) nMS GraphMS Graph的应用：的应用：举例：使用举例：使用MS GRAPH MS GRAPH 画图（运行结果

11、）画图（运行结果）OLE控件应用控件应用(11) n在表单中插入在表单中插入POWERPOINTPOWERPOINT文稿文稿： （设计（设计1 1）OLE控件应用控件应用(12) n在表单中插入在表单中插入POWERPOINTPOWERPOINT文稿文稿： （设计（设计2 2）OLE控件应用控件应用(13) n在表单中插入在表单中插入POWERPOINTPOWERPOINT文稿文稿： （设计（设计3 3）OLE控件应用控件应用(14) n在表单中插入在表单中插入POWERPOINTPOWERPOINT文稿文稿： （运行）（运行）OLE控件应用控件应用(15) n添加式添加式ACTIVE XAC

12、TIVE X控件的应用控件的应用（1 1）将）将ACTIVE XACTIVE X控件放置在表单控件中：添加过程控件放置在表单控件中：添加过程 工具工具 选项选项 控件控件 选择选择ACTIVE XACTIVE X控件按钮控件按钮 选择控选择控件件 确定按钮确定按钮 OLE控件应用控件应用(16) n添加式添加式ACTIVE XACTIVE X控件的应用控件的应用（1 1）将）将ACTIVE XACTIVE X控件放置在表单控件中：控件的调出控件放置在表单控件中：控件的调出OLE控件应用控件应用(17) n添加式添加式ACTIVE XACTIVE X控件的应用控件的应用（1 1）将）将ACTIV

13、E XACTIVE X控件放置在表单控件中：控件放置在表单中控件放置在表单控件中：控件放置在表单中OLE控件应用控件应用(18) n添加式添加式ACTIVE XACTIVE X控件的应用控件的应用（2 2）将）将ACTIVE XACTIVE X控件放置在表单控件中：设置控件的控件放置在表单控件中：设置控件的CONTROLSOURCECONTROLSOURCEOLE控件应用控件应用(19) n添加式添加式ACTIVE XACTIVE X控件的应用控件的应用（3 3）运行）运行4.9 菜单设计菜单设计 n创建菜单系统创建菜单系统n设计用户菜单界面设计用户菜单界面n给菜单项指定工作给菜单项指定工作创

14、建菜单系统创建菜单系统(1)(1) n基本原则基本原则（1 1）菜单的标题应表现最大量的信息，又要简单易懂。）菜单的标题应表现最大量的信息，又要简单易懂。（2 2）合理放置菜单中的菜单项。分为逻辑组、逻辑组之）合理放置菜单中的菜单项。分为逻辑组、逻辑组之间插入分隔符。一个菜单的菜单项数目不能过多，子间插入分隔符。一个菜单的菜单项数目不能过多，子菜单的创建。菜单的创建。（3 3）菜单项的访问键和快捷键的设置）菜单项的访问键和快捷键的设置（4 4）英文菜单系统的菜单名，注意大小写混合字体。）英文菜单系统的菜单名，注意大小写混合字体。创建菜单系统创建菜单系统(2)(2) n新建菜单新建菜单：快捷菜单

15、设快捷菜单设计器计器（1 1）文件）文件新建新建菜单菜单新建文件新建文件（2 2）进入）进入“新建菜单新建菜单”对话框对话框菜菜单单菜单设计器菜单设计器（3 3）进行菜单设计）进行菜单设计（4 4）使用）使用“预览预览”查看菜单设计的查看菜单设计的情况情况（5 5）菜单）菜单生成，产生一个生成，产生一个.MNX.MNX的的菜单文件和一个同名的菜单文件和一个同名的.MPR.MPR文件。文件。（6 6）.MPR.MPR文件是一个菜单程序，文件是一个菜单程序，do do * * *.mpr.mpr将执行该菜单程序。将执行该菜单程序。设计用户菜单界面设计用户菜单界面(1)(1) n添加添加VFPVFP

16、系统菜单（整体）系统菜单（整体）（1 1）进入菜单设计器）进入菜单设计器（2 2）从）从“菜单菜单”菜单中选择菜单中选择“快速菜单快速菜单”（3 3）添加或更改菜单项，定制）添加或更改菜单项，定制用户的菜单系统用户的菜单系统设计用户菜单界面设计用户菜单界面(2)(2) n添加添加VFPVFP系统菜单（单个）系统菜单（单个）（1 1）进入菜单设计器）进入菜单设计器（2 2）选择以一个二级菜单）选择以一个二级菜单（3 3）单击）单击“插入栏插入栏”按钮，弹按钮，弹出插入系统菜单条出插入系统菜单条（4 4）选择要插入的系统菜单项，）选择要插入的系统菜单项，单击单击“插入插入”按钮按钮设计用户菜单界面

17、设计用户菜单界面(2)(2) n添加子菜单添加子菜单（1 1）进入菜单设计器，并选择需要添加子菜单的菜）进入菜单设计器，并选择需要添加子菜单的菜单项单项（2 2）在）在“结果结果”栏中设置为栏中设置为“子菜单子菜单”选项，并单选项，并单击击“创建创建”按钮按钮（3 3）创建该子菜单的菜单项）创建该子菜单的菜单项（4 4）通过）通过“菜单级菜单级”选择主菜单项，回到主菜单的选择主菜单项，回到主菜单的编辑状态编辑状态设计用户菜单界面设计用户菜单界面(3)(3) n分组菜单项分组菜单项（1 1）进入菜单设计器）进入菜单设计器（2 2）在分组的位置插入一栏空菜单项）在分组的位置插入一栏空菜单项（3 3

18、）在空菜单项名处输入）在空菜单项名处输入:_:_给菜单项指定工作给菜单项指定工作(1)(1) n设置访问键设置访问键（1 1）进入菜单设计器）进入菜单设计器（2 2）在）在“菜单名称菜单名称”的菜单标题后面添加：的菜单标题后面添加： （* *），其中），其中* *为访问键的字母为访问键的字母给菜单项指定工作给菜单项指定工作(2)(2) n设置键盘快捷键设置键盘快捷键快捷键与访问键的区别：前者可以快捷键与访问键的区别：前者可以在菜单没有激活的情况下，选中在菜单没有激活的情况下，选中并执行菜单项。并执行菜单项。（1 1）进入菜单设计器，选中一个菜）进入菜单设计器，选中一个菜单项单项（2 2）单击）

19、单击“选项选项”按钮，进入按钮，进入“提提示选项示选项”对话框对话框（3 3）在）在“键标签键标签”框中定义快捷键。框中定义快捷键。定义方式：直接按下所需的组合定义方式：直接按下所需的组合键键（4 4）“键说明键说明”栏可键入用户希望栏可键入用户希望在菜单项的右边出现的文本。默在菜单项的右边出现的文本。默认：与认：与“键标签键标签”框中内容相同框中内容相同给菜单项指定工作给菜单项指定工作(3)(3) n设置菜单项的启动条件设置菜单项的启动条件（1 1）进入菜单设计器，选中一个菜）进入菜单设计器，选中一个菜单项单项（2 2）单击）单击“选项选项”按钮，进入按钮，进入“提提示选项示选项”对话框对话

20、框（3 3）在）在“跳过跳过”框中输入一个逻辑框中输入一个逻辑表达式。运行时，当该逻辑表达表达式。运行时，当该逻辑表达式的值为式的值为.f.f.时，启动该菜单项，时，启动该菜单项，否则将禁止该菜单选项否则将禁止该菜单选项给菜单项指定工作给菜单项指定工作(4)(4) n为菜单项指定任务：命为菜单项指定任务：命令令（1 1）进入菜单设计器，选中一个菜）进入菜单设计器，选中一个菜单项单项（2 2）在）在“结果结果”框中选择框中选择“命令命令”（3 3）在）在“结果结果”右边框中输入一个右边框中输入一个输入一条命令。如：输入一条命令。如： release allrelease all给菜单项指定工作给

21、菜单项指定工作(4)(4) n为菜单项指定任务：打为菜单项指定任务：打开表单开表单（1 1）进入菜单设计器，选中一个菜）进入菜单设计器，选中一个菜单项单项（2 2）在）在“结果结果”框中选择框中选择“命令命令”（3 3）在）在“结果结果”右边框中输入打开右边框中输入打开表单命令，如：表单命令，如： do form registordo form registor给菜单项指定工作给菜单项指定工作(4)(4) n为菜单项指定任为菜单项指定任务：使用过程务：使用过程（1 1）进入菜单设计器，）进入菜单设计器，选中一个菜单项选中一个菜单项（2 2）在）在“结果结果”框中选框中选择择“过程过程”（3 3

22、）点击）点击“结果结果”右边右边的的“创建创建”按钮，进按钮，进入过程编辑器入过程编辑器（4 4）添加用户代码）添加用户代码（5 5）该代码作用域仅为）该代码作用域仅为该菜单项。该菜单项。4.10 主程序设计n主程序代码：主程序代码：* * * * *初始化初始化set excl offset excl offclear allclear allclearclearSET SAFE OFFSET SAFE OFF* * * * *运行注册窗口运行注册窗口DO form regDO form regread eventsread events* * * * *现场恢复现场恢复set consol

23、e onset console onset dele offset dele offset echo onset echo onset esca offset esca offset exact offset exact offset help onset help onset talk onset talk onset safe offset safe off主程序设计 n主文件的设置：主文件的设置：4.11 项目集成 n项目管理器概述：创建项目管理器项目管理器概述：创建项目管理器项目集成(1) n项目管理器概述：项目管理器说明（项目管理器概述：项目管理器说明（1 1）项目集成(2) n项目

24、管理器概述：项目管理器说明（项目管理器概述：项目管理器说明（2 2）项目集成(3) n项目管理器概述：项目管理器说明（各种按钮说明）项目管理器概述：项目管理器说明（各种按钮说明）项目集成(4) n项目管理器应用：添加和设置主程序项目管理器应用：添加和设置主程序项目集成(5) n项目管理器应用：添加数据库和自由表项目管理器应用：添加数据库和自由表项目集成(6) n项目管理器应用：输入开发者信息（项目管理器应用：输入开发者信息（1 1）项目集成(7) n项目管理器应用：输入开发者信息（项目管理器应用：输入开发者信息（2 2）项目集成(8) n连编连编项目集成(9) n运行程序运行程序4.12 报表

25、 n应用报表设计应用报表设计( (举例举例) )：表单：表单报表(1) n应用报表设计：打印按钮代码应用报表设计：打印按钮代码报表(2) n应用报表设计：打印表单应用报表设计：打印表单报表(3) n应用报表设计：打印表单代码应用报表设计：打印表单代码报表(4) n应用报表设计：打印表单代码应用报表设计：打印表单代码报表(5) n应用报表设计：打印表单代码应用报表设计：打印表单代码报表(6) n应用报表设计：报表设计应用报表设计：报表设计报表（7） n报表设计器报表设计器报表(8) n报表设计器：报表控件报表设计器：报表控件报表(9) n页面设置：页面布局页面设置：页面布局报表(10) n快速报

26、表：设计（快速报表：设计（1 1）报表(11) n快速报表：设计（快速报表：设计（2 2）报表(12) n快速报表：设计（快速报表：设计（3 3）报表(13) n快速报表：设计（快速报表：设计（4 4）报表(14) n快速报表：设计（快速报表：设计（5 5）报表(15) n报表的存储与预览报表的存储与预览报表(16) n报表格式概述：报表格式概述：（1 1）报表格式类型）报表格式类型（2 2）报表数据来源）报表数据来源（3 3）带区分类）带区分类报表(17) n域控件设计：数据环境域控件设计：数据环境报表(18) n域控件设计：报表控件中的域控件域控件设计：报表控件中的域控件报表(19) n域

27、控件设计：报表表达式域控件设计：报表表达式报表(20) n域控件设计：设置输出格式域控件设计：设置输出格式报表(21) n域控件设计：域控件位置设置域控件设计：域控件位置设置报表(22) n域控件设计：溢出伸展设计域控件设计：溢出伸展设计报表(23) n域控件设计：打印条件设置域控件设计：打印条件设置报表(24) n修改域控件属性：修改域控件属性：（1 1）双击域控件；（）双击域控件；（2 2）右击域控件，弹出菜单中的）右击域控件，弹出菜单中的“属性属性”报表(25) n调整域控件大小：调整域控件大小：报表(26) n调整域控件位置：调整域控件位置：报表(27) n调整域控件：对象排列调整域控件：对象排列报表(28) n调整域控件：对象成组与取消调整域控件：对象成组与取消报表(29) n标签控件设计