以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助] 引用用户登录密码  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=86089)

--  作者:zcgmxf
--  发布时间:2016/6/10 10:52:00
--  [求助] 引用用户登录密码

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

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目6.foxdb

[此贴子已经被作者于2016/6/10 23:36:28编辑过]

--  作者:zcgmxf
--  发布时间:2016/6/10 23:26:00
--  

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


--  作者:大红袍
--  发布时间:2016/6/11 0:01:00
--  

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

 

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

 

无法做到你要的功能。


--  作者:zcgmxf
--  发布时间:2016/6/11 7:37:00
--  

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

[此贴子已经被作者于2016/6/11 7:44:57编辑过]

--  作者:大红袍
--  发布时间:2016/6/11 14:22:00
--  

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

 

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

 


--  作者:zcgmxf
--  发布时间:2016/6/12 23:03:00
--  
红袍老师,我的系统是用的外部数据表。 用户管理 。如何引用张三的密码呢?谢谢!
--  作者:大红袍
--  发布时间:2016/6/12 23:39:00
--  

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

 

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

 

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

    msgbox("密码正确")

Else

    msgbox("密码错误")

End If


--  作者:zcgmxf
--  发布时间:2016/6/13 7:41:00
--  

谢谢!

 


--  作者:zcgmxf
--  发布时间:2016/6/28 19:55:00
--  

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

 

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


--  作者:大红袍
--  发布时间:2016/6/28 20:02:00
--  
If dr("config").Contains(MD5Encrypt(mm.Value)) Then    好像是这句有问题