Databasel-Queryl 其中为Tablel建立了3个永久字段：Tablelbno(书号)、Tablelbname(书名)、Tablelnum (现有册数)。 Query1的SQL语句如下： select bno from borrow where rno =rno and bno =bno 下面是Unit1的代码实现部分，请完成程序填空： implementation ($R *dfm) procedure TForm1..Button1Click(Sender:TObject).;/“借书”键 begin query1.Close query1.ParamByName('rno').Value :=D query1.ParamByName('bno').Value :=2 query1.Open if queryl['bno']<>null then begin showmessage('该读者正在借阅此书')； exit; end if③ then begin showmessage('该书已全部借出')； exit; end; table2.④ [editl.Text tablelbno.Value date+15]); /插入借书记录 tablel.⑤ tablelnum.Value:=tablelnum.Value一1；//现有册数诚1 tablel.Post end; end. 1456Databasel 一Queryl 其中为 个永久字段 Tablelbno( 、Tablelbname( 、Tablelnum 〈现有册数〉。 Queryl 的SQL 如下 select bno from borrow where rno = ;rno and bno = ; bno 下面是 t1 代码实现部 implementation { $R dfm} procedure TForm1.ButtonlClick(Sender; TObject); I I"借书"键 begin query1. Close ; queryl. ParamByName<'rno'). Value; =① query1. ParamByName<'bno'). Value; =② query1. Open ; if queryl['bno > null then begin showmessage<'该读者正 ; extt ; end; if then ( [edit1.Text , tablelbno. Value , date 十15J ); begin showmessage( ，该书己全部借.出'); eXIt; end; table2. II插入借 table1. tablelnum. Value : = tablelnum. Value - 1; I 现有 table1. Post ; end; end. 1456