4++基于VFP的OOP实现.ppt

4 基于VFP的OOP实现 内容简介 本章讲述表单类、数据环境、控件应用、按钮控件、框类控件及其他控件、表单布局设计、组件技术、OLE控件、菜单设计、主程序设计、项目集成、报表设计等。 学习目标 掌握基于VFP的OOP的各种实现方法。 学习指南 理论联系实践 难点与重点 表单、各种控件、菜单、项目集成、报表等。 4 基于VFP的OOP实现 表单类 数据环境 控件应用 按钮类控件 框类控件 其他控件 表单布局设计 组件技术 OLE控件 菜单设计 主程序设计 项目集成 报表 4 .1 表单类 表单设计器 操作表单 表单属性和方法 表单集 表单设计器（1） 表单设计器（2） 操作表单（1） 创建表单： （1）函数方式 clea m1=createobject(form) m1.show(1) 操作表单（2） 创建表单： （2）命令方式 CREATE FORM AA 操作表单（3） 创建表单： （3）启动表单设计器 （4）向导方式 操作表单（4） 修改表单： （1）MODI FORM 表单名 （2）[OPEN] 操作表单（5） 执行表单： （1）DO FORM 表单名 （2）[FORM] →[RUN FORM] 操作表单（6） 保存表单： （1）[FILE] →[SAVE] （2）[FIEL] →[SAVE AS] 表单属性和方法（1） 属性：HEIGHT 表单属性和方法（2） 属性：AUTOCENTER 表单属性和方法（3） 属性： CAPTION CONTROLBOX TOP LEFT NAME 表单属性和方法（4） 属性： FORECOLOR、 BACKCOLOR 表单属性和方法（5） 属性： FORECOLOR、 BACKCOLOR举例 表单属性和方法（6） 属性： BACKCOLOR举例：代码 frmMyForm = CREATEOBJECT(Form) Create a Form frmMyForm.Closable = .F. Disable the Control menu box frmMyForm.AddObject(cmdCommand1,cmdMyCmndBtn) Add Command button frmMyForm.AddObject(opgOptionGroup1,opgMyOptGrp) Add Option Group frmMyForm.AddObject(shpCircle1,shpMyCircle) Add Circle Shape frmMyForm.AddObject(shpEllipse1,shpMyEllipse) Add Ellipse Shape frmMyForm.AddObject(shpSquare,shpMySquare) Add Box Shape frmMyForm.cmdCommand1.Visible =.T. Quit Command button visible frmMyForm.opgOptionGroup1.Buttons(1).Caption = \Circle frmMyForm.opgOptionGroup1.Buttons(2).Caption = \Ellipse frmMyForm.opgOptionGroup1.Buttons(3).Caption = \Square frmMyForm.opgOptionGroup1.SetAll(Width, 100) Set Option group width frmMyForm.opgOptionGroup1.Visible = .T. Option Group visible frmMyForm.opgOptionGroup1.Click Show the circle frmMyForm.SHOW Display the form READ EVENTS Start event processing 表单属性和方法（7） 属性： BACKCOLOR举例：代码 DEFINE CLASS opgMyOptGrp AS OptionGroup Create an Option Group ButtonCount = 3 Three Option buttons Top = 10 Left = 10 Height = 75 Width = 100 PROCEDURE Click ThisForm.shpCircle1.Visible =