本程序实现一个简单的借书界面。程序的设计界面和运行界面如下图所示：

该程序涉及到数据库中的两张表：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的代码实现部分，请完成程序填空：