mnuhand.mpr

用于车辆管理与监控

	DO _1tk0lbinc ;
	IN LOCFILE("车辆管理系统\MENU\MNUHAND" ,"MPX;MPR|FXP;PRG" ,"WHERE is MNUHAND?")

DEFINE POPUP (a_menupops[3]) MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF (a_menupops[3]) PROMPT "维修管理(\<W)"
DEFINE BAR 2 OF (a_menupops[3]) PROMPT "违章管理(\<F)"
DEFINE BAR 3 OF (a_menupops[3]) PROMPT "事故管理(\<S)"
ON BAR 1 OF (a_menupops[3]) ACTIVATE POPUP (a_menupops[4])
ON BAR 2 OF (a_menupops[3]) ACTIVATE POPUP (a_menupops[5])
ON BAR 3 OF (a_menupops[3]) ACTIVATE POPUP (a_menupops[6])

DEFINE POPUP (a_menupops[4]) MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF (a_menupops[4]) PROMPT "车辆维修管理(\<F)"
DEFINE BAR 2 OF (a_menupops[4]) PROMPT "车辆维修查询(\<V)"
DEFINE BAR 3 OF (a_menupops[4]) PROMPT "添加零件"
ON SELECTION BAR 1 OF (a_menupops[4]) do form form\Frm车辆维修
ON SELECTION BAR 2 OF (a_menupops[4]) do form form\Frm车辆维修查询
ON SELECTION BAR 3 OF (a_menupops[4]) do form form\Frm零件

DEFINE POPUP (a_menupops[5]) MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF (a_menupops[5]) PROMPT "车辆违章管理(\<W)"
DEFINE BAR 2 OF (a_menupops[5]) PROMPT "车辆违章查询(\<V)"
ON SELECTION BAR 1 OF (a_menupops[5]) do form form\Frm车辆违章
ON SELECTION BAR 2 OF (a_menupops[5]) do form form\Frm车辆违章查询

DEFINE POPUP (a_menupops[6]) MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF (a_menupops[6]) PROMPT "车辆事故管理(\<S)"
DEFINE BAR 2 OF (a_menupops[6]) PROMPT "车辆事故查询(\<V)"
ON SELECTION BAR 1 OF (a_menupops[6]) do form form\Frm车辆事故管理
ON SELECTION BAR 2 OF (a_menupops[6]) do form form\Frm车辆事故管理查询

DEFINE POPUP (a_menupops[7]) MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF (a_menupops[7]) PROMPT "驾驶员管理(\<B)"
DEFINE BAR 2 OF (a_menupops[7]) PROMPT "驾驶员奖惩(\<C)"
ON BAR 1 OF (a_menupops[7]) ACTIVATE POPUP (a_menupops[8])
ON SELECTION BAR 2 OF (a_menupops[7]) do form form\Frm驾驶员奖罚

DEFINE POPUP (a_menupops[8]) MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF (a_menupops[8]) PROMPT "驾驶员档案(\<B)"
DEFINE BAR 2 OF (a_menupops[8]) PROMPT "驾驶员档案查询(\<V)"
ON SELECTION BAR 1 OF (a_menupops[8]) do form form\Frm驾驶员档案
ON SELECTION BAR 2 OF (a_menupops[8]) do form form\Frm驾驶员档案查询

DEFINE POPUP (a_menupops[9]) MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF (a_menupops[9]) PROMPT "系统初始化(\<F)" ;
	SKIP FOR GLY=.f.
DEFINE BAR 2 OF (a_menupops[9]) PROMPT "管理员设置(\<Q)" ;
	SKIP FOR GLY=.f.
DEFINE BAR 3 OF (a_menupops[9]) PROMPT "数据备份"
DEFINE BAR 4 OF (a_menupops[9]) PROMPT "数据恢复"
DEFINE BAR 5 OF (a_menupops[9]) PROMPT "\-"
DEFINE BAR 6 OF (a_menupops[9]) PROMPT "退出(\<E)"
ON SELECTION BAR 1 OF (a_menupops[9]) ;
	DO _1tk0lbini ;
	IN LOCFILE("车辆管理系统\MENU\MNUHAND" ,"MPX;MPR|FXP;PRG" ,"WHERE is MNUHAND?")
ON SELECTION BAR 2 OF (a_menupops[9]) do form form\Frm管理员档案
ON SELECTION BAR 3 OF (a_menupops[9]) do form form\Frm数据备份
ON SELECTION BAR 4 OF (a_menupops[9]) do form form\Frm数据恢复
ON SELECTION BAR 6 OF (a_menupops[9]) quit

DEFINE POPUP (a_menupops[10]) MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF (a_menupops[10]) PROMPT "帮助(\<H)"
DEFINE BAR 2 OF (a_menupops[10]) PROMPT "关于(\<A)"
ON SELECTION BAR 1 OF (a_menupops[10]) do form form\Frm帮助
ON SELECTION BAR 2 OF (a_menupops[10]) ;
	DO _1tk0lbinl ;
	IN LOCFILE("车辆管理系统\MENU\MNUHAND" ,"MPX;MPR|FXP;PRG" ,"WHERE is MNUHAND?")

ACTIVATE MENU (m.cMenuName) NOWAIT

IF m.cTypeParm2 = "C"
	m.getMenuName = m.cMenuName
	m.oFormRef.Name = m.cSaveFormName 
ENDIF


*       *********************************************************
*       *                                                         
*       * _1TK0LBINC  ON SELECTION BAR 3 OF POPUP 营运管理y       
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MNUHAND.MPR,            Record:   17        
*       * Called By:  ON SELECTION BAR 3 OF POPUP 营运管理y       
*       * Prompt:     清空运营表                                  
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1tk0lbinc
close all
a=messagebox("真的要执行本次操作吗？",36,"系统提示")
if a=6 then
	 a=messagebox("操作会删除运营表中所有记录,继续吗？",36,"系统提示")
	if a=6 then
		sele 1
		use database\车辆运营表 exclusive
		zap
		use
        messagebox("清空运营表工作完成！",32,"清空运营表成功")			
    endif
endif



*       *********************************************************
*       *                                                         
*       * _1TK0LBINI  ON SELECTION BAR 1 OF POPUP 系统维护x       
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MNUHAND.MPR,            Record:   42        
*       * Called By:  ON SELECTION BAR 1 OF POPUP 系统维护x       
*       * Prompt:     系统初始化(F)                               
*       * Snippet:    2                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1tk0lbini
private number as integer
close all
a=messagebox("真的要执行初始化吗？",36,"系统提示")
if a=6 then
	a=messagebox("初始化会删除库中所有记录,继续吗？",36,"系统提示")
	if a=6 then
			sele 1
			use database\车辆报废表 exclusive
			dele all
				pack
			sele 2
			use	database\车辆档案	exclusive
			dele all
				pack
			sele 4
			use	database\车辆事故表 exclusive
			dele all
				pack
			sele 5
			use database\车辆违章表 exclusive
			dele all
				pack
			sele 6
			use database\车辆维修表 exclusive
			dele all
				pack
			sele 7
			use database\车辆异动表 exclusive
			dele all
				pack
			use database\车辆运营表 exclusive
			dele all
				pack
			sele 10
			use database\管理员表 exclusive
			dele all
				pack
			sele 11
			use	database\驾驶员档案 exclusive
			dele all
				pack
close all
messagebox("系统初始化工作完成！",32,"系统初始化成功")
endif
endif


*       *********************************************************
*       *                                                         
*       * _1TK0LBINL  ON SELECTION BAR 2 OF POPUP 帮助h           
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MNUHAND.MPR,            Record:   52        
*       * Called By:  ON SELECTION BAR 2 OF POPUP 帮助h           
*       * Prompt:     关于(A)                                     
*       * Snippet:    3                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1tk0lbinl
messagebox("欢迎访问明日科技网站："+chr(13)+chr(10)+"http:\\www.mingrisoft.com")