Tquery Parameters

مثال بسيط يأخذ التاريخ الموجود داخل مربع نص ومن ثم يقوم بالإستفسار عنه

إستخدمت جدول Employee الموجود مع قاعدة بيانات DbDemos

procedure TForm1.Button1Click(Sender: TObject);
begin
  Query1.Close;
  Query1.SQL.Text := 'select * from Employee where HireDate = :D';
  Query1.ParamByName('D').AsDate := StrToDate(Edit1.Text);
  Query1.Open;
end;