kcde.prg

vfp数据库应用编程

*************************
*库存数据删除程序(KCDE.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.DBF
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
CLOSE DATA
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

ON KEY LABE F5 DO EDKCC3 WITH 105
ON KEY LABE F12 DO EDKCC3 WITH 112
MY_BROW =.T.

DO WHIL MY_BROW
	MY_BROW =.F.
	BROW FIEL BB=IIF(DELE(),[*删*],SPAC(6)):6:H=[提示]:W=.F.,;
		商品代码: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[库存数据据删除   F5:置删除标志    F12:剔除删除记录      ^W:结束];
		COLO RGB(0,0,0,248,207,216);
		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 EDKCC3
***************
PARA IMO
DO CASE
CASE IMO=105
	IF DELE()
		RECA
	ELSE
		Dele
	ENDI
	Skip IIF(BETW(RECN(),1,RECC()-1),1,-1)
CASE IMO=112
	PRIV OLDEREC,AAQQ
	OLDEREC=RECN()
	IF !FOUN()
		IF BETW(OLDEREC,1,RECC())
			GO OLDEREC
			DO ZYHWA_SE WITH [\1],[请用F5键为记录作删除标志着后重试一下剔除]+[标删记录的操作***],1
			RETU
		ENDI
	ENDI
	AAQQ=0
	DO ZYHWA_SE WITH[确认剔除标删记录],[],3,AAQQ
	IF AAQQ<>1
		IF BETW (OLDEREC ,1,RECC())
			GO OLDEREC
		ENDI
		RETU
	ENDI
	MY_BROW=.T.
	PACK
ENDC
RETU