学生管理系统.bak

来自「小型的学生考试系统」· BAK 代码 · 共 15 行

set defa to F:\学生管理系统   &&根据自己的目录来设
_SCREEN.VISIBLE=.F.
do form 封面.scx 
read event
set talk off
close all
keyb "{ctrl+f4}"
modi wind screen titl "学生管理系统"
clea
do 学生管理系统.mpr
read event
modify window screen
set sysmenu to default
activate window command