main.bak

初学实例:学生选修课及成绩管理系统,部分功能有待改善,菜单部分未完成

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