十万火急,小弟全部15分求助,懂VB帮我翻译下这段代码的意思,拜谢

上面有一些语我也不懂，我只把我懂的简单地翻译了一下，希望对你有帮助：
Option Explicit

Private logintestCount As Integer '记录错误的登录次数

Private Sub cmdCancel_Click()
Unload Me '卸载当前窗体（退出当前界面）
End Sub

Private Sub cmdClose_Click()
Unload Me '卸载当前窗体（退出当前界面）
End Sub

Private Sub cmdOK_Click()
Dim strSql As String '定义字符串变量strsql 用于存放查询条件

strSql = " Oper_ID = " & "'" & dcmbOperName.BoundText & "'" '查询条件赋值给strsql字符变量

If Not (rctOperatorList.EOF And rctOperatorList.BOF) Then '当数据库的指针不是EOF状态进和指针不是BOF状态时进行查找

rctOperatorList.Find (strSql) '在数据表（rctoperatorlist是一个数据表类型的对象，已经连接一个数据表）中查找满足条件strsql的数据记录集合，并返回到其结果到rctoperatorlist

If Not (rctOperatorList.EOF Or rctOperatorList.BOF) Then

If Trim(rctOperatorList.Fields("Oper_Pass")) = Trim(txtOperPass.Text) Then '核对数据表中字段为oper_pass的值是否与
txtoperpass文本框中的字符一致，如果相同则
执行以下代码：

'以下代码是密码输入正确时的处理
OperaterName = Trim(dcmbOperName.Text) '记录当前用户
frmMain.Show '显示主窗体
Unload Me
Exit Sub
Else

'以下是密码输入错误的处理
logintestCount = logintestCount + 1 '将logintestcount变量自加1

'判断密码错误次数是否超过或等于三次 如果超过则关闭
If logintestCount >= 3 Then
MsgBox "您已经登录三次都失败，系统关闭", vbInformation + vbOKOnly, "非法用户" '给出提示三次输入密码错误
Unload Me '关闭窗体
Exit Sub '退出此子程序
Else

txtOperPass.SetFocus
End If
End If
Else
logintestCount = logintestCount + 1
If logintestCount >= 3 Then
MsgBox "您已经登录三次都失败，系统关闭", vbInformation + vbOKOnly, "非法用户"
Unload Me
Exit Sub
Else
txtOperPass.SetFocus
End If
End If

Else

MsgBox "数据库中没有操作用户数据", vbCritical + vbOKOnly, "系统错误"
Unload Me
Exit Sub
End If

End Sub

Private Sub Form_Load()
'以下是定义各按钮的颜色
cmdClose.BackColor = RGB(236, 226, 216)
cmdOK.BackColor = RGB(209, 215, 231)
cmdCancel.BackColor = RGB(209, 215, 231)
If ExcuteSql(rctOperatorList, "select * from OperatorList") = True Then
'
Set dcmbOperName.RowSource = rctOperatorList
dcmbOperName.BoundColumn = "Oper_ID"
dcmbOperName.ListField = "OPer_Name"
dcmbOperName.BoundText = "01"

Else
MsgBox "打开数据库失败,系统关闭!", vbCritical + vbOKOnly, "初始化错误"
Unload Me

End If

End Sub
问题补充：frmLeavel.tblEmployees.Buttons("modify").Visible = False '窗体上的修改的按钮设置为不可见

frmLeavel.tlbPrint.Left = 30 '窗体frmLeavel上的tlbPrint控件离窗体左边距离为30

－－－－－－－－－－－－－－－－－－－－－－－－－－－
另外 下面我给了我自己编写的一个用户登录代码，供你参考：
Private Sub Cmd_ok_Click()
Dim User As String
Dim Pwd As String
Static Pwd1 As String '当用户名正确时将数据表中的密码保存
Static ncount As Integer
Static Iscan As Boolean

User = Trim(Me.Txt_username.Text)
Pwd = Trim(Me.Txt_password.Text)

If Iscan = True Then GoTo Next1 '如果上次用户名正确则直接跳转到next1处 不用再出入数据表进行核对了

if rs_login.state then rs_login.close '如果数据已经打开则关闭它

rs_login.open "select * from 用户信息",conn,adOpenStatic, adLockOptimistic '连接数据表

Do While (rs_login.EOF = False)
If User = rs_login.Fields("用户名").Value Then
Iscan = True
Pwd1 = rs_login.Fields("密码").Value '从数据库中取出正确的密码以便当再次核对密码时用
End If

If Pwd = Pwd1 And Iscan = True Then
MsgBox "登录成功！", vbOKOnly + vbExclamation, ""
Curr_user = User
Curr_pwd = Pwd
User_Pow = rs_login.Fields("权限").Value
Unload Me
Exit Sub
Else
rs_login.MoveNext
End If
Loop

If Iscan = False Then
MsgBox "对不起，没有此用户！", vbOKOnly + vbExclamation, ""
Me.Txt_username.Text = ""
Me.Txt_password.Text = ""
Me.Txt_username.SetFocus
Exit Sub
End If

Next1:
ncount = ncount + 1

If ncount = 3 Then
MsgBox "密码三次输入错误，非法用户！", vbOKOnly, ""
ncount = 0
Unload Me
Else
If Pwd = Pwd1 Then
MsgBox "登录成功！", vbOKOnly + vbExclamation, ""
Curr_user = User
Curr_pwd = Pwd
User_Pow = rs_login.Fields("权限").Value
Unload Me
Exit Sub
Else
MsgBox "密码第" & ncount & "次输入错误！", vbOKOnly + vbExclamation, ""
Me.Txt_password.Text = ""
Me.Txt_password.SetFocus
End If
End If

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/y2f3rjfv.html