Dreamweaver 怎么做修改密码 请详细说明一下
答案:2 悬赏:0
解决时间 2021-04-26 21:15
- 提问者网友:护她一生,唯爱
- 2021-04-26 16:22
如上题 在线等
最佳答案
- 二级知识专家网友:狠傷凤凰
- 2021-04-26 17:11
form1中
Public Names As String
Public Pass As String
Private Sub Command1_Click()
If Text1.Text = GetSetting("username", "save", "usernames") Then
If Text2.Text = GetSetting("username", "save", "password") Then
MsgBox "登陆成功"
Else
MsgBox "请输入正确的密码"
End If
Else
MsgBox "请输入正确的用户名"
End If
End Sub
Private Sub Command2_Click()
Names = Text1.Text
Pass = Text2.Text
SaveSetting "username", "save", "usernames", Names
SaveSetting "username", "save", "password", Pass
MsgBox "注册成功!"
End Sub
Private Sub Command3_Click()
Form2.Show
End Sub
Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Command1.Caption = "登陆"
Command2.Caption = "注册"
Command3.Caption = "修改密码"
End Sub
form2中
Private Sub Command1_Click()
If Text1.Text = GetSetting("username", "save", "password") Then
If Text2.Text = Text3.Text Then
Names = Text2.Text
SaveSetting "username", "save", "password", Names
MsgBox "修改密码成功"
Me.Hide
Else
MsgBox "两次输入的密码不一致"
End If
Else
MsgBox "旧密码输入不正确"
End If
End Sub
Public Names As String
Public Pass As String
Private Sub Command1_Click()
If Text1.Text = GetSetting("username", "save", "usernames") Then
If Text2.Text = GetSetting("username", "save", "password") Then
MsgBox "登陆成功"
Else
MsgBox "请输入正确的密码"
End If
Else
MsgBox "请输入正确的用户名"
End If
End Sub
Private Sub Command2_Click()
Names = Text1.Text
Pass = Text2.Text
SaveSetting "username", "save", "usernames", Names
SaveSetting "username", "save", "password", Pass
MsgBox "注册成功!"
End Sub
Private Sub Command3_Click()
Form2.Show
End Sub
Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Command1.Caption = "登陆"
Command2.Caption = "注册"
Command3.Caption = "修改密码"
End Sub
form2中
Private Sub Command1_Click()
If Text1.Text = GetSetting("username", "save", "password") Then
If Text2.Text = Text3.Text Then
Names = Text2.Text
SaveSetting "username", "save", "password", Names
MsgBox "修改密码成功"
Me.Hide
Else
MsgBox "两次输入的密码不一致"
End If
Else
MsgBox "旧密码输入不正确"
End If
End Sub
全部回答
- 1楼网友:没感情的陌生人
- 2021-04-26 18:21
其实就是update数据库中的密码字段
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯