主程序.prg

来自「由VFP开发的学籍管理信息系统」· PRG 代码 · 共 31 行

_SCREEN.WINDOWSTATE=2
_SCREEN.CAPTION="学籍信息管理系统  "
_SCREEN.CLOSABLE=.F.
_SCREEN.CONTROLBOX=.F.
_SCREEN.MAXBUTTON=.F.
_SCREEN.MINBUTTON=.F.
_SCREEN.BACKCOLOR=RGB(50,100,128)
CLOSE ALL
CLEAR ALL
CLEA
SET SYSMENU OFF
SET SYSMENU TO
SET TALK OFF
SET SAFETY OFF
SET STATUS BAR OFF
RESTORE FROM C:\EXAMPLE\2\学籍管理系统\PASS1.MEM ADDI
DO FORM C:\EXAMPLE\2\学籍管理系统\封面.SCX TO NUM
IF NUM
  DO C:\EXAMPLE\2\学籍管理系统\菜单.MPX
  READ EVENT
ENDIF
SET SYSMENU TO DEFAULT
SET SYSMENU ON
SET STATUS BAR ON
CLOSE ALL
CLEAR ALL
RETURN