kcdis.prg

vfp数据库应用编程

*************************
*库存查询程序(KCDIS.PRG)*
****************************
Clos DATA
AAQT=[N]
DO ZYHWA_SE WITH [\1],[稍候,正在传入库存数据*****],11
SELE 1
USE kc
IF recc()<1
	Clos data
	DO ZYHWA_SE WITH [\1],[没有任何库存记录可供查询。按任意键退出***],1
	RETU
ENDI
COPY ALL TO $kc
USE $kc
SELE 2
USE DM
INDE on 商品代码 to $
SELE 1
SET rela to 商品代码 into B
REPL all 商品代码 with B.商品名称
SELE 2
USE
ERAS $.IDX
SELE 1
GO TOP
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
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,120,176,120);
	FONT "宋体",11

CLOSE DATA ALL
Rele WIND KCED
ERAS $kc.DBF
ERAS $kc.BAK
POP KEY
RETU