[求助]设置密码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]设置密码

共有2433人关注过本帖树形打印复制链接主题：[求助]设置密码

积水成渊

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：小狐帖子：348 积分：2805 威望：0 精华：0 注册：2016/8/24 10:39:00

[求助]设置密码 发帖心情

Post By：2017/8/29 10:41:00 [显示全部帖子]

表中有一个字段为密码，我现在需要进行密码更改，但是密码不能明文显示，怎么当我输入密码的时候自动进行加密处理，并保存到数据库中

积水成渊

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：小狐帖子：348 积分：2805 威望：0 精华：0 注册：2016/8/24 10:39:00

Post By：2017/8/29 11:57:00 [显示全部帖子]

感谢，已经解决，加密的方式不一样，花了很多时间

If e.Col.Name = "PassWord" Then '如果编辑的是某列

Dim psd As String

InputValue(psd,"验证","请输入密码") '输入密码

'e.Table.StartEditing '强行进入编辑状态

Dim jmPassWord As String

If String.IsNullOrEmpty(psd) Then

jmPassWord = ""

Else

jmPassWord = Foxtable.EncryptText(psd, "a23", "op#") '加密

End If

'msgbox(jmPassWord)

e.Row("PassWord") = jmPassWord

End If

e.Table.Save()

积水成渊

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：小狐帖子：348 积分：2805 威望：0 精华：0 注册：2016/8/24 10:39:00

Post By：2017/8/30 15:25:00 [显示全部帖子]

好的，感谢您的建议

主题：[求助]设置密码