交通/航空行业

开发平台：
VFP

MNUHAND.MPR：源码内容
							*       *********************************************************
*       *                                                         
*       * 06/07/06             MNUHAND.MPR              09:56:49  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 张雨                                                    
*       *                                                         
*       * 版权所有 (C) 2006 明日科技                             
*       * 地址                                                    
*       * 长春市, 吉林  130000                                      
*       * 中国                                              
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************
* To attach this menu to your Top-Level form, 
* call it from the Init event of the form:
* Syntax: DO <mprname> WITH <oFormRef> [,<cMenuname>|<lRename>][<lUniquePopups>]
*	oFormRef - form object reference (THIS)
*	cMenuname - name for menu (this is required for Append menus - see below)
*	lRename - renames Name property of your form
*	lUniquePopups - determines whether to generate unique ids for popup names
			
* 	example:
*	PROCEDURE Init
*		DO mymenu.mpr WITH THIS,.T.
*	ENDPROC
* Use the optional 2nd parameter if you plan on running multiple instances
* of your Top-Level form. The preferred method is to create an empty string
* variable and pass it by reference so you can receive the form name after
* the MPR file is run. You can later use this reference to destroy the menu.
*	PROCEDURE Init
*		LOCAL cGetMenuName
*		cGetMenuName = ""
*		DO mymenu.mpr WITH THIS, m.cGetMenuName
*	ENDPROC
* The logical lRename parameter will change the name property of your 
* form to the same name given the menu and may cause conflicts in your 
* code if you directly reference the form by name.
* You will also need to remove the menu when the form is destroyed so that it does 
* not remain in memory unless you wish to reactivate it later in a new form.
* If you passed the optional lRename parameter as .T. as in the above example, 
* you can easily remove the menu in the form's Destroy event as shown below.
* This strategy is ideal when using multiple instances of Top-Level forms.
*	example:
*	PROCEDURE Destroy
*		RELEASE MENU (THIS.Name) EXTENDED
*	ENDPROC
* Using Append/Before/After location options:
*   You might want to append a menu to an existing Top-Level form by setting 
*   the Location option in the General Options dialog. In order to do this, you 
*   must pass the name of the menu in which to attach the new one. The second
*   parameter is required here. If you originally created the menu with the lRename 
*   parameter = .T., then you can update the menu with code similar to the following:
*	example:
*	DO mymenu2.mpr WITH THISFORM,THISFORM.name
*
* Using lUniquePopups:
*   If you are running this menu multiple times in your application, such as in multiple 
*   instances of the same top-level form, you should pass .T. to the lUniquePopups 
*   parameter so that unique popup names are generated to avoid possible conflicts.
*	example:
*	PROCEDURE Init
*		DO mymenu.mpr WITH THIS,.T.,.T.
*	ENDPROC
*
* Note: Parm4-Parm9 are not reserved and freely available for use with your menu code.
*
LPARAMETERS oFormRef, getMenuName, lUniquePopups, parm4, parm5, parm6, parm7, parm8, parm9
LOCAL cMenuName, nTotPops, a_menupops, cTypeParm2, cSaveFormName
IF TYPE("m.oFormRef") # "O" OR ;
  LOWER(m.oFormRef.BaseClass) # 'form' OR ;
  m.oFormRef.ShowWindow # 2
	MESSAGEBOX([只能从顶层表单调用该菜单。请确认您表单的 ShowWindow 属性已设为 2。阅读此菜单 MPR 文件的头部分，可以获得详细信息。])
	RETURN
ENDIF
m.cTypeParm2 = TYPE("m.getMenuName")
m.cMenuName = SYS(2015)
m.cSaveFormName = m.oFormRef.Name
IF m.cTypeParm2 = "C" OR (m.cTypeParm2 = "L" AND m.getMenuName)
	m.oFormRef.Name = m.cMenuName
ENDIF
IF m.cTypeParm2 = "C" AND !EMPTY(m.getMenuName)
	m.cMenuName = m.getMenuName
ENDIF
DIMENSION a_menupops[10]
IF TYPE("m.lUniquePopups")="L" AND m.lUniquePopups
	FOR nTotPops = 1 TO ALEN(a_menupops)
		a_menupops[m.nTotPops]= SYS(2015)
	ENDFOR
ELSE
	a_menupops[1]="车辆档案管"
	a_menupops[2]="营运管理y"
	a_menupops[3]="车辆管理c"
	a_menupops[4]="维修管理w"
	a_menupops[5]="违章管理f"
	a_menupops[6]="事故管理s"
	a_menupops[7]="驾驶员管理"
	a_menupops[8]="_0mg0v3oiy"
	a_menupops[9]="系统维护x"
	a_menupops[10]="帮助h"
ENDIF
*       *********************************************************
*       *                                                         
*       *                         菜单定义                        
*       *                                                         
*       *********************************************************
*
DEFINE MENU (m.cMenuName) IN (m.oFormRef.Name) BAR
DEFINE PAD _1tk0lbin5 OF (m.cMenuName) PROMPT "档案管理(<I)" COLOR SCHEME 3 ;
	KEY ALT+I, "" ;
	SKIP FOR purview>4
DEFINE PAD _1tk0lbin6 OF (m.cMenuName) PROMPT "运营管理(<Y)" COLOR SCHEME 3 ;
	KEY ALT+Y, "" ;
	SKIP FOR purview>4
DEFINE PAD _1tk0lbin7 OF (m.cMenuName) PROMPT "车辆管理(<C)" COLOR SCHEME 3 ;
	KEY ALT+C, "" ;
	SKIP FOR purview>4
DEFINE PAD _1tk0lbin8 OF (m.cMenuName) PROMPT "驾驶员管理(<B)" COLOR SCHEME 3 ;
	KEY ALT+B, "" ;
	SKIP FOR purview>4
DEFINE PAD _1tk0lbin9 OF (m.cMenuName) PROMPT "系统维护(<X)" COLOR SCHEME 3 ;
	KEY ALT+X, "" ;
	SKIP FOR purview>4
DEFINE PAD _1tk0lbina OF (m.cMenuName) PROMPT "帮助(<H)" COLOR SCHEME 3 ;
	KEY ALT+H, ""
ON PAD _1tk0lbin5 OF (m.cMenuName) ACTIVATE POPUP (a_menupops[1])
ON PAD _1tk0lbin6 OF (m.cMenuName) ACTIVATE POPUP (a_menupops[2])
ON PAD _1tk0lbin7 OF (m.cMenuName) ACTIVATE POPUP (a_menupops[3])
ON PAD _1tk0lbin8 OF (m.cMenuName) ACTIVATE POPUP (a_menupops[7])
ON PAD _1tk0lbin9 OF (m.cMenuName) ACTIVATE POPUP (a_menupops[9])
ON PAD _1tk0lbina OF (m.cMenuName) ACTIVATE POPUP (a_menupops[10])
DEFINE POPUP (a_menupops[1]) MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF (a_menupops[1]) PROMPT "车辆档案录入(<I)" ;
	SKIP FOR purview>4
DEFINE BAR 2 OF (a_menupops[1]) PROMPT "车辆档案查询(<V)"
DEFINE BAR 3 OF (a_menupops[1]) PROMPT "车辆异动(<Y)"
DEFINE BAR 4 OF (a_menupops[1]) PROMPT "车辆异动查询(<C)"
DEFINE BAR 5 OF (a_menupops[1]) PROMPT "-"
DEFINE BAR 6 OF (a_menupops[1]) PROMPT "车辆报废(<B)"
DEFINE BAR 7 OF (a_menupops[1]) PROMPT "车辆报废查询(<F)"
ON SELECTION BAR 1 OF (a_menupops[1]) do form formFrm车辆档案
ON SELECTION BAR 2 OF (a_menupops[1]) do form formFrm车辆查询
ON SELECTION BAR 3 OF (a_menupops[1]) do form formFrm车辆异动
ON SELECTION BAR 4 OF (a_menupops[1]) do form formFrm车辆异动查询
ON SELECTION BAR 6 OF (a_menupops[1]) do form formFrm车辆报废
ON SELECTION BAR 7 OF (a_menupops[1]) do form formFrm车辆报废查询
DEFINE POPUP (a_menupops[2]) MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF (a_menupops[2]) PROMPT "车辆运营管理(<Y)"
DEFINE BAR 2 OF (a_menupops[2]) PROMPT "车辆运营查询(<C)"
DEFINE BAR 3 OF (a_menupops[2]) PROMPT "清空运营表" ;
	SKIP FOR GLY=.f.
ON SELECTION BAR 1 OF (a_menupops[2]) do form formFrm车辆运营
ON SELECTION BAR 2 OF (a_menupops[2]) do form formFrm车辆运营查询
ON SELECTION BAR 3 OF (a_menupops[2]) ;
	DO _1tk0lbinc ;
	IN LOCFILE("车辆管理系统MENUMNUHAND" ,"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 formFrm车辆维修
ON SELECTION BAR 2 OF (a_menupops[4]) do form formFrm车辆维修查询
ON SELECTION BAR 3 OF (a_menupops[4]) do form formFrm零件
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 formFrm车辆违章
ON SELECTION BAR 2 OF (a_menupops[5]) do form formFrm车辆违章查询
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 formFrm车辆事故管理
ON SELECTION BAR 2 OF (a_menupops[6]) do form formFrm车辆事故管理查询
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 formFrm驾驶员奖罚
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 formFrm驾驶员档案
ON SELECTION BAR 2 OF (a_menupops[8]) do form formFrm驾驶员档案查询
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("车辆管理系统MENUMNUHAND" ,"MPX;MPR|FXP;PRG" ,"WHERE is MNUHAND?")
ON SELECTION BAR 2 OF (a_menupops[9]) do form formFrm管理员档案
ON SELECTION BAR 3 OF (a_menupops[9]) do form formFrm数据备份
ON SELECTION BAR 4 OF (a_menupops[9]) do form formFrm数据恢复
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 formFrm帮助
ON SELECTION BAR 2 OF (a_menupops[10]) ;
	DO _1tk0lbinl ;
	IN LOCFILE("车辆管理系统MENUMNUHAND" ,"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")

						