+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيفية الفلترة عن طريق شهر او تاريخ (/showthread.php?tid=9870)
كيفية الفلترة عن طريق شهر او تاريخ - AbdouProg - 24-11-2018
بسم الله الرحمن الرحيم
السلام عليكم و رحمة الله و بركاته
اطلب مساعدة مستعجلة جزاكم الله ألف خير و سؤالي كالثالي
استعمل الكود التالي من اجل الفلترة عن طريق شهر كحروف و ليس كرقم لان باستعمال الشهر كرقم يعمل بدون مشاكل اما بستعمال الشهر كحروف فانه لا يعمل لا اعرف المشكل اين هو اثمنى افدي بالحل و شكرا
![[صورة: 7hkwci8cjhce.png]](https://www.gulf-up.com/i/00077/7hkwci8cjhce.png)
كود :
begin
DBLookupComboBox1.KeyValue := Null;
DateSeparator:='.';
ShortDateFormat:='DD.MM.YYYY';
With Qry_date Do
Begin
close;
sql.clear;
sql.add('SELECT date_ph,date_part(''years'',date(date_ph)) as an,Case Month(date_ph)');
sql.add('when 1 then ''janvier''');
sql.add('when 2 then ''février''');
sql.add('when 3 then ''mars''');
sql.add('when 4 then ''avril''');
sql.add('when 5 then ''mai''');
sql.add('when 6 then ''juin''');
sql.add('when 7 then ''juillet''');
sql.add('when 8 then ''août''');
sql.add('when 9 then ''septembre''');
sql.add('when 10 then ''octobre''');
sql.add('when 11 then ''novembre'' Else ''décembre'' End as mois,');
sql.add('From personnel Where date_part(''Month'',date(date_ph)) = '+ QuotedStr(DBLookupComboBox1.Text+''));
sql.add('group by 1,2,3');
sql.add('order by date_ph asc');
open;
end;
end;RE: كيفية الفلترة عن طريق شهر او تاريخ - S.FATEH - 30-11-2018
السلام عليكم
ما هي قاعدة البيانات المستخدمة
RE: كيفية الفلترة عن طريق شهر او تاريخ - AbdouProg - 06-12-2018
(30-11-2018, 04:17 PM)S.FATEH كتب : السلام عليكم
ما هي قاعدة البيانات المستخدمة
السلام عليكم
قاعدة البيانات من نوع MYSQL