27.(10分，每空2分) 本程序实现一个简单的借书界面。程序的设计界面和运行界面如下图所示： Forml Form1 图中信息 国 图书信息 停书名 景乐名丽 001 数据挖掘项理 001数据挖振原理 002 知识工程和知识管理 002 知识工程和知识管理 003面向对象软件开发原理 3面向对象软件开发项理 004 特征驱动开发方法原理与实 004特征驱动开发方法原理与实 #书证将Bdit1 借图国 猫书证号F01 猎书 该程序涉及到数据库中的两张表：books(图书信息)和borrow(借书记录)。表的结构为： books(bno,书号，bname书名，num现有册数) borrow(rno读者号，bno书号，rdate还书日期) 其中，rno和bno都是字符型(3位)。 在用户界面，操作员选中一本书、输人借书证号后，按“借书”键完成借书功能，即在 borrow表中插人一条借书记录，并将books表中该书现有册数减1。 该界面要实现以下合法性检查： ●当该读者已经借了此书，不能再借。 ●当所借的书现有册数为0，不能再借。 在Form】上建立的数据库组件对象及连接关系如下： Databasel一Tablel(与books表相连)一DataSourcel一DBGrid1(显示图书信息) Databasel一Table2(与borrow表相连，用于插入借书记录) Databasel-Queryl 其中为Tablel建立了3个永久字段：Tablelbno(书号)、Tablelbname(书名)、Tablelnum (现有册数)。 Query1的SQL语句如下： select bno from borrow where rnc=:rno and bno=:bno 下面是Unt1的代码实现部分，请完成程序填空： implementation $R *dfm) 101027. (1 分，每空 分) 本程序实现一个简单的借书界面。程序的设计界面和运行界面如下图所示: 该程序涉及到数据库中的两张表: books( 图书信息)和 borrow( 借书记录)。表的结构为: books(bno ，书号， bname 书名， num 现有册数) borrowCrno 读者号， bno 书号， rdate 还书日期) 其中， rno bno 都是字符型 (3 位)。 在用户界面，操作员选中一本书、输入借书证号后，按"借书"键完成借书功能，即在 borrow表中插入一条借书记录，并将 books 表中该书现有册数减 该界面要实现以下合法性检查: • 当该读者已经借了此书，不能再借。 • 当所借的书现有册数为 ，不能再借。 Forml 上建立的数据库组件对象及连接关系如下: Databasel-Table lC与 books 表相连) - DataSourcel- DBGridl (显示图书信息) Databasel-Table2C borrow 表相连，用于插入借书记录) Databasel-Query1 其中为 Tablel 建立了 个永久宇段: Tablel bnoC 书号)、 Tablel bnamcC 书名)、 Tablelnum (现有册数)。 Queryl SQL 语句如下: select bno from borrow where rnc= , and bno= , bno 下面是 Unit1 的代码实现部分，请完成程序填空: irnplementation { $ 祷. dfm} 1010