Option
Explicit
Private mclsMidTier As clsMidTier
Dim rs As Recordset
Dim strCmd As String
Public LoginSucceeded As Boolean
Private Sub cboUserName_LostFocus()
' 全局用户名
UserName = cboUserName.Text
End Sub
Private Sub cmdCancel_Click()
' 设置全局变量为 false
' 不提示失败的登录
LoginSucceeded = False
End <
Private mclsMidTier As clsMidTier
Dim rs As Recordset
Dim strCmd As String
Public LoginSucceeded As Boolean
Private Sub cboUserName_LostFocus()
' 全局用户名
UserName = cboUserName.Text
End Sub
Private Sub cmdCancel_Click()
' 设置全局变量为 false
' 不提示失败的登录
LoginSucceeded = False
End <