procedure TForm5.onselect(Sender: TObject);
begin
with adoquery3 do
begin
adoquery3.close;
adoquery3.sql.Clear;
adoquery3.Sql.Add(Format('select * from %s',[ComboBox8.Text]));
adoquery3.sql.Clear;
adoquery3.Sql.Add('select *from 验收日志 where 验收清单名称='+combobox8.text+';');
edit1.Text:=fieldbyname('验收日期').asstring;
edit2.Text:=fieldbyname('一号验收员').asstring;
edit3.Text:=fieldbyname('二号验收员').asstring;
ADOQuery3.open;
end;
end;