If mrc.EOF = True Then
MsgBox "没有这个用户,请重新输入用户名!", vbOKOnly + vbExclamation, "警告"
txtUserName.SetFocus
Else
If Trim(mrc.Fields(1)) = Trim(txtPassword.Text) Then
OK = True
mrc.Close
Me.Hide
UserName = Trim(txtUserName.Text)
Else
MsgBox "输入密码不正确,请重新输入!", vbOKOnly + vbExclamation, "警告"
txtPassword.SetFocus
txtPassword.Text = ""
End If
End If
End If
miCount = miCount + 1
If miCount = 3 Then
Me.Hide
End If
Exit Sub
End Sub
............................................................................................
............................... frmMain 系统主窗口代码 .........................................
Private Sub addcinfoMenu_Click()
frmAddclassinfo.Show
End Sub
Private Sub addcourseMenu_Click()
frmAddcourseinfo.Show
End Sub
Private Sub addresultMenu_Click()
frmAddresult.Show
End Sub
Private Sub addsinfoMenu_Click()
<< 上一页 [21] [22] [23] [24] [25] [26] [27] [28] [29] [30] ... 下一页 >>