需要懂DELPHI的进来，帮个小忙！

procedure TForm3.BitBtn1Click(Sender: TObject);
var
sqlstr:string;
begin
if Edit1.Text<>'' then
begin
sqlstr := 'select * from Staff where Staff_Name like '+#39+'"%' + Edit1.Text + '%"'+#39;
dm.staff.SQL.Clear;
dm.staff.SQL.Add(sqlstr);
dm.staff.Open;
DBGrid1.refresh;
end
else
messagebox(handle,'请输入查询条件！','检查输入',mb_iconwarning+mb_ok)
end;

我查询的结果要显示在DBGRID里
大家帮个忙，快！！

procedure TForm3.BitBtn1Click(Sender: TObject);
var
sqlstr:string;
begin
if Edit1.Text<>'' then
begin
sqlstr := 'select * from Staff where Staff_Name like '+#39+'%' + Edit1.Text + '%'+#39;
dm.staff.sql.close;
dm.staff.SQL.Clear;
dm.staff.SQL.Add(sqlstr);
dm.staff.Open;

end
else
messagebox(handle,'请输入查询条件！','检查输入',mb_iconwarning+mb_ok)
end;

如果这样还是不行，那么就是
1数据库没连上
2，datasource和dbgrid没有连上。
3。datasource和adoquery（query）没有连上
4。adoquery没有和adoconnect连上
从这个几个地方在家上程序应该没问题了

没有学过，但能看懂~
把你dm.staff 记录集里面的数据 和DBGrid1建立关联！！！ 好象是数据源设置吧！！！
不用加那两个#39吧
sqlstr := 'select * from Staff where Staff_Name like ''%' + Edit1.Text + '%''';
dm.staff.SQL.Add(sqlstr);
dm.staff.Open;
DBGrid1.refresh;
end
else
messagebox(handle
不知道我的这个能不能帮到你