ADOQuery查询，100分

Question

初学delphi，我用一个ComboBox1,Edit1，跟dbgrid实现查询功能，用户在在ComboBox1里面选择查询字段，在edit1里面编辑查询内容，在查询过程里面我写了如下代码，可是在dbgrid里面什么也没返回，请帮我改正,如果有更好的方法,请赐教!
procedure Tkkkkk.BitBtn5Click(Sender: TObject);
var chose1, key, chose2: string;
begin
chose1 := trim(ComboBox1.Text);
key := trim(Edit1.Text);
if chose1 = '名称' then
chose2 := 'name'
else if chose1 = '负责人' then
chose2 := 'contractor'
else if chose1 = '类型' then
chose2 := 'sign'
else
ShowMessage('错误的搜索类型!');with DataMa_ADOQueryloft do
begin 
DataMa_ADOQueryloft.Close;
DataMa_ADOQueryloft.SQL.Clear;
DataMa_ADOQueryloft.SQL.Add('Select * From Jobarea Where '''+chose2+''' = '''+key+'''' );
DataMa_ADOQueryloft.Open;

Answer 1

with DataMa_ADOQueryloft do
begin 
  DataMa_ADOQueryloft.Close;  
  DataMa_ADOQueryloft.SQL.Clear;
  DataMa_ADOQueryloft.SQL.Add('Select * From Jobarea Where '+chose2+' = '''+key+'''' );
  DataMa_ADOQueryloft.Open;
end;DateSource连了DbGrid了么

Answer 2

你用了with 下面还写那些干嘛，不要用with，直接DataMa_ADOQueryloft.Close;
DataMa_ADOQueryloft.SQL.Clear;
DataMa_ADOQueryloft.SQL.Add('Select * From Jobarea Where '''+chose2+''' = '''+key+'''' );
DataMa_ADOQueryloft.Open;

Answer 3

DataMa_ADOQueryloft.SQL.Add('Select * From Jobarea Where '''+chose2+''' = '''+key+'''' );
应该改为
DataMa_ADOQueryloft.SQL.Add('Select * From Jobarea Where '+chose2+' = '''+key+'''' );

Answer 4

另外想问一下，你们平时在解决这样的查询问题的时候也是使用了和我这差不多的方法么，我总觉得我这样做比较笨，另nch1977说的这个道理是什么，我不清楚这里引号的具体意义，请具体指点

Answer 5

还有在我这个例子里面,如果我查询一个字段,没有用户想要的查询,dbgrid里面直接是空白,怎么才能谈出ShowMessage提示用户没有您想要查找的内容!