系统登录对话框

系统登录对话框的特点：

（1）界面简单

（2）基于数据库验证

1、首先需要设计窗体   如图所示“系统登录”

2、需要自己创建数据库。

代码：Option Explicit
Const Maxlogtimes As Integer = 3                '定义允许用户登陆的最多次数
Private Sub Cmdcancel_Click()
Dim intResult As Integer
'请求用户确认是否真的退出系统登录
intResult = MsgBox("你选择了退出系统登录，退出将不能启动管理系统！" & vbCrLf & "是否真的退出？", vbYesNo, "登录验证")


If intResult = vbYes Then End    '根据用户选择结束应用程序
End Sub


Private Function Check_PassWord(ByVal username As String, ByVal password As String) As Byte
    On Error GoTo gperror