⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 commfoun.prg

📁 吐血贡献纺织上的进销存原码,功能齐全,给大家吧.
💻 PRG
📖 第 1 页 / 共 2 页
字号:
🔍
12 
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
*  文件名: COMMFOUN.PRG
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-



PROCEDURE comm1
	CLOSE TABLE ALL
	DO FORM FRM\操作员录入.SCX
	RETURN 
ENDPROC
*------
PROCEDURE comm1_1
	CLOSE TABLE ALL
	DO FORM FRM\业务人员录入.SCX
	RETURN 
ENDPROC
*------
PROCEDURE comm2
	CLOSE TABLE ALL
	DO FORM FRM\仓库设置.SCX
	RETURN 
ENDPROC
*------
PROCEDURE comm2_1
	CLOSE TABLE ALL
	DO FORM FRM\地区设置.SCX
	RETURN 
ENDPROC
*------
PROCEDURE comm3
	IF CWIN = .T.
		=MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
		RETURN 
	ELSE 
		CLOSE TABLE ALL
		DO FORM FRM\材料类别.SCX
	ENDIF 
	RETURN 
ENDPROC
*------
PROCEDURE comm4
	IF CWIN=.T.
		=MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
		RETURN 
	ELSE 
		CLOSE TABLE ALL
		DO FORM FRM\加载程序.SCX
		DO FORM FRM\材料代码.SCX
		QDFORM.RELEASE
	ENDIF 
	RETURN 
ENDPROC
*------
PROCEDURE comm5
	CLOSE TABLE ALL
	DO FORM FRM\供货单位录入.SCX
	RETURN 
ENDPROC
*------
PROCEDURE comm6
	CLOSE TABLE ALL
	DO FORM FRM\客户单位录入.SCX
	RETURN 
ENDPROC
*------
PROCEDURE comm7
	IF CWIN = .T.
		=MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
		RETURN 
	ELSE 
		CLOSE TABLE ALL
		DO FORM FRM\加载程序.SCX
		DO FORM FRM\材料期初数录入.SCX
		QDFORM.RELEASE
	ENDIF 
	RETURN 
ENDPROC
*------
PROCEDURE comm8
 IF CWIN=.T.
    =MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM FRM\加载程序.SCX
    DO FORM FRM\进仓单.SCX
    QDFORM.RELEASE
 ENDIF 
 RETURN 
ENDPROC
*------
PROCEDURE comm9
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM FRM\加载程序.SCX
    DO FORM FRM\染厂转库.SCX
     QDFORM.RELEASE
 ENDIF 
 RETURN 
ENDPROC

*------
PROCEDURE comm9_1
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM FRM\加载程序.SCX
    DO FORM FRM\染厂库存核销.SCX
     QDFORM.RELEASE
 ENDIF 
 RETURN 
ENDPROC
*------
PROCEDURE comm9_2
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM FRM\加载程序.SCX
    DO FORM FRM\染厂库存核销统计.SCX
     QDFORM.RELEASE
 ENDIF 
 RETURN 
ENDPROC
*------
PROCEDURE comm9_3
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM FRM\加载程序.SCX
    DO FORM FRM\染厂设置.SCX
     QDFORM.RELEASE
 ENDIF 
 RETURN 
ENDPROC
*------
PROCEDURE comm9_4
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM FRM\加载程序.SCX
    DO FORM FRM\染厂期初数录入.SCX
     QDFORM.RELEASE
 ENDIF 
 RETURN 
ENDPROC
*------
PROCEDURE comm9_5
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM FRM\加载程序.SCX
    DO FORM FRM\染厂库存明细帐.SCX
     QDFORM.RELEASE
 ENDIF 
 RETURN 
ENDPROC
*------
PROCEDURE comm9_6
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM FRM\加载程序.SCX
    DO FORM FRM\染厂库存统计.SCX
     QDFORM.RELEASE
 ENDIF 
 RETURN 
ENDPROC
*------

PROCEDURE comm10
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM FRM\加载程序.SCX
    DO FORM FRM\材料入库统计.SCX
     QDFORM.RELEASE
 ENDIF 
 RETURN 
ENDPROC
*------
PROCEDURE comm11
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM FRM\加载程序.SCX
    DO FORM FRM\返修单.SCX
     QDFORM.RELEASE
 ENDIF 
 RETURN 
ENDPROC
*------
PROCEDURE comm11
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM FRM\加载程序.SCX
    DO FORM FRM\返修单.SCX
     QDFORM.RELEASE
 ENDIF 
 RETURN 
ENDPROC
*------
PROCEDURE comm11_1
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM FRM\加载程序.SCX
    DO FORM FRM\返修交入单.SCX
     QDFORM.RELEASE
 ENDIF 
 RETURN 
ENDPROC
*------
PROCEDURE comm11_2
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM FRM\加载程序.SCX
    DO FORM FRM\返修明细帐.SCX
     QDFORM.RELEASE
 ENDIF 
 RETURN 
ENDPROC
*------
PROCEDURE comm11_3
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM FRM\加载程序.SCX
    DO FORM FRM\返修统计.SCX
     QDFORM.RELEASE
 ENDIF 
 RETURN 
ENDPROC
*------
PROCEDURE comm11_4
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM FRM\加载程序.SCX
    DO FORM FRM\返修期初余额.SCX
     QDFORM.RELEASE
 ENDIF 
 RETURN 
ENDPROC
*------
PROCEDURE comm11_5
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM FRM\加载程序.SCX
    DO FORM FRM\收货统计.SCX
     QDFORM.RELEASE
 ENDIF 
 RETURN 
ENDPROC
*------
PROCEDURE comm11_6
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM FRM\加载程序.SCX
    DO FORM FRM\库存数量日报表.SCX
     QDFORM.RELEASE
 ENDIF 
 RETURN 
ENDPROC
*------
PROCEDURE comm11_7
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM FRM\加载程序.SCX
    DO FORM FRM\库存收付存月报表.SCX
     QDFORM.RELEASE
 ENDIF 
 RETURN 
ENDPROC
*------


PROCEDURE comm12
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM FRM\加载程序.SCX
    DO FORM FRM\码单录入.SCX WITH '' , .F.
     QDFORM.RELEASE
 ENDIF 
 RETURN 
ENDPROC
*------


PROCEDURE comm13
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM FRM\加载程序.SCX
    DO FORM FRM\销售日报表.SCX
     QDFORM.RELEASE
 ENDIF 
 RETURN 
ENDPROC
*------
PROCEDURE comm14
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM FRM\加载程序.SCX
    DO FORM FRM\材料出库统计.SCX
     QDFORM.RELEASE
 ENDIF 
 RETURN 
ENDPROC
*------
PROCEDURE comm15
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM FRM\加载程序.SCX
    DO FORM FRM\材料成本计算.SCX
    QDFORM.RELEASE
 ENDIF 
 RETURN 
ENDPROC
*------
PROCEDURE comm17
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM FRM\加载程序.SCX
    DO FORM FRM\库存数量日报表.SCX
     QDFORM.RELEASE
 ENDIF 
 RETURN 
ENDPROC
*------
PROCEDURE comm18
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM FRM\加载程序
    DO FORM FRM\库存收付存月报表
     QDFORM.RELEASE
 ENDIF 
 RETURN 
ENDPROC
*------
PROCEDURE comm20
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM FRM\加载程序
    DO FORM FRM\材料明细帐
     QDFORM.RELEASE
 ENDIF 
 RETURN 
ENDPROC
*------
PROCEDURE comm21
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM FRM\加载程序
    DO FORM FRM\打印材料明细帐
     QDFORM.RELEASE
 ENDIF 
 RETURN 
ENDPROC
*------
PROCEDURE comm22
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM FRM\加载程序
    DO FORM FRM\染厂库存统计
     QDFORM.RELEASE
 ENDIF 
 RETURN 
ENDPROC
*------
PROCEDURE comm23
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM FRM\加载程序
    DO FORM FRM\收货单
     QDFORM.RELEASE
 ENDIF 
 RETURN 
ENDPROC
*------
PROCEDURE comm24
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM FRM\加载程序
    DO FORM FRM\转库
     QDFORM.RELEASE
 ENDIF 
 RETURN 
ENDPROC
*------
PROCEDURE comm25
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM FRM\加载程序
    DO FORM FRM\材料盘点
     QDFORM.RELEASE
 ENDIF 
 RETURN 
ENDPROC
*------
PROCEDURE comm26
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM FRM\加载程序
    DO FORM FRM\付款单
     QDFORM.RELEASE
 ENDIF 
 RETURN 
ENDPROC
*------
PROCEDURE comm27
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM FRM\加载程序
    DO FORM FRM\收款单
     QDFORM.RELEASE
 ENDIF 
 RETURN 
ENDPROC
*------
PROCEDURE comm28
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM FRM\加载程序
    DO FORM FRM\供货余额
     QDFORM.RELEASE
 ENDIF 
 RETURN 
ENDPROC
*------
PROCEDURE comm29
 IF CWIN = .T.
    = MESSAGEBOX('请关闭正在运行的模块！',16,'警告')
    RETURN 
 ELSE 
    CLOSE TABLE ALL
    DO FORM FRM\加载程序
    DO FORM FRM\客户余额
     QDFORM.RELEASE
 ENDIF
12

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -