كيف الفلترة بتاريخ الميلاد ؟

[Zinab]

كود :

procedure TForm.QueryDOBClick(Sender: TObject); begin Query.Close; Query.SQL.Clear; Query.SQL.Text := 'SELECT * FROM Table WHERE DateOfBirth =:BirthDate'; Query.Parameters.ParamByName('BirthDate').Value := DateOf(FromDateEdit.Date); // DateTimePicker Query.Open; end;