49 lines
1.7 KiB
VB.net
49 lines
1.7 KiB
VB.net
|
|
|||
|
|
Public Class loginForm
|
|||
|
|
Private formName As String = " Login"
|
|||
|
|
|
|||
|
|
Private apiLoginURL As String = "auths/token"
|
|||
|
|
|
|||
|
|
' 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 Sub loginForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|||
|
|
Me.Text = frm_Main.programName & formName
|
|||
|
|
txbUserID.Focus()
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
|
|||
|
|
|
|||
|
|
If txbUserID.Text.Replace(" ", "") = "" Then
|
|||
|
|
MsgBox("<EFBFBD><EFBFBD><EFBFBD>̵<EFBFBD><EFBFBD><EFBFBD> <20>Է<EFBFBD><D4B7>Ͽ<EFBFBD> <20>ֽʽÿ<CABD>.", vbExclamation)
|
|||
|
|
txbUserID.Focus()
|
|||
|
|
Exit Sub
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
If txbUserPW.Text.Replace(" ", "") = "" Then
|
|||
|
|
MsgBox("<EFBFBD><EFBFBD><EFBFBD>й<EFBFBD>ȣ<EFBFBD><EFBFBD> <20>Է<EFBFBD><D4B7>Ͽ<EFBFBD> <20>ֽʽÿ<CABD>.", vbExclamation)
|
|||
|
|
txbUserPW.Focus()
|
|||
|
|
Exit Sub
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
If loginAPIRequest(txbUserID.Text, txbUserPW.Text, apiLoginURL) Then
|
|||
|
|
Me.DialogResult = DialogResult.OK
|
|||
|
|
Me.Close()
|
|||
|
|
Else
|
|||
|
|
txbUserID.Focus()
|
|||
|
|
End If
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click
|
|||
|
|
Me.DialogResult = DialogResult.Cancel
|
|||
|
|
Me.Close()
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
|
|||
|
|
End Class
|