menu.mpr

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

           ocase.windowstate = 0
      ENDI
      ocase.show
 ENDI



*       *********************************************************
*       *                                                         
*       * _0381054C5  ON SELECTION BAR 1 OF POPUP 零配件管理      
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MENU.MPR,            Record:   12           
*       * Called By:  ON SELECTION BAR 1 OF POPUP 零配件管理      
*       * Prompt:     入库操作(I)                                 
*       * Snippet:    2                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _0381054c5
 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


*       *********************************************************
*       *                                                         
*       * _0381054C6  ON SELECTION BAR 2 OF POPUP 零配件管理      
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MENU.MPR,            Record:   13           
*       * Called By:  ON SELECTION BAR 2 OF POPUP 零配件管理      
*       * Prompt:     出库操作(O)                                 
*       * Snippet:    3                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _0381054c6
 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


*       *********************************************************
*       *                                                         
*       * _0381054C8  ON SELECTION BAR 3 OF POPUP 零配件管理      
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MENU.MPR,            Record:   14           
*       * Called By:  ON SELECTION BAR 3 OF POPUP 零配件管理      
*       * Prompt:     当前库存(S)                                 
*       * Snippet:    4                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _0381054c8
 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


*       *********************************************************
*       *                                                         
*       * _0381054C9  ON SELECTION BAR 4 OF POPUP 零配件管理      
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MENU.MPR,            Record:   15           
*       * Called By:  ON SELECTION BAR 4 OF POPUP 零配件管理      
*       * Prompt:     物品管理(M)                                 
*       * Snippet:    5                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _0381054c9
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


*       *********************************************************
*       *                                                         
*       * _0381054CB  ON SELECTION BAR 5 OF POPUP 零配件管理      
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MENU.MPR,            Record:   16           
*       * Called By:  ON SELECTION BAR 5 OF POPUP 零配件管理      
*       * Prompt:     操作痕迹(L)                                 
*       * Snippet:    6                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _0381054cb
 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


*       *********************************************************
*       *                                                         
*       * _0381054CS  ON SELECTION BAR 1 OF POPUP 帮助h           
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MENU.MPR,            Record:   50           
*       * Called By:  ON SELECTION BAR 1 OF POPUP 帮助h           
*       * Prompt:     帮助主题(C)    F1                           
*       * Snippet:    7                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _0381054cs
 IF  .NOT. FILE('storage.chm')
      MESSAGEBOX("找不到帮助文件 storage.chm，请与作者李中武联系！", 64, "帮助")
 ELSE
      SET HELP TO storage.chm
      HELP
 ENDI


*       *********************************************************
*       *                                                         
*       * _0381054CU  ON SELECTION BAR 3 OF POPUP 帮助h           
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MENU.MPR,            Record:   52           
*       * Called By:  ON SELECTION BAR 3 OF POPUP 帮助h           
*       * Prompt:     发email与李中武联系(W)                      
*       * Snippet:    8                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _0381054cu
 DECL INTEGER ShellExecute IN SHELL32.DLL INTEGER, STRING, STRING, STRING, STRING, INTEGER
 RETU shellexecute(0,"open","mailto:[e-mail]?subject=发给李中武的信","","",1)


*       *********************************************************
*       *                                                         
*       * _0381054CV  ON SELECTION BAR 4 OF POPUP 帮助h           
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MENU.MPR,            Record:   53           
*       * Called By:  ON SELECTION BAR 4 OF POPUP 帮助h           
*       * Prompt:     访问李中武个人主页(P)                       
*       * Snippet:    9                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _0381054cv
DECL INTEGER ShellExecute IN SHELL32.DLL INTEGER, STRING, STRING, STRING, STRING, INTEGER
 RETU shellexecute(0,"open","http://lzwhtm.126.com","","",1)