main.prg

双击“源代码assets”文件夹内的assets.pjx工程文件

*******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\dbassets
SELE 0
USE data\tblpinfo
SELE 0
USE data\tbluser
SELE 0
USE data\tblminfo
SELE 0
USE data\tblmconsume
SELE 0
USE data\tblmorder

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

****启动主菜单，执行登录表单，进入事件循环
DO mnuassets.mpr
DO FORM frmlogin
READ EVENTS

*****获取去掉文件名的路径*******
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
	SET TALK ON
	SET SAFE ON
	QUIT
ENDIF
ENDPROC

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