thisform.label1.left=thisform.width+10
endif
Intrerval=13
Command2的代码
Caption=进入系统
FontName=华文琥珀
Click= do form 主菜单.scx
thisform.release
Command1的代码
Caption=退出系统
FontName=华文琥珀
Click= thisform.release
主菜单表单
Command1的代码
Caption=学生基本成绩管理
Click= do form 基本成绩1.scx
thisform.release