main.prg

来自「公司人事档案管理系统不但可以使公司的管理者在一定程度上掌握所聘用人员的基本人事信」· PRG 代码 · 共 45 行

SET TALK OFF
CLEAR ALL
CLOSE ALL
SET SYSMENU OFF
_SCREEN.WINDOWSTATE=2   &&窗口最大化

*_screen.closable=.f.
*_SCREEN.closable=.t.    &&窗口关闭

_SCREEN.CAPTION='唐山国丰钢铁有限公司人事档案管理系统'
_SCREEN.ICON='ICONS\LOGO.ICO'
_SCREEN.PICTURE='ICONS\bg.jpg'


*push menu _msysmenu
OPEN DATABASE  data\企业人事档案管理
do form forms\yhdl3.scx
on shutdown quit

*clear events 
*quit


READ EVENTS
*pop menu _msysmenu