تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
نرجوا الافادة . فى أي حدث يوضع كود استعلام الباركود
#1
السلام عليكم ورحمة الله وبركاتة أخواني وأخواتى 
أرجوا الافادة فى أي حدث أضع كود الاستعلام عن باركود موظف 
مع ملاحظة الاتى 
1- أنا أستعلم من جدول الموظفين عن كود الموظف وعن اسمه
2- أقوم بعمليات أخرى على الفورم وأضع ناتج العمليات الاخرى 
في listview بعد الاستعلام عن موظف بالتوالى
المشكلة عندى هى أنني عندما أقوم بوضع الكود فى حدث textchanged
تحدث مشكلة وهى أى حركة فى هذا الحدث تنتج ازدواجية فى التسجيل 
فهل المشكلة فى الحدث أم الباركود ساضع لكم كود الاستعلام مع صور للتوضيح
لكي تعلموني أين المشكلة.
 If Len(Trim(CmbWTime.Text)) = 0 Then
                MessageBox.Show("من فضلك حدد فترة الدوام", "منظومة الدمرداش المدرسية", MessageBoxButtons.OK, MessageBoxIcon.Warning)
                CmbWTime.Focus()
                Exit Sub
            End If
            con = New SqlConnection(cs)
            con.Open()
            Dim strQ As String = String.Empty
            Dim cmd0 As SqlCommand
            Dim da As SqlDataAdapter
            Dim ds As DataSet
            strQ = " Select EmpCode,EmpName from Employees where EmpCode='" + TxtCode.Text + "'"
            cmd0 = New SqlCommand(strQ, con)
            da = New SqlDataAdapter(cmd0)
            ds = New DataSet
            da.Fill(ds, "Employees")
            If ds.Tables(0).Rows.Count > 0 Then
                txtEmpCode.Text = ds.Tables(0).Rows(0)("EmpCode").ToString()
                TxtEmpName.Text = ds.Tables(0).Rows(0)("EmpName").ToString()
            End If
            If TeMAL.Text = "لم يبدأ الدوام" Then
                Exit Sub
            ElseIf TeMAL.Text = "حضـر الموظف" Then
                'كود الإضافة إلى الليست فيو
                Dim temp As Integer
                temp = ListView1.Items.Count()
                If temp = 0 Then
                    Dim i As Integer
                    Dim lst As New ListViewItem(i)
                    lst.SubItems.Add(txtEmpCode.Text) 'كود الموظف
                    lst.SubItems.Add(TxtEmpName.Text) 'اسم الموظف
                    lst.SubItems.Add(Label9.Text) 'وقت الحضور
                    lst.SubItems.Add("بالدوام") 'وقت الإنصراف
                    lst.SubItems.Add(TeMAL.Text) 'حالة الموظف
                    lst.SubItems.Add(Label5.Text) ' تاريخ الحضور
                    lst.SubItems.Add(Label8.Text) ' يوم الحضور
                    lst.SubItems.Add(CmbWTime.Text) ' فترة الحضور
                    lst.SubItems.Add(RichTextBox1.Text) ' ملاحظات
                    lst.SubItems.Add("حضر بالميعاد") ' حالة الغياب
                    lst.SubItems.Add(LateTime.Text) ' معدل التأخير
                    ListView1.Items.Add(lst)
                    i = i + 1
                    TxtCode.SelectAll()
                    txtEmpCode.Text = ""
                    TxtEmpName.Text = ""
                    Exit Sub
                End If
                For j = 0 To temp - 1
                    If (ListView1.Items(j).SubItems(1).Text = txtEmpCode.Text) And (ListView1.Items(j).SubItems(6).Text = Label5.Text) Then
                        If MessageBox.Show("هذا الموظف لايمكن تسجيلة مرتين", "منظومة الدمرداش المدرسية", MessageBoxButtons.OK, MessageBoxIcon.Error) = DialogResult.OK Then
                            TxtCode.Clear()
                            TxtCode.Focus()
                        End If
                        Exit Sub
                    End If
                Next j
                Dim k As Integer
                Dim lst1 As New ListViewItem(k)
                lst1.SubItems.Add(txtEmpCode.Text) 'كود الموظف
                lst1.SubItems.Add(TxtEmpName.Text) 'اسم الموظف
                lst1.SubItems.Add(Label9.Text) 'وقت الحضور
                lst1.SubItems.Add("بالدوام") 'وقت الإنصراف
                lst1.SubItems.Add(TeMAL.Text) 'حالة الموظف
                lst1.SubItems.Add(Label5.Text) ' تاريخ الحضور
                lst1.SubItems.Add(Label8.Text) ' يوم الحضور
                lst1.SubItems.Add(CmbWTime.Text) ' فترة الحضور
                lst1.SubItems.Add(RichTextBox1.Text) ' ملاحظات
                lst1.SubItems.Add("حضر بالميعاد") ' حالة الغياب
                lst1.SubItems.Add(LateTime.Text) ' معدل التأخير
                ListView1.Items.Add(lst1)
                k = k + 1
                TxtCode.SelectAll()
                txtEmpCode.Text = ""
                TxtEmpName.Text = ""

            ElseIf TeMAL.Text = "تأخر الموظف" Then
                'كود الإضافة إلى الليست فيو
                Dim temp As Integer
                temp = ListView1.Items.Count()
                If temp = 0 Then
                    Dim i As Integer
                    Dim lst As New ListViewItem(i)
                    lst.SubItems.Add(txtEmpCode.Text) 'كود الموظف
                    lst.SubItems.Add(TxtEmpName.Text) 'اسم الموظف
                    lst.SubItems.Add(Label9.Text) 'وقت الحضور
                    lst.SubItems.Add("بالدوام") 'وقت الإنصراف
                    lst.SubItems.Add(TeMAL.Text) 'حالة الموظف
                    lst.SubItems.Add(Label5.Text) ' تاريخ الحضور
                    lst.SubItems.Add(Label8.Text) ' يوم الحضور
                    lst.SubItems.Add(CmbWTime.Text) ' فترة الحضور
                    lst.SubItems.Add(RichTextBox1.Text) ' ملاحظات
                    lst.SubItems.Add("حضر متأخرا") ' حالة الغياب
                    lst.SubItems.Add(LateTime.Text) ' معدل التأخير
                    ListView1.Items.Add(lst)
                    i = i + 1
                    TxtCode.SelectAll()
                    txtEmpCode.Text = ""
                    TxtEmpName.Text = ""
                    Exit Sub
                End If
                For j = 0 To temp - 1
                    If (ListView1.Items(j).SubItems(1).Text = txtEmpCode.Text) And (ListView1.Items(j).SubItems(6).Text = Label5.Text) Then
                        MessageBox.Show("هذا الموظف لايمكن تسجيلة مرتين", "منظومة الدمرداش المدرسية", MessageBoxButtons.OK, MessageBoxIcon.Error)
                        TxtCode.SelectAll()
                        Exit Sub
                    End If
                Next j
                Dim k As Integer
                Dim lst1 As New ListViewItem(k)
                lst1.SubItems.Add(txtEmpCode.Text) 'كود الموظف
                lst1.SubItems.Add(TxtEmpName.Text) 'اسم الموظف
                lst1.SubItems.Add(Label9.Text) 'وقت الحضور
                lst1.SubItems.Add("بالدوام") 'وقت الإنصراف
                lst1.SubItems.Add(TeMAL.Text) 'حالة الموظف
                lst1.SubItems.Add(Label5.Text) ' تاريخ الحضور
                lst1.SubItems.Add(Label8.Text) ' يوم الحضور
                lst1.SubItems.Add(CmbWTime.Text) ' فترة الحضور
                lst1.SubItems.Add(RichTextBox1.Text) ' ملاحظات
                lst1.SubItems.Add("حضر متأخرا") ' حالة الغياب
                lst1.SubItems.Add(LateTime.Text) ' معدل التأخير
                ListView1.Items.Add(lst1)
                k = k + 1
                TxtCode.SelectAll()
                txtEmpCode.Text = ""
                TxtEmpName.Text = ""

            ElseIf TeMAL.Text = "إنتهى الدوام" Then
                Exit Sub
            End If
            TxtCode.Clear()
            TxtCode.Focus()
الرد
تم الشكر بواسطة:
#2
مع ضغط الانتر افضل
لتكون انتهيت من كتابة رقم الموظف بالكامل 
PHP كود :
Private Sub TextBox1_KeyPress(ByVal sender As ObjectByVal e As System.Windows.Forms.KeyPressEventArgsHandles TextBox1.KeyPress

        If e
.KeyChar Chr(13Then

    ضع الكود هنا

        End 
If

    End Sub 
صلى الله على نبينا محمد
اخيكم / محمود صالح
  قال الزهري رحمه الله  
 مــا عُـــبـِد الله بشئ أفضل من العلم 
الرد
#3
(08-02-18, 03:36 PM)محمود صالح كتب : مع ضغط الانتر افضل
لتكون انتهيت من كتابة رقم الموظف بالكامل 
PHP كود :
Private Sub TextBox1_KeyPress(ByVal sender As ObjectByVal e As System.Windows.Forms.KeyPressEventArgsHandles TextBox1.KeyPress

        If e
.KeyChar Chr(13Then

    ضع الكود هنا

        End 
If

    End Sub

ماينفع يكون الحدث تلقائي يعني ارسل مفتاح انتر بعد جلب البيانات 
الرد
تم الشكر بواسطة:
#4
PHP كود :
SendKeys.Send("{Enter}"
صلى الله على نبينا محمد
اخيكم / محمود صالح
  قال الزهري رحمه الله  
 مــا عُـــبـِد الله بشئ أفضل من العلم 
الرد
تم الشكر بواسطة:
#5
اقرأ هذا الموضوع
كيف أعرض البينات بعد قراءة الباركود
الرد
تم الشكر بواسطة:
#6
(08-02-18, 11:52 PM)طالب برمجة كتب : اقرأ هذا الموضوع
كيف أعرض البينات بعد قراءة الباركود
أخى طالب برمجة شكرا على ردك ولكن لا أعلم هل كل قارئ باركود يرسل انتر بعد القراءة لان الكود يستلزم منى الضغط على مفتاح انتر يدويا أنا أريد أن يكون تلقائي ولا أدرى لماذا لا يعمل معى
الرد
تم الشكر بواسطة:
#7
(08-02-18, 03:27 PM)وسام عبدالله الدمرداش كتب : السلام عليكم ورحمة الله وبركاتة أخواني وأخواتى 
أرجوا الافادة فى أي حدث أضع كود الاستعلام عن باركود موظف 
مع ملاحظة الاتى 
1- أنا أستعلم من جدول الموظفين عن كود الموظف وعن اسمه
2- أقوم بعمليات أخرى على الفورم وأضع ناتج العمليات الاخرى 
في listview بعد الاستعلام عن موظف بالتوالى
المشكلة عندى هى أنني عندما أقوم بوضع الكود فى حدث textchanged
تحدث مشكلة وهى أى حركة فى هذا الحدث تنتج ازدواجية فى التسجيل 
فهل المشكلة فى الحدث أم الباركود ساضع لكم كود الاستعلام مع صور للتوضيح
لكي تعلموني أين المشكلة.
 If Len(Trim(CmbWTime.Text)) = 0 Then
                MessageBox.Show("من فضلك حدد فترة الدوام", "منظومة الدمرداش المدرسية", MessageBoxButtons.OK, MessageBoxIcon.Warning)
                CmbWTime.Focus()
                Exit Sub
            End If
            con = New SqlConnection(cs)
            con.Open()
            Dim strQ As String = String.Empty
            Dim cmd0 As SqlCommand
            Dim da As SqlDataAdapter
            Dim ds As DataSet
            strQ = " Select EmpCode,EmpName from Employees where EmpCode='" + TxtCode.Text + "'"
            cmd0 = New SqlCommand(strQ, con)
            da = New SqlDataAdapter(cmd0)
            ds = New DataSet
            da.Fill(ds, "Employees")
            If ds.Tables(0).Rows.Count > 0 Then
                txtEmpCode.Text = ds.Tables(0).Rows(0)("EmpCode").ToString()
                TxtEmpName.Text = ds.Tables(0).Rows(0)("EmpName").ToString()
else

exit sub
            End If
            If TeMAL.Text = "لم يبدأ الدوام" Then
                Exit Sub
            ElseIf TeMAL.Text = "حضـر الموظف" Then
                'كود الإضافة إلى الليست فيو
                Dim temp As Integer
                temp = ListView1.Items.Count()
                If temp = 0 Then
                    Dim i As Integer
                    Dim lst As New ListViewItem(i)
                    lst.SubItems.Add(txtEmpCode.Text) 'كود الموظف
                    lst.SubItems.Add(TxtEmpName.Text) 'اسم الموظف
                    lst.SubItems.Add(Label9.Text) 'وقت الحضور
                    lst.SubItems.Add("بالدوام") 'وقت الإنصراف
                    lst.SubItems.Add(TeMAL.Text) 'حالة الموظف
                    lst.SubItems.Add(Label5.Text) ' تاريخ الحضور
                    lst.SubItems.Add(Label8.Text) ' يوم الحضور
                    lst.SubItems.Add(CmbWTime.Text) ' فترة الحضور
                    lst.SubItems.Add(RichTextBox1.Text) ' ملاحظات
                    lst.SubItems.Add("حضر بالميعاد") ' حالة الغياب
                    lst.SubItems.Add(LateTime.Text) ' معدل التأخير
                    ListView1.Items.Add(lst)
                    i = i + 1
                    TxtCode.SelectAll()
                    txtEmpCode.Text = ""
                    TxtEmpName.Text = ""
                    Exit Sub
                End If
                For j = 0 To temp - 1
                    If (ListView1.Items(j).SubItems(1).Text = txtEmpCode.Text) And (ListView1.Items(j).SubItems(6).Text = Label5.Text) Then
                        If MessageBox.Show("هذا الموظف لايمكن تسجيلة مرتين", "منظومة الدمرداش المدرسية", MessageBoxButtons.OK, MessageBoxIcon.Error) = DialogResult.OK Then
                            TxtCode.Clear()
                            TxtCode.Focus()
                        End If
                        Exit Sub
                    End If
                Next j
                Dim k As Integer
                Dim lst1 As New ListViewItem(k)
                lst1.SubItems.Add(txtEmpCode.Text) 'كود الموظف
                lst1.SubItems.Add(TxtEmpName.Text) 'اسم الموظف
                lst1.SubItems.Add(Label9.Text) 'وقت الحضور
                lst1.SubItems.Add("بالدوام") 'وقت الإنصراف
                lst1.SubItems.Add(TeMAL.Text) 'حالة الموظف
                lst1.SubItems.Add(Label5.Text) ' تاريخ الحضور
                lst1.SubItems.Add(Label8.Text) ' يوم الحضور
                lst1.SubItems.Add(CmbWTime.Text) ' فترة الحضور
                lst1.SubItems.Add(RichTextBox1.Text) ' ملاحظات
                lst1.SubItems.Add("حضر بالميعاد") ' حالة الغياب
                lst1.SubItems.Add(LateTime.Text) ' معدل التأخير
                ListView1.Items.Add(lst1)
                k = k + 1
                TxtCode.SelectAll()
                txtEmpCode.Text = ""
                TxtEmpName.Text = ""

            ElseIf TeMAL.Text = "تأخر الموظف" Then
                'كود الإضافة إلى الليست فيو
                Dim temp As Integer
                temp = ListView1.Items.Count()
                If temp = 0 Then
                    Dim i As Integer
                    Dim lst As New ListViewItem(i)
                    lst.SubItems.Add(txtEmpCode.Text) 'كود الموظف
                    lst.SubItems.Add(TxtEmpName.Text) 'اسم الموظف
                    lst.SubItems.Add(Label9.Text) 'وقت الحضور
                    lst.SubItems.Add("بالدوام") 'وقت الإنصراف
                    lst.SubItems.Add(TeMAL.Text) 'حالة الموظف
                    lst.SubItems.Add(Label5.Text) ' تاريخ الحضور
                    lst.SubItems.Add(Label8.Text) ' يوم الحضور
                    lst.SubItems.Add(CmbWTime.Text) ' فترة الحضور
                    lst.SubItems.Add(RichTextBox1.Text) ' ملاحظات
                    lst.SubItems.Add("حضر متأخرا") ' حالة الغياب
                    lst.SubItems.Add(LateTime.Text) ' معدل التأخير
                    ListView1.Items.Add(lst)
                    i = i + 1
                    TxtCode.SelectAll()
                    txtEmpCode.Text = ""
                    TxtEmpName.Text = ""
                    Exit Sub
                End If
                For j = 0 To temp - 1
                    If (ListView1.Items(j).SubItems(1).Text = txtEmpCode.Text) And (ListView1.Items(j).SubItems(6).Text = Label5.Text) Then
                        MessageBox.Show("هذا الموظف لايمكن تسجيلة مرتين", "منظومة الدمرداش المدرسية", MessageBoxButtons.OK, MessageBoxIcon.Error)
                        TxtCode.SelectAll()
                        Exit Sub
                    End If
                Next j
                Dim k As Integer
                Dim lst1 As New ListViewItem(k)
                lst1.SubItems.Add(txtEmpCode.Text) 'كود الموظف
                lst1.SubItems.Add(TxtEmpName.Text) 'اسم الموظف
                lst1.SubItems.Add(Label9.Text) 'وقت الحضور
                lst1.SubItems.Add("بالدوام") 'وقت الإنصراف
                lst1.SubItems.Add(TeMAL.Text) 'حالة الموظف
                lst1.SubItems.Add(Label5.Text) ' تاريخ الحضور
                lst1.SubItems.Add(Label8.Text) ' يوم الحضور
                lst1.SubItems.Add(CmbWTime.Text) ' فترة الحضور
                lst1.SubItems.Add(RichTextBox1.Text) ' ملاحظات
                lst1.SubItems.Add("حضر متأخرا") ' حالة الغياب
                lst1.SubItems.Add(LateTime.Text) ' معدل التأخير
                ListView1.Items.Add(lst1)
                k = k + 1
                TxtCode.SelectAll()
                txtEmpCode.Text = ""
                TxtEmpName.Text = ""

            ElseIf TeMAL.Text = "إنتهى الدوام" Then
                Exit Sub
            End If
            TxtCode.Clear()
            TxtCode.Focus()

تم الحل باللون الاحمر يرجى التجربة

او عليك باضافة

 else

exit sub




انسخ هذا الحل واستبدله بالاعلى 

If ds.Tables(0).Rows.Count > 0 Then
                txtEmpCode.Text = ds.Tables(0).Rows(0)("EmpCode").ToString()
                TxtEmpName.Text = ds.Tables(0).Rows(0)("EmpName").ToString()
else

exit sub
            End If
الرد
تم الشكر بواسطة: وسام عبدالله الدمرداش
#8
(10-02-18, 04:13 AM)مصمم الدوادمي كتب :
(08-02-18, 03:27 PM)وسام عبدالله الدمرداش كتب : السلام عليكم ورحمة الله وبركاتة أخواني وأخواتى 
أرجوا الافادة فى أي حدث أضع كود الاستعلام عن باركود موظف 
مع ملاحظة الاتى 
1- أنا أستعلم من جدول الموظفين عن كود الموظف وعن اسمه
2- أقوم بعمليات أخرى على الفورم وأضع ناتج العمليات الاخرى 
في listview بعد الاستعلام عن موظف بالتوالى
المشكلة عندى هى أنني عندما أقوم بوضع الكود فى حدث textchanged
تحدث مشكلة وهى أى حركة فى هذا الحدث تنتج ازدواجية فى التسجيل 
فهل المشكلة فى الحدث أم الباركود ساضع لكم كود الاستعلام مع صور للتوضيح
لكي تعلموني أين المشكلة.
 If Len(Trim(CmbWTime.Text)) = 0 Then
                MessageBox.Show("من فضلك حدد فترة الدوام", "منظومة الدمرداش المدرسية", MessageBoxButtons.OK, MessageBoxIcon.Warning)
                CmbWTime.Focus()
                Exit Sub
            End If
            con = New SqlConnection(cs)
            con.Open()
            Dim strQ As String = String.Empty
            Dim cmd0 As SqlCommand
            Dim da As SqlDataAdapter
            Dim ds As DataSet
            strQ = " Select EmpCode,EmpName from Employees where EmpCode='" + TxtCode.Text + "'"
            cmd0 = New SqlCommand(strQ, con)
            da = New SqlDataAdapter(cmd0)
            ds = New DataSet
            da.Fill(ds, "Employees")
            If ds.Tables(0).Rows.Count > 0 Then
                txtEmpCode.Text = ds.Tables(0).Rows(0)("EmpCode").ToString()
                TxtEmpName.Text = ds.Tables(0).Rows(0)("EmpName").ToString()
else

exit sub
            End If
            If TeMAL.Text = "لم يبدأ الدوام" Then
                Exit Sub
            ElseIf TeMAL.Text = "حضـر الموظف" Then
                'كود الإضافة إلى الليست فيو
                Dim temp As Integer
                temp = ListView1.Items.Count()
                If temp = 0 Then
                    Dim i As Integer
                    Dim lst As New ListViewItem(i)
                    lst.SubItems.Add(txtEmpCode.Text) 'كود الموظف
                    lst.SubItems.Add(TxtEmpName.Text) 'اسم الموظف
                    lst.SubItems.Add(Label9.Text) 'وقت الحضور
                    lst.SubItems.Add("بالدوام") 'وقت الإنصراف
                    lst.SubItems.Add(TeMAL.Text) 'حالة الموظف
                    lst.SubItems.Add(Label5.Text) ' تاريخ الحضور
                    lst.SubItems.Add(Label8.Text) ' يوم الحضور
                    lst.SubItems.Add(CmbWTime.Text) ' فترة الحضور
                    lst.SubItems.Add(RichTextBox1.Text) ' ملاحظات
                    lst.SubItems.Add("حضر بالميعاد") ' حالة الغياب
                    lst.SubItems.Add(LateTime.Text) ' معدل التأخير
                    ListView1.Items.Add(lst)
                    i = i + 1
                    TxtCode.SelectAll()
                    txtEmpCode.Text = ""
                    TxtEmpName.Text = ""
                    Exit Sub
                End If
                For j = 0 To temp - 1
                    If (ListView1.Items(j).SubItems(1).Text = txtEmpCode.Text) And (ListView1.Items(j).SubItems(6).Text = Label5.Text) Then
                        If MessageBox.Show("هذا الموظف لايمكن تسجيلة مرتين", "منظومة الدمرداش المدرسية", MessageBoxButtons.OK, MessageBoxIcon.Error) = DialogResult.OK Then
                            TxtCode.Clear()
                            TxtCode.Focus()
                        End If
                        Exit Sub
                    End If
                Next j
                Dim k As Integer
                Dim lst1 As New ListViewItem(k)
                lst1.SubItems.Add(txtEmpCode.Text) 'كود الموظف
                lst1.SubItems.Add(TxtEmpName.Text) 'اسم الموظف
                lst1.SubItems.Add(Label9.Text) 'وقت الحضور
                lst1.SubItems.Add("بالدوام") 'وقت الإنصراف
                lst1.SubItems.Add(TeMAL.Text) 'حالة الموظف
                lst1.SubItems.Add(Label5.Text) ' تاريخ الحضور
                lst1.SubItems.Add(Label8.Text) ' يوم الحضور
                lst1.SubItems.Add(CmbWTime.Text) ' فترة الحضور
                lst1.SubItems.Add(RichTextBox1.Text) ' ملاحظات
                lst1.SubItems.Add("حضر بالميعاد") ' حالة الغياب
                lst1.SubItems.Add(LateTime.Text) ' معدل التأخير
                ListView1.Items.Add(lst1)
                k = k + 1
                TxtCode.SelectAll()
                txtEmpCode.Text = ""
                TxtEmpName.Text = ""

            ElseIf TeMAL.Text = "تأخر الموظف" Then
                'كود الإضافة إلى الليست فيو
                Dim temp As Integer
                temp = ListView1.Items.Count()
                If temp = 0 Then
                    Dim i As Integer
                    Dim lst As New ListViewItem(i)
                    lst.SubItems.Add(txtEmpCode.Text) 'كود الموظف
                    lst.SubItems.Add(TxtEmpName.Text) 'اسم الموظف
                    lst.SubItems.Add(Label9.Text) 'وقت الحضور
                    lst.SubItems.Add("بالدوام") 'وقت الإنصراف
                    lst.SubItems.Add(TeMAL.Text) 'حالة الموظف
                    lst.SubItems.Add(Label5.Text) ' تاريخ الحضور
                    lst.SubItems.Add(Label8.Text) ' يوم الحضور
                    lst.SubItems.Add(CmbWTime.Text) ' فترة الحضور
                    lst.SubItems.Add(RichTextBox1.Text) ' ملاحظات
                    lst.SubItems.Add("حضر متأخرا") ' حالة الغياب
                    lst.SubItems.Add(LateTime.Text) ' معدل التأخير
                    ListView1.Items.Add(lst)
                    i = i + 1
                    TxtCode.SelectAll()
                    txtEmpCode.Text = ""
                    TxtEmpName.Text = ""
                    Exit Sub
                End If
                For j = 0 To temp - 1
                    If (ListView1.Items(j).SubItems(1).Text = txtEmpCode.Text) And (ListView1.Items(j).SubItems(6).Text = Label5.Text) Then
                        MessageBox.Show("هذا الموظف لايمكن تسجيلة مرتين", "منظومة الدمرداش المدرسية", MessageBoxButtons.OK, MessageBoxIcon.Error)
                        TxtCode.SelectAll()
                        Exit Sub
                    End If
                Next j
                Dim k As Integer
                Dim lst1 As New ListViewItem(k)
                lst1.SubItems.Add(txtEmpCode.Text) 'كود الموظف
                lst1.SubItems.Add(TxtEmpName.Text) 'اسم الموظف
                lst1.SubItems.Add(Label9.Text) 'وقت الحضور
                lst1.SubItems.Add("بالدوام") 'وقت الإنصراف
                lst1.SubItems.Add(TeMAL.Text) 'حالة الموظف
                lst1.SubItems.Add(Label5.Text) ' تاريخ الحضور
                lst1.SubItems.Add(Label8.Text) ' يوم الحضور
                lst1.SubItems.Add(CmbWTime.Text) ' فترة الحضور
                lst1.SubItems.Add(RichTextBox1.Text) ' ملاحظات
                lst1.SubItems.Add("حضر متأخرا") ' حالة الغياب
                lst1.SubItems.Add(LateTime.Text) ' معدل التأخير
                ListView1.Items.Add(lst1)
                k = k + 1
                TxtCode.SelectAll()
                txtEmpCode.Text = ""
                TxtEmpName.Text = ""

            ElseIf TeMAL.Text = "إنتهى الدوام" Then
                Exit Sub
            End If
            TxtCode.Clear()
            TxtCode.Focus()

تم الحل باللون الاحمر يرجى التجربة

او عليك باضافة

 else

exit sub




انسخ هذا الحل واستبدله بالاعلى 

If ds.Tables(0).Rows.Count > 0 Then
                txtEmpCode.Text = ds.Tables(0).Rows(0)("EmpCode").ToString()
                TxtEmpName.Text = ds.Tables(0).Rows(0)("EmpName").ToString()
else

exit sub
            End If

الف شكر أخى مشعل لساني عاجز عن الشكر تم الحل
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Thumbs Up اهل الخبره ارجوا الافادة وهج الصحراء 0 67 06-10-20, 05:58 PM
آخر رد: وهج الصحراء
  المساعدة بكود استعلام khaled Mohammed 3 238 15-09-20, 08:42 AM
آخر رد: Anas Mahmoud
  كيف ادمج استعلامين استعلام يخص الاعمده و الاخر يخص الصفوف بسام محمدغانم 4 368 27-08-20, 05:40 PM
آخر رد: بسام محمدغانم
  [سؤال] طباعة الباركود ليبل Moham 6 596 26-06-20, 01:30 PM
آخر رد: Moham
Heart التعديل على استعلام التحديث في قاعدة البيانات alshandodi 3 357 22-06-20, 12:45 AM
آخر رد: alshandodi
  تنفيذ استعلام حذف البيانات في جدول قاعدة بيانات سيكوال سيرفر باستخدام الكود في فجوال momani33 4 380 28-05-20, 12:46 AM
آخر رد: اسامه الهرماوي
Heart مشكلة عدم قراءة الباركود بالكامل Hazem1 3 418 07-05-20, 07:00 PM
آخر رد: Hazem1
  سؤال في استعلام الانظمام الخارجي اوراكل بسام محمدغانم 0 185 05-05-20, 05:16 AM
آخر رد: بسام محمدغانم
  اريد صيغة استعلام sum بسام محمدغانم 0 204 01-05-20, 03:45 AM
آخر رد: بسام محمدغانم
  الباركود المرفق ازاى اقدر اصممة new_programer 7 578 07-04-20, 02:26 PM
آخر رد: asemshahen5

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


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