main.prg

client管理系统 vpf 6.0 1>开发环境 Windows 2000 Professional + SP4 Visual FoxPro 6.0简体中文版

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

*******进行程序初始化
SET TALK OFF
SET DELE ON
SET SAFE OFF
_SCREEN.Visible=.F.            &&隐藏系统窗口

oldpath=SYS(5)+SYS(2003)       &&获取当前默认路径
newpath=SYS(16)                &&获取程序全路径名
newpath=getpath(newpath)       &&得到程序所在的路径
SET DEFAULT TO (newpath)        &&设置新的默认路径

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

**全局变量，分别为登录用户名、登录时间、拥有的权限
PUBLIC g_uid,g_time,g_dom(19)
g_uid=''
g_time=TTOC(DATETIME())
g_dom=1

****启动主菜单，执行登录表单，进入事件循环
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