?? mnuhand.mpr
字號:
DO _1tk0lbinc ;
IN LOCFILE("車輛管理系統(tǒng)\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 "系統(tǒng)初始化(\<F)" ;
SKIP FOR GLY=.f.
DEFINE BAR 2 OF (a_menupops[9]) PROMPT "管理員設(shè)置(\<Q)" ;
SKIP FOR GLY=.f.
DEFINE BAR 3 OF (a_menupops[9]) PROMPT "數(shù)據(jù)備份"
DEFINE BAR 4 OF (a_menupops[9]) PROMPT "數(shù)據(jù)恢復(fù)"
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("車輛管理系統(tǒng)\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數(shù)據(jù)備份
ON SELECTION BAR 4 OF (a_menupops[9]) do form form\Frm數(shù)據(jù)恢復(fù)
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 "關(guān)于(\<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("車輛管理系統(tǒng)\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("真的要執(zhí)行本次操作嗎？",36,"系統(tǒng)提示")
if a=6 then
a=messagebox("操作會刪除運營表中所有記錄,繼續(xù)嗎？",36,"系統(tǒng)提示")
if a=6 then
sele 1
use database\車輛運營表 exclusive
zap
use
messagebox("清空運營表工作完成！",32,"清空運營表成功")
endif
endif
* *********************************************************
* *
* * _1TK0LBINI ON SELECTION BAR 1 OF POPUP 系統(tǒng)維護x
* *
* * Procedure Origin:
* *
* * From Menu: MNUHAND.MPR, Record: 42
* * Called By: ON SELECTION BAR 1 OF POPUP 系統(tǒng)維護x
* * Prompt: 系統(tǒng)初始化(F)
* * Snippet: 2
* *
* *********************************************************
*
PROCEDURE _1tk0lbini
private number as integer
close all
a=messagebox("真的要執(zhí)行初始化嗎？",36,"系統(tǒng)提示")
if a=6 then
a=messagebox("初始化會刪除庫中所有記錄,繼續(xù)嗎？",36,"系統(tǒng)提示")
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("系統(tǒng)初始化工作完成！",32,"系統(tǒng)初始化成功")
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: 關(guān)于(A)
* * Snippet: 3
* *
* *********************************************************
*
PROCEDURE _1tk0lbinl
messagebox("歡迎訪問明日科技網(wǎng)站："+chr(13)+chr(10)+"http:\\www.mingrisoft.com")
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -