main.prg

来自「人事档案管理源代码」· PRG 代码 · 共 18 行

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