用Delphi做图书管理系统

Question

用Delphi做图书管理系统，Book表有“现存量”这字段如果添加书籍的时候，判断有同一类型的书，如何让其在现存量上加1
book字段（图书编号、图书名称、作者名称、出版社名称、现存量、图书价格）

可以给代码我吗？？我用的是Access2003数据库

Answer 1

edit1 图书编号

adoquery1.close;
adoquery1.sql.clear;
adoquery1.sql.add('select * from [book] where 图书编号='''+edit1.text+'''');
adoquery1.open;
adoquery2.close;
adoquery2.sql.clear;
if adoquery1.recordcount >=1 then
adoquery2.sql.add('update [book] set 现存量 = '''+(adoquery1.fieldbyname ('现存量).asinteger+1)+'''where 图书编号='''+edit1.text+''' ')
else
adoquery2.sql.add('insert into [book](字段1,字段2) values (值1,值2) where 条件;
adoquery2.excesql;

Answer 2

怎么没得分加哟????

在添加书籍时，先用你输入的图书编号为条件查询，看BOOK表中是否存在这个图书编号，如果存在则更新现存量，如果不存在则添加

你自己做一个,遇到问题再把源程序发给我给你改一改([email protected]),做时最好用ADO组件哈,不然别发给我了本回答被网友采纳

Answer 3

写程序好烦