main.prg

这是我开发的学籍管理系统

*系统初始化
CLEAR ALL
CLOSE ALL
SET SYSMENU OFF
SET SYSMENU TO
SET DATE ANSI
SET TALK OFF
SET DELETED ON
SET SAFETY OFF
*设置窗口状态
_SCREEN.WINDOWSTATE=2
*设置窗口名称
_SCREEN.CAPTION="学籍管理系统"
*清理用户数据库中的无用信息
USE USER.DBF
PACK
*清理学生数据库中的无用信息
USE STUDENT.DBF
PACK
CLOSE ALL
*调用登录界面
DO FORM DL