本程序实现一个简单的借书界面。程序的设计界面和运行界面如下图所示:
该程序涉及到数据库中的两张表:books(图书信息)和borrow(借书记录)。表的结构为:
books(bno,书号,bname书名,num现有册数)
borrow(rno读者号,bno书号,rdate还书日期)
其中,rno和bno都是字符型(3位)。
在用户界面,操作员选中一本书、输入借书证号后,按“借书”键完成借书功能,即在borrow表中插入一条借书记录,并将books表中该书现有册数减1。
该界面要实现以下合法性检查:
当该读者已经借了此书,不能再借。
当所借的书现有册数为0,不能再借。
在Form1上建立的数据库组件对象及连接关系如下:
Database1-Table1(与books表相连)-DataSource1-DBGrid1(显示图书信息)
Database1-Table2(与borrow表相连,用于插入借书记录)
Database1-Query1
其中为Table1建立了3个永久字段:Table1bno(书号)、Table1bname(书名)、Table1num(现有册数)。
Query1的SQL语句如下:
下面是Unit1的代码实现部分,请完成程序填空: