亚洲欧洲国产欧美一区精品,激情五月亚洲色五月,最新精品国偷自产在线婷婷,欧美婷婷丁香五月天社区

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

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

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

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

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

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

　　set talk off

　　select 1

　　USE xb

　　select 2

　　use xa

　　index on 編號 to ibh

　　select 1

　　set rela TO 編號 INTO B

　　go top

　　do while .not.eof(1)

　　sele 2

　　if .not.eof(2)

　　if A->標(biāo)志

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

　　else

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

　　endif

　　endif

　　SELE 1

　　skip

　　enddo

　　close all

　　retu