问一个初级的问题(50分)

procedure TForm1.Button1Click(Sender: TObject);<br>begin<br>with qry do<br>&nbsp; begin<br>&nbsp; &nbsp; active:=false;<br>&nbsp; &nbsp; sql.add('select *from xscj where number='+edit6.text);<br>&nbsp; &nbsp; active:=true;<br>&nbsp; &nbsp; first;<br>&nbsp; &nbsp; while not eof do<br>&nbsp; &nbsp; begin<br>&nbsp; &nbsp; edit1.Text:=inttostr(fieldbyname('number').asinteger);<br>&nbsp; &nbsp; edit2.Text:=fieldbyname('name').asstring;<br>&nbsp; &nbsp; edit3.Text:=inttostr(fieldbyname('ywcj').asinteger);<br>&nbsp; &nbsp; edit4.Text:=inttostr(fieldbyname('sxcj').asinteger);<br>&nbsp; &nbsp; edit5.Text:=inttostr(fieldbyname('yycj').asinteger);<br>&nbsp; &nbsp; next;<br>&nbsp; &nbsp; end;<br>&nbsp; &nbsp; active:=false;<br>&nbsp; end;<br><br>end;<br>想实现一个简单的搜索功能,但输入一次够,修改数值,它就报错..说语法错误...高手能指点下么...

sql.add之前要sql.Clear<br>edit6.text是数字？<br>下面的写法很诡异。。。。。。。。。<br>first;<br>&nbsp; &nbsp; while not eof do<br>&nbsp; &nbsp; begin<br>&nbsp; &nbsp; edit1.Text:=inttostr(fieldbyname('number').asinteger);<br>&nbsp; &nbsp; edit2.Text:=fieldbyname('name').asstring;<br>&nbsp; &nbsp; next;

加上sql.Clear就正确了..额 我是新手..后面的代码是导师写的..