D BUTTON CANCEL = .T. &;&; DEFAULT CANCEL COMMAND BUTTON (ESC) LEFT = 125 &;&; COMMAND BUTTON COLUMN TOP = 210 &;&; COMMAND BUTTON ROW HEIGHT = 25 &;&; COMMAND BUTTON HEIGHT PROCEDURE CLICK CLEAR EVENTS &;&; STOP EVENT PROCESSING, CLOSE FORM ENDDEFINE
?
DEFINE CLASS shpMyCircle AS SHAPE &;&; Create a circle Top = 10 Left = 200 Width = 100 Height = 100 Curvature = 99 BACKColor = RGB(255,0,0) &;&; Red ENDDEFINE
表单属性和方法(9)
属性: BACKCOLOR举例:代码 DEFINE CLASS shpMyEllipse AS SHAPE &;&; Create an ellipse Top = 35 Left = 200 Width = 100 Height = 50 Curvature = 99 BackColor = RGB(0,128,0) &;&; Green ENDDEFINE
?
DEFINE CLASS shpMySquare AS SHAPE &;&; Create a square Top = 10 Left = 200 Width = 100 Height = 100 Curvature = 0 BackColor = RGB(0,0,255) &;&; Blue ENDDEFINE
表单属性和方法(10)
?
上述举例的可视化实现方法
表单属性和方法(11)
?
属性: 增加新属性
表单属性和方法(12)
?
表单事件和方法:INIT事件:举例(1) 代码:
表单属性和方法(13)
?
表单事件和方法:INIT事件:举例(2) 表单:
表单属性和方法(14)
?
表单事件和方法:INIT事件:举例(2) 代码:
表单属性和方法(15)
?
表单事件和方法:INIT事件:举例(2) 执行结果:
表单属性和方法(16)
?
表单事件和方法:DESTROY事件
表单属性和方法(17)
?
表单事件和方法: show方法:[FormSet.]Object.Show([nStyle]) hide方法:Object.Hide release方法:Object.Release refresh方法:[Form.]Object.Refresh
表单集(1)
创建两个表单,并创建一个属性,在两个表单之间进行
通信。 (1)创建一个表单 (2)[FORM] →[CREATE FORM SET] ,创建表单集 (3)[ADD FORM], 再创建一个表单 (4)为FORMSET 添加一个新属性:tt (5)FORM1.DBLCLICK的代码: thisformset.tt=5 ? Thisformset.tt (6)FORM2. DBLCLICK的代码: ? Thisformset.tt
?
表单集(2)
设计:
表单集(3)
运行结果:
4.2 数据环境
数据环境示例 (1)建立一个表单;(2)在表单上建立一个表格对象;(3)为表格对象建立一个 数据环境
?
数据环境(1)
?
数据环境示例:表格生成器
数据环境(2)
?
数据环境示例:设计环境
数据环境(3)
?
数据环境示例:
运行数据环境
数据环境(4)
?
创建游标:
数据环境(5)
游标类的属性:见P194 (1)ALIAS (2)BufferModeOverride (3)CursorSource (4)DATABASE (5)EXCLUSIVE (6)FILTER (7)NODATAONLOAD (8)ORDER (9)READONLY
?
数据环境(6)
?
关系(relation)类:建立
数据环境(7)
?
数据环境(DATAENVIRONMENT)类:包含关系说明
数据环境(8)
数据环境(DATAENVIRONMENT)类 属性: AUTOCLOSETABLE AUTOOPENTABLE INITALSELECTEDALIAS
?
4.3 控件应用
?
VFP的控件类型
控件应用(1)
VFP的控件类型:举例 (1)创建表单,设置属性值
?
控件应用(2)
VFP的控件类型:举例 (2)创建数据环境,设置游标学生
注册表的属性
?
控件应用(3)
VFP的控件类型:举例 (3)使用控件:产生标签控件,设置标签控件的属性
?
控件应用(4)
VFP的控件类型:举例 (3)使用控件:产生线条控件,设置线条控件的属性
?
控件应用(5)
VFP的控件类型:举例 (3)使用控件:关于形状控件:创建与属性
?
控件应用(6)
VFP的控件类型:举例 (4)文本框控件:创建、生成器、属性
?
控件应用(7)
VFP的控件类型:举例 (4)文本框控件:编写代码:WHEN事件 If empty(this.value) messagebox(―编写规则:前4位是年代,5、6位是班编号,7、8位是序号”) ENDIF
?
控件应用(8)
VFP的控件类型:举例 (4)添加命令按钮:创建、属性、事件代码
?
控件应用(8)
VFP的控件类型:举