whck.mpr

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

* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
*  文件名: WHCK.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( 8 )
 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 ) = '文件f'
 A_MENUPOPS( 2 ) = '编辑e'
 A_MENUPOPS( 3 ) = '系统设置'
 A_MENUPOPS( 4 ) = '单据登录'
 A_MENUPOPS( 5 ) = '单据修改'
 A_MENUPOPS( 6 ) = '查询统计'
 A_MENUPOPS( 7 ) = '帮助h'
 A_MENUPOPS( 8 ) = '新菜单项'
 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
 DEFINE PAD M_SYS OF (M.CMENUNAME) PROMPT '系统设置' COLOR SCHEME 3
 DEFINE PAD M_IN OF (M.CMENUNAME) PROMPT '单据登录' COLOR SCHEME 3 KEY ALT+I , 'ALT+I'
 DEFINE PAD M_XG OF (M.CMENUNAME) PROMPT '单据修改' COLOR SCHEME 3 KEY ALT+M , 'ALT+M'
 DEFINE PAD M_TJBB OF (M.CMENUNAME) PROMPT '查询统计' COLOR SCHEME 3 KEY ALT+S , 'ALT+S'
 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_IN OF (M.CMENUNAME) ACTIVATE POPUP (A_MENUPOPS(4))
 ON PAD M_XG OF (M.CMENUNAME) ACTIVATE POPUP (A_MENUPOPS(5))
 ON PAD M_TJBB OF (M.CMENUNAME) ACTIVATE POPUP (A_MENUPOPS(6))
 ON PAD M_HELP OF (M.CMENUNAME) ACTIVATE POPUP (A_MENUPOPS(7))
 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 '\-'
 DEFINE BAR 3 OF (A_MENUPOPS(1)) PROMPT '新建套帐'
 DEFINE BAR 4 OF (A_MENUPOPS(1)) PROMPT '切换套帐'
 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 '盘点单登录'
 ON SELECTION BAR 1 OF (A_MENUPOPS(4)) do ckgl with 1,.F.
 ON SELECTION BAR 2 OF (A_MENUPOPS(4)) do ckgl with 2,.F.
 ON SELECTION BAR 3 OF (A_MENUPOPS(4)) do ckgl with 3,.F.
 ON SELECTION BAR 4 OF (A_MENUPOPS(4)) do ckgl with 4,.F.
 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 '盘点单修改'
 ON SELECTION BAR 1 OF (A_MENUPOPS(5)) do ckgl with 1,.T.
 ON SELECTION BAR 2 OF (A_MENUPOPS(5)) do ckgl with 2,.T.
 ON SELECTION BAR 3 OF (A_MENUPOPS(5)) do ckgl with 3,.T.
 ON SELECTION BAR 4 OF (A_MENUPOPS(5)) do ckgl with 4,.T.
 DEFINE POPUP (A_MENUPOPS(6)) COLOR SCHEME 4 SHADOW MARGIN RELATIVE 
 DEFINE BAR 1 OF (A_MENUPOPS(6)) PROMPT '报表查询打印'
 DEFINE BAR 2 OF (A_MENUPOPS(6)) PROMPT '库存查询统计'
 DEFINE BAR 3 OF (A_MENUPOPS(6)) PROMPT '库存超额统计'
 DEFINE BAR 4 OF (A_MENUPOPS(6)) PROMPT '\-'
 DEFINE BAR 5 OF (A_MENUPOPS(6)) PROMPT '销售摘要统计'
 DEFINE BAR 6 OF (A_MENUPOPS(6)) PROMPT '编码分类统计'
 ON SELECTION BAR 1 OF (A_MENUPOPS(6)) do qddy
 ON SELECTION BAR 2 OF (A_MENUPOPS(6)) do kccx
 ON SELECTION BAR 3 OF (A_MENUPOPS(6)) do kcce
 ON SELECTION BAR 5 OF (A_MENUPOPS(6)) do xszy
 ON SELECTION BAR 6 OF (A_MENUPOPS(6)) do bmfl
 DEFINE POPUP (A_MENUPOPS(7)) COLOR SCHEME 4 SHADOW MARGIN RELATIVE 
 DEFINE BAR 1 OF (A_MENUPOPS(7)) PROMPT '物资配送主题帮助'
 DEFINE BAR 2 OF (A_MENUPOPS(7)) PROMPT '\-'
 DEFINE BAR 3 OF (A_MENUPOPS(7)) PROMPT '公司简介'
 DEFINE BAR 4 OF (A_MENUPOPS(7)) PROMPT 'Internet 网站'
 DEFINE BAR 5 OF (A_MENUPOPS(7)) PROMPT '\-'
 DEFINE BAR 6 OF (A_MENUPOPS(7)) PROMPT '关于[物资配送系统]'
 ON SELECTION BAR 1 OF (A_MENUPOPS(7)) help
 ON SELECTION BAR 3 OF (A_MENUPOPS(7))  ;
      DO _04t0kndao  IN LOCFILE("WHQGZJ2.0\MENU\WHCK" ,"MPX;MPR|FXP;PRG" ,"WHERE is WHCK?")
 ON BAR 4 OF (A_MENUPOPS(7)) ACTIVATE POPUP (A_MENUPOPS(8))
 ON SELECTION BAR 6 OF (A_MENUPOPS(7)) do form logo with .F.
 DEFINE POPUP (A_MENUPOPS(8)) COLOR SCHEME 4 SHADOW MARGIN RELATIVE 
 DEFINE BAR 1 OF (A_MENUPOPS(8)) PROMPT '<光正公司>主页'
 DEFINE BAR 2 OF (A_MENUPOPS(8)) PROMPT '技术支持'
 DEFINE BAR 3 OF (A_MENUPOPS(8)) PROMPT '发送反馈'
 ON SELECTION BAR 1 OF (A_MENUPOPS(8))  ;
      DO _04t0kndaz  IN LOCFILE("WHQGZJ2.0\MENU\WHCK" ,"MPX;MPR|FXP;PRG" ,"WHERE is WHCK?")
 ON SELECTION BAR 2 OF (A_MENUPOPS(8))  ;
      DO _04t0kndb2  IN LOCFILE("WHQGZJ2.0\MENU\WHCK" ,"MPX;MPR|FXP;PRG" ,"WHERE is WHCK?")
 ON SELECTION BAR 3 OF (A_MENUPOPS(8))  ;
      DO _04t0kndbb  IN LOCFILE("WHQGZJ2.0\MENU\WHCK" ,"MPX;MPR|FXP;PRG" ,"WHERE is WHCK?")
 ACTIVATE MENU (M.CMENUNAME) NOWAIT
 IF M.CTYPEPARM2 = 'C'
 M.GETMENUNAME = M.CMENUNAME
 M.OFORMREF.NAME = M.CSAVEFORMNAME
 ENDIF 

PROCEDURE _04t0kndao
 DEFINE WINDOW WRIGHT NAME WRIGHT AT 0 , 0 SIZE 20 , 20 GROW FLOAT CLOSE ZOOM TITLE  ;
      '公司简介' IN (MAIN.NAME) SYSTEM 
 ZOOM WINDOW WRIGHT MAX 
 MODIFY COMMAND right.txt NOEDIT WINDOW WRIGHT IN (MAIN.NAME)
ENDPROC
*------
PROCEDURE _04t0kndaz
  MAIN.HYPERLINK1.NAVIGATETO('Http://www.guangying.com/fox')
ENDPROC
*------
PROCEDURE _04t0kndb2
  MAIN.HYPERLINK1.NAVIGATETO('Http://www.guangying.com/fox')
ENDPROC
*------
PROCEDURE _04t0kndbb
  MAIN.HYPERLINK1.NAVIGATETO('mailto:[e-mail]')
ENDPROC
*------*