UC知道我有一个VB程序，进入要输入用户名密码，但是我看不懂，请帮忙看下。。
来源：百度知道 编辑：UC知道 时间：2024/07/04 02:06:45
Public userdwname As String
Public username As String
Public userright As String
Public conn As String
Private Sub Command1_Click()
Dim password As String
Dim respond As String
username = Text1.Text
password = Text2.Text
On Error GoTo err1
Adodc1.ConnectionString = conn
Adodc1.RecordSource = "select * from usertab where 用户名=" & "'" & username & "'" & " and " & "密码=" & "'" & password & "'"
Adodc1.Refresh
If Adodc1.Recordset.AbsolutePosition = adPosUnknown Then
respond = MsgBox("用户名或密码错误，请重新输入！", vbOKOnly, "警告")
If respond <> vbOKOnly Then
Text1.SetFocus
Text1.Text = ""
Text2.Text = ""
username = ""
password = ""
End If
Else
userright = Adodc1.Recordset.Fields("权限")
Unload frmlogin
frmmain.Show
Public username As String
Public userright As String
Public conn As String
Private Sub Command1_Click()
Dim password As String
Dim respond As String
username = Text1.Text
password = Text2.Text
On Error GoTo err1
Adodc1.ConnectionString = conn
Adodc1.RecordSource = "select * from usertab where 用户名=" & "'" & username & "'" & " and " & "密码=" & "'" & password & "'"
Adodc1.Refresh
If Adodc1.Recordset.AbsolutePosition = adPosUnknown Then
respond = MsgBox("用户名或密码错误，请重新输入！", vbOKOnly, "警告")
If respond <> vbOKOnly Then
Text1.SetFocus
Text1.Text = ""
Text2.Text = ""
username = ""
password = ""
End If
Else
userright = Adodc1.Recordset.Fields("权限")
Unload frmlogin
frmmain.Show
1.这段程序用的是Adodc的控件和Access数据库,你右键单击Adodc1再点属性,在"通用"选项卡中选"生成"按钮,出来"数据连接属性"在"使用数据源名称"下边就是数据库的地址,找到Access数据库里边有usertab表,你就为所欲为了
2.还有另一种方法:
在Adodc1.Refresh 语句下加入这句:
Adodc1.RecordSource = "select * from usertab"
Adodc1.Refresh
Adodc1.Recordset.MoveFirst
msgbox adodc1.Recordset("用户名") & adodc1.Recordset("密码")
这段程序的用户名和密码是与数据库里的记录比较后登陆，你可以到数据库里查一下