Edit 1、Button](查找)、Buttor2(下-记录)、Button3(上-记录)等。 Qury】的SQL,语句是： select from student where dno=:dno 下面是Unitl单元的代码实现部分，请完成程序填空。 implernentation {$R dfm) procedure TForml.Button:2 Click(Sender:T(bject);/下-记录 begin tablel.① end; procedure TForml.Button3 Click(Sender:TObject);/上-i记录 begin tablel.② end; procedure TForm1.ButtonlClick(Sender:TObject);// begin 1 ablel.③ ('dno,editl.Text,[]) end; procedure TForm1.TablelAfterScroll(DataSet:TDataSet); begin queryl.Close; query1.ParamByName('dno).Value:=1 queryl..⑤ end; end. 1410Edit 1 , Butt onI查找),liutton2(卜一记录),l3utton3(l;一记录)等 。 Queryl的 SQ1, i}r,c.句是 : select、 from student where duo= :duo 下面是 Unit l单元的代码实现部分，请完成程序填空。 implementation {$R二.dfm} procedure TForml. But ton2Click(Sender:"I'Object);//下一记录 begin tablel.① ; end; procedure "TForml. But ton3Click(Sender;"I'Object);//上一记录 begin tablel.② ; end; procedure TForml. Button 1Click (Sender;"TObject);//查找 begin tablel.③ ('dno',editl. "Text，[〕); end; procedure TForml. TablelAfterScroll(DataSet:TDataSet); begin queryl. Close; queryl. ParamByName("duo’).Value:二④ ; queryl.⑤ ; end end. 1410