Public Class ManagerLogin

    ' TODO: 제공된 사용자 이름과 암호를 사용하여 사용자 지정 인증을 수행하는 코드를 삽입합니다
    ' (https://go.microsoft.com/fwlink/?LinkId=35339 참조).  
    ' 그러면 사용자 지정 보안 주체가 현재 스레드의 보안 주체에 다음과 같이 첨부될 수 있습니다. 
    '     My.User.CurrentPrincipal = CustomPrincipal
    ' 여기서 CustomPrincipal은 인증을 수행하는 데 사용되는 IPrincipal이 구현된 것입니다. 
    ' 나중에 My.User는 CustomPrincipal 개체에 캡슐화된 사용자 이름, 표시 이름 등의
    ' ID 정보를 반환합니다.

    Private managerID As String = "admin"
    Private managerPW As String = "1233"

    Private Sub ManagerLogin_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.Text = Main_Form.programName & Main_Form.programVer & "-ManagerLogin"
        txbManagerID.Text = String.Empty
        txbManagerPW.Text = String.Empty
    End Sub

    Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
        If txbManagerID.Text = String.Empty Or txbManagerPW.Text = String.Empty Then
            MsgBox("아이디 혹은 비밀번호를 입력하지 않았습니다.", vbExclamation)
            Exit Sub
        End If

        If txbManagerID.Text <> managerID Or txbManagerPW.Text <> managerPW Then
            MsgBox("아이디 혹은 비밀번호가 옳지 않습니다.", vbExclamation)
            Exit Sub
        End If

        Me.DialogResult = DialogResult.OK
    End Sub

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

    Private Sub LogoPictureBox_DoubleClick(sender As Object, e As EventArgs) Handles LogoPictureBox.DoubleClick
        MsgBox("MQTT Broker : " & Main_Form.mqttBroker & vbCrLf & "MQTT Topic : " & Main_Form.mqttTopic & vbCrLf & "MQTT Connection : " & Main_Form.mqttNowConnect, vbInformation)
    End Sub
End Class