sys_menu.mpr

吐血贡献纺织上的进销存原码,功能齐全,给大家吧.

PROCEDURE _0up0qxdww
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM d:\jxc\加载程序
    DO FORM d:\jxc\付款单
     QDFORM.RELEASE
 ENDIF 
ENDPROC
*------
PROCEDURE _0up0qxdwx
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM d:\jxc\加载程序
    DO FORM d:\jxc\供货余额
     QDFORM.RELEASE
 ENDIF 
ENDPROC
*------
PROCEDURE _0up0qxdwy
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM d:\jxc\加载程序
    DO FORM d:\jxc\供货明细
     QDFORM.RELEASE
 ENDIF 
ENDPROC
*------
PROCEDURE _0up0qxdwz
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM d:\jxc\加载程序
    DO FORM d:\jxc\打印供货明细
     QDFORM.RELEASE
 ENDIF 
ENDPROC
*------
PROCEDURE _0up0qxdx2
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM d:\jxc\加载程序
    DO FORM d:\jxc\收款单
     QDFORM.RELEASE
 ENDIF 
ENDPROC
*------
PROCEDURE _0up0qxdx3
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM d:\jxc\加载程序
    DO FORM d:\jxc\代垫费用
     QDFORM.RELEASE
 ENDIF 
ENDPROC
*------
PROCEDURE _0up0qxdx4
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM d:\jxc\加载程序
    DO FORM d:\jxc\客户余额
     QDFORM.RELEASE
 ENDIF 
ENDPROC
*------
PROCEDURE _0up0qxdx5
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM d:\jxc\加载程序
    DO FORM d:\jxc\客户明细
     QDFORM.RELEASE
 ENDIF 
ENDPROC
*------
PROCEDURE _0up0qxdx6
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM d:\jxc\加载程序
    DO FORM d:\jxc\打印客户明细
     QDFORM.RELEASE
 ENDIF 
ENDPROC
*------
PROCEDURE _0up0qxdx7
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM d:\jxc\加载程序
    DO FORM d:\jxc\费用日记帐
     QDFORM.RELEASE
 ENDIF 
ENDPROC
*------
PROCEDURE _0up0qxdx8
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM d:\jxc\加载程序
    DO FORM d:\jxc\收入日记帐
     QDFORM.RELEASE
 ENDIF 
ENDPROC
*------
PROCEDURE _0up0qxdx9
 DO FORM d:\jxc\费用科目设置
ENDPROC
*------
PROCEDURE _0up0qxdxc
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM d:\jxc\加载程序
    DO FORM d:\jxc\现金交款单
     QDFORM.RELEASE
 ENDIF 
ENDPROC
*------
PROCEDURE _0up0qxdxd
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM d:\jxc\加载程序
    DO FORM d:\jxc\银行转帐.scx
     QDFORM.RELEASE
 ENDIF 
ENDPROC
*------
PROCEDURE _0up0qxdxe
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM d:\jxc\加载程序
    DO FORM d:\jxc\资金日报表
     QDFORM.RELEASE
 ENDIF 
ENDPROC
*------
PROCEDURE _0up0qxdxf
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM d:\jxc\加载程序
    DO FORM d:\jxc\现金日记帐 WITH '现金日记帐'
     QDFORM.RELEASE
 ENDIF 
ENDPROC
*------
PROCEDURE _0up0qxdxg
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM d:\jxc\加载程序
    DO FORM d:\jxc\现金日记帐 WITH '银行日记帐'
     QDFORM.RELEASE
 ENDIF 
ENDPROC
*------
PROCEDURE _0up0qxdxh
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM d:\jxc\加载程序
    DO FORM d:\jxc\银行分户日记帐.scx
     QDFORM.RELEASE
 ENDIF 
ENDPROC
*------
PROCEDURE _0up0qxdxi
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM d:\jxc\加载程序
    DO FORM d:\jxc\银行余额.scx
     QDFORM.RELEASE
 ENDIF 
ENDPROC
*------
PROCEDURE _0up0qxdxj
 DO FORM d:\jxc\银行分户余额.scx
ENDPROC
*------
PROCEDURE _0up0qxdxk
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM d:\jxc\加载程序
    DO FORM d:\jxc\费用统计表
     QDFORM.RELEASE
 ENDIF 
ENDPROC
*------
PROCEDURE _0up0qxdxl
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM d:\jxc\加载程序
    DO FORM d:\jxc\费用支出明细统计
     QDFORM.RELEASE
 ENDIF 
ENDPROC
*------
PROCEDURE _0up0qxdxm
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM d:\jxc\加载程序
    DO FORM d:\jxc\染厂费用统计
     QDFORM.RELEASE
 ENDIF 
ENDPROC
*------
PROCEDURE _0up0qxdxp
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM d:\jxc\加载程序
    DO FORM d:\jxc\统计图表
     QDFORM.RELEASE
 ENDIF 
ENDPROC
*------
PROCEDURE _0up0qxdxq
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM d:\jxc\加载程序
    DO FORM d:\jxc\购销存总表
     QDFORM.RELEASE
 ENDIF 
ENDPROC
*------
PROCEDURE _0up0qxdxr
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM d:\jxc\加载程序
    DO FORM d:\jxc\商品报价单
     QDFORM.RELEASE
 ENDIF 
ENDPROC
*------
PROCEDURE _0up0qxdxs
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM d:\jxc\加载程序
    DO FORM d:\jxc\材料库存报警
     QDFORM.RELEASE
 ENDIF 
ENDPROC
*------
PROCEDURE _0up0qxdxt
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    SELECT 0
    USE SHARED (MLPATH + 'data\sysuser.dbf')
    LOCATE FOR ALLTRIM(用户) <> ALLTRIM(SYS(0)) AND 登录
    IF FOUND()
       = MESSAGEBOX(ALLTRIM(用户) + '已经登录，请退出后再结转！',16,'警告')
       USE 
       RETURN 
    ENDIF 
    USE 
    DO FORM d:\jxc\年末结转
 ENDIF 
ENDPROC
*------
PROCEDURE _0up0qxdxu
 IF FILE(DXPATH + 'jxc.hlp')
    HELP  系统简介
 ELSE 
    = MESSAGEBOX('帮助系统没有安装!',16,'提示')
 ENDIF 
ENDPROC
*------
PROCEDURE _0up0qxdxv
 DO FORM d:\jxc\关于
ENDPROC
*------*