华南俳烁实业有限公司

　　程序設(shè)計(jì)題 (20分)

　　某一庫(kù)存管理數(shù)據(jù)庫(kù)，有數(shù)據(jù)表：

　　實(shí)時(shí)庫(kù)存量表xa，表結(jié)構(gòu)(編號(hào)/ c/ 5，品名/ c/ 10，庫(kù)存量/ n/ 6);

　　入庫(kù)和出庫(kù)單據(jù)表xb，表結(jié)構(gòu)(編號(hào)/ c/ 5，標(biāo)志/ L/ 1，數(shù)量/ n/ 5)。

　　其中,xb中的標(biāo)志字段為“真”時(shí)代表入庫(kù)，為“假”時(shí)代表出庫(kù)。

　　試編寫程序，根據(jù)xb表的數(shù)據(jù)，更新xa表的實(shí)時(shí)庫(kù)存量。具體算法是，如果標(biāo)志字段為“真”，將數(shù)量增加到xa對(duì)應(yīng)的商品庫(kù)存量;如果標(biāo)志字段為“假”，從xa對(duì)應(yīng)的商品庫(kù)存量中減去數(shù)量。

　　set talk off

　　select 1

　　USE xb

　　select 2

　　use xa

　　index on 編號(hào) to ibh

　　select 1

　　set rela TO 編號(hào) INTO B

　　go top

　　do while .not.eof(1)

　　sele 2

　　if .not.eof(2)

　　if A->標(biāo)志

　　repl 庫(kù)存量 with 庫(kù)存量+a->數(shù)量

　　else

　　repl 庫(kù)存量 with 庫(kù)存量-a->數(shù)量

　　endif

　　endif

　　SELE 1

　　skip

　　enddo

　　close all

　　retu