مشكلة في الفلترة ب ADOQuery

[rezki_z]

السلام عليكم

لدي هذا الكود و هو يشتغل جيدا لما ابحث عن رقم داخل عمود

كود :

procedure TForm1.sEdit1Change(Sender: TObject);  var a :integer; begin IF sEdit1.Text <> '' then begin a:=strtoint(sEdit1.Text); adoquery1.active:=false; adoquery1.sql.clear; ADOQuery1.SQL.Add('select * from employé where num_emp='+inttostr(a)); adoquery1.open; end else begin adoquery1.active:=false; adoquery1.sql.clear; ADOQuery1.SQL.Add('select * from employé'); adoquery1.open; end;  end;

اريد نفس الكود لكن في حالة البحث عن اسم وكذلك لما ابحث عن تاريخ معين

[محمد الدرة]

البحث عن اسم

ADOQuery1.SQL.Add('select * from employé where Emp_Name='+quotedstr(edit1.text));

البحث عن تاريخ
ADOQuery1.SQL.Add('select * from employé where SpeDay='+quotedstr(formatdatetime('yyyy/mm/dd',edit1.text)));