main.mpr

撒撒娇快乐就好空间看了我忘了拍相片在来记录卡连接可卡拉上了塑料卡设计askalsdaslas

 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('只能从顶层表单调用该菜单。请确认您表单的 ShowWindow 属性已设为 2。阅读此菜单 MPR 文件的头部分，可以获得详细信息。')
    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( 16 )
 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 ) = '业务管理x'
    A_MENUPOPS( 2 ) = '进货管理j'
    A_MENUPOPS( 3 ) = '库存管理k'
    A_MENUPOPS( 4 ) = '商品信息p'
    A_MENUPOPS( 5 ) = '报表管理b'
    A_MENUPOPS( 6 ) = '往来帐款w'
    A_MENUPOPS( 7 ) = '系统设置s'
    A_MENUPOPS( 8 ) = '帮助h'
 ENDIF 

DEFINE MENU (M.CMENUNAME) BAR IN (M.OFORMREF.NAME)
do case
   case PASSWORDS.A1=.T.
     DEFINE PAD _0WY0N84H8 OF (M.CMENUNAME) PROMPT '业务管理(\<X)' COLOR SCHEME 3 KEY ALT+X , ''
     ON PAD _0WY0N84H8 OF (M.CMENUNAME) ACTIVATE POPUP (A_MENUPOPS(1))
   case PASSWORDS.A1=.F.
     HIDE POPUP _MSM_SYSTM
ENDCASE
do case
   case PASSWORDS.A6=.T.
        DEFINE PAD _0WY0N84HO OF (M.CMENUNAME) PROMPT '进货管理(\<J)' COLOR SCHEME 3 KEY ALT+J ,''
        ON PAD _0WY0N84HO OF (M.CMENUNAME) ACTIVATE POPUP (A_MENUPOPS(2))
   case PASSWORDS.A6=.F.
        HIDE POPUP _MSM_SYSTM
ENDCASE
do case
   case PASSWORDS.A9=.T.
        DEFINE PAD _0WY0N84H1 OF (M.CMENUNAME) PROMPT '库存管理\<K)' COLOR SCHEME 3 KEY ALT+K ,''
        ON PAD _0WY0N84H1 OF (M.CMENUNAME) ACTIVATE POPUP (A_MENUPOPS(3))
   case PASSWORDS.A9=.F.
        HIDE POPUP _MSM_SYSTM
ENDCASE
do case
   case PASSWORDS.A13=.T.
        DEFINE PAD _0WY0N84HP OF (M.CMENUNAME) PROMPT '商品信息\<P)' COLOR SCHEME 3 KEY ALT+P ,''
        ON PAD _0WY0N84HP OF (M.CMENUNAME) ACTIVATE POPUP (A_MENUPOPS(4))
   case PASSWORDS.A13=.F.
        HIDE POPUP _MSM_SYSTM
ENDCASE
do case
   case PASSWORDS.A17=.T.
        DEFINE PAD _0WY0N84H2 OF (M.CMENUNAME) PROMPT '报表管理(\<B)' COLOR SCHEME 3 KEY ALT+B ,''
        ON PAD _0WY0N84H2 OF (M.CMENUNAME) ACTIVATE POPUP (A_MENUPOPS(5))
   case PASSWORDS.A17=.F.
        HIDE POPUP _MSM_SYSTM
ENDCASE
do case
   case PASSWORDS.A29=.T.
        DEFINE PAD _0WY0N84HR OF (M.CMENUNAME) PROMPT '往来帐款(\<W)' COLOR SCHEME 3 KEY ALT+W ,''
        ON PAD _0WY0N84HR OF (M.CMENUNAME) ACTIVATE POPUP (A_MENUPOPS(6))
   case PASSWORDS.A29=.F.
        HIDE POPUP _MSM_SYSTM
ENDCASE
do case
   case PASSWORDS.A41=.T.
        DEFINE PAD _0WY0N84H3 OF (M.CMENUNAME) PROMPT '系统设置(\<S)' COLOR SCHEME 3 KEY ALT+S ,''
        ON PAD _0WY0N84H3 OF (M.CMENUNAME) ACTIVATE POPUP (A_MENUPOPS(7))
   case PASSWORDS.A41=.F.
        HIDE POPUP _MSM_SYSTM
ENDCASE
        DEFINE PAD _0WY0N84HS OF (M.CMENUNAME) PROMPT '帮助(\<H)' COLOR SCHEME 3 KEY ALT+H ,''
        ON PAD _0WY0N84HS OF (M.CMENUNAME) ACTIVATE POPUP (A_MENUPOPS(8))
***********************************************************************
DEFINE POPUP (A_MENUPOPS(1)) COLOR SCHEME 5 SHADOW MARGIN RELATIVE 
do case
   case PASSWORDS.A2=.T.
        DEFINE BAR 1 OF (A_MENUPOPS(1)) PROMPT '销售单' 
        ON SELECTION BAR 1 OF (A_MENUPOPS(1)) do form xskd   
   case PASSWORDS.A2=.F.
        HIDE POPUP ALL
ENDCASE
do case
   case PASSWORDS.A3=.T.
        DEFINE BAR 2 OF (A_MENUPOPS(1)) PROMPT '退货单'
        ON SELECTION BAR 2 OF (A_MENUPOPS(1)) do form thkd
   case PASSWORDS.A3=.F.
HIDE POPUP ALL
ENDCASE
do case
   case PASSWORDS.A4=.T.
        DEFINE BAR 3 OF (A_MENUPOPS(1)) PROMPT '付款单'
        DEFINE BAR 4 OF (A_MENUPOPS(1)) PROMPT '\-'
        ON SELECTION BAR 3 OF (A_MENUPOPS(1)) do form fkkd
   case PASSWORDS.A4=.F.
HIDE POPUP ALL
ENDCASE
do case
   case PASSWORDS.A5=.T.
        DEFINE BAR 5 OF (A_MENUPOPS(1)) PROMPT '还款单'
        ON SELECTION BAR 5 OF (A_MENUPOPS(1)) do form hkkd
   case PASSWORDS.A5=.F.
HIDE POPUP ALL
ENDCASE
***********************************************************************
DEFINE POPUP (A_MENUPOPS(2)) COLOR SCHEME 2 SHADOW MARGIN RELATIVE 
do case
   case PASSWORDS.A7=.T.
        DEFINE BAR 1 OF (A_MENUPOPS(2)) PROMPT '商品入库单' 
        ON SELECTION BAR 1 OF (A_MENUPOPS(2)) do form rkkd
   case PASSWORDS.A7=.F.
        HIDE POPUP ALL
ENDCASE
do case
   case PASSWORDS.A8=.T.
        DEFINE BAR 2 OF (A_MENUPOPS(2)) PROMPT '商品退货单'
        ON SELECTION BAR 2 OF (A_MENUPOPS(2)) do form fckd
   case PASSWORDS.A8=.F.
        HIDE POPUP ALL
ENDCASE  
***********************************************************************
DEFINE POPUP (A_MENUPOPS(3)) COLOR SCHEME 3 SHADOW MARGIN RELATIVE 
do case
   case PASSWORDS.A10=.T.
        DEFINE BAR 1 OF (A_MENUPOPS(3)) PROMPT '商品损溢单'
        DEFINE BAR 2 OF (A_MENUPOPS(3)) PROMPT '\-'
        ON SELECTION BAR 1 OF (A_MENUPOPS(3)) do form bykd
   case PASSWORDS.A10=.F.
        HIDE POPUP ALL
ENDCASE
do case
   case PASSWORDS.A11=.T.
        DEFINE BAR 3 OF (A_MENUPOPS(3)) PROMPT '商品库存查询' 
        ON SELECTION BAR 3 OF (A_MENUPOPS(3)) DO FORM about
   case PASSWORDS.A11=.F.
        HIDE POPUP ALL
ENDCASE

do case
   case PASSWORDS.A12=.T.
        DEFINE BAR 4 OF (A_MENUPOPS(3)) PROMPT '商品进货查询'
        ON SELECTION BAR 4 OF (A_MENUPOPS(3)) do form about
   case PASSWORDS.A12=.F.
        HIDE POPUP ALL
ENDCASE
***********************************************************************
DEFINE POPUP (A_MENUPOPS(4)) COLOR SCHEME 3 SHADOW MARGIN RELATIVE 
do case
   case PASSWORDS.A14=.T.
        DEFINE BAR 1 OF (A_MENUPOPS(4)) PROMPT '商品综合查询'
        ON SELECTION BAR 1 OF (A_MENUPOPS(4)) do form about
   case PASSWORDS.A14=.F.
        HIDE POPUP ALL
ENDCASE
do case
   case PASSWORDS.A15=.T.
        DEFINE BAR 2 OF (A_MENUPOPS(4)) PROMPT '商品单一查询'
        DEFINE BAR 3 OF (A_MENUPOPS(4)) PROMPT '\-'
        ON SELECTION BAR 2 OF (A_MENUPOPS(4)) do form about
   case PASSWORDS.A15=.F.
        HIDE POPUP ALL
ENDCASE
do case
   case PASSWORDS.A16=.T.
        DEFINE BAR 4 OF (A_MENUPOPS(4)) PROMPT '商品管理' 
        ON SELECTION BAR 4 OF (A_MENUPOPS(4)) do form newsp
   case PASSWORDS.A16=.F.
        HIDE POPUP ALL
ENDCASE
***********************************************************************
DEFINE POPUP (A_MENUPOPS(5)) COLOR SCHEME 11 SHADOW MARGIN RELATIVE 
do case
   case PASSWORDS.A18=.T.
        DEFINE BAR 1 OF (A_MENUPOPS(5)) PROMPT '商品进货明细报表'
        ON SELECTION BAR 1 OF (A_MENUPOPS(5)) do form about
   case PASSWORDS.A18=.F.
        HIDE POPUP ALL
ENDCASE
do case
   case PASSWORDS.A19=.T.
        DEFINE BAR 2 OF (A_MENUPOPS(5)) PROMPT '商品进货汇总报表'
        DEFINE BAR 3 OF (A_MENUPOPS(5)) PROMPT '\-'
        ON SELECTION BAR 2 OF (A_MENUPOPS(5)) do form about
   case PASSWORDS.A19=.F.
        HIDE POPUP ALL
ENDCASE
do case
   case PASSWORDS.A20=.T.
        DEFINE BAR 4 OF (A_MENUPOPS(5)) PROMPT '商品销售明细报表'
        ON SELECTION BAR 4 OF (A_MENUPOPS(5)) do form about
   case PASSWORDS.A20=.F.
        HIDE POPUP ALL
ENDCASE
do case
   case PASSWORDS.A21=.T.
        DEFINE BAR 5 OF (A_MENUPOPS(5)) PROMPT '商品销售汇总报表'
        DEFINE BAR 6 OF (A_MENUPOPS(5)) PROMPT '\-'
        ON SELECTION BAR 5 OF (A_MENUPOPS(5)) do form about
   case PASSWORDS.A21=.F.
        HIDE POPUP ALL
ENDCASE
do case
   case PASSWORDS.A22=.T.
        DEFINE BAR 7 OF (A_MENUPOPS(5)) PROMPT '商品销售利润明细表' 
        ON SELECTION BAR 7 OF (A_MENUPOPS(5)) do form about
   case PASSWORDS.A22=.F.
        HIDE POPUP ALL
ENDCASE
do case
   case PASSWORDS.A23=.T.
        DEFINE BAR 8 OF (A_MENUPOPS(5)) PROMPT '商品销售利润汇总表'