如何更改密码的问题

Question

我想用vb做个仓库管理系统  设置好原始密码后  应该怎么做才可以使用户可以更改密码呢？
最好给源代码！谢谢

Answer 1

一般你可以把密码储存到注册表或者INI文件（最好）中，再直接调用注册表或INI文件读取函数读取密码，用写入函数修改密码。

Answer 2

同意以上的方法,还可以走系统文件啦!给出走数据库表中的方法:
数据库中用户表:tb_user,字段:1.ID（自动增长） ;  2.UserName(用户名)  ; 3.Password (密码); 4.Pdm( 权限)。        代码如下：
Private Sub cmdOK_Click()
On Error Resume Next
    If Trim(txtUserName.Text) = "" Then
        MsgBox "名前の入力が必要です！", 48, "注意"
        txtUserName.SetFocus
        Exit Sub
    End If
    
    Dim rs As New ADODB.Recordset
    Dim sql As String
    sql = "select * from tb_user where UserName='" & _
        Trim(txtUserName.Text) & "'"
    rs.Open sql, cn, adOpenDynamic, adLockOptimistic
    If rs.EOF Then
        MsgBox "User名前は存在ありません！", 48, "注意"
        txtUserName.Text = ""
        txtPassWord.Text = ""
        txtUserName.SetFocus
        rs.Close: Set rs = Nothing
        Exit Sub
    Else
        If Trim(FISNULL(rs.Fields!Password)) <> Trim(txtPassWord.Text) Then
            MsgBox "User名前とパスワートがエラー！", 48, "注意"
            txtUserName.Text = ""
            txtPassWord.Text = ""
            txtUserName.SetFocus
            rs.Close: Set rs = Nothing
            Exit Sub
        End If
    End If
    rs.Close: Set rs = Nothing
        
    frmMain.Show
    Unload Me
End Sub

Answer 3

以上是登陆时的代码，更改用户密码如下：
窗体中设置三个文本框：1、用户名：2、旧密码：3、新密码：
Private Sub cmdUpdate_Click()
    Dim rs As New ADODB.Recordset
    Dim sql As String
    sql = "select * from tb_user where UserName='" & _
        Trim(txtUserName.Text) & "'"
    rs.Open sql, cn, adOpenDynamic, adLockOptimistic
    If rs.EOF Then
         msgbox"用户名不存在！",48,"提示"
         rs.close:set rs=nothing
         Exit Sub
    end if
    If Trim(FISNULL(rs.Fields!Password)) <> Trim(txtPassWord.Text) Then
         msgbox"密码不正确！",48,"提示"
         rs.Close: Set rs = Nothing
         Exit Sub
    End If
    rs.Fields!Password=Trim(txtPassWord.Text) 
    rs.Update
    rs.Close: Set rs = NothingEnd Sub