首页 > 其他 > 详细

登陆界面

时间:2021-01-14 10:06:24      阅读:1      评论:0      收藏:0      [点我收藏+]

Public Class LoginForm1

‘ TODO: 插入代码,以使用提供的用户名和密码执行自定义的身份验证
‘ (请参阅 https://go.microsoft.com/fwlink/?LinkId=35339)。
‘ 随后自定义主体可附加到当前线程的主体,如下所示:
‘ My.User.CurrentPrincipal = CustomPrincipal
‘ 其中 CustomPrincipal 是用于执行身份验证的 IPrincipal 实现。
‘ 随后,My.User 将返回 CustomPrincipal 对象中封装的标识信息
‘ 如用户名、显示名等

Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
If (UsernameTextBox.Text = String.Empty Or PasswordTextBox.Text = String.Empty) Then
MsgBox("信息不完整!",, "提示")
ElseIf (UsernameTextBox.Text <> "admin" Or PasswordTextBox.Text <> "admin") Then
MsgBox("用户名或密码错误,要重新输入吗?", vbOKCancel + vbInformation, "提示")
Else
Me.Close()
mainForm.Show()
End If

End Sub

Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles myCancelBtn.Click
UsernameTextBox.Clear()
PasswordTextBox.Clear()

End Sub

Private Sub LogoPictureBox_Click(sender As Object, e As EventArgs) Handles LogoPictureBox.Click

End Sub
End Class

 

 

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

LoginForm1.ShowDialog()

End Sub

登陆界面

原文:https://www.cnblogs.com/dotnet609/p/14275188.html

(0)
(0)
   
举报
评论 一句话评论(0
© 2014 bubuko.com 版权所有 鲁ICP备09046678号-4
打开技术之扣,分享程序人生!
             

鲁公网安备 37021202000002号