VB做的系统的登陆密码的修改代码

Private Sub Command1_Click()

'确认修改密码提交

If Text1(0)

.Text

MsgBox "你没有输入名称，请重新输入！", 16, "错误！"

Exit Sub

ElseIf Text1(1)

.Text

MsgBox "你没有输入原密码，请重新输入！", 16, "错误！"

Exit Sub

ElseIf Text1(2)

.Text

MsgBox "你没有输入新密码，请重新输入！", 16, "错误！"

Exit Sub

ElseIf Text1(3)

.Text

MsgBox "你没有再次输入新密码，请重新输入！", 16, "错误！"

Exit Sub

End If

If Text1(2)

.Text

.Text

MsgBox "你输入的新密码和再次输入的新密码不符，请重新输入！", 16, "错误！"

Exit Sub

If

If Text1(0)

.Text

MsgBox "你输入的名称不是你的名称，请重新输入！", 16, "错误！"

Exit Sub

If

If Text1(1)

.Text

MsgBox "你输入的原密码不是你的密码，请重新输入！", 16, "错误！"

Exit Sub

End If

Call conn

stql = "select * from 数据表 where 用户名='" & Text1(0)

.Text

.Text

Set = conn.OpenRecordset(stql)

If Not

RS.EOF

RS.Edit

RS!密码 = Text1(2)

.Text

RS.Update

MsgBox "祝贺您！你的管理员密码修改成功！", 48, "修改成功！"

Else

MsgBox "没有你查询的记录！", 16, "错误！无记录！"

End If

RS.Close

Set RS = Nothing

conn.Close

Set conn = Nothing

End Sub