求 文本框赋值的SQL语句写法解决思路

求 文本框赋值的SQL语句写法
procedure TForm1.Button1Click(Sender: TObject);
var edtext:string;
begin
  edtext:=edit1.text;
  ADODataSet1.Close;
  ADODataSet1.CommandText := 'SELECT * FROM zql where 申请人姓名 =' +edtext+ '';
  ADODataSet1.Open;
end;

 'SELECT * FROM zql where 申请人姓名 =' +edtext+ '';

就是输入姓名,点击按钮查询,如果具有模糊查询功能SELECT语句如何改?




[解决办法]

Delphi(Pascal) code

ADODataSet1.CommandText := 'SELECT * FROM zql where 申请人姓名 =' +QuotedStr(edtext.Text);