Question

用VB和access编一个登陆界面怎么编啊？

用VB和access编一个登陆界面，要求：将准输入的信息和数据库对比，如有相应的记录显示登录成功，否则显示无此人

Answer 1

Option Explicit
Dim cnt As Integer

Private Sub Command1_Click()
Dim sql As String
Dim rs_login As New ADODB.Recordset
Dim conn As New ADODB.Connection
conn.Open "provider=Microsoft.Jet.OLEDB.4.0; data source=" & App.Path & "\db1.mdb"
'app.path是一个相对路径需要把程序和数据库放到同一根目录中 上面的意思是连接数据库microsoft-4.0:需要用到工程引用Microsoft a****x- 2.5这里不写全了你可以看下

If Trim(Text1.Text) = "" Then
MsgBox "用户名不能为空，请重新输入！"
Text1.SetFocus
Else
sql = "select * from 用户权限 where 用户名称='" & Trim(Text1.Text) & "'"
rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic
If rs_login.EOF = True Then
MsgBox "没有这个用户,请重输入！", vbOKOnly + vbExclamation, ""
Text1.Text = ""
Text1.SetFocus '将游标放到text1中
Else
username = Text1.Text
If Trim(rs_login.Fields(1)) = Trim(Text2.Text) Then '如果记录集中字段的第2项=text2那么

Unload Me '关闭我
仓库管理系统.Show '打开仓库管理系统窗体
Else
MsgBox "密码不正确,请重输入！", vbOKOnly + vbExclamation, ""
Text2.SetFocus
Text2.Text = ""
End If
End If
End If
cnt = cnt + 1 '每点一次确定cnt+1
If cnt = 3 Then
Unload Me
End If
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Load()
cnt = 0 'cnt初始次数为0
End Sub
我的登录代码你可以看下我有注解的其中的username我在模块中定义的意思是记录当前登陆的用户名以便以后更改密码

Answer 2

Private Sub Command1_Click()
Adodc1.RecordSource = "select * from ma where 操作员='" + Text1.Text + " ' " '查询操作员
Adodc1.Refresh
If Text1.Text = "name" And Text2.Text = Adodc1.Recordset.Fields("密码") Then '判断操作员及密码
mainfrm.Show
Else
End If
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Load()

End Sub

Private Sub Text2_Change()
Text2.PasswordChar = "*"
End Sub
command1 是“登录”按钮
command2 是“退出”按钮
数据库中的数据包括两部分：用户名和密码。其中用户名字段的数据是name 密码字段的数据是1
只有当你在text控件中输入正确的用户名和密码后，即 name 1后才可进入。

希望对你有用O(∩_∩)O