main.prg

企业售后管理系统

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

*******进行程序初始化
SET TALK OFF
SET DELE ON
SET SAFE OFF
_SCREEN.CAPTION="售后管理系统1.0版"                   &&显示程序标题
_SCREEN.WINDOWSTATE=2                                 &&启动时窗口最大化

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

OPEN DATA data\dbsold
SELE 0
USE data\tblback
SELE 0
USE data\tbluser
SELE 0
USE data\tblorder
SELE 0
USE data\tblstock

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

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

*********正常登录时的退出***************
PROCEDURE onquit
IF(MESSAGEBOX("真的要退出系统吗?",4+32+0,"退出")=6)    &&退出
	CLEAR EVENTS	
	CLOSE ALL
	CLEAR ALL
	ON SHUTDOWN
	SET DELE OFF
	QUIT
ENDIF
ENDPROC

*****非法登录时的退出*******************
PROCEDURE onquit2
CLEAR EVENTS
CLOSE ALL
ON SHUTDOWN
SET DELE OFF
QUIT
ENDPROC