Создание сообщения об ошибке для повторения входных или выходных циклов if в таблице базы данных

Question

Добрый день, чтобы прояснить ситуацию, я представлю свою текущую систему, которая называется "Выезд учащегося в наш университет", эта система состоит из считывателя RFID RC522 и Arduino, студент должен нажать на свою метку RFID и показать полученные данные. на мониторе. Система является нашим проектом-замкнутым камнем, и это сделано, но группа потребовала, чтобы мы решили еще одну проблему.

Все функции по сканированию, извлечению данных, регистрации учеников уже выполнены, это относится к учащимся колледжа, которые могут свободно выходить на улицу и в любое время зависят от расписания, в отличие от старших классов, только один вход и выход.

Два RFID-считывателя размещены на входе и выходе из Университета, где есть система для выхода на входе и для входа на вход. Данные, полученные с входа и выхода, сохранятся в одной таблице. Как я могу показать предупреждение в окне сообщения студентам, если он сначала нажмет IN, но не выйдет? Я знаю это что-то о запросе. но я понятия не имею. Мне нужна некоторая помощь здесь для моего Capstone. Любые комментарии и предложения приветствуются. Вот мой код для извлечения данных на основе номера RFID-тега, показанного в событии измененного текстового поля. один занимался посещаемостью.

Private Sub studtag_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles studtag.TextChanged

    Notenrolled.Close()
    greet.Text = ""
    PictureBox4.Visible = False

    If studtag.Text = "44F2F38B" Then

        Endday()

    End If


    If studtag.Text = recents.Text Then

        Alreadylogin.Show()
    ElseIf studtag.TextLength = 8 Then

        DataGridView1.Sort(DataGridView1.Columns(6), System.ComponentModel.ListSortDirection.Descending)
        con = New MySqlConnection
        con.ConnectionString = "server=localhost;userid=root;password=1234;database=dat"
        Dim query As String

        query = "select * from dat.students"
        cmd = New MySqlCommand(query, con)

        Dim table As New DataTable

        Try
            con.Open()
            'Gets or sets an SQL statement or stored procedure used to select records in the database.
            With cmd
                .Connection = con
                .CommandText = "SELECT * from students where `studtags`='" & studtag.Text & "';"
            End With
            da.SelectCommand = cmd
            da.Fill(table)
            'it gets the data from specific column and fill it into Label

            idno.Text = table.Rows(0).Item(1)
            lastxt.Text = table.Rows(0).Item(2)
            firstxt.Text = table.Rows(0).Item(3)
            middletxt.Text = table.Rows(0).Item(4)
            dob.Text = table.Rows(0).Item(6)
            year.Text = table.Rows(0).Item(7)
            crsetxt.Text = table.Rows(0).Item(10)

            tagtxt.Text = studtag.Text
            timein.Text = times.Text

            dr = cmd.ExecuteReader()
            dr.Read()

            If dob.Text = bday.Text Then
                greet.Text = firstxt.Text + " Today is your Birthday. Greetings :D."
                PictureBox4.Visible = True

            End If

            Dim img() As Byte = CType(dr("studpic"), Byte())


            Using ms As New IO.MemoryStream(img)
                PictureBox1.Image = Image.FromStream(ms)

            End Using
            My.Computer.Audio.Play("C:\Users\BOR\Desktop\Parsu Gate\Parsu\audio\scanned.wav")
            insert()
            loadtable()
            studdailyhistory()


        Catch ex As Exception
            Notenrolled.Show()
            DataGridView1.Sort(DataGridView1.Columns(5), System.ComponentModel.ListSortDirection.Descending)
            If studtag.Text = "44F2F38B" Then
                Notenrolled.Close()
            End If


        Finally

            con.Dispose()
            con.Close()

        End Try

    End If
    recents.Text = tagtxt.Text



End Sub

Public Sub insert()

    con = New MySqlConnection
    con.ConnectionString = "server=localhost;userid=root;password=1234;database=dat"
    Dim reader As MySqlDataReader
    Dim mstream As New System.IO.MemoryStream()

    Dim arrImage() As Byte = mstream.GetBuffer()
    mstream.Close()

    Try

        con.Open()
        Dim query3 As String

        query3 = "insert into dat.studlogs (studtags,idno,lastxt,firstxt,middletxt,dob,log,timein,crse,studpic) values ('" & tagtxt.Text & "','" & idno.Text & "','" & lastxt.Text & "','" & firstxt.Text & "','" & middletxt.Text & "','" & dob.Text & "','" & log.Text & "','" & timein.Text & "','" & crsetxt.Text & "',@studpic)"
        cmd = New MySqlCommand(query3, con)
        cmd.Parameters.AddWithValue("@studpic", arrImage)
        reader = cmd.ExecuteReader


        con.Close()
    Catch ex As Exception
        MessageBox.Show(ex.Message)
    Finally
        con.Dispose()
    End Try

End Sub


Public Sub studdailyhistory()

    con = New MySqlConnection
    con.ConnectionString = "server=localhost;userid=root;password=1234;database=dat"
    Dim reader As MySqlDataReader
    Dim mstream As New System.IO.MemoryStream()

    Dim arrImage() As Byte = mstream.GetBuffer()
    mstream.Close()

    Try

        con.Open()
        Dim query3 As String

        query3 = "insert into dat.studdailyhistory (studtags,idno,lastxt,firstxt,middletxt,dob,log,timein,crse,dates,studpic) values ('" & tagtxt.Text & "','" & idno.Text & "','" & lastxt.Text & "','" & firstxt.Text & "','" & middletxt.Text & "','" & dob.Text & "','" & log.Text & "','" & timein.Text & "','" & crsetxt.Text & "','" & wholedate.Text & "',@studpic)"
        cmd = New MySqlCommand(query3, con)
        cmd.Parameters.AddWithValue("@studpic", arrImage)
        reader = cmd.ExecuteReader

        con.Close()
    Catch ex As Exception
        MessageBox.Show(ex.Message)
    Finally
        con.Dispose()
    End Try

End Sub

Public Sub loadtable()

    con = New MySqlConnection
    con.ConnectionString = "server=localhost;userid=root;password=1234;database=dat"
    Dim SDA As New MySqlDataAdapter
    Dim dbDataset As New DataTable
    Dim bSource As New BindingSource

    Try

        con.Open()
        Dim query3 As String

        query3 = "select idno as 'Student_ID',lastxt as 'LastName',firstxt as 'FirstName',middletxt as 'MiddleName',log as 'Status',timein as 'Timein',crse as 'Course' from dat.studlogs"
        cmd = New MySqlCommand(query3, con)
        SDA.SelectCommand = cmd
        SDA.Fill(dbDataset)
        bSource.DataSource = dbDataset
        DataGridView1.DataSource = bSource
        SDA.Update(dbDataset)

        DataGridView1.Sort(DataGridView1.Columns(5), System.ComponentModel.ListSortDirection.Descending)

        If dbDataset.Rows.Count > 0 Then
            logins.Text = dbDataset.Rows.Count.ToString()
        End If

        con.Close()
    Catch ex As Exception
        MessageBox.Show(ex.Message)
    Finally
        con.Dispose()
    End Try
End Sub

Answer 1

Я не уверен, что правильно понимаю, но, думаю, вы не хотите, чтобы ученик мог вдвоем включиться без выключения. У вас есть несколько вариантов. Самое простое, вы можете использовать поле статуса в вашей базе данных. Когда часы учащегося введены, сохраните "status"=1 (студент на месте), а на тайм-ауте "status"=0 (студент не на месте). При каждом входе и выходе вы проверяете статус ученика. Если 1, то не может снова войти, так как она / он уже на месте. Или вы сохраняете в журнале, когда они нажимают, что это был вход или выход, и когда вы запрашиваете таблицу у ученика, вы упорядочиваете таблицу по времени последней вставки, чтобы появилась последняя запись, где вы видите последнее состояние журнала.

Редактировать: добавить дополнительный столбец типа bool в вашей базе данных в таблицу учеников, например "studOnsite", и установить значение по умолчанию 0. Когда ученик сканирует карточку, и вы получаете данные ученика из таблицы здесь:

.CommandText = "SELECT * from students where `studtags`='" & studtag.Text & "';"

Вы также вернётесь к колонке "studOnsite". После вы можете просто проверить значение как:

if (table.Rows(0).Item("studOnsite") then 
   'student already onsite so she/he is leaving
   greet.Text = firstxt.Text & "Good bye!"
   'update the student table and change "studOnsite" to false
   'dim query as string=string.format("UPDATE students SET studOnsite=false WHERE studtags='{0}'",studtag.Text)
else 
   'student wasn't onsite so she/he is just arrived
   greet.Text = firstxt.Text & "Welcome back!"
   'update the student table and change "studOnsite" to true as student is onsite now
   'dim query as string=string.format("UPDATE students SET studOnsite=true WHERE studtags='{0}'",studtag.Text)
end if