منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
اريد إحصاء مجموع التأخير والغياب للموظف - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : اريد إحصاء مجموع التأخير والغياب للموظف (/showthread.php?tid=49811)

اريد إحصاء مجموع التأخير والغياب للموظف - أبووسم - 30-07-24

السلام عليكم
مرفق مشروع للموظفين يجمع فيه الغياب و التأخير

أريد عند البحث عن موظف معين يظهر لي مجموع غيابه و التاخير (إن وجد)

ولكم جزيل الشكر والتقدير

RE: اريد إحصاء مجموع التأخير والغياب للموظف - Taha Okla - 30-07-24

وعليكم السلام ورحمة الله وبركاته
عدل الكود الخاص بالزر مع اضافة الوظيفة الموجودة في الكود التالي :

كود :
   Function GetCount(pName As String, pState As String) As Integer
       Dim Cs1 As Integer
       Dim ConnF As New OleDbConnection(ConStr)
       Dim cmdC As New OleDbCommand("Select count(Employment) From Notes Where Ename ='" & pName & "' and Employment ='" & pState & "'", ConnF)
       ConnF.Open()
       cmdC.ExecuteNonQuery()
       Cs1 = cmdC.ExecuteScalar()

       ConnF.Close()

       Return Cs1
   End Function


   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

       Try
           Dim dv As DataView = dt_Notes.DefaultView
           dv.RowFilter = " Ename LIKE '%" & ComboBox1.Text & "%' "

           Label1.Text = GetCount(ComboBox1.Text, "غياب")
           Label2.Text = GetCount(ComboBox1.Text, "تأخير")

       Catch ex As Exception
       End Try
       ' ضعه في حدث تكست بوكس تشانج (TextChanged)

   End Sub


RE: اريد إحصاء مجموع التأخير والغياب للموظف - أبووسم - 31-07-24

الف شكر

الكود تمام و عال العال
بارك الله فيك و في علمك