إخوتى واخوانى المبرمجين
اما بعد :
اما بعد :
كثر الحديث والاسئلة عن الفلترة فى التقارير بين تاريخ وتاريخين لدرجة تكرار المواضيع لذلك احببت ان اعمل شرح مدعوم بالصور ومثال يوضح إستخدام الفلترة فى التقارير بـ إستخدام اداة التقرير Data report ويشمل المثال على الاتى :
الفلترة بتاريخ واحد
الفلترة بين تاريخين
الفلترة لــ شخص معين
الفلترة بتاريخ لــ شخص معين
الفلترة بين تاريخين لــ شخص معين
اولاً : اضف اداة التاريخ DTPicker
Microsoft Windows Common Control-26.0 ثم إختر <<--- Project --->> Components
ثانيا :
ارسم الفورم على هذا الشكل :
ثالثاً:
الاكواد
يتم ملئ الكمبو تلقائيا من قاعدة البيانات بواسطة الكود :
الفلترة بتاريخ واحد :
الفلترة بتاريخين :
الفلترة لــ شخص معين :
الفلترة لــ شخص معين بتاريخ معين :
الفلترة بين تاريخين لشخص معين :
رابعاً : تصميم التقرير
اذهب الى الوضوع التالى :
[b]شرح بسيط بالصور طريقة عمل تقرير بالـــ Data report بــ إستخدام adodb[/b]
فهو نفس التقرير الذى طبقت عليه الفلترة
توضيح مهم :
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦
vb4arb إسم قاعدة البيانات
Tabel1 إسم الجدول
DTSin إسم حقل التاريخ
Nme إسم حقل الاسماء
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦
ملاحظات :
لم اكتب الاكواد كاملة وذلك لوجود مشكلة فى محرر الاكواد
البيانات الموجودة فى قاعدة البيانات هى لـــ اعضاء من المنتدى الكريم
*************************************************
فى النهاية : ارجو ان اكون قد وفقت فى الشرح البسيط
☼☼ صورة من التقرير بعد عمل فلترة بين تاريخين ☼☼
الفلترة بتاريخ واحد
الفلترة بين تاريخين
الفلترة لــ شخص معين
الفلترة بتاريخ لــ شخص معين
الفلترة بين تاريخين لــ شخص معين
اولاً : اضف اداة التاريخ DTPicker
Microsoft Windows Common Control-26.0 ثم إختر <<--- Project --->> Components
ثانيا :
ارسم الفورم على هذا الشكل :
ثالثاً:
الاكواد
يتم ملئ الكمبو تلقائيا من قاعدة البيانات بواسطة الكود :
كود :
Do While Not RS.EOF
Combo1.AddItem RS.Fields("Nme").Value
RS.MoveNext
Loop
الفلترة بتاريخ واحد :
كود :
RS.Open " select * from [Tabel1] where [DTSin] like '" & DTPicker1.Value & "'", CN, adOpenStatic, adLockReadOnly
الفلترة بتاريخين :
كود :
RS.Open " select * from [Tabel1] where [DTSin] Between #" & DTPicker2.Value & "# AND #" & DTPicker3.Value & "#", CN, adOpenStatic, adLockReadOnly
الفلترة لــ شخص معين :
كود :
RS.Open " select * from [Tabel1] where [Nme] like '" & Combo1.Text & "'", CN, adOpenStatic, adLockReadOnly
الفلترة لــ شخص معين بتاريخ معين :
كود :
RS.Open " select * from [Tabel1] Where [Nme]='" & Trim$(Combo2.Text) & "' AND [DTSin]=#" & DTPicker6.Value & "#", CN, adOpenStatic, adLockReadOnly
الفلترة بين تاريخين لشخص معين :
كود :
RS.Open "select * from Tabel1 where Nme='" & Trim(Combo3.Text) & "' and DTSin between #" & DTPicker4.Value & "# and #" & DTPicker5.Value & "#"
رابعاً : تصميم التقرير
اذهب الى الوضوع التالى :
[b]شرح بسيط بالصور طريقة عمل تقرير بالـــ Data report بــ إستخدام adodb[/b]
فهو نفس التقرير الذى طبقت عليه الفلترة
توضيح مهم :
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦
vb4arb إسم قاعدة البيانات
Tabel1 إسم الجدول
DTSin إسم حقل التاريخ
Nme إسم حقل الاسماء
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦
ملاحظات :
لم اكتب الاكواد كاملة وذلك لوجود مشكلة فى محرر الاكواد
البيانات الموجودة فى قاعدة البيانات هى لـــ اعضاء من المنتدى الكريم
*************************************************
فى النهاية : ارجو ان اكون قد وفقت فى الشرح البسيط
☼☼ صورة من التقرير بعد عمل فلترة بين تاريخين ☼☼