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 = "\
表单属性和方法(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 =
.F. &;&; Hide the circle ThisForm.shpEllipse1.Visible = .F. &;&; Hide the ellipse ThisForm.shpSquare.Visible = .F. &;&; Hide the square DO CASE CASE ThisForm.opgOptionGroup1.Value = 1 ThisForm.shpCircle1.Visible = .T. &;&; Show the circle CASE ThisForm.opgOptionGroup1.Value = 2 ThisForm.shpEllipse1.Visible = .T. &;&; Show the ellipse CASE ThisForm.opgOptionGroup1.Value = 3 ThisForm.shpSquare.Visible = .T. &;&; Show the square ENDCASE ENDDEFINE
?
表单属性和方法(8)
属性: BACKCOLOR举例:代码 DEFINE CLASS cmdMyCmndBtn AS CommandButton &;&; Create Command button Caption = '\