main.prg

来自「学生成绩管理系统 学生成绩管理系统学生成绩管理学生成学生成绩管理系统绩管理系统系」· PRG 代码 · 共 35 行

set talk off
set sysmenu off
set sysmenu to
set score off
set safe off
set status bar off
set notify off
set deleted on
set cent on
set path to d:\zdz
close all
clea
clear all
with _screen
  .visible=.t.
  .closable=.t.
  .controlbox=.t.
  .maxbutton=.t.
  .minbutton=.t.
  .movable=.t.
  .top=0
  .left=0
  .windowstate=2
  .caption="试题库管理系统"
endwith

OPEN DATABASE d:\zdz\st.dbc
*DO FORM frmstedit
DO MENU.MPR
READ EVENTS
CLOSE DATABASE
SET SYSMENU TO DEFAULT
close all
clear all