الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

مشكلة في الكيستال ريبورت

بدأه bilal banat في 28 يناير 2012 · 2 رد · 766 مشاهدة · في تصميم وبرمجة التقارير
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

قمت بتصميم نموذج للمشكلة التي واجهتني وهو مرفق، الفكرة برنامج شؤون ورواتب موظفين، على الفيجوال دوت نت 2008، وقاعدة البيانات سيكول سيرفر 2005 والتقرير على الكريستال ريبورت، يتم فيه ادخال اسم الموظف والراتب الاساسي، ساعات الدوام الاضافي، ايام الغياب، ساعات دوام العطل.

عند عرض تقرير (كشف راتب) لموظف واحد لا يوجد اي مشاكل، المشكلة عند عرض صفحة التقرير لجميع الموظفين، كالآتي

نفرض انه يوجد ثلاث موظفين (بلال، احمد، خالد)

بلال: الراتب الاساسي=300،الغياب=1يوم،دوام اضافي=2ساعة،دوام عطل=3ساعة

احمد: الراتب الاساسي=400، الغياب=1يوم،دوام اضافي=0ساعة،دوام عطل=4ساعة

خالد: الراتب الاساسي=500، الغياب=0يوم،دوام اضافي=2ساعة،دوام عطل=0ساعة

عند طباعة التقرير تنتج قيم الجداول كالتالي:

بلال: الراتب الاساسي=300،الغياب=2يوم،دوام اضافي=4ساعة،دوام عطل=7ساعة

احمد: الراتب الاساسي=400، الغياب=2يوم،دوام اضافي=4ساعة،دوام عطل=7ساعة

خالد: الراتب الاساسي=500، الغياب=2يوم،دوام اضافي=4ساعة،دوام عطل=7ساعة

المشروع مرفق مع المشكلة ويوجد فيه طريقة العمل، ويوجد نسخة من قاعدة البيانات

اخواني الموضوع عنجد ازعجني ولا اعرف كيفية الحل الرجاء من الخبراء في الفيجوال والكريستال ريبورت المساعدة

test.zip

#2

السلام عليكم ...

  1. افتح التقرير في وضع التصميم , ثم نقرة يمينية على database Fields ثم database expert ثم links .. تلاحظ انك قمت بربط الجداول حسب "اسم الموظف" و في تمرير البيانات لديك :
    Dim str As String = "SELECT Distinct employee_name,primary_salary FROM emplyee"
            	'Dim str1 As String = "SELECT Distinct absence_period FROM absence_tbl where absence_day >= '" & day_st_Combo.Text & "' and absence_day <= '" & day_end_Combo.Text & "' and absence_month >= '" & month_st_Combo.Text & "' and absence_month <= '" & month_end_Combo.Text & "' and absence_yr >= '" & yr_st_Combo.Text & "' and absence_yr <= '" & yr_end_Combo.Text & "'"
            	'Dim str3 As String = "SELECT Distinct bounus_hr_per_day FROM bounus where bounus_day >= '" & day_st_Combo.Text & "' and bounus_day <= '" & day_end_Combo.Text & "' and bounus_month >= '" & month_st_Combo.Text & "' and bounus_month <= '" & month_end_Combo.Text & "' and bounus_yr >= '" & yr_st_Combo.Text & "' and bounus_yr <= '" & yr_end_Combo.Text & "'"
            	'Dim str5 As String = "SELECT Distinct dawam_hours FROM Otal_dawam where dawam_date_day >= '" & day_st_Combo.Text & "' and dawam_date_day <= '" & day_end_Combo.Text & "' and dawam_date_month >= '" & month_st_Combo.Text & "' and dawam_date_month <= '" & month_end_Combo.Text & "' and dawam_date_yr >= '" & yr_st_Combo.Text & "' and dawam_date_yr <= '" & yr_end_Combo.Text & "'"

    أي أنك لم تجلب "اسم الموظف" قي باقي الجداول ...

لا إله إلا الله ... محمد رسول الله

لو كانت مشاركتي مفيدة و تريد تشجيعي على المزيد من العطاء , فضلا قم بتقييم المشاركة

المعرًف القديم : houssam11350_11350

من مواضيعي : ArabGenCode : مولد كود و إجراءات مخزنة و واجهات لجداول سيكوال سيرفر

#3

نصيحتي لك ان تقراء الاول في قواعد البيانات ثم في لغة البرمجة ثم التقارير لانك لا تمتلك الاساسيات في البرمجة

مواضيع مشابهة