28-03-17, 01:57 AM
السلام عليكم ورحمة الله وبركاته
اخوان انا صممت برنامج لقاعدة بيانات موظفين ...وارجو المساعدة ؟؟ احتاج كود لاظهار بيانات الموظف الذي يحتاج الى علاوة سنوية في الداتا جريد فيو ...علما ان العلاوة كل سنة انا عملت صيغة البحث داخل الداتا جريد والبرنامج يعمل بصورة جيدة ولاكن احتاج الى كود يعرض بيانات الموظف قبل شهر من تأريخ الاستحقاق
اذا حصل الموظف على كتاب شكر
مثلا تاريخ استحقاق العلاوة 2017/4/1 .....ولديه كتاب شكر المفروض يعرض داخل الداتا جريد بتاريخ 2017/3/1 وان لم يحصل على كتاب شكر يعرض في نفس التاريخ
علما اني عضو جديد في المنتدى وهذه اول مشاركة لي ارجو من الاساتذة الكرام مساعدتي وساكون شاكرا لكم وجزاكم الله خير جزاء
اخوان انا صممت برنامج لقاعدة بيانات موظفين ...وارجو المساعدة ؟؟ احتاج كود لاظهار بيانات الموظف الذي يحتاج الى علاوة سنوية في الداتا جريد فيو ...علما ان العلاوة كل سنة انا عملت صيغة البحث داخل الداتا جريد والبرنامج يعمل بصورة جيدة ولاكن احتاج الى كود يعرض بيانات الموظف قبل شهر من تأريخ الاستحقاق
اذا حصل الموظف على كتاب شكر
مثلا تاريخ استحقاق العلاوة 2017/4/1 .....ولديه كتاب شكر المفروض يعرض داخل الداتا جريد بتاريخ 2017/3/1 وان لم يحصل على كتاب شكر يعرض في نفس التاريخ
علما اني عضو جديد في المنتدى وهذه اول مشاركة لي ارجو من الاساتذة الكرام مساعدتي وساكون شاكرا لكم وجزاكم الله خير جزاء
date_first ........colum تاريخ العلاوة '
("سيتم البحث عن قيود الموظفين المستحقين علاوة في اخرتأريخ استحقاق")MsgBox
Dim searchdate As Date = DateTimePicker1.Value
Dim searchdate2 As Date = DateTimePicker2.Value
dt.Clear() 'بحث بالتاريخ
da = New OleDbDataAdapter(" select * from table1 where date_first <= #" & searchdate.Year & "/" & searchdate.Month & "/" & searchdate.Day & "# And date_first = #" & searchdate2.Year & "/" & searchdate2.Month & "/" & searchdate2.Day & "#",cn )
(da.Fill(dt
DataGridView1.Visible = True
Me.DataGridView1.DataSource = dt
end sub