📄 mnuhand.mpr
字号:
* *********************************************************
* *
* * 06-02-03 MNUHAND.MPR 09:19:48
* *
* *********************************************************
* *
* * 张雨
* *
* * 版权所有 (C) 2003 明日科技
* * 地址
* * 长春市, 吉林 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 _0yu0jzxey OF (m.cMenuName) PROMPT "档案管理(\<I)" COLOR SCHEME 3 ;
KEY ALT+I, "" ;
SKIP FOR purview>4
DEFINE PAD _0yu0jzxez OF (m.cMenuName) PROMPT "运营管理(\<Y)" COLOR SCHEME 3 ;
KEY ALT+Y, "" ;
SKIP FOR purview>4
DEFINE PAD _0yu0jzxf0 OF (m.cMenuName) PROMPT "车辆管理(\<C)" COLOR SCHEME 3 ;
KEY ALT+C, "" ;
SKIP FOR purview>4
DEFINE PAD _0yu0jzxf1 OF (m.cMenuName) PROMPT "驾驶员管理(\<B)" COLOR SCHEME 3 ;
KEY ALT+B, "" ;
SKIP FOR purview>4
DEFINE PAD _0yu0jzxf2 OF (m.cMenuName) PROMPT "系统维护(\<X)" COLOR SCHEME 3 ;
KEY ALT+X, "" ;
SKIP FOR purview>4
DEFINE PAD _0yu0jzxf3 OF (m.cMenuName) PROMPT "帮助(\<H)" COLOR SCHEME 3 ;
KEY ALT+H, ""
ON PAD _0yu0jzxey OF (m.cMenuName) ACTIVATE POPUP (a_menupops[1])
ON PAD _0yu0jzxez OF (m.cMenuName) ACTIVATE POPUP (a_menupops[2])
ON PAD _0yu0jzxf0 OF (m.cMenuName) ACTIVATE POPUP (a_menupops[3])
ON PAD _0yu0jzxf1 OF (m.cMenuName) ACTIVATE POPUP (a_menupops[7])
ON PAD _0yu0jzxf2 OF (m.cMenuName) ACTIVATE POPUP (a_menupops[9])
ON PAD _0yu0jzxf3 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 form\Frm车辆档案
ON SELECTION BAR 2 OF (a_menupops[1]) do form form\Frm车辆查询
ON SELECTION BAR 3 OF (a_menupops[1]) do form form\Frm车辆异动
ON SELECTION BAR 4 OF (a_menupops[1]) do form form\Frm车辆异动查询
ON SELECTION BAR 6 OF (a_menupops[1]) do form form\Frm车辆报废
ON SELECTION BAR 7 OF (a_menupops[1]) do form form\Frm车辆报废查询
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 form\Frm车辆运营
ON SELECTION BAR 2 OF (a_menupops[2]) do form form\Frm车辆运营查询
ON SELECTION BAR 3 OF (a_menupops[2]) ;
DO _0yu0jzxfb ;
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 _0yu0jzxfo ;
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 form form\Frm关于
ACTIVATE MENU (m.cMenuName) NOWAIT
IF m.cTypeParm2 = "C"
m.getMenuName = m.cMenuName
m.oFormRef.Name = m.cSaveFormName
ENDIF
* *********************************************************
* *
* * _0YU0JZXFB 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 _0yu0jzxfb
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
* *********************************************************
* *
* * _0YU0JZXFO 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 _0yu0jzxfo
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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -