prod-SerialAssigner/MAXIMUM_Product_Program/LoginForm.vb

Public Class LoginForm

    ' TODO: <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20≯<EFBFBD><CCB8><EFBFBD> <20><>ȣ<EFBFBD><C8A3> <20><><EFBFBD><EFBFBD><EFBFBD>Ͽ<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>ϴ<EFBFBD> <20>ڵ带 <20><><EFBFBD><EFBFBD><EFBFBD>մϴ<D5B4>
    ' (https://go.microsoft.com/fwlink/?LinkId=35339 <20><><EFBFBD><EFBFBD>).  
    ' <20>׷<EFBFBD><D7B7><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><>ü<EFBFBD><C3BC> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><>ü<EFBFBD><C3BC> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> ÷<>ε<EFBFBD> <20><> <20>ֽ<EFBFBD><D6BD>ϴ<EFBFBD>. 
    '     My.User.CurrentPrincipal = CustomPrincipal
    ' <20><><EFBFBD>⼭ CustomPrincipal<61><6C> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>ϴ<EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD>Ǵ<EFBFBD> IPrincipal<61><6C> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>Դϴ<D4B4>. 
    ' <20><><EFBFBD>߿<EFBFBD> My.User<65><72> CustomPrincipal <20><>ü<EFBFBD><C3BC> ĸ<><C4B8>ȭ<EFBFBD><C8AD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20≯<EFBFBD>, ǥ<><C7A5> <20≯<EFBFBD> <20><><EFBFBD><EFBFBD>
    ' ID <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><>ȯ<EFBFBD>մϴ<D5B4>.
    Public Structure UserData
        Public UserID As String
        Public UserPW As String
        Public IDType As String
        Public ExtPermition As String
        Public NowState As Int16
    End Structure
    Public UserInfo As UserData
    Private Const InfoTypeNumber As String = "10"

    Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click

        Try
            With UserInfo
                .UserID = String.Empty
                .UserPW = String.Empty
                .IDType = String.Empty
                .ExtPermition = String.Empty
            End With

            Dim DBCmd As String = "SELECT UserID,UserPW,IDType,ExtPermition,NowState FROM " & LoginDB & " WHERE UserID = '" & txbUserID.Text & "'"
            If DBQueryReader(DBCmd) Then
                UserInfo.UserID = sqlDataQuery(0)
                UserInfo.UserPW = sqlDataQuery(1)
                UserInfo.IDType = sqlDataQuery(2)
                UserInfo.ExtPermition = sqlDataQuery(3)
                UserInfo.NowState = sqlDataQuery(4)

                If UserInfo.UserPW = txbUserPW.Text Then
                    If UserInfo.IDType = InfoTypeNumber Then
                        If UserInfo.NowState <> 1 Then

                            If NowStateUpdate() Then
                                MsgBox("<EFBFBD>α<EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>߻<EFBFBD><DFBB>Ͽ<EFBFBD><CFBF><EFBFBD><EFBFBD>ϴ<EFBFBD>.", vbCritical)
                                GoTo FailFunc
                            End If

                            MainForm.Show()
                            Me.Hide()
                            Exit Sub

                        Else
                            MsgBox("<EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>Դϴ<D4B4>.", vbExclamation)
                            GoTo FailFunc
                        End If
                    Else
                        GoTo loginFail
                    End If
                Else
                    GoTo loginFail
                End If
            Else
                GoTo loginFail
            End If
        Catch ex As Exception
            GoTo loginFail
        End Try

loginFail:
        MsgBox("<EFBFBD><EFBFBD><EFBFBD>̵<EFBFBD> <20><> <20><><EFBFBD>й<EFBFBD>ȣ<EFBFBD><C8A3> <20>߸<EFBFBD><DFB8>Ǿ<EFBFBD><C7BE><EFBFBD><EFBFBD>ϴ<EFBFBD>.", vbExclamation)
FailFunc:
        txbUserID.Text = String.Empty
        txbUserPW.Text = String.Empty
        txbUserID.Focus()
    End Sub

    Private Function NowStateUpdate() As Boolean
        Dim DBCmd As String = "UPDATE " & LoginDB & " SET NowState = '1' WHERE UserID = '" & txbUserID.Text & "'"
        If DBCommand(DBCmd) Then
            Return False
        Else
            Return True
        End If
    End Function

    Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click
        Me.Close()
    End Sub

    Private Sub LoginForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub
End Class