学生管理系统.prg

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

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