我有一个VB程序，进入要输入用户名密码，但是我看不懂，请帮忙看下。。

Question

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
End If
Exit Sub
err1:
MsgBox "系统配置错误！无法与服务器连接！"
userright = "0"
Unload Me
frmsysset.Show
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
'conn = Frmstart.pconn
conn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\his.mdb;Persist Security Info=False"
End Sub

登陆页的程序是这样的。。。好像用到了数据库的东西。。我不知道怎么查到这个程序的用户名和密码。。。请问谁能帮帮忙。。

Answer 1

1.这段程序用的是Adodc的控件和Access数据库,你右键单击Adodc1再点属性,在"通用"选项卡中选"生成"按钮,出来"数据连接属性"在"使用数据源名称"下边就是数据库的地址,找到Access数据库里边有usertab表,你就为所欲为了
2.还有另一种方法:
在Adodc1.Refresh 语句下加入这句:
Adodc1.RecordSource = "select * from usertab"
Adodc1.Refresh
Adodc1.Recordset.MoveFirst
msgbox adodc1.Recordset("用户名") & adodc1.Recordset("密码")

Answer 2

这段程序的用户名和密码是与数据库里的记录比较后登陆，你可以到数据库里查一下