VB登陆界面代码求翻译

来源：百度知道 编辑：UC知道 时间：2024/06/04 16:46:01
1、文件名 login(login.frm)
功能说明：整个系统的登陆界面，需要输入用户名和登陆密码才能进入到系统中，进行借阅等操作。
源代码：
Option Explicit
Dim cnt As Integer
Private Sub Command1_Click()
Dim sql As String
Dim rs_login As New ADODB.Recordset
If Trim(Combo1.Text) = "" Then
MsgBox "没有这个用户", vbOKOnly + vbExclamation, ""
Combo1.SetFocus
Else
sql = "select * from 系统管理 where 用户名='" & Combo1.Text & "'"
rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic
If rs_login.EOF = True Then
MsgBox "没有这个用户", vbOKOnly + vbExclamation, ""
Combo1.SetFocus
Else
If Trim(rs_login.Fields(1)) = Trim(txtpwd.Text) Then
userID = Combo1.Text
rs_login.Close
Unload Me
form1.Show
Else
MsgBox "密码不正确", vbOKOnly + vbExclamation, ""
txtpwd.SetFocus

思路倒是很简单，但是你这个是用到数据库的，很少会有人给你回答的。

Option Explicit '若用此函数所有的变量须宣告类型才可以使用
Dim cnt As Integer‘宣告cnt为整数类型
Private Sub Command1_Click()
Dim sql As String‘宣告sql为字符串类型
Dim rs_login As New ADODB.Recordset‘宣告并建立rs_login为ADODB.Recordset物件

’以下代码主要是判断Combo1.Text是否有输入资料若无则显示讯息"没有这个用户"，相反则执行Else以后的代码。
If Trim(Combo1.Text) = "" Then
MsgBox "没有这个用户", vbOKOnly + vbExclamation, ""
Combo1.SetFocus
Else

‘以下sql的意思是"select 全部的栏位 from 资料表 "。而 where 用户名='" & Combo1.Text & "'"是判断用户名栏位是否等于Combo1.Text。
sql = "select * from 系统管理 where 用户名='" & Combo1.Text & "'"

'rs_login.Open 资料表或SQL指令, Connection物件, 游标类型, 锁定类型
rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic

‘若以上sql查询等于空的话(用户名<>Combo1.Text)的话则显示讯息"没有这个用户"，相反则执行Else以下代码
If rs_login.EOF = True Then ’（用EOF-End Of F