delphi4arab منتديات دلفي للعرب

if edit9.Text <>'' then
begin
  ADOQuery1.filter :=  'datedos = '+strtodate(datetostr( edit9.Text));
  ADOQuery1.filtered := true;
  end
  else
  ADOQuery1.Filtered := false;



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

(19-09-2022, 07:00 PM)tahar1983 كتب : [ -> ]if edit9.Text <>'' then
begin
  ADOQuery1.filter :=  'datedos = '+strtodate(datetostr( edit9.Text));
  ADOQuery1.filtered := true;
  end
  else
  ADOQuery1.Filtered := false;



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

(19-09-2022, 09:32 PM)larbiparadox كتب : [ -> ]

(19-09-2022, 07:00 PM)tahar1983 كتب : [ -> ]if edit9.Text <>'' then
begin
  ADOQuery1.filter :=  'datedos = '+strtodate(datetostr( edit9.Text));
  ADOQuery1.filtered := true;
  end
  else
  ADOQuery1.Filtered := false;



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

كود :

if Length(edit9.Text) = 10 then begin   ADOQuery1.filter :=  'datedos  = '+ edit9.Text;   ADOQuery1.filtered := true;   end   else   ADOQuery1.Filtered := false

شكرا لك وجزاء الله كل خير