复件 sysmenu.mpr

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

*------
PROCEDURE _0up0qxdw2
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM FRM\加载程序
    DO FORM FRM\染厂期初数录入.scx
     QDFORM.RELEASE
 ENDIF 
ENDPROC
*------
PROCEDURE _0up0qxdw3
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM FRM\加载程序
    DO FORM FRM\染厂库存明细帐
     QDFORM.RELEASE
 ENDIF 
ENDPROC
*------
PROCEDURE _0up0qxdw4
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM FRM\加载程序
    DO FORM FRM\染厂库存统计
     QDFORM.RELEASE
 ENDIF 
ENDPROC
*------
PROCEDURE _0up0qxdw5
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM FRM\加载程序
    DO FORM FRM\材料入库统计
     QDFORM.RELEASE
 ENDIF 
ENDPROC
*------
PROCEDURE _0up0qxdw7
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM FRM\加载程序
    DO FORM FRM\收货单
     QDFORM.RELEASE
 ENDIF 
ENDPROC
*------
PROCEDURE _0up0qxdw8
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM FRM\加载程序
    DO FORM FRM\收货统计
     QDFORM.RELEASE
 ENDIF 
ENDPROC
*------
PROCEDURE _0up0qxdw9
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM FRM\加载程序
    DO FORM FRM\库存数量日报表
     QDFORM.RELEASE
 ENDIF 
ENDPROC
*------
PROCEDURE _0up0qxdwa
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM FRM\加载程序
    DO FORM FRM\库存收付存月报表
     QDFORM.RELEASE
 ENDIF 
ENDPROC
*------
PROCEDURE _0up0qxdwb
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM FRM\加载程序
    DO FORM FRM\材料明细帐
     QDFORM.RELEASE
 ENDIF 
ENDPROC
*------
PROCEDURE _0up0qxdwc
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM FRM\加载程序
    DO FORM FRM\打印材料明细帐
     QDFORM.RELEASE
 ENDIF 
ENDPROC
*------
PROCEDURE _0up0qxdwd
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM FRM\加载程序
    DO FORM FRM\转库
     QDFORM.RELEASE
 ENDIF 
ENDPROC
*------
PROCEDURE _0up0qxdwe
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM FRM\加载程序
    DO FORM FRM\材料盘点
     QDFORM.RELEASE
 ENDIF 
ENDPROC
*------
PROCEDURE _0up0qxdwf
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM FRM\加载程序
    DO FORM FRM\材料期初数录入
     QDFORM.RELEASE
 ENDIF 
ENDPROC
*------
PROCEDURE _0up0qxdwg
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM FRM\加载程序
    DO FORM FRM\返修单
     QDFORM.RELEASE
 ENDIF 
ENDPROC
*------
PROCEDURE _0up0qxdwh
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM FRM\加载程序
    DO FORM FRM\返修交入单
     QDFORM.RELEASE
 ENDIF 
ENDPROC
*------
PROCEDURE _0up0qxdwi
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM FRM\加载程序
    DO FORM FRM\返修明细帐
     QDFORM.RELEASE
 ENDIF 
ENDPROC
*------
PROCEDURE _0up0qxdwj
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM FRM\加载程序
    DO FORM FRM\返修统计
     QDFORM.RELEASE
 ENDIF 
ENDPROC
*------
PROCEDURE _0up0qxdwk
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM FRM\加载程序
    DO FORM FRM\返修期初余额
     QDFORM.RELEASE
 ENDIF 
ENDPROC
*------
PROCEDURE _0up0qxdwm
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM FRM\加载程序
    DO FORM FRM\码单录入 WITH '' , .F.
     QDFORM.RELEASE
 ENDIF 
ENDPROC
*------
PROCEDURE _0up0qxdwn
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM FRM\加载程序
    DO FORM FRM\码单查询
     QDFORM.RELEASE
 ENDIF 
ENDPROC
*------
PROCEDURE _0up0qxdwo
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM FRM\加载程序
    DO FORM FRM\销售日报表
     QDFORM.RELEASE
 ENDIF 
ENDPROC
*------
PROCEDURE _0up0qxdwp
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM FRM\加载程序
    DO FORM FRM\材料成本计算
     QDFORM.RELEASE
 ENDIF 
ENDPROC
*------
PROCEDURE _0up0qxdwq
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM FRM\加载程序
    DO FORM FRM\材料出库统计
     QDFORM.RELEASE
 ENDIF 
ENDPROC
*------
PROCEDURE _0up0qxdwt
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM FRM\加载程序
    DO FORM FRM\经营成果统计
     QDFORM.RELEASE
 ENDIF 
ENDPROC
*------
PROCEDURE _0up0qxdww
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM FRM\加载程序
    DO FORM FRM\付款单
     QDFORM.RELEASE
 ENDIF 
ENDPROC
*------
PROCEDURE _0up0qxdwx
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM FRM\加载程序
    DO FORM FRM\供货余额
     QDFORM.RELEASE
 ENDIF 
ENDPROC
*------
PROCEDURE _0up0qxdwy
 IF CWIN = .T.