一个比较简单的问题

Question

我想作一个带有查询功能的软件，用QUERY，EDIT组件，思想是这样的，就是在EDIT组件中输入要查询的条件（比如：作者）然后点击按钮，然后相应的内容就在DBGRID组件中显示出来！！这个问题我原来搞出来过，现在忘了，请大家教我啊！！！谢谢了！！

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
  DataSource1.DataSet := Query1;
  DBGrid1.DataSource := DataSource1;
  Query1.Close;
  Query1.SQL.Text := format('select * from book where author = %s', [edit1.text]);
  Query1.Open;
end;

Answer 2

我看见过有人用
query1.close;
query1.sql.add('select * from 表名 where 字段='''+edit1.text+'''');
query1.open;
不知道可不可以用啊？

Answer 3

procedure TForm1.searchOnClick(sender:Tobject)
var
  str:string;
begin
  str:='select * from table where name='+#39+edit.text+#39+;
  dateSource1.dateset:=QryGrid;
  dbGrid.datesource:=datesource1;
  with QryGrid do
  begin
     close;
     sql.clear;
     sql.add(str);
     open;
  end;
end;

Answer 4

button_click
begin
 adoquery.close;
 adoquery.sql.text := 'select * from table where name=''' + edtName.text + '''';
 adoquery.open;
end;
设置dbgrid的datasource = DataSouce1;
设置DataSouce1的dataset 为 adoquery.

Answer 5

query1.close;
query1.sql.clear;
query1.sql.add('select * from 表名 where 字段='"+edit1.text+"')
query1.open