主题：[求助] 引用用户登录密码

老师，有一 个人信息表 有一个 姓名 列 有一行姓名 张三 是系统用户，用户登录采用内置登录窗口。 在 个人信息表 中修改张三的个人信息时必须要输入张三的 登录密码才能实现。如何实现，请指点，谢谢！

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目6.foxdb

请哪位大师指点指点啊。谢谢了！

开发者，和管理者，可以任意修改任意人信息。

 

普通用户，只能修改自己的信息。

 

无法做到你要的功能。

红袍老师，是我没表述清楚。不是要修改密码，是在 个人信息表修改 个人信息时，提示要输入用户密码方可允许修改，就像银行取款一样。也就是说用户要在现场自己输入密码才能修改。

 那你不能用内部数据源，你要单独做一个users数据表，这样你才能查找到对应用户的密码

 

http://www.foxtable.com/help/topics/2723.htm

 

红袍老师，我的系统是用的外部数据表。 用户管理 。如何引用张三的密码呢？谢谢！

密码存放在config字段里面的，查找name='张三'

 

然后得到config的值，然后把你填写的密码，比如12345，加密一下 MD5Encrypt("12345") 接着和config的内容对比

 

If dr("config").Contains(MD5Encrypt("12345")) Then

    msgbox("密码正确")

Else

    msgbox("密码错误")

End If

谢谢！

 

红袍老师，执行下面的代码得到的总是 显示“错误” 请您看看 哪里的问题？谢谢

 

Dim mm As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim dr As DataRow = DataTables("用户管理").SQLFind(" Name = '" & User.Name & "'")
If dr IsNot Nothing  Then
    If mm.Value Is Nothing Then
        MessageBox.Show("输入登录密码解锁","提示")
        Return
    Else
        If dr("config").Contains(MD5Encrypt("'" & mm.Value & "'")) Then    好像是这句有问题
            MessageBox.Show("正确")         
        Else
            MessageBox.Show("错误")
        End If
    End If
Else
    MessageBox.Show("您不是当前用户")
End If

If dr("config").Contains(MD5Encrypt(mm.Value)) Then    好像是这句有问题