main.prg

学生管理系统

CLEAR
SET TALK OFF
SET SYSMENU OFF
SET SYSMENU TO
SET DELETED OFF
SET STATUS BAR OFF
SET DATE ANSI
SET SAFETY OFF
CLEAR ALL
CLOSE ALL
_screen.windowstate=2
_screen.caption=" 学生管理系统"
do form f:\学生管理系统\学生管理系统表单 to ret
if ret=.t.
do  f:\学生管理系统\学生管理菜单.mpr
read events

endif
SET SYSMENU ON
SET SYSMENU TO DEFAULT
SET STATUS  BAR  ON
CLOSE ALL
CLEAR ALL
RETURN