ex_class.prg

VF程序设计电子课件 VF程序设计电子课件

*  Ex_Cgrid 程序
SET DEFAULT TO E:\CJGL
USE xs
MyForm = CREATEOBJECT('Form')  
MyForm.Width=480
MyForm.Closable = .f.  
MyForm.AddObject('cmdEXIT1','cmdEXIT')  
MyForm.AddObject('Grid1','Grid')  
WITH MyForm.Grid1
	.ColumnCount=6
	.Left = 25    
	.Width=400
	.Visible = .T.  
	.SetAll("DynamicBackColor","IIF(.NOT.性别,RGB(0,255,0) ,RGB(255,255,255))","Column")
												&& 性别为女的记录底色为绿色
	.Column1.Header1.Caption=Field(1)	
	.Column2.Header1.Caption=Field(2)	
	.Column3.Header1.Caption=Field(3)	
	.Column4.Header1.Caption=Field(4)	
	.Column5.Header1.Caption=Field(5)	
	.Column6.Header1.Caption=Field(6)	
ENDWITH
MyForm.cmdExit1.Visible =.T.  
MyForm.SHOW  
READ EVENTS  

DEFINE CLASS cmdEXIT AS CommandButton 
    Caption = '退出'  
    Cancel = .T.  
    Left = 125  
    Top = 210  
    Height = 25  

    PROCEDURE Click
    	CLEAR EVENTS  
    	CLOSE ALL  
ENDDEFINE