Question

VB开发的登录窗口，怎么设置用户名和密码

我找到一个VB开发的程序，还有源代码，别人已经设置好了登陆窗口的用户名和密码，我现在想把用户名和密码改了，请问要在哪里改？下面是登录窗口的源代码：

Public LoginSucceeded As Boolean

Private Sub cmdCancel_Click()
'设置全局变量为 false
'不提示失败的登录
LoginSucceeded = False
Unload Me
End Sub

Private Sub cmdOK_Click()
'检查正确的密码
With frmMain.Data8.Recordset
.MoveFirst
For i = 1 To .RecordCount
If Combo1.Text = .Fields("用户名称") And txtPassword = .Fields("用户密码") Then
LoginSucceeded = True
UserName = .Fields("用户名称")
UserPass = .Fields("权限")
Exit For
End If
.MoveNext
Next i
If LoginSucceeded Then
'将代码放在这里传递
'成功到 calling 函数
'设置全局变量时最容易的
Unload Me
Else
MsgBox "无效的密码，请重试!", , "登录"
txtPassword.SetFocus
SendKeys "{Home}+{End}"
End If
End With
End Sub

Private Sub Combo1_Change()

End Sub

Private Sub Form_Load()
On Error Resume Next
With frmMain.Data8.Recordset
.MoveFirst
For i = 1 To .RecordCount
Combo1.AddItem .Fields("用户名称")
Combo1.ItemData(Combo1.NewIndex) = .AbsolutePosition
.MoveNext
Next i

End With
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If LoginSucceeded = False And frmMain.Visible = False Then End

End Sub
我也知道是在数据库，但是要怎么进数据库去改呢？这个程序的用户名和密码是存在DAO 3.51Object library里面的，现在我想进去把用户名和密码改成我想要的，请问要怎么做。我是一个初学者，还请各位高手多多指教~~~~~谢谢！

Answer 1

打开数据库资料表内的("用户名称") 和("用户密码") 栏位里面直接改就可以了。或你自己写一个新增用户名称和用户密码的程式。比如：

数据库=login.mdb
资料表=user
栏位名=username 和 password

Private Sub Command1_Click()
Data1.Recordset.AddNew
Data1.Recordset.Fields("username") = Text1.Text
Data1.Recordset.Fields("password") = Text2.Text
Data1.Recordset.Update
Data1.Refresh
MsgBox "成功存取", vbOKOnly + vbInformation
End Sub

Private Sub Form_Load()
Data1.DatabaseName = App.Path & "\login.mdb"
Data1.RecordSource = "user"
End Sub

Answer 2

你要密码干什么?
你调试的话直接跳过登陆验证就可以看到下面的画面了

人家的代码是给你参考的么,剩下数据库的部分你需要自己配置的,除非你有他的数据库文件

Answer 3

当然是在数据库里改了，把密码改一下，如果软件没有这个功能就要手动了

你要是想改.Fields("用户名称")
在数据库里改好在把代码里改一下就OK了

Answer 4

人家的用户名和密码，都在数据库里啊。