whedit.mpr

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

 ON SELECTION BAR 13 OF (A_MENUPOPS(5)) do kccx
 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 '\-'
 DEFINE BAR 7 OF (A_MENUPOPS(6)) PROMPT '销售摘要统计'
 DEFINE BAR 8 OF (A_MENUPOPS(6)) PROMPT '编码分类统计'
 DEFINE BAR 9 OF (A_MENUPOPS(6)) PROMPT '报表统计分析'
 ON SELECTION BAR 1 OF (A_MENUPOPS(6)) do jlcx
 ON SELECTION BAR 2 OF (A_MENUPOPS(6)) do qddy
 ON SELECTION BAR 4 OF (A_MENUPOPS(6)) do kcce
 ON SELECTION BAR 5 OF (A_MENUPOPS(6)) do cbhs
 ON SELECTION BAR 7 OF (A_MENUPOPS(6)) do xszy
 ON SELECTION BAR 8 OF (A_MENUPOPS(6)) do bmfl
 ON SELECTION BAR 9 OF (A_MENUPOPS(6))  ;
      DO _04t0kndq4  IN LOCFILE("WHQGZJ2.0\MENU\WHEDIT" ,"MPX;MPR|FXP;PRG" ,"WHERE is WHEDIT?")
 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 '\-'
 DEFINE BAR 5 OF (A_MENUPOPS(7)) PROMPT '客户帐款分析'
 ON SELECTION BAR 1 OF (A_MENUPOPS(7))  ;
      DO _04t0kndqd  IN LOCFILE("WHQGZJ2.0\MENU\WHEDIT" ,"MPX;MPR|FXP;PRG" ,"WHERE is WHEDIT?")
 ON SELECTION BAR 3 OF (A_MENUPOPS(7))  ;
      DO _04t0kndqh  IN LOCFILE("WHQGZJ2.0\MENU\WHEDIT" ,"MPX;MPR|FXP;PRG" ,"WHERE is WHEDIT?")
 ON SELECTION BAR 5 OF (A_MENUPOPS(7)) do Khzk
 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 mssz
 ON SELECTION BAR 3 OF (A_MENUPOPS(8)) do msxs
 DEFINE POPUP (A_MENUPOPS(9)) COLOR SCHEME 4 SHADOW MARGIN RELATIVE 
 DEFINE BAR 1 OF (A_MENUPOPS(9)) PROMPT '产品模板新增'
 DEFINE BAR 2 OF (A_MENUPOPS(9)) PROMPT '产品模板修改'
 DEFINE BAR 3 OF (A_MENUPOPS(9)) PROMPT '\-'
 DEFINE BAR 4 OF (A_MENUPOPS(9)) PROMPT '产品组合'
 DEFINE BAR 5 OF (A_MENUPOPS(9)) PROMPT '整件拆散'
 ON SELECTION BAR 1 OF (A_MENUPOPS(9)) do taojian1
 ON SELECTION BAR 2 OF (A_MENUPOPS(9)) do taojian2
 ON SELECTION BAR 4 OF (A_MENUPOPS(9)) do cpzh
 ON SELECTION BAR 5 OF (A_MENUPOPS(9)) do cpcf
 DEFINE POPUP (A_MENUPOPS(10)) COLOR SCHEME 4 SHADOW MARGIN RELATIVE 
 DEFINE BAR 1 OF (A_MENUPOPS(10)) PROMPT '物资配送主题帮助'
 DEFINE BAR 2 OF (A_MENUPOPS(10)) PROMPT '\-'
 DEFINE BAR 3 OF (A_MENUPOPS(10)) PROMPT '公司简介'
 DEFINE BAR 4 OF (A_MENUPOPS(10)) PROMPT 'Internet 网站'
 DEFINE BAR 5 OF (A_MENUPOPS(10)) PROMPT '\-'
 DEFINE BAR 6 OF (A_MENUPOPS(10)) PROMPT '关于[物资配送系统]'
 ON SELECTION BAR 1 OF (A_MENUPOPS(10))  ;
      DO _04t0kndr6  IN LOCFILE("WHQGZJ2.0\MENU\WHEDIT" ,"MPX;MPR|FXP;PRG" ,"WHERE is WHEDIT?")
 ON SELECTION BAR 3 OF (A_MENUPOPS(10))  ;
      DO _04t0kndr9  IN LOCFILE("WHQGZJ2.0\MENU\WHEDIT" ,"MPX;MPR|FXP;PRG" ,"WHERE is WHEDIT?")
 ON BAR 4 OF (A_MENUPOPS(10)) ACTIVATE POPUP (A_MENUPOPS(11))
 ON SELECTION BAR 6 OF (A_MENUPOPS(10)) do form logo with .F.
 DEFINE POPUP (A_MENUPOPS(11)) COLOR SCHEME 4 SHADOW MARGIN RELATIVE 
 DEFINE BAR 1 OF (A_MENUPOPS(11)) PROMPT '<光正公司>主页'
 DEFINE BAR 2 OF (A_MENUPOPS(11)) PROMPT '技术支持'
 DEFINE BAR 3 OF (A_MENUPOPS(11)) PROMPT '发送反馈'
 ON SELECTION BAR 1 OF (A_MENUPOPS(11))  ;
      DO _04t0kndrj  IN LOCFILE("WHQGZJ2.0\MENU\WHEDIT" ,"MPX;MPR|FXP;PRG" ,"WHERE is WHEDIT?")
 ON SELECTION BAR 2 OF (A_MENUPOPS(11))  ;
      DO _04t0kndrm  IN LOCFILE("WHQGZJ2.0\MENU\WHEDIT" ,"MPX;MPR|FXP;PRG" ,"WHERE is WHEDIT?")
 ON SELECTION BAR 3 OF (A_MENUPOPS(11))  ;
      DO _04t0kndrq  IN LOCFILE("WHQGZJ2.0\MENU\WHEDIT" ,"MPX;MPR|FXP;PRG" ,"WHERE is WHEDIT?")
 ACTIVATE MENU (M.CMENUNAME) NOWAIT
 IF M.CTYPEPARM2 = 'C'
 M.GETMENUNAME = M.CMENUNAME
 M.OFORMREF.NAME = M.CSAVEFORMNAME
 ENDIF 

PROCEDURE _04t0kndo0
 DO HTDD WITH .F. , 1
ENDPROC
*------
PROCEDURE _04t0kndo4
 DO HTDD WITH .T. , 1
ENDPROC
*------
PROCEDURE _04t0kndo8
 DO HTDD WITH .F. , 2
ENDPROC
*------
PROCEDURE _04t0kndob
 DO HTDD WITH .T. , 2
ENDPROC
*------
PROCEDURE _04t0kndof
 IF  .NOT. SUBSTR(RIGHT005,5,1) = '1'
 = MESSAGEBOX('您无权进入本操作模块!',16,'系统提示')
 RETURN 
 ENDIF 
  MAIN.SHOWOBJECT(.F.)
 DO FORM jhcg
ENDPROC
*------
PROCEDURE _04t0kndoi
 IF  .NOT. SUBSTR(RIGHT005,6,1) = '1'
 = MESSAGEBOX('您无权进入本操作模块!',16,'系统提示')
 RETURN 
 ENDIF 
  MAIN.SHOWOBJECT(.F.)
 DO FORM htfx
ENDPROC
*------
PROCEDURE _04t0kndom
 IF  .NOT. SUBSTR(RIGHT005,7,1) = '1'
 = MESSAGEBOX('您无权进入本操作模块!',16,'系统提示')
 RETURN 
 ENDIF 
  MAIN.SHOWOBJECT(.F.)
 DO FORM htdy
ENDPROC
*------
PROCEDURE _04t0kndq4
 IF  .NOT. SUBSTR(RIGHT003,8,1) = '1'
 = MESSAGEBOX('您无权进入本操作模块!',16,'系统提示')
 RETURN 
 ENDIF 
  MAIN.SHOWOBJECT(.F.)
 DO FORM xsfx
ENDPROC
*------
PROCEDURE _04t0kndqd
 IF SUBSTR(RIGHT004,1,10) = '0000000000'
 = MESSAGEBOX('您无权进入[往来帐管理]',16,'系统提示')
 RETURN 
 ENDIF 
  MAIN.SHOWOBJECT(.F.)
 DO FORM zkcl WITH .T.
ENDPROC
*------
PROCEDURE _04t0kndqh
 IF SUBSTR(RIGHT004,11,7) = '0000000'
 = MESSAGEBOX('您无权进入[资金帐管理]',16,'系统提示')
 RETURN 
 ENDIF 
  MAIN.SHOWOBJECT(.F.)
 DO FORM zkcl WITH .F.
ENDPROC
*------
PROCEDURE _04t0kndr6
 SET TOPIC TO 
 HELP  开始进入系统
ENDPROC
*------
PROCEDURE _04t0kndr9
 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 _04t0kndrj
  MAIN.HYPERLINK1.NAVIGATETO('Http://www.guangying.com/fox')
ENDPROC
*------
PROCEDURE _04t0kndrm
  MAIN.HYPERLINK1.NAVIGATETO('Http://www.guangying.com/fox')
ENDPROC
*------
PROCEDURE _04t0kndrq
  MAIN.HYPERLINK1.NAVIGATETO('mailto:[e-mail]')
ENDPROC
*------*