main.prg

来自「初学实例:学生选修课及成绩管理系统,部分功能有待改善,菜单部分未完成」· PRG 代码 · 共 17 行

IF SET("Near")="ON"
  SET NEAR OFF
  cNearval="ON"
ELSE
  cNearval="OFF"
ENDIF

SET TALK OFF
SET SYSMENU OFF
SET DEFAULT TO "\学生选课成绩管理系统"
_SCREEN.AutoCenter= .T.
CLEAR ALL
MODIFY WINDOW SCREEN title "学生选课成绩管理系统"
DO FORM 主界面.SCX
READ events