procedure TForml.Button1Click(Sender:TObject);//“借书”键 begin query1.Close; query1.ParamByName(rno).Value:=D queryl.ParamByName('bno).Value:=2 query1.Open; if queryl['bno]<>null then begin showmessage(该读者正在借阅此书)； exit; end; if③ then begin showmessaget(该书已全部借出)； exit; end; table2.④ ([editl.Text,tablelbno.Value,date+ 15]):/插人借书记录 tablel.⑤ tablelnum.Value:=tablelnum.Value一l;/现有册数减] tablel.Post; end; end. 得 分 评卷人 五、编程题(10分)】 28.本程序设计界面及运行界面如下图所示。 Forml 区 7 Forml Memol 9 18 Editl Edit2 20 1011procedure TF orm1. Buttonl Click (Sender: TObject) ; / /"借书"键 begin q uery 1. Close; query1. ParamByNameCrno'). Value: =① query1. ParamByName (,bno'). Value: =② queryl.Open; if queryl['b nO丁<> null then begin showmessage(该读者正在借阅此书，) ; eXlt; end; if ③ begin showmessage ('该书已全部借出，) ; eXlt; end; then table2. ④ ([editl. Text , tablelbno. Value , date 15J);// 插入借书记录 table 1.⑤ table1num. Value: =table1num. Value-1;/ /现有册数减 tablel. Post; end; end. |得分|评卷人| | 五、编程题 (10 分) 28. 本程序设计界面及运行界面如下图所示。 踵幽幽幽幽醋蜡摇摇摇 l EE--醋蘸制蟠 1011