Mr.Wessam Abdallah Ответов: 2

Пожалуйста, помогите мне в моем коде (код сканирования штрих-кода)

The code below is 100% correct and fetches data from the database. It also fetches data from the form and then places it in List View when copying the code into a textbox. However, when using the bar code reader, the user code does not appear and the username does not appear on the list. Is the problem in the event of Text changed or what?


Что я уже пробовал:

<pre>   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 Ответов

Рейтинг:
6

OriginalGriff

Этот код далеко не "100% правильный". Это опасно, и рискует вашей базой данных каждый раз, когда пользователь запускает ее.

Никогда не объединяйте строки для построения команды SQL. Это оставляет вас широко открытыми для случайной или преднамеренной атаки SQL-инъекции, которая может уничтожить всю вашу базу данных. Вместо этого используйте параметризованные запросы.

Когда вы объединяете строки, вы вызываете проблемы, потому что SQL получает такие команды, как:

SELECT * FROM MyTable WHERE StreetAddress = 'Baker's Wood'
Цитата, добавленная пользователем, завершает строку в том, что касается SQL, и вы получаете проблемы. Но могло быть и хуже. Если я приду и наберу вместо этого: "x';DROP TABLE MyTable;--", то SQL получит совсем другую команду:
SELECT * FROM MyTable WHERE StreetAddress = 'x';DROP TABLE MyTable;--'
Которые SQL видит как три отдельные команды:
SELECT * FROM MyTable WHERE StreetAddress = 'x';
Совершенно правильный выбор
DROP TABLE MyTable;
Вполне допустимая команда "удалить таблицу" 
--'
А все остальное-это комментарии.
Так оно и происходит: выбирает любые совпадающие строки, удаляет таблицу из базы данных и игнорирует все остальное.

Поэтому всегда используйте параметризованные запросы! Или будьте готовы часто восстанавливать свою БД из резервной копии. Вы ведь регулярно делаете резервные копии, не так ли?

Когда вы пройдете через все ваше приложение и исправите все вхождения этого, используйте отладчик, чтобы точно посмотреть, что происходит во время запуска вашего приложения. Поскольку проблема зависит от данных, к которым у нас нет доступа, мы не можем сделать это за вас - так что это будет зависеть от вас.
К счастью, у вас есть инструмент, который поможет вам выяснить, что происходит: отладчик. Как вы его используете, зависит от вашей системы компилятора, но быстрый поиск в Google имени вашей IDE и "отладчика" должен дать вам необходимую информацию.

Поместите точку останова в первую строку функции и запустите код через отладчик. Затем посмотрите на свой код и на свои данные и определите, что должно произойти вручную. Затем по одному шагу в каждой строке проверяйте, что то, что вы ожидали, произойдет именно так, как и произошло. Когда это не так, тогда у вас есть проблема, и вы можете вернуться назад (или запустить ее снова и посмотреть более внимательно), чтобы выяснить, почему.

Извините, но мы не можем сделать это за вас - пришло время вам освоить новый (и очень, очень полезный) навык: отладку!

Рейтинг:
18

Patrice T

Цитата:
Приведенный ниже код на 100% корректен и извлекает данные из базы данных.

Нет, это не так.
strQ = " Select EmpCode,EmpName from Employees where EmpCode='" + TxtCode.Text + "'"

Не решение вашего вопроса, а еще одна проблема, которая у вас есть.
Никогда не создавайте SQL-запрос путем объединения строк. Рано или поздно вы сделаете это с помощью пользовательских вводов, и это откроет дверь к уязвимости под названием "SQL-инъекция", она опасна для вашей базы данных и подвержена ошибкам.
Одна кавычка в имени - и ваша программа выйдет из строя. Если пользователь вводит имя, например "Брайан О'Коннер", может привести к сбою вашего приложения, это уязвимость SQL-инъекции, и сбой-это наименьшая из проблем, вредоносный пользовательский ввод, и он продвигается к командам SQL со всеми учетными данными.
SQL-инъекция - Википедия[^]
SQL-инъекция[^]
Атаки SQL-инъекций на примере[^]
PHP: SQL-инъекция - руководство пользователя[^]
Шпаргалка по предотвращению инъекций SQL - OWASP[^]