delphi 文本框问题

来源：百度知道 编辑：UC知道 时间：2024/06/27 18:04:38
我想在文本框中输入了数字后，然后就会自动查询数据库，并在另一个文本框中显示查询到的内容要怎么实现

比如我在文本框中输入了70101，他就会自动查询数据库，并把数据库里的70101记录里的信息输入出在文本框2上。

还有。。数据库里有70101111的数据也一样会出现。他也等于了有70101数据，说明。数据库里的位数不同。。。请问要怎么实现
只实现显示一条。。比如

q12
q123
q124
二条数据

我输入了个q12

他就会出q12这条数据的内容

在edit1的onexit事件中写：
var
i:Integer;
s:String;
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from empy where unitsno like'+#39+Edit1.Text+'%'+#39);//组合自己的SQL语句
ADOQuery1.Open;
ADOQuery1.First;
while not ADOQuery1.Eof do
begin
s:='';
for i:=0 to ADOQuery1.FieldCount-1 do
begin
s:=s+ADOQuery1.Fields.Fields[i].AsString+' | ';
end;
Memo1.Lines.Add(s);
Memo1.Lines.Add(#13);//回车换行
ADOQuery1.Next;
end;
end;

那你只要改下SQL语句就可以了啊```即不要那句里的'%'。
ADOQuery1.SQL.Add('select * from empy where unitsno like'+#39+Edit1.Text+#39);//只显示一条