3、模块功能说明
1、frmStar 登录界面
Option Explicit
Dim Times As Integer
Dim ADOLogin As New ADODB.Recordset
Private Sub btnCancle_Click()
End
End Sub
Private Sub btnOK_Click()
If Login(Trim(txtUser.Text), Trim(txtPwd.Text)) = True Then
Unload Me
Else
If MsgBox("输入的用户名称或者口令非法,请重新输入!", vbInformation + vbYesNo, "非法
的操作员口令") = vbYes Then
txtUser.Text = ""
txtPwd.Text = ""
txtUser.SetFocus
Times = Times + 1
Else
End
End If
End If
End Sub
Private Sub Form_Load()
ADOLogin.Open "Login", ADOCon, adOpenDynamic, adLockOptimistic, -1
End Sub
Private Sub Form_Unload(Cancel As Integer)
ADOLogin.Close
End Sub