**
** C:\倉儲(chǔ)管理\menu.mpx
**
 SET SYSMENU TO
 SET SYSMENU AUTOMATIC
 DEFI PAD _saa0j6hn0 OF _MSYSMENU PROMPT "日常管理(\<M)" KEY ALT+M, "" COLOR SCHEME 3
 DEFI PAD _saa0j6hn2 OF _MSYSMENU PROMPT "倉儲(chǔ)管理(\<S)" KEY ALT+S, "" COLOR SCHEME 3
 DEFI PAD _saa0j6hn3 OF _MSYSMENU PROMPT "編輯(\<E)" KEY ALT+E, "" COLOR SCHEME 3
 DEFI PAD _saa0j6hn4 OF _MSYSMENU PROMPT "查看(\<V)" KEY ALT+V, "" COLOR SCHEME 3
 DEFI PAD _saa0j6hn5 OF _MSYSMENU PROMPT "工具(\<T)" KEY ALT+T, "" COLOR SCHEME 3
 DEFI PAD _saa0j6hn6 OF _MSYSMENU PROMPT "報(bào)表(\<R)" KEY ALT+R, "" COLOR SCHEME 3
 DEFI PAD _saa0j6hn7 OF _MSYSMENU PROMPT "窗口(\<W)" KEY ALT+W, "" COLOR SCHEME 3
 DEFI PAD _saa0j6hn8 OF _MSYSMENU PROMPT "幫助(\<H)" KEY ALT+H, "" COLOR SCHEME 3
 ON PAD _saa0j6hn0 OF _MSYSMENU ACTIVATE POPUP 日常管理m
 ON PAD _saa0j6hn2 OF _MSYSMENU ACTIVATE POPUP 倉儲(chǔ)管理s
 ON PAD _saa0j6hn3 OF _MSYSMENU ACTIVATE POPUP 編輯e
 ON PAD _saa0j6hn4 OF _MSYSMENU ACTIVATE POPUP 查看v
 ON PAD _saa0j6hn5 OF _MSYSMENU ACTIVATE POPUP 工具t
 ON PAD _saa0j6hn6 OF _MSYSMENU ACTIVATE POPUP 報(bào)表r
 ON PAD _saa0j6hn7 OF _MSYSMENU ACTIVATE POPUP 窗口w
 ON PAD _saa0j6hn8 OF _MSYSMENU ACTIVATE POPUP 幫助h
 DEFI POPUP 日常管理m SHADOW MARGIN RELATIVE COLOR SCHEME 4
 DEFI BAR 1 OF 日常管理m PROMPT "案例分析(\<C)"
 DEFI BAR 2 OF 日常管理m PROMPT "\-"
 DEFI BAR 3 OF 日常管理m PROMPT "設(shè)置提醒(\<S)"
 DEFI BAR 4 OF 日常管理m PROMPT "周期性提醒(\<Z)"
 DEFI BAR 5 OF 日常管理m PROMPT "\-"
 DEFI BAR 6 OF 日常管理m PROMPT "退出(\<X)" MESSAGE "退出倉儲(chǔ)管理系統(tǒng)" KEY ALT+F4, "Alt+F4"
 ON SELECTION BAR 1 OF 日常管理m DO _saa0j6hnh  IN LOCFILE("\倉儲(chǔ)管理\MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 MENU?")
 ON SELECTION BAR 3 OF 日常管理m do form 設(shè)置提醒
 ON SELECTION BAR 4 OF 日常管理m do form 周期性提醒
 ON SELECTION BAR 6 OF 日常管理m do shutdown
 DEFI POPUP 倉儲(chǔ)管理s SHADOW MARGIN RELATIVE COLOR SCHEME 4
 DEFI BAR 1 OF 倉儲(chǔ)管理s PROMPT "入庫操作(\<I)" KEY CTRL+I, "Ctrl+I"
 DEFI BAR 2 OF 倉儲(chǔ)管理s PROMPT "出庫操作(\<O)" KEY CTRL+O, "Ctrl+O"
 DEFI BAR 3 OF 倉儲(chǔ)管理s PROMPT "當(dāng)前庫存(\<S)"
 DEFI BAR 4 OF 倉儲(chǔ)管理s PROMPT "物品管理(\<M)"
 DEFI BAR 5 OF 倉儲(chǔ)管理s PROMPT "操作痕跡(\<L)"
 DEFI BAR 6 OF 倉儲(chǔ)管理s PROMPT "記帳管理(\<C)"
 DEFI BAR 7 OF 倉儲(chǔ)管理s PROMPT "\-"
 DEFI BAR 8 OF 倉儲(chǔ)管理s PROMPT "查看對(duì)方庫存"
 ON SELECTION BAR 1 OF 倉儲(chǔ)管理s DO _saa0j6hnx  IN LOCFILE("\倉儲(chǔ)管理\MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 MENU?")
 ON SELECTION BAR 2 OF 倉儲(chǔ)管理s DO _saa0j6hnz  IN LOCFILE("\倉儲(chǔ)管理\MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 MENU?")
 ON SELECTION BAR 3 OF 倉儲(chǔ)管理s DO _saa0j6ho1  IN LOCFILE("\倉儲(chǔ)管理\MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 MENU?")
 ON SELECTION BAR 4 OF 倉儲(chǔ)管理s DO _saa0j6ho3  IN LOCFILE("\倉儲(chǔ)管理\MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 MENU?")
 ON SELECTION BAR 5 OF 倉儲(chǔ)管理s DO _saa0j6ho5  IN LOCFILE("\倉儲(chǔ)管理\MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 MENU?")
 ON SELECTION BAR 6 OF 倉儲(chǔ)管理s DO _saa0j6ho7  IN LOCFILE("\倉儲(chǔ)管理\MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 MENU?")
 ON SELECTION BAR 8 OF 倉儲(chǔ)管理s DO _saa0j6ho9  IN LOCFILE("\倉儲(chǔ)管理\MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 MENU?")
 DEFI POPUP 編輯e SHADOW MARGIN RELATIVE COLOR SCHEME 4
 DEFI BAR _MED_UNDO OF 編輯e PROMPT "撤消(\<U)" MESSAGE "撤消上一步的操作" KEY CTRL+Z, "Ctrl+Z"
 DEFI BAR _MED_REDO OF 編輯e PROMPT "重做(\<D)" MESSAGE "重復(fù)上一次命令或操作" KEY CTRL+R, "Ctrl+R"
 DEFI BAR 3 OF 編輯e PROMPT "\-"
 DEFI BAR _MED_CUT OF 編輯e PROMPT "剪切(\<T)" MESSAGE "刪除被選取的部分，并移到剪貼板" KEY CTRL+X, "Ctrl+X"
 DEFI BAR _MED_COPY OF 編輯e PROMPT "復(fù)制(\<C)" MESSAGE "復(fù)制被選取的部分，并移到剪貼板" KEY CTRL+C, "Ctrl+C"
 DEFI BAR _MED_PASTE OF 編輯e PROMPT "粘貼(\<P)" MESSAGE "從剪貼板上復(fù)制內(nèi)容插入光標(biāo)處" KEY CTRL+V, "Ctrl+V"
 DEFI BAR _MED_CLEAR OF 編輯e PROMPT "清除(\<A)" MESSAGE "移去選定內(nèi)容，并且不將其放到剪貼板上"
 DEFI BAR 8 OF 編輯e PROMPT "\-"
 DEFI BAR _MED_SLCTA OF 編輯e PROMPT "全選(\<A)" MESSAGE "對(duì)操作區(qū)全部選取" KEY CTRL+A, "Ctrl+A"
 DEFI BAR 10 OF 編輯e PROMPT "\-"
 DEFI BAR _MED_FIND OF 編輯e PROMPT "查找(\<F)..." MESSAGE "搜索指定文本" KEY CTRL+F, "Ctrl+F"
 DEFI BAR _MED_FINDA OF 編輯e PROMPT "再次查找(\<G)" MESSAGE "重復(fù)上一次查找" KEY CTRL+G, "Ctrl+G"
 DEFI BAR _MED_REPL OF 編輯e PROMPT "替換(\<E)..." MESSAGE "用其他文本替換指定文本" KEY CTRL+L, "Ctrl+L"
 DEFI POPUP 查看v SHADOW MARGIN RELATIVE COLOR SCHEME 4
 DEFI BAR 1 OF 查看v PROMPT "狀態(tài)欄(\<S)"
 ON SELECTION BAR 1 OF 查看v DO _saa0j6hom  IN LOCFILE("\倉儲(chǔ)管理\MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 MENU?")
 DEFI POPUP 工具t SHADOW MARGIN RELATIVE COLOR SCHEME 4
 DEFI BAR 1 OF 工具t PROMPT "數(shù)據(jù)備份(\<B)"
 DEFI BAR 2 OF 工具t PROMPT "命令窗口(\<C)"
 DEFI BAR 3 OF 工具t PROMPT "\-"
 DEFI BAR 4 OF 工具t PROMPT "選項(xiàng)(\<O)..." MESSAGE "倉儲(chǔ)管理的高級(jí)設(shè)置"
 ON SELECTION BAR 1 OF 工具t do form 數(shù)據(jù)備份
 ON SELECTION BAR 2 OF 工具t do form 命令窗口
 ON SELECTION BAR 4 OF 工具t do form 選項(xiàng)
 DEFI POPUP 報(bào)表r SHADOW MARGIN RELATIVE COLOR SCHEME 4
 DEFI BAR 1 OF 報(bào)表r PROMPT "庫存報(bào)表打印(\<K)"
 DEFI BAR 2 OF 報(bào)表r PROMPT "餐廳收銀日?qǐng)?bào)表(\<C)"
 ON SELECTION BAR 1 OF 報(bào)表r do form 庫存報(bào)表打印
 ON SELECTION BAR 2 OF 報(bào)表r DO _saa0j6hou  IN LOCFILE("\倉儲(chǔ)管理\MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 MENU?")
 DEFI POPUP 窗口w SHADOW MARGIN RELATIVE COLOR SCHEME 4
 DEFI BAR _MWI_ARRAN OF 窗口w PROMPT "全部重排(\<A)" MESSAGE "全部重排所有的窗口"
 DEFI BAR 2 OF 窗口w PROMPT "\-"
 DEFI BAR _MWI_ROTAT OF 窗口w PROMPT "循環(huán)(\<Y)" MESSAGE "在所有打開的窗口間循環(huán)切換" KEY CTRL+F1, "Ctrl+F1"
 DEFI BAR _MFI_CLOSE OF 窗口w PROMPT "關(guān)閉(\<C)" MESSAGE "關(guān)閉當(dāng)前激活的窗口" KEY CTRL+F4, "Ctrl+F4"
 DEFI POPUP 幫助h SHADOW MARGIN RELATIVE COLOR SCHEME 4
 DEFI BAR 1 OF 幫助h PROMPT "幫助主題(\<C)" MESSAGE "顯示倉儲(chǔ)管理的幫助主題" KEY F1, "F1"
 DEFI BAR 2 OF 幫助h PROMPT "\-"
 DEFI BAR 3 OF 幫助h PROMPT "寫給作者(\<W)" MESSAGE "通過電子郵件給作者發(fā)信"
 DEFI BAR 4 OF 幫助h PROMPT "李中武個(gè)人主頁(\<P)" MESSAGE "通過 Internet 網(wǎng)訪問李中武個(gè)主頁"
 DEFI BAR 5 OF 幫助h PROMPT "\-"
 DEFI BAR 6 OF 幫助h PROMPT "關(guān)于(\<A)..." MESSAGE "關(guān)于倉儲(chǔ)管理的版權(quán)信息"
 ON SELECTION BAR 1 OF 幫助h DO _saa0j6hp4  IN LOCFILE("\倉儲(chǔ)管理\MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 MENU?")
 ON SELECTION BAR 3 OF 幫助h DO _saa0j6hp6  IN LOCFILE("\倉儲(chǔ)管理\MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 MENU?")
 ON SELECTION BAR 4 OF 幫助h DO _saa0j6hp8  IN LOCFILE("\倉儲(chǔ)管理\MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 MENU?")
 ON SELECTION BAR 6 OF 幫助h do form 關(guān)于
ENDPROC
*
PROC _saa0j6hnh
 IF  .NOT. (TYPE("oCase")="O" .AND.  .NOT. ISNULL(ocase))
      DO FORM 案例分析 NAME ocase
 ELSE
      IF ocase.windowstate=1
           ocase.windowstate = 0
      ENDI
      ocase.show
 ENDI
ENDPROC
*
PROC _saa0j6hnx
 IF ISNULL(owp_in)=.T. .OR. TYPE("oWp_in")<>"O"
      DO FORM 物品入庫 NAME owp_in
 ELSE
      IF owp_in.windowstate=1
           owp_in.windowstate = 0
      ENDI
      owp_in.show
 ENDI
ENDPROC
*
PROC _saa0j6hnz
 IF ISNULL(owp_out)=.T. .OR. TYPE("oWp_out")<>"O"
      DO FORM 物品出庫 NAME owp_out
 ELSE
      IF owp_out.windowstate=1
           owp_out.windowstate = 0
      ENDI
      owp_out.show
 ENDI
ENDPROC
*
PROC _saa0j6ho1
 IF ISNULL(owp_storage)=.T. .OR. TYPE("oWp_storage")<>"O"
      DO FORM 當(dāng)前庫存 NAME owp_storage
 ELSE
      IF owp_storage.windowstate=1
           owp_storage.windowstate = 0
      ENDI
      owp_storage.show
 ENDI
ENDPROC
*
PROC _saa0j6ho3
 IF ISNULL(owp_manage)=.T. .OR. TYPE("oWp_manage")<>"O"
      DO FORM 物品管理 NAME owp_manage
 ELSE
      IF owp_manage.windowstate=1
           owp_manage.windowstate = 0
      ENDI
      owp_manage.show
 ENDI
ENDPROC
*
PROC _saa0j6ho5
 IF ISNULL(owp_operate)=.T. .OR. TYPE("oWp_operate")<>"O"
      DO FORM 物品操作痕跡 NAME owp_operate
 ELSE
      IF owp_operate.windowstate=1
           owp_operate.windowstate = 0
      ENDI
      owp_operate.show
 ENDI
ENDPROC
*
PROC _saa0j6ho7
 IF ISNULL(owp_account)=.T. .OR. TYPE("oWp_account")<>"O"
      DO FORM 客戶帳目一覽表 NAME owp_account
 ELSE
      IF owp_account.windowstate=1
           owp_account.windowstate = 0
      ENDI
      owp_account.show
 ENDI
ENDPROC
*
PROC _saa0j6ho9
 IF ISNULL(odfkc)=.T. .OR. TYPE("odfkc")<>"O"
      DO FORM 對(duì)方庫存 NAME odfkc
 ELSE
      IF odfkc.windowstate=1
           odfkc.windowstate = 0
      ENDI
      odfkc.show
 ENDI
ENDPROC
*
PROC _saa0j6hom
 IF isshowstatus=.T.
      SET STATUS BAR OFF
      SET MARK OF BAR 1 OF 查看v .F.
      isshowstatus = .F.
 ELSE
      SET STATUS BAR ON
      SET MARK OF BAR 1 OF 查看v .T.
      isshowstatus = .T.
 ENDI
ENDPROC
*
PROC _saa0j6hou
 REPO FORM 餐廳收銀日?qǐng)?bào)表 PREVIEW NOEJECT NOCONSOLE
 ans = MESSAGEBOX("打印是否正確？", 052, "請(qǐng)確認(rèn)：")
 IF ans=6
      IF USED('guest')
           SELE guest
      ELSE
           USE IN 0 guest
           SELE guest
      ENDI
      DELE ALL FOR ischeckout=.T.
      SELE guest
      USE
 ENDI
ENDPROC
*
PROC _saa0j6hp4
 IF  .NOT. FILE('Storage.hlp')
      MESSAGEBOX("找不到幫助文件 Storage.hlp，請(qǐng)與作者李中武聯(lián)系！", 64, "幫助")
 ELSE
      SET HELP TO Storage.hlp
      HELP
 ENDI
ENDPROC
*
FUNC _saa0j6hp6
 DECL INTEGER ShellExecute IN SHELL32.DLL INTEGER, STRING, STRING, STRING, STRING, INTEGER
 RETU shellexecute(0,"open","mailto:lizhongwu@yeah.net?subject=發(fā)給李中武的信","","",1)
ENDFUNC
*
FUNC _saa0j6hp8
 DECL INTEGER ShellExecute IN SHELL32.DLL INTEGER, STRING, STRING, STRING, STRING, INTEGER
 RETU shellexecute(0,"open","http://lzwnet.126.com","","",1)
ENDFUNC
*