42 lines
1.9 KiB
VB.net
42 lines
1.9 KiB
VB.net
|
Public Class ManagerLogin
|
|||
|
|
|
|||
|
|
' 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>.
|
|||
|
|
|
|||
|
|
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("<EFBFBD><EFBFBD><EFBFBD>̵<EFBFBD> Ȥ<><C8A4> <20><><EFBFBD>й<EFBFBD>ȣ<EFBFBD><C8A3> <20>Է<EFBFBD><D4B7><EFBFBD><EFBFBD><EFBFBD> <20>ʾҽ<CABE><D2BD>ϴ<EFBFBD>.", vbExclamation)
|
|||
|
|
Exit Sub
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
If txbManagerID.Text <> managerID Or txbManagerPW.Text <> managerPW Then
|
|||
|
|
MsgBox("<EFBFBD><EFBFBD><EFBFBD>̵<EFBFBD> Ȥ<><C8A4> <20><><EFBFBD>й<EFBFBD>ȣ<EFBFBD><C8A3> <20><><EFBFBD><EFBFBD> <20>ʽ<EFBFBD><CABD>ϴ<EFBFBD>.", 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
|