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
.------*