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

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