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