main.bak

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

        DEFINE BAR 9 OF (A_MENUPOPS(5)) PROMPT '\-'
        ON SELECTION BAR 8 OF (A_MENUPOPS(5)) do form about
   case PASSWORDS.A23=.F.
        HIDE POPUP ALL
ENDCASE
do case
   case PASSWORDS.A24=.T.
        DEFINE BAR 10 OF (A_MENUPOPS(5)) PROMPT '商品库存明细表' 
        ON SELECTION BAR 10 OF (A_MENUPOPS(5)) do form about
   case PASSWORDS.A24=.F.
        HIDE POPUP ALL
ENDCASE
do case
   case PASSWORDS.A25=.T.
        DEFINE BAR 11 OF (A_MENUPOPS(5)) PROMPT '商品库存汇总表' 
        DEFINE BAR 12 OF (A_MENUPOPS(5)) PROMPT '\-'
        ON SELECTION BAR 11 OF (A_MENUPOPS(5)) do form about
   case PASSWORDS.A25=.F.
        HIDE POPUP ALL
ENDCASE
do case
   case PASSWORDS.A26=.T.
        DEFINE BAR 13 OF (A_MENUPOPS(5)) PROMPT '商品进销存明细表' 
        ON SELECTION BAR 13 OF (A_MENUPOPS(5)) do form about
   case PASSWORDS.A26=.F.
        HIDE POPUP ALL
ENDCASE
do case
   case PASSWORDS.A27=.T.
        DEFINE BAR 14 OF (A_MENUPOPS(5)) PROMPT '商品进销存存汇总表' 
        DEFINE BAR 15 OF (A_MENUPOPS(5)) PROMPT '\-'
        ON SELECTION BAR 14 OF (A_MENUPOPS(5)) do form about
   case PASSWORDS.A27=.F.
        HIDE POPUP ALL
ENDCASE
do case
   case PASSWORDS.A28=.T.
        DEFINE BAR 16 OF (A_MENUPOPS(5)) PROMPT '单品三级帐' 
        ON SELECTION BAR 16 OF (A_MENUPOPS(5)) do form about
   case PASSWORDS.A28=.F.
        HIDE POPUP ALL
ENDCASE
*******************************************************************
DEFINE POPUP (A_MENUPOPS(6)) COLOR SCHEME 11 SHADOW MARGIN RELATIVE 
do case
   case PASSWORDS.A30=.T.
        DEFINE BAR 1 OF (A_MENUPOPS(6)) PROMPT '应收款明细报表'
        ON SELECTION BAR 1 OF (A_MENUPOPS(6)) do form about
   case PASSWORDS.A30=.F.
        HIDE POPUP ALL
ENDCASE
do case
   case PASSWORDS.A31=.T.
        DEFINE BAR 2 OF (A_MENUPOPS(6)) PROMPT '已还款明细报表'
        ON SELECTION BAR 2 OF (A_MENUPOPS(6)) do form about
   case PASSWORDS.A31=.F.
        HIDE POPUP ALL
ENDCASE
do case
   case PASSWORDS.A32=.T.
        DEFINE BAR 3 OF (A_MENUPOPS(6)) PROMPT '应付款明细报表'
        DEFINE BAR 4 OF (A_MENUPOPS(6)) PROMPT '\-'
        ON SELECTION BAR 3 OF (A_MENUPOPS(6)) do form about
   case PASSWORDS.A32=.F.
        HIDE POPUP ALL
ENDCASE
do case
   case PASSWORDS.A33=.T.
        DEFINE BAR 5 OF (A_MENUPOPS(6)) PROMPT '应收款汇总报表'
        ON SELECTION BAR 5 OF (A_MENUPOPS(6)) do form about
   case PASSWORDS.A33=.F.
        HIDE POPUP ALL
ENDCASE
do case
   case PASSWORDS.A34=.T.
        DEFINE BAR 6 OF (A_MENUPOPS(6)) PROMPT '已还款汇总报表'
        ON SELECTION BAR 6 OF (A_MENUPOPS(6)) do form about
   case PASSWORDS.A34=.F.
        HIDE POPUP ALL
ENDCASE
do case
   case PASSWORDS.A35=.T.
        DEFINE BAR 7 OF (A_MENUPOPS(6)) PROMPT '应付款汇总报表'
        DEFINE BAR 8 OF (A_MENUPOPS(6)) PROMPT '\-'
        ON SELECTION BAR 7 OF (A_MENUPOPS(6)) do form about
   case PASSWORDS.A35=.F.
        HIDE POPUP ALL
ENDCASE
do case
   case PASSWORDS.A36=.T.
        DEFINE BAR 9 OF (A_MENUPOPS(6)) PROMPT '往来明细报表' 
        ON SELECTION BAR 9 OF (A_MENUPOPS(6)) do form about
   case PASSWORDS.A36=.F.
        HIDE POPUP ALL
ENDCASE
do case
   case PASSWORDS.A37=.T.
        DEFINE BAR 10 OF (A_MENUPOPS(6)) PROMPT '地区收帐明细报表' 
        ON SELECTION BAR 10 OF (A_MENUPOPS(6)) do form dqsz
   case PASSWORDS.A37=.F.
        HIDE POPUP ALL
ENDCASE
do case
   case PASSWORDS.A38=.T.
        DEFINE BAR 11 OF (A_MENUPOPS(6)) PROMPT '往来汇总报表' 
        ON SELECTION BAR 11 OF (A_MENUPOPS(6)) do form about
   case PASSWORDS.A38=.F.
        HIDE POPUP ALL
ENDCASE
do case
   case PASSWORDS.A39=.T.
        DEFINE BAR 12 OF (A_MENUPOPS(6)) PROMPT '地区销售明细报表'
        DEFINE BAR 13 OF (A_MENUPOPS(6)) PROMPT '\-'
        ON SELECTION BAR 12 OF (A_MENUPOPS(6)) do form about
   case PASSWORDS.A39=.F.
        HIDE POPUP ALL
ENDCASE
do case
   case PASSWORDS.A40=.T.
        DEFINE BAR 14 OF (A_MENUPOPS(6)) PROMPT '往来对帐单' 
        ON SELECTION BAR 14 OF (A_MENUPOPS(6)) do form about
   case PASSWORDS.A40=.F.
        HIDE POPUP ALL
ENDCASE
*************************************************************************
DEFINE POPUP (A_MENUPOPS(7)) COLOR SCHEME 10 SHADOW MARGIN RELATIVE 
do case
   case PASSWORDS.A42=.T.
        DEFINE BAR 1 OF (A_MENUPOPS(7)) PROMPT '操作员管理'
        ON SELECTION BAR 1 OF (A_MENUPOPS(7)) do form useradd  
   case PASSWORDS.A42=.F.
        HIDE POPUP ALL
ENDCASE
do case
   case PASSWORDS.A43=.T.
        DEFINE BAR 2 OF (A_MENUPOPS(7)) PROMPT '密码修改'
        DEFINE BAR 3 OF (A_MENUPOPS(7)) PROMPT '\-'
        ON SELECTION BAR 2 OF (A_MENUPOPS(7)) do form pass
   case PASSWORDS.A43=.F.
        HIDE POPUP ALL
ENDCASE
do case
   case PASSWORDS.A44=.T.
        DEFINE BAR 4 OF (A_MENUPOPS(7)) PROMPT '计算器' 
        ON SELECTION BAR 4 OF (A_MENUPOPS(7)) run /n1 calc.exe
   case PASSWORDS.A44=.F.
        HIDE POPUP ALL
ENDCASE
do case
   case PASSWORDS.A45=.T.
        DEFINE BAR 5 OF (A_MENUPOPS(7)) PROMPT '快捷键定义' 
        DEFINE BAR 6 OF (A_MENUPOPS(7)) PROMPT '\-'
        ON SELECTION BAR 5 OF (A_MENUPOPS(7)) do form about
   case PASSWORDS.A45=.F.
        HIDE POPUP ALL
ENDCASE
do case
   case PASSWORDS.A46=.T.
        DEFINE BAR 7 OF (A_MENUPOPS(7)) PROMPT '往来客户管理'
        ON SELECTION BAR 7 OF (A_MENUPOPS(7)) do form wlkh
   case PASSWORDS.A46=.F.
        HIDE POPUP ALL
ENDCASE
do case
   case PASSWORDS.A47=.T.
        DEFINE BAR 8 OF (A_MENUPOPS(7)) PROMPT '营业员、地区管理'
        ON SELECTION BAR 8 OF (A_MENUPOPS(7)) do form dqadd
   case PASSWORDS.A47=.F.
        HIDE POPUP ALL
ENDCASE
do case
   case PASSWORDS.A48=.T.
        DEFINE BAR 9 OF (A_MENUPOPS(7)) PROMPT '内部分类管理'
        DEFINE BAR 10 OF (A_MENUPOPS(7)) PROMPT '\-'
        ON SELECTION BAR 9 OF (A_MENUPOPS(7)) do form fladd
   case PASSWORDS.A48=.F.
        HIDE POPUP ALL
ENDCASE
do case
   case PASSWORDS.A49=.T.
        DEFINE BAR 11 OF (A_MENUPOPS(7)) PROMPT '结转往来数据'
        ON SELECTION BAR 11 OF (A_MENUPOPS(7)) do form sjjz
   case PASSWORDS.A49=.F.
        HIDE POPUP ALL
ENDCASE
do case
   case PASSWORDS.A50=.T.
        DEFINE BAR 12 OF (A_MENUPOPS(7)) PROMPT '操作员权限管理'
        ON SELECTION BAR 12 OF (A_MENUPOPS(7)) do form sysqx
   case PASSWORDS.A50=.F.
        HIDE POPUP ALL
ENDCASE
do case
   case PASSWORDS.A51=.T.
        DEFINE BAR 13 OF (A_MENUPOPS(7)) PROMPT '系统设置'
        ON SELECTION BAR 13 OF (A_MENUPOPS(7)) do form about
   case PASSWORDS.A51=.F.
        HIDE POPUP ALL
ENDCASE
***********************************************************************
 DEFINE POPUP (A_MENUPOPS(8)) COLOR SCHEME 3 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 form about
 ON SELECTION BAR 3 OF (A_MENUPOPS(8)) do form about
 ACTIVATE MENU (M.CMENUNAME) NOWAIT

*------
PROCEDURE _0wy0n84ie
 IF MESSAGEBOX('你确定要退出管理程序吗?',289,'信息提示') == 1
    CLOSE TABLE ALL
    CLOSE DATABASES ALL
    CLEAR EVENTS 
    CLEAR DLLS
    QUIT 
 ELSE 
    RETURN 
 ENDIF 
ENDPROC
.------*