*******main.prg********

*******進行程序初始化
SET TALK OFF
SET DELE ON
SET SAFE OFF
_SCREEN.Visible=.F.            &&隱藏系統(tǒng)窗口

oldpath=SYS(5)+SYS(2003)       &&獲取當(dāng)前默認路徑
newpath=SYS(16)                &&獲取程序全路徑名
newpath=getpath(newpath)       &&得到程序所在的路徑
SET DEFAULT TO (newpath)        &&設(shè)置新的默認路徑

OPEN DATA data\dbcustom
SELE 0
USE data\tblcustom
SELE 0
USE data\tblcomplain
SELE 0
USE data\tbldiary
SELE 0
USE data\tblkeyword
SELE 0
USE data\tbluser

**全局變量，分別為登錄用戶名、登錄時間、擁有的權(quán)限
PUBLIC g_uid,g_time,g_dom(19)
g_uid=''                         
g_time=TTOC(DATETIME())
g_dom=1

****啟動主菜單，執(zhí)行登錄表單，進入事件循環(huán)
DO FORM frmlogin
READ EVENT

*****獲取去掉文件名的路徑*******
FUNCTION getpath
PARA  mpath
rm=RAT('\',mpath)
lm=AT('\',mpath)
IF(rm=lm)              &&“c:\”的情形
	result=SUBSTR(mpath,1,lm)
ELSE
	result=SUBSTR(mpath,1,rm-1)
ENDIF
RETURN result
ENDFUNC