delphi4arab منتديات دلفي للعرب
تعديل كود بحث تاريخ - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : تعديل كود بحث تاريخ (/showthread.php?tid=12086)

تعديل كود بحث تاريخ - tahar1983 - 19-09-2022

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



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

RE: تعديل كود بحث تاريخ - larbiparadox - 19-09-2022

(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


RE: تعديل كود بحث تاريخ - tahar1983 - 20-09-2022

(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

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