帮我看看这个登录的代码错在哪里?

2006-09-02 10:32:21 219 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

leon2008go 墨衍会员 · AI 创作全网分发关注 + 加入社区

Tesseract-Ocr踩坑下载以及进行检验 1 OCR，即Optical Character Recognition：光学字符识别，是指通过扫描字符，然后通过其形状将其翻译成电子文本的过程。下载完成后进行解压找到这两个，然后复制到之前下载Tesseract-Ocr的tessdata文件下。可能会出现报错说chi下载的问题咱们不用管继续ok让它先下载完毕，后续会有下载chi的步骤。四、检验tesseract使用（将以下图片进行下载我这里将以下图片命名为3.png）我这里选的是2024年的版本如果下载不了；4 在安装的时候（找到下载的exe文件，双击）阅读详情

Function IsExistUser(ByVal tmp_UserName As String, ByVal tmp_UserPwd As String) As Boolean
Set rst = New ADODB.Recordset
rst.CursorLocation = adUseClient
sqlstr = "select UserName,UserPwd from M_User where UserName='" & tmp_UserName & "' and UserPwd='" & tmp_UserPwd & "'"
rst.Open sqlstr, conn, adOpenKeyset, adLockReadOnly
If rst.BOF = False Then
IsExistUser = True
Else
IsExistUser = False
End If
rst.Close
Set rst = Nothing
End Function

Private Sub cmdEnter_Click()
On Error GoTo errLoad

Dim i As Integer
i = 3
If Len(cmbName.Text) = 0 Then
MsgBox "請輸入用戶名", vbInformation, "提示"
Exit Sub
ElseIf Len(txtPwd.Text) = 0 Then
MsgBox "密碼不能為空", vbInformation, "提示"
Exit Sub
ElseIf Len(cmbServer.Text) = 0 Then
MsgBox "請選擇服務器", vbInformation, "提示"
Exit Sub
Else
If IsExistUser(cmbName, Trim(txtPwd)) = False Then
MsgBox "用戶名或密碼不正確,請重新輸入", vbExclamation, "警告"
i = i - 1
cmbName.Text = ""
txtPwd.Text = ""
cmbName.SetFocus
If i = 0 Then
MsgBox "您三次登錄不成功,退出系統", vbInformation, "提示"
Exit Sub
End If
End If
End If
frmLogin.Hide
Load mdiMain
mdiMain.Show

errLoad:
MsgBox "錯誤" & Err.Number & ":" & Err.Description, vbCritical
Err.Clear
End Sub

...全文