kcxg.prg

vfp数据库应用编程

*************************
*库存数据修改程序(KCXG.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 $KC2
SELE 1
USE $KC2
APPE FROM DM.DBF
INDE ON 商品代码 TO $
TOTA ON 商品代码 to $$$ fiel 商品代码
USE $KC2
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

SELE 1
USE $KC2
COPY STRU TO $$$ EXTE
COPY STRU TO $$$$ EXTE
USE $$$$
PRIV KCZD,IDX,ZDMAX,PBC1,PBC2
DIME KCZD(RECC(),2)
ZDMAX=RECC()
FOR IDX=2 TO ZDMAX
	GO IDX
	KCZD(IDX,1)=ALLT(FIELD_NAME)
	KCZD(IDX,2)=[_KP]+ALLT(STR(IDX,3,0))
	REPL FIELD_NAME WITH KCZD(IDX,2)
NEXT
USE $$$
APPE FROM $$$$
CREA $KC FROM $$$
Clos DATA
USE $KC
APPE FROM $KC2
FOR I=1 TO ZDMAX
	PBC1=KCZD(I,1)
	PBC2=KCZD(I,2)
	REPL ALL &PBC2 WITH &PBC1
NEXT
GO TOP
ERAS $KC.DBF
ERAS $$$.DBF
ERAS $$$$.DBF

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
ON KEY LABE F9 DO EDKCC2
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[库存数据修改   F9:恢复初值          ^W:结束];
		COLO RGB(0,0,0,240,230,210);
		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

*****************
FUNC EDKCC2
***************
IF ! BETW(RECN(),1,RECC())
	RETU
ENDI
FOR I=1 TO ZDMAX
	PBC1=KCZD(I,1)
	PBC2=KCZD(I,2)
	REPL ALL &PBC1 WITH &PBC2
NEXT
Skip IIF(BETW(RECN(),1,RECC()-1),1,-1)
RETU