main.prg

人力资源管理系统

*--主程序代码
*--初始环境设置
clea all
set talk off
set date to short
set sysmenu off
set date long
_screen.caption="人事管理系统"
_screen.windowstate=2
*--系统背景图片
p1=sys(5)+sys(2003)+"\backpicture.jpg"
_screen.picture=p1
_screen.closable=.F.
_screen.activate
*--执行主菜单
do main.mpr
*--打开登录界面
do form LoginFrm
*--控制事件循环
read events
*--退出时恢复环境设置
set talk on
set sysmenu on
_screen.closable=.T.