23-07-21, 08:17 AM
السلام عليكم ورحمة الله وبركاته ..........أخواني شي غريب يحصل معي
أعمل برنامج لحضور وإنصراف الموظفين بإستخدام جهاز قارئ للباركود بحيث يمرر الموظف البطاقة وتدخل القيمة المقروءة من البطاقة إلى تكست بوكس في الحدث TextBox1_TextChanged والموضوع والحمد لله 100 / 100
ويوجد تكست بوكس آخر لتسجيل الخروج وأتبعت في نفس الطريقة بحيث يمرر الموظف بطاقته ووضعت فيه الكود الموجود في الأسفل لتسجيل وقت الخروج
المشكلة الغريبة تقع عند تسجيل الخروج بحيث أنه عندما تدخل قيمة الباركود ( الرقم الوطني ) في التكست بوكس فإنه لايستجيب أبداً وتحدث الإستجابة في حالة واحدة فقط حين أقوم بعملية لصق الرقم الوطني يعني عملية Paste وغير هذا لايمكن أن تحدث أي إستجابة <<<<<<< مع العلم أن حاولت أن أجعل قيمة الباركود في تكست بوكس آخر ثم أقوم يقوم التسكت الجديد بنسخ محتواه إلى تكست بوكس الخروج
آسف على الإطالة
أعمل برنامج لحضور وإنصراف الموظفين بإستخدام جهاز قارئ للباركود بحيث يمرر الموظف البطاقة وتدخل القيمة المقروءة من البطاقة إلى تكست بوكس في الحدث TextBox1_TextChanged والموضوع والحمد لله 100 / 100
ويوجد تكست بوكس آخر لتسجيل الخروج وأتبعت في نفس الطريقة بحيث يمرر الموظف بطاقته ووضعت فيه الكود الموجود في الأسفل لتسجيل وقت الخروج
المشكلة الغريبة تقع عند تسجيل الخروج بحيث أنه عندما تدخل قيمة الباركود ( الرقم الوطني ) في التكست بوكس فإنه لايستجيب أبداً وتحدث الإستجابة في حالة واحدة فقط حين أقوم بعملية لصق الرقم الوطني يعني عملية Paste وغير هذا لايمكن أن تحدث أي إستجابة <<<<<<< مع العلم أن حاولت أن أجعل قيمة الباركود في تكست بوكس آخر ثم أقوم يقوم التسكت الجديد بنسخ محتواه إلى تكست بوكس الخروج
آسف على الإطالة
If TextBox86.TextLength = 10 Then
Dim cmd2 As New SqlCommand("select * from Hodor_Table", Sqlcon)
Dim Adaptr2 As New SqlDataAdapter(cmd2)
Dim dt2 As New DataTable
Adaptr2.Fill(dt2)
If (TextBox86.TextLength).ToString = 10 Then
Dim s As Integer
For s = 0 To dt2.Rows.Count - 1
If dt2.Rows(s)(1).ToString = TextBox96.Text And dt2.Rows(s)(4).ToString = DateTimePicker9.Value.Date And dt2.Rows(s)(8).ToString <> "غائب" Then
TextBox88.Text = dt2.Rows(s)(0).ToString
Dim cmdupdate3 As SqlCommand = New SqlCommand("update Hodor_Table set Time_Out=@Time_Out where ID2=@ID2", Sqlcon)
cmdupdate3.Parameters.Add("@ID2", SqlDbType.Int).Value = CInt(TextBox88.Text)
Label5.Text = Label5.Text.Remove(5, 3)
cmdupdate3.Parameters.Add("@Time_Out", SqlDbType.NVarChar).Value = Label5.Text
Sqlcon.Open
If cmdupdate3.ExecuteNonQuery = 1 Then
Sqlcon.Close
End If
MsgBox("تم تسجيل الخروج")
End If
Next
End If
مع جزيل الشكر
دمتم بود