Question

在已知的VB源代码中怎么查看程序登陆用户名 和密码？

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Txt用户名.Text = ""
Txt密码.Text = ""
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim conn As New OleDbConnection
Dim cmd As New OleDbCommand
Dim dr As OleDbDataReader
conn.ConnectionString = ("provider=microsoft.jet.oledb.4.0;data source=零售商店管理信息系统.mdb")
cmd.Connection = conn
conn.Open()
cmd.CommandText = "select * from 用户表 where 用户名='" & Txt用户名.Text & "' "

dr = cmd.ExecuteReader

If dr.Read Then

If dr.Item("密码") = Txt密码.Text Then
商店管理系统主页.Show()
商店管理系统主页.Text = 商店管理系统主页.Text & " 当前管理员：" & Txt用户名.Text
yonghu = Txt用户名.Text
Me.Hide()
Else
MsgBox("密码错误，请重新输入！")

End If
Else
MsgBox("该用户不存在，请重新输入！")

End If

conn.Close()

End Sub

Answer 1

用户名和密码都存放在“零售商店管理信息系统.mdb”这个数据库中

追问

那我能不能 自己设定账号和密码 该怎么做呢？

追答

可以，你可以直接设置，也可以用数据库来做
直接的话：你可以
if 用户名.text=“abc” and 密码.text=“abc”（用户名和密码都是abc）
数据库的话你可只连接到你自己的数据库就行了

追问

您能再说具体点么 应该是把哪几行删了 换成if 用户名.text=“abc” and 密码.text=“abc"
学的不好 麻烦您了

追答

如果用户名与密码都是ABC的话就直接这样吧：
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If 用户名.text="abc" and 密码.text="abc" Then
商店管理系统主页.Show()
商店管理系统主页.Text = 商店管理系统主页.Text & " 当前管理员：" & Txt用户名.Text
yonghu = Txt用户名.Text
Me.Hide()
Else
MsgBox("用户名与密码错误，请重新输入！")
End If

End Sub