main.prg

来自「该系统主要对教学信息进行管理」· PRG 代码 · 共 30 行

*--主程序代码
*--初始环境设置
clea all
set talk off
set date to short
set sysmenu off
set date long
_screen.caption="教学管理信息系统"
_screen.windowstate=2
*--系统背景图片
p1=sys(5)+"..\教学管理信息系统\3.jpg"
_screen.picture=p1
_screen.closable=.F.
_screen.activate
*--打开数据库和数据表
set default to ..\教学管理信息系统\Data
close databases
open database jxgl shar

*--打开登录界
do form "..\教学管理信息系统\Forms\login.scx"
*--执行主菜单
do "..\教学管理信息系统\Menu\main.mpr"
*--控制事件循环
read events
*--退出时恢复环境设置
set talk on
set sysmenu on
_screen.closable=.T.