vb登陆界面代码哪错了？？？？？

来源：百度知道 编辑：UC知道 时间：2024/05/26 06:32:33
Private Sub Combo1_Change()
Combo1.AddItem "教师"
Combo1.AddItem "管理员"
End Sub

Option Explicit
Public LoginSucceeded As Boolean
Private Sub cmdCancel_Click()
'set the global var to false
'to denote a failed login
LoginSucceeded = False
Unload fmstart
End Sub
Private Sub cmdOK_Click()
'check for correct password
If (txtPassword = "jyl") And (txtUserName = "jyl") And (Combo1.Text = "管理员") Then
'place code to here to pass the
'success to the calling sub
'setting a global var is the easiest
LoginSucceeded = True
Me.Hide
fmstart.Show
Else
If (txtPassword = "jyl") And (txtUserName = "jyl") And (Combo1.Text = "教师") Then
LoginSucceeded = True
Me.Hide
fmstart.Show

Option Explicit
Public LoginSucceeded As Boolean
Private Sub cmdCancel_Click()
LoginSucceeded = False
Unload fmstart
End Sub
Private Sub cmdOK_Click()
If (txtPassword = "jyl") And (txtUserName = "jyl") And (Combo1.Text = "管理员") Then
LoginSucceeded = True
Me.Hide
fmstart.Show
Else
If (txtPassword = "jyl") And (txtUserName = "jyl") And (Combo1.Text = "教师") Then
LoginSucceeded = True
Me.Hide
fmstart.Show
Else
MsgBox "登录出错, 请尝试！", , "登录"
txtPassword.SetFocus
SendKeys "{Home}+{End}"
End If
End If
End Sub
Private Sub Form_Load()
Combo1.AddItem "教师"
Combo1.AddItem "管理员"
Combo1.ListIndex = 0
Load fmstart
fmstart.Hide
End Sub