whedit.mpr

非常不错的仓库管理源代码

* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
*  文件名: WHEDIT.MPR <-- 本文件由 UnFoxAll 创建
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-


 LPARAMETER 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("This menu can only be called from a Top-Level form. Ensure that your form's ShowWindow property is set to 2. Read the header section of the menu's MPR file for more details.")
 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  .NOT. EMPTY(M.GETMENUNAME)
 M.CMENUNAME = M.GETMENUNAME
 ENDIF 
 DIMENSION A_MENUPOPS( 11 )
 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 ) = '编辑e'
 A_MENUPOPS( 3 ) = '系统设置'
 A_MENUPOPS( 4 ) = '合同管理'
 A_MENUPOPS( 5 ) = '仓库管理'
 A_MENUPOPS( 6 ) = '报表管理'
 A_MENUPOPS( 7 ) = '资金管理'
 A_MENUPOPS( 8 ) = '零售管理'
 A_MENUPOPS( 9 ) = '产品管理'
 A_MENUPOPS( 10 ) = '帮助'
 A_MENUPOPS( 11 ) = 'internet网'
 ENDIF 
 M.CMENUNAME = 'whmenu'
 DEFINE MENU (M.CMENUNAME) BAR IN (M.OFORMREF.NAME)
 DEFINE PAD M_FILE OF (M.CMENUNAME) PROMPT '文件' COLOR SCHEME 3 KEY ALT+F , 'ALT+F'
 DEFINE PAD M_EDIT OF (M.CMENUNAME) PROMPT '编辑' COLOR SCHEME 3 KEY ALT+E , 'ALT+E'
 DEFINE PAD M_SYS OF (M.CMENUNAME) PROMPT '系统设置' COLOR SCHEME 3
 DEFINE PAD M_HTDD OF (M.CMENUNAME) PROMPT '合同管理' COLOR SCHEME 3
 DEFINE PAD M_INV OF (M.CMENUNAME) PROMPT '仓库管理' COLOR SCHEME 3 KEY ALT+I , 'ALT+I'
 DEFINE PAD M_TJBB OF (M.CMENUNAME) PROMPT '报表管理' COLOR SCHEME 3
 DEFINE PAD M_ZJGL OF (M.CMENUNAME) PROMPT '资金管理' COLOR SCHEME 3
 DEFINE PAD M_MSXS OF (M.CMENUNAME) PROMPT '零售管理' COLOR SCHEME 3
 DEFINE PAD M_TJZH OF (M.CMENUNAME) PROMPT '产品管理' COLOR SCHEME 3
 DEFINE PAD M_HELP OF (M.CMENUNAME) PROMPT '帮助' COLOR SCHEME 3 KEY ALT+H , 'ALT+H'
 ON PAD M_FILE OF (M.CMENUNAME) ACTIVATE POPUP (A_MENUPOPS(1))
 ON PAD M_EDIT OF (M.CMENUNAME) ACTIVATE POPUP (A_MENUPOPS(2))
 ON PAD M_SYS OF (M.CMENUNAME) ACTIVATE POPUP (A_MENUPOPS(3))
 ON PAD M_HTDD OF (M.CMENUNAME) ACTIVATE POPUP (A_MENUPOPS(4))
 ON PAD M_INV OF (M.CMENUNAME) ACTIVATE POPUP (A_MENUPOPS(5))
 ON PAD M_TJBB OF (M.CMENUNAME) ACTIVATE POPUP (A_MENUPOPS(6))
 ON PAD M_ZJGL OF (M.CMENUNAME) ACTIVATE POPUP (A_MENUPOPS(7))
 ON PAD M_MSXS OF (M.CMENUNAME) ACTIVATE POPUP (A_MENUPOPS(8))
 ON PAD M_TJZH OF (M.CMENUNAME) ACTIVATE POPUP (A_MENUPOPS(9))
 ON PAD M_HELP OF (M.CMENUNAME) ACTIVATE POPUP (A_MENUPOPS(10))
 DEFINE POPUP (A_MENUPOPS(1)) COLOR SCHEME 4 SHADOW MARGIN RELATIVE 
 DEFINE BAR 1 OF (A_MENUPOPS(1)) PROMPT '安全码设置'
 DEFINE BAR 2 OF (A_MENUPOPS(1)) PROMPT '\-' KEY CTRL+L , 'CTRL+L'
 DEFINE BAR 3 OF (A_MENUPOPS(1)) PROMPT '新建套帐' KEY CTRL+N , 'CTRL+N'
 DEFINE BAR 4 OF (A_MENUPOPS(1)) PROMPT '切换套帐' KEY CTRL+O , 'CTRL+O'
 DEFINE BAR 5 OF (A_MENUPOPS(1)) PROMPT '\-'
 DEFINE BAR 6 OF (A_MENUPOPS(1)) PROMPT '数据维护'
 DEFINE BAR 7 OF (A_MENUPOPS(1)) PROMPT '网站维护'
 DEFINE BAR 8 OF (A_MENUPOPS(1)) PROMPT '系统诊断维护'
 DEFINE BAR 9 OF (A_MENUPOPS(1)) PROMPT '\-'
 DEFINE BAR 10 OF (A_MENUPOPS(1)) PROMPT '登录日志监察'
 DEFINE BAR 11 OF (A_MENUPOPS(1)) PROMPT '\-'
 DEFINE BAR 12 OF (A_MENUPOPS(1)) PROMPT '月底结转'
 DEFINE BAR 13 OF (A_MENUPOPS(1)) PROMPT '反结转'
 DEFINE BAR 14 OF (A_MENUPOPS(1)) PROMPT '\-'
 DEFINE BAR 15 OF (A_MENUPOPS(1)) PROMPT '退出，重新登录'
 DEFINE BAR 16 OF (A_MENUPOPS(1)) PROMPT '\-'
 DEFINE BAR 17 OF (A_MENUPOPS(1)) PROMPT '退出'
 ON SELECTION BAR 1 OF (A_MENUPOPS(1)) main.zqaqm()
 ON SELECTION BAR 3 OF (A_MENUPOPS(1)) do accdirc1
 ON SELECTION BAR 4 OF (A_MENUPOPS(1)) do accdirc2
 ON SELECTION BAR 6 OF (A_MENUPOPS(1)) do sjwh
 ON SELECTION BAR 7 OF (A_MENUPOPS(1)) do Station
 ON SELECTION BAR 8 OF (A_MENUPOPS(1)) do xtzd
 ON SELECTION BAR 10 OF (A_MENUPOPS(1)) do dljc
 ON SELECTION BAR 12 OF (A_MENUPOPS(1)) DO ydjz
 ON SELECTION BAR 13 OF (A_MENUPOPS(1)) do ydfjz
 ON SELECTION BAR 15 OF (A_MENUPOPS(1)) main.login()
 ON SELECTION BAR 17 OF (A_MENUPOPS(1)) main.quitform(1)
 DEFINE POPUP (A_MENUPOPS(2)) COLOR SCHEME 4 SHADOW MARGIN RELATIVE 
 DEFINE BAR _MED_UNDO OF (A_MENUPOPS(2)) PROMPT '恢复' KEY CTRL+Z , 'CTRL+Z'
 DEFINE BAR _MED_CUT OF (A_MENUPOPS(2)) PROMPT '剪切(Ctrl+X)' KEY CTRL+X , 'CTRL+X'
 DEFINE BAR _MED_COPY OF (A_MENUPOPS(2)) PROMPT '复制(Ctrl+C)' KEY CTRL+C , 'CTRL+C'
 DEFINE BAR _MED_SLCTA OF (A_MENUPOPS(2)) PROMPT '全选(Ctrl+A)' KEY CTRL+A , 'CTRL+A'
 DEFINE BAR _MED_PASTE OF (A_MENUPOPS(2)) PROMPT '粘贴(Ctrl+V)' KEY CTRL+V , 'CTRL+V'
 DEFINE POPUP (A_MENUPOPS(3)) COLOR SCHEME 4 SHADOW MARGIN RELATIVE 
 DEFINE BAR 1 OF (A_MENUPOPS(3)) PROMPT '用户登记'
 DEFINE BAR 2 OF (A_MENUPOPS(3)) PROMPT '职员与权限'
 DEFINE BAR 3 OF (A_MENUPOPS(3)) PROMPT '方案设置'
 DEFINE BAR 4 OF (A_MENUPOPS(3)) PROMPT '期初设置'
 DEFINE BAR 5 OF (A_MENUPOPS(3)) PROMPT '\-'
 DEFINE BAR 6 OF (A_MENUPOPS(3)) PROMPT '货品设置'
 DEFINE BAR 7 OF (A_MENUPOPS(3)) PROMPT '客户设置'
 DEFINE BAR 8 OF (A_MENUPOPS(3)) PROMPT '仓库设置'
 DEFINE BAR 9 OF (A_MENUPOPS(3)) PROMPT '货币设置'
 DEFINE BAR 10 OF (A_MENUPOPS(3)) PROMPT '摘要设置'
 DEFINE BAR 11 OF (A_MENUPOPS(3)) PROMPT '\-'
 DEFINE BAR 12 OF (A_MENUPOPS(3)) PROMPT '限额设置'
 DEFINE BAR 13 OF (A_MENUPOPS(3)) PROMPT '货品调整'
 DEFINE BAR 14 OF (A_MENUPOPS(3)) PROMPT '\-'
 DEFINE BAR 15 OF (A_MENUPOPS(3)) PROMPT '更改密码'
 ON SELECTION BAR 1 OF (A_MENUPOPS(3)) do yhdj
 ON SELECTION BAR 2 OF (A_MENUPOPS(3)) do qxsz
 ON SELECTION BAR 3 OF (A_MENUPOPS(3)) do fasz
 ON SELECTION BAR 4 OF (A_MENUPOPS(3)) do qcsz
 ON SELECTION BAR 6 OF (A_MENUPOPS(3)) do hpsz
 ON SELECTION BAR 7 OF (A_MENUPOPS(3)) do khsz
 ON SELECTION BAR 8 OF (A_MENUPOPS(3)) do cksz
 ON SELECTION BAR 9 OF (A_MENUPOPS(3)) do hbsz
 ON SELECTION BAR 10 OF (A_MENUPOPS(3)) do zysz
 ON SELECTION BAR 12 OF (A_MENUPOPS(3)) do xesz
 ON SELECTION BAR 13 OF (A_MENUPOPS(3)) do hptz
 ON SELECTION BAR 15 OF (A_MENUPOPS(3)) do ggmm
 DEFINE POPUP (A_MENUPOPS(4)) COLOR SCHEME 4 SHADOW MARGIN RELATIVE 
 DEFINE BAR 1 OF (A_MENUPOPS(4)) PROMPT '采购订单新增'
 DEFINE BAR 2 OF (A_MENUPOPS(4)) PROMPT '采购订单修改'
 DEFINE BAR 3 OF (A_MENUPOPS(4)) PROMPT '\-'
 DEFINE BAR 4 OF (A_MENUPOPS(4)) PROMPT '销售订单新增'
 DEFINE BAR 5 OF (A_MENUPOPS(4)) PROMPT '销售订单修改'
 DEFINE BAR 6 OF (A_MENUPOPS(4)) PROMPT '\-'
 DEFINE BAR 7 OF (A_MENUPOPS(4)) PROMPT '计划采购'
 DEFINE BAR 8 OF (A_MENUPOPS(4)) PROMPT '合同订单分析'
 DEFINE BAR 9 OF (A_MENUPOPS(4)) PROMPT '订单打印'
 ON SELECTION BAR 1 OF (A_MENUPOPS(4))  ;
      DO _04t0kndo0  IN LOCFILE("WHQGZJ2.0\MENU\WHEDIT" ,"MPX;MPR|FXP;PRG" ,"WHERE is WHEDIT?")
 ON SELECTION BAR 2 OF (A_MENUPOPS(4))  ;
      DO _04t0kndo4  IN LOCFILE("WHQGZJ2.0\MENU\WHEDIT" ,"MPX;MPR|FXP;PRG" ,"WHERE is WHEDIT?")
 ON SELECTION BAR 4 OF (A_MENUPOPS(4))  ;
      DO _04t0kndo8  IN LOCFILE("WHQGZJ2.0\MENU\WHEDIT" ,"MPX;MPR|FXP;PRG" ,"WHERE is WHEDIT?")
 ON SELECTION BAR 5 OF (A_MENUPOPS(4))  ;
      DO _04t0kndob  IN LOCFILE("WHQGZJ2.0\MENU\WHEDIT" ,"MPX;MPR|FXP;PRG" ,"WHERE is WHEDIT?")
 ON SELECTION BAR 7 OF (A_MENUPOPS(4))  ;
      DO _04t0kndof  IN LOCFILE("WHQGZJ2.0\MENU\WHEDIT" ,"MPX;MPR|FXP;PRG" ,"WHERE is WHEDIT?")
 ON SELECTION BAR 8 OF (A_MENUPOPS(4))  ;
      DO _04t0kndoi  IN LOCFILE("WHQGZJ2.0\MENU\WHEDIT" ,"MPX;MPR|FXP;PRG" ,"WHERE is WHEDIT?")
 ON SELECTION BAR 9 OF (A_MENUPOPS(4))  ;
      DO _04t0kndom  IN LOCFILE("WHQGZJ2.0\MENU\WHEDIT" ,"MPX;MPR|FXP;PRG" ,"WHERE is WHEDIT?")
 DEFINE POPUP (A_MENUPOPS(5)) COLOR SCHEME 4 SHADOW MARGIN RELATIVE 
 DEFINE BAR 1 OF (A_MENUPOPS(5)) PROMPT '入库单登录'
 DEFINE BAR 2 OF (A_MENUPOPS(5)) PROMPT '入库单修改'
 DEFINE BAR 3 OF (A_MENUPOPS(5)) PROMPT '\-'
 DEFINE BAR 4 OF (A_MENUPOPS(5)) PROMPT '出库单登录'
 DEFINE BAR 5 OF (A_MENUPOPS(5)) PROMPT '出库单修改'
 DEFINE BAR 6 OF (A_MENUPOPS(5)) PROMPT '\-'
 DEFINE BAR 7 OF (A_MENUPOPS(5)) PROMPT '调库单登录'
 DEFINE BAR 8 OF (A_MENUPOPS(5)) PROMPT '调库单修改'
 DEFINE BAR 9 OF (A_MENUPOPS(5)) PROMPT '\-'
 DEFINE BAR 10 OF (A_MENUPOPS(5)) PROMPT '盘点单登录'
 DEFINE BAR 11 OF (A_MENUPOPS(5)) PROMPT '盘点单修改'
 DEFINE BAR 12 OF (A_MENUPOPS(5)) PROMPT '\-'
 DEFINE BAR 13 OF (A_MENUPOPS(5)) PROMPT '库存查询统计'
 ON SELECTION BAR 1 OF (A_MENUPOPS(5)) do ckgl with 1,.F.
 ON SELECTION BAR 2 OF (A_MENUPOPS(5)) do ckgl with 1,.T.
 ON SELECTION BAR 4 OF (A_MENUPOPS(5)) do ckgl with 2,.F.
 ON SELECTION BAR 5 OF (A_MENUPOPS(5)) do ckgl with 2,.T.
 ON SELECTION BAR 7 OF (A_MENUPOPS(5)) do ckgl with 3,.F.
 ON SELECTION BAR 8 OF (A_MENUPOPS(5)) do ckgl with 3,.T.
 ON SELECTION BAR 10 OF (A_MENUPOPS(5)) do ckgl with 4,.F.
 ON SELECTION BAR 11 OF (A_MENUPOPS(5)) do ckgl with 4,.T.