---

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

---

出自：国家开放大学《Delphi程序设计》

显示答案