24-11-2018, 08:27 PM
بسم الله الرحمن الرحيم
السلام عليكم و رحمة الله و بركاته
اطلب مساعدة مستعجلة جزاكم الله ألف خير و سؤالي كالثالي
استعمل الكود التالي من اجل الفلترة عن طريق شهر كحروف و ليس كرقم لان باستعمال الشهر كرقم يعمل بدون مشاكل اما بستعمال الشهر كحروف فانه لا يعمل لا اعرف المشكل اين هو اثمنى افدي بالحل و شكرا
![[صورة: 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;