Question

在VB编程中修改密码。

这是Form1中的一段代码

Private Sub Command1_Click()
If Text1.Text = "admin" And Text2.Text = "123456" Then
Form1.Hide
Form3.Show
ElseIf Text1.Text = "" And Text2.Text = "" Then
MsgBox "亲，您还没输入用户名和密码哦"
ElseIf Text2.Text = "" Then
MsgBox "亲，您还没输入密码呢"
ElseIf Text1.Text = "" Then
MsgBox "亲，您还没输入用户名呢"
Else
MsgBox "用户名/密码错误，请重新输入！"
End If
End Sub

现在我在Form6中想要更改这里的密码（如图），在确定这个Command1的代码应该怎么写？

要求：（最好不要涉及函数，新人不懂）
1、如果"旧密码"与Form1中的设置密码不一样，则Msgbox"密码错误。请重新输入"
2、如果相同，则Msgbox"修改成功！"，点击确定后关闭窗口。
3、如果"新密码"与"重复新密码"两栏值不一样，则Msbbox"两次输入不一样，请重新输入"
4、也是最重要的一点：如果第一次修改密码完成后，第二次需要再次修改密码的时候，"旧密码"则以第一次修改完成后的密码为准，因此不能使用 If Text1.Text = "123456" Then ……···这样的代码。

Answer 1

Private Sub Command1_Click()
If Text1.Text <> GetSetting(App.Title, "Settings", "密码", "") Then MsgBox "密码错误。请重新输入": Exit Sub
If Text2.Text <> Text3.Text Then MsgBox "两次输入不一样，请重新输入": Exit Sub
SaveSetting App.Title, "Settings", "密码", Text2.Text
MsgBox "修改成功！"
Unload Me
End Sub

Answer 2

要符合你的条件做法只有两个：
1.连接数据库，把新密码保存在数据库。
2.使用savesetting来保存密码。

追问

怎么连接数据库，需要自创一个吗？ 新人不太明白啊。。。
怎么使用Savesetting？

追答

Private Sub CommandButton1_Click()
'保存text1密码
SaveSetting "MyApp", "User", "Password", Text1.Text
End Sub

Private Sub CommandButton2_Click()
'获取密码
Label1.Caption = GetSetting("MyApp", "User", "Password")

End Sub

追问

你光写代码我看不懂诶，还有数据库的话，如果我只拷贝生成的工程1.exe文件到另一个电脑上的话，会不会影响？

追答

savesetting只是保存密码在本身电脑（就好像你的浏览器一样）。如果你要在另一台电脑使用，就必须使用数据库（数据库可以是access,ms sql等，新手的话我建议用access，比较容易上手），把工程和数据库一起拷贝到另一家电脑。

追问

没有其他办法了吗？我只想拷贝一个工程exe文件啊

追答

有另外两个方法。。
1.你把工程和数据库弄一个安装包。。
2.等其他高水平的大大帮你解决，我能力有限。。

Answer 3

在这里发 可能被审核然后半天出来不,所以最好弄个Q,Q.MS,N.E_MAIL等

追问

QQ 542294802
Hi Soul丶轩☆辕
邮箱 xiaoluzi123456@vip.qq.com