
程序代码:form_Stu = CREATEOBJECT("_Stu")
form_Stu.Show
READ EVENTS
RETURN
DEFINE CLASS _Stu AS Form
AutoCenter=.T.
BorderStyle=0
Caption = "学生信息管理"
Height=600
MaxButton=.F.
ShowWindow=2
Width=800
WindowState = 0
ADD OBJECT XskGrid AS grid WITH;
AllowCellSelection=.F.
Height=500
Left=10
Top=100
Width=700
PROCEDURE Load
USE xsk ORDER xh IN 0
ENDPROC
PROCEDURE Unload
CLEAR EVENTS
CLOSE TABLES ALL
ENDPROC
ENDDEFINE