小M在做一个图书管理系统，想要根据先书号(combobox1)从数据表中查询出相应的书号，然后书名(DBName),作者(DBAuthor)......根据书号显示相应的内容，请问代码要如何实现呢？
我只写了一下部分的代码，之后的不知道该怎么写了，请各位大侠帮帮忙指教一下好吗？？以下是我的代码：
procedure TBookAdd.TabSheet2Show(Sender: TObject);
begin
ADOQuery1.Active:=False;
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select distinct 书号 from 图书信息表');
ADOQuery1.Open;
ComboBox1.Clear;
while not ADOquery1.Eof do
begin
combobox1.Items.Add(ADOquery1.fieldbyname('书号').AsString);
ADOquery1.Next;
ADOQuery1.Active:=True;
end;
end;

在查詢時用記錄數來定，第幾條符合就選出那條

select * from 表名 where 书号='''+combobox1.Text+''''
Edit1.text:=fieldbyname('你所要的字段').asstring
.....
以此类推就可以把你要的书号相关信息输出了~~

在combobox1的change事件中输入代码