kcsr.prg

vfp数据库应用编程

*************************
*库存数据输入程序(KCSR.PRG)*
****************************
Clos DATA
AAQT=[N]
DO ZYHWA_SE WITH [\1],[库存数据录入操作一般仅适用在初始建库时.];
	+[真要进行时请按Y键:],6,AAQT
IF UPPE (AAQT)<>[Y]
	RETU
ENDI
DO ZYHWA_SE WITH [\1],[稍候,正在整理库存商品名称表****],11
USE KC
COPY TO $KC
SELE 1
USE $KC
APPE FROM DM
INDE ON 商品代码 TO $
TOTA ON 商品代码 to $$$ fiel 商品代码
USE $KC
ZAP
APPE from $$$
SELE 2
USE DM
INDE on 商品代码 to $
SELE 1
SET rela to 商品代码 into B
REPL all 商品代码 with B.商品名称
Clos data
ERAS $.IDX
ERAS $$$.DBF
SELE 1
USE $KC
PUSH key clea
DO keyclea
DO ZYHWA_SE WITH [\1],[],12
DEFI WIND KCED AT 0,0;
	SIZE 22,78;
	FONT "宋体",12;
	TITL[库存数据录入]
Move WIND KCED CENT
MY_BROW =.T.

DO WHIL MY_BROW
	MY_BROW =.F.
	BROW FIEL 商品代码:10:W=.F.,;
		商品名称:21:W=.F.,;
		购入单价:12:P=[@Z]:V=购入单价>=0,;
		售出单价:12:P=[@Z]:V=售出单价>=0,;
		库存量:7:P=[@Z]:V=库存量>=0;
		wind KCED norm node noap;
		titl[库存数据录入          ^W:结束];
		COLO RGB(0,0,0,255,255,255);
		FONT "宋体",11		

	IF MY_BROW
		LOOP
	ENDI

	AAQQ=0
	DO ZYHWA_SE WITH [存盘确认],[],2,AAQQ
	IF AAQQ=2
		MY_BROW=.T.
		LOOP
	ENDI
	IF AAQQ=1
		RECA ALL
		Clos DATA ALL
		USE KC
		ZAP
		APPE FROM $KC
		USE
	ENDI
	EXIT
ENDD
CLOSE DATA ALL
Rele WIND KCED
ERAS $KC.DBF
ERAS $KC.BAK
POP KEY
RETU