急~~~谁能帮帮我（初学者）

Question

edit1.Text:='维生素';
form1.ADODataSet1.Active:=false;
form1.adodataset1.CommandText:='select*from drug_test1 where 药品名 =''Edit1.text%''' ;
form1.ADODataSet1.Active:=true;
form2.Close;
form1.Show;
编译的时候说不能识别Edit1.text
我想实现一个动态查找啊
就象我打一个王字
可以把所以的姓王的人都输入出来现在就是不明白怎么在CommandText里面写代码，通过edit1
向里面写

Answer 1

form1.adodataset1.CommandText:='select * from drug_test1 where 药品名 like ''' + Edit1.text + '%''';

Answer 2

form1.adodataset1.CommandText:=format('select * from drug_test1 where 药品名 like ''%s%%''',[Edit1.text]);这样看起来直观很多。

Answer 3

edit1.Text:='维生素';
with form1.adodataset1 do
begin
  close;
  CommandText:='select*from drug_test1 where 药品名 =:ypm';
  Parameters.ParamByName('ypm').Value:=edit1.text;
  open;
end;
form2.Close;
form1.Show;
用这们试试！

Answer 4

form1.adodataset1.CommandText:='select * from drug_test1 where 药品名 like ' +
QuotedStr(Edit1.text + '%') ;

Answer 5

form1.adodataset1.CommandText:='select * from drug_test1 where 药品名
like '+''''+'%' +QuotedStr(Edit1.text) +'%'+''''+'';