main.prg

来自「一个小型的人事档案管理软件~做课程设计的同学们可以下载参考~也可以稍做修改进行使」· PRG 代码 · 共 21 行

CLEAR ALL
CLOSE ALL
public SysPath
cCurrentProcedure=SYS(16,1)
nPathStart=AT(":",cCurrentProcedure) -1
nLenofPath=RAT("\",cCurrentProcedure)-(nPathStart)
set default to(substr(cCurrentProcedure,nPathStart,nLenofPath))
SysPath=substr(cCurrentProcedure,nPathStart,nLenofPath)
SET CONSOLE OFF
SET SAFETY OFF
SET EXACT ON 
SET DELETED ON 
SET TALK OFF
SET DATE TO ANSI
SET STATUS BAR OFF
SET DECIMALS TO 2
SET CENTURY ON
_SCREEN.AUTOCENTER=.T.
_SCREEN.WINDOWSTATE=2
do form SysPath+"\登陆界面.scx"
read events