menu.bak

自写的仓库管理系统,之前在工厂打工时写的

**
** C:\仓储管理\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 "仓储管理(\<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 "报表(\<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 仓储管理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 报表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 "设置提醒(\<S)"
 DEFI BAR 4 OF 日常管理m PROMPT "周期性提醒(\<Z)"
 DEFI BAR 5 OF 日常管理m PROMPT "\-"
 DEFI BAR 6 OF 日常管理m PROMPT "退出(\<X)" MESSAGE "退出仓储管理系统" KEY ALT+F4, "Alt+F4"
 ON SELECTION BAR 1 OF 日常管理m DO _saa0j6hnh  IN LOCFILE("\仓储管理\MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 MENU?")
 ON SELECTION BAR 3 OF 日常管理m do form 设置提醒
 ON SELECTION BAR 4 OF 日常管理m do form 周期性提醒
 ON SELECTION BAR 6 OF 日常管理m do shutdown
 DEFI POPUP 仓储管理s SHADOW MARGIN RELATIVE COLOR SCHEME 4
 DEFI BAR 1 OF 仓储管理s PROMPT "入库操作(\<I)" KEY CTRL+I, "Ctrl+I"
 DEFI BAR 2 OF 仓储管理s PROMPT "出库操作(\<O)" KEY CTRL+O, "Ctrl+O"
 DEFI BAR 3 OF 仓储管理s PROMPT "当前库存(\<S)"
 DEFI BAR 4 OF 仓储管理s PROMPT "物品管理(\<M)"
 DEFI BAR 5 OF 仓储管理s PROMPT "操作痕迹(\<L)"
 DEFI BAR 6 OF 仓储管理s PROMPT "记帐管理(\<C)"
 DEFI BAR 7 OF 仓储管理s PROMPT "\-"
 DEFI BAR 8 OF 仓储管理s PROMPT "查看对方库存"
 ON SELECTION BAR 1 OF 仓储管理s DO _saa0j6hnx  IN LOCFILE("\仓储管理\MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 MENU?")
 ON SELECTION BAR 2 OF 仓储管理s DO _saa0j6hnz  IN LOCFILE("\仓储管理\MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 MENU?")
 ON SELECTION BAR 3 OF 仓储管理s DO _saa0j6ho1  IN LOCFILE("\仓储管理\MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 MENU?")
 ON SELECTION BAR 4 OF 仓储管理s DO _saa0j6ho3  IN LOCFILE("\仓储管理\MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 MENU?")
 ON SELECTION BAR 5 OF 仓储管理s DO _saa0j6ho5  IN LOCFILE("\仓储管理\MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 MENU?")
 ON SELECTION BAR 6 OF 仓储管理s DO _saa0j6ho7  IN LOCFILE("\仓储管理\MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 MENU?")
 ON SELECTION BAR 8 OF 仓储管理s DO _saa0j6ho9  IN LOCFILE("\仓储管理\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 "重复上一次命令或操作" 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 "复制(\<C)" MESSAGE "复制被选取的部分，并移到剪贴板" KEY CTRL+C, "Ctrl+C"
 DEFI BAR _MED_PASTE OF 编辑e PROMPT "粘贴(\<P)" MESSAGE "从剪贴板上复制内容插入光标处" KEY CTRL+V, "Ctrl+V"
 DEFI BAR _MED_CLEAR OF 编辑e PROMPT "清除(\<A)" MESSAGE "移去选定内容，并且不将其放到剪贴板上"
 DEFI BAR 8 OF 编辑e PROMPT "\-"
 DEFI BAR _MED_SLCTA OF 编辑e PROMPT "全选(\<A)" MESSAGE "对操作区全部选取" 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 "重复上一次查找" 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 "状态栏(\<S)"
 ON SELECTION BAR 1 OF 查看v DO _saa0j6hom  IN LOCFILE("\仓储管理\MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 MENU?")
 DEFI POPUP 工具t SHADOW MARGIN RELATIVE COLOR SCHEME 4
 DEFI BAR 1 OF 工具t PROMPT "数据备份(\<B)"
 DEFI BAR 2 OF 工具t PROMPT "命令窗口(\<C)"
 DEFI BAR 3 OF 工具t PROMPT "\-"
 DEFI BAR 4 OF 工具t PROMPT "选项(\<O)..." MESSAGE "仓储管理的高级设置"
 ON SELECTION BAR 1 OF 工具t do form 数据备份
 ON SELECTION BAR 2 OF 工具t do form 命令窗口
 ON SELECTION BAR 4 OF 工具t do form 选项
 DEFI POPUP 报表r SHADOW MARGIN RELATIVE COLOR SCHEME 4
 DEFI BAR 1 OF 报表r PROMPT "库存报表打印(\<K)"
 DEFI BAR 2 OF 报表r PROMPT "餐厅收银日报表(\<C)"
 ON SELECTION BAR 1 OF 报表r do form 库存报表打印
 ON SELECTION BAR 2 OF 报表r DO _saa0j6hou  IN LOCFILE("\仓储管理\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 "循环(\<Y)" MESSAGE "在所有打开的窗口间循环切换" KEY CTRL+F1, "Ctrl+F1"
 DEFI BAR _MFI_CLOSE OF 窗口w PROMPT "关闭(\<C)" MESSAGE "关闭当前激活的窗口" KEY CTRL+F4, "Ctrl+F4"
 DEFI POPUP 帮助h SHADOW MARGIN RELATIVE COLOR SCHEME 4
 DEFI BAR 1 OF 帮助h PROMPT "帮助主题(\<C)" MESSAGE "显示仓储管理的帮助主题" KEY F1, "F1"
 DEFI BAR 2 OF 帮助h PROMPT "\-"
 DEFI BAR 3 OF 帮助h PROMPT "写给作者(\<W)" MESSAGE "通过电子邮件给作者发信"
 DEFI BAR 4 OF 帮助h PROMPT "李中武个人主页(\<P)" MESSAGE "通过 Internet 网访问李中武个主页"
 DEFI BAR 5 OF 帮助h PROMPT "\-"
 DEFI BAR 6 OF 帮助h PROMPT "关于(\<A)..." MESSAGE "关于仓储管理的版权信息"
 ON SELECTION BAR 1 OF 帮助h DO _saa0j6hp4  IN LOCFILE("\仓储管理\MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 MENU?")
 ON SELECTION BAR 3 OF 帮助h DO _saa0j6hp6  IN LOCFILE("\仓储管理\MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 MENU?")
 ON SELECTION BAR 4 OF 帮助h DO _saa0j6hp8  IN LOCFILE("\仓储管理\MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 MENU?")
 ON SELECTION BAR 6 OF 帮助h do form 关于
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 当前库存 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 对方库存 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 餐厅收银日报表 PREVIEW NOEJECT NOCONSOLE
 ans = MESSAGEBOX("打印是否正确？", 052, "请确认：")
 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，请与作者李中武联系！", 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:[e-mail]?subject=发自李中武的软件","","",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
*