تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ماسبب عدم تنفيذ الكود عند استخدام قارئ الباركود
#1
السلام عليكم ورحمة الله وبركاته   ..........أخواني شي غريب يحصل معي
أعمل برنامج لحضور وإنصراف الموظفين بإستخدام جهاز قارئ للباركود بحيث يمرر الموظف البطاقة  وتدخل القيمة المقروءة من البطاقة إلى تكست بوكس  في الحدث 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

مع جزيل الشكر
دمتم بود
الرد }}}
تم الشكر بواسطة:
#2
(23-07-21, 08:17 AM)جيولوجي مبتدئ كتب : السلام عليكم ورحمة الله وبركاته   ..........أخواني شي غريب يحصل معي
أعمل برنامج لحضور وإنصراف الموظفين بإستخدام جهاز قارئ للباركود بحيث يمرر الموظف البطاقة  وتدخل القيمة المقروءة من البطاقة إلى تكست بوكس  في الحدث 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

مع جزيل الشكر
دمتم بود
اخي العزيز ضع الكود في حدث كي داون
لئنو حدث التيكست جينجت يعمل عند الكتابة اما حدث كي داون عند الضغط
ضع في بداية الكود if e.Keycode=keys.enter
لئنو قارى الباركود لمن يقرأ يضغط انتر
الرد }}}
تم الشكر بواسطة: جيولوجي مبتدئ , جيولوجي مبتدئ
#3
السلام عليكم ورحمة الله وبركاته 

أشكرك أخي على ردك 
 ولكني وضعت الشرط التالي وهو if textbox86.text.lengh = 10  أي لايعمب إلا عندما يكون طول التكست 10 خانات معل العلم أن أستخدم نفس الطريقة في تسجيل الدخول وهي تعمل 100 \100 




لك جزيل الشكر 

دمت بود
الرد }}}
تم الشكر بواسطة:
#4
السلام عليكم ورحمة الله وبركاته
آسف على تكرار الموضوع ولكن الموضوع أرهقني جداً 
عندما أقوم بعملية لصق( paste ) الرقم الوطني يعمل معي الكود وايضا عندما أقوم بكتابة الكود يدوياً يعمل عندما أصل للخانة رقم عشرة يعمل معي الكود  ولكن عند استخدام جهاز الباركود لايعمل الكود ؟؟؟؟؟؟

لكم جزيل الشكر
دمتم بود 
الرد }}}
تم الشكر بواسطة:
#5
شكرا لك أخي الكريم تم المطلوب بحيث وضعت الكود في key_down  كما اقترحت أنت وأضفت التالي

 

   If TextBox86.Text.Length = 10 Then
            GoTo x
        ElseIf 2 <= TextBox86.Text.Length < 10 Then
            '' ''Dim sp As New SoundPlayer("Wrong.wav")
            '' ''sp.Play()
            Timer10.Enabled = True
            Exit Sub

        End If
:x

 وقد وضعت هذا الكود في البداية لكي يقوم بالإنتقال التلقائي بدون ضغط زر انتر 
لك جزيل الشكر 
دمت بود
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ممكن حل المشكلة فى الكود التالي - من مشاركة استاذنا القدير / عبدالله الدوسري new_programer 4 169 02-03-24, 07:36 PM
آخر رد: new_programer
  ماهو حل هذا الخطأ في الكود melad2002 7 264 25-02-24, 12:25 AM
آخر رد: justforit
  كيفية تنفيذ امر عند التعليم على checkbox بالداتا جريد فيو heem1986 2 158 21-02-24, 01:37 AM
آخر رد: heem1986
  كيفية انشاء سكريبت لقاعدة بيانات من خلال الكود heem1986 1 193 20-02-24, 12:00 AM
آخر رد: Kamil
  كيفية تنفيذ أمر عرض بيانات من فورم ثان مصمم هاوي 7 329 19-02-24, 12:28 AM
آخر رد: مصمم هاوي
  تنفيذ كود عند حدوث تغيرات فى أحد جداول قاعد بيانات sql heem1986 2 247 16-02-24, 06:37 AM
آخر رد: عبدالله الدوسري
  مشكلة عدم اكتمال تنفيذ بسبب فصل الشبكة او التيار الكهربائي اثناء النتفيذ تناسيم 3 1,840 05-02-24, 10:04 PM
آخر رد: 01AHMED
  [VB.NET] أرغب فى استخدام هذا الكود بالتحديد على الإصدار 10 AmeenRashed 3 206 19-01-24, 12:42 PM
آخر رد: Taha Okla
  ارجو المساعدة فى شاشة طباعة الباركود new_programer 10 577 09-01-24, 08:41 PM
آخر رد: new_programer
  اريد طباعة الباركود المحدد فقط مع الكمية new_programer 5 430 09-01-24, 08:40 PM
آخر رد: new_programer

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم