main.prg

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

local lcsys16,lcprogram
lcsys16=sys(16)
lcprogram=substr(lcsys16,at(":",lcsys16)-1)
cd left(lcprogram,rat("\",lcprogram))
set classlib to 自建类库
do setting
do form ksjm
public yhdj
yhdj=5
do zcd.mpr
read events
do reset