main.prg

人事档案管理源代码

SET TALK off
SET MESSAGE ON
SET EXCL on
set  CENT ON
set dele on
set safety off
RELEASE WINDOW 常用
deactivate window "项目管理器"

_SCREEN.visible=.f.

mypath=lower(allt(left(sys(16),rat("\",sys(16)))))
set defa to (mypath)
set path to forms,datas,frxs,pics
OPEN DATABASE khda

do form main
read even