Question

关于VB数据库的一个问题 能从下面代码看出登陆用户名和密码是多少吗？

Private Sub cmdCancel_Click()
txtUserName = ""
txtPwd = ""
txtUserName.SetFocus
End
End Sub
Private Sub cmdOk_Click()
If txtUserName = "" Then
MsgBox "请输入用户名", , "登录"
txtUserName.SetFocus
Exit Sub
End If
If txtPwd = "" Then
MsgBox "请输入密码", , "登录"
txtPwd.SetFocus
Exit Sub
End If
adoUser.RecordSource = "SELECT * FROM Users WHERE Username='" & Trim(txtUserName) & "'"
adoUser.Refresh
If adoUser.Recordset.EOF = True Then
MsgBox "用户名不存在", , "登录"
TryTimes = TryTimes + 1
If TryTimes >= 3 Then
MsgBox "已经三次尝试进入本系统不成功，系统将关闭", , "登录"
End
Else
Exit Sub
End If
End If
If Trim(adoUser.Recordset.Fields("password")) <> Trim(txtPwd) Then
MsgBox "密码错误", , "登录"
TryTimes = TryTimes + 1
txtPwd.SelStart = 0
txtPwd.SelLength = Len(txtPwd)
txtPwd.SetFocus
If TryTimes >= 3 Then
MsgBox "已经三次尝试登录本系统不成功，系统即将关闭", , "登录"
End
Else
Exit Sub
End If
Else
strUserName = Trim(txtUserName)
Unload Me
End If
End Sub

Private Sub txtPwd_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
cmdOk_Click
End If
End Sub
Public Sub main()
mfrmMain.Show
frmLogin.Show 1
End Sub

Answer 1

你需要查看数据库，通过用户名来检索其相关信息。
不过，一般的情况下，用户密码的保存都不会已明文保存，都是经过加密后保存的，也就是说如果不是确认所谓一致的初始密码，那么每一个保存的密码都是经过加密后保存到数据库的对应字段中，即使是数据库管理员也无法看到用户账户密码的明文。

Answer 2

不能，密码存在数据库里，这段代码只是把你输入的密码和数据库里的密码比较是否相同而已，没办法看出密码是什么

追问

那我怎样能知道密码是什么啊。。因为这个数据库不是我做的-_-#

追答

打开数据库看呀

追问

不会。。

追答

如果数据库没加密码，是可以打开来看的，不过你的代码不全，不知道数据库文件名