main.bak

这是一个小型企业工资管理系统

local lcsys16,lcprogram
lcsys16=sys(16)
lcprogram=substr(lcsys16,at(":",lcsys16)-1)
cd left(lcprogram,rat("\",lcprogram))
set classlib to 自建类库
&&deactivate window "project manager"
do setting
do form ksjm
&&_screen.caption="人事管理系统"
public yhdj
yhdj=5
do zcd.mpr
&&define window ncover from 0,0 to 150,150;
&&fill file desk.jpg
&&activate window ncover bottom
read events
do reset