Foxtable(狐表)用户栏目专家坐堂 → [求助] 表事件的代码如何转换为窗口代码


  共有2309人关注过本帖树形打印复制链接

主题:[求助] 表事件的代码如何转换为窗口代码

帅哥哟,离线,有人找我吗?
有点甜
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/6/21 17:45:00 [显示全部帖子]

你增加用户、更改用户的代码怎么写的?贴出来看看。


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/6/21 18:25:00 [显示全部帖子]

增加用户代码这样写的

 

cmd.CommandText = "Insert Into {Users} ([Name],[Group],[Password]) Values ('"
cmd.CommandText = cmd.CommandText & UserName & "','" & UserGroup & "','" & Password & "')"

 

那就需要改成

 

cmd.CommandText = "Insert Into {Users} ([Name],[Group],[Password]) Values ('"
cmd.CommandText = cmd.CommandText & UserName & "','" & UserGroup & "','" & MD5Encrypt(Password) & "')"


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/6/21 20:46:00 [显示全部帖子]

以下是引用hanzhang98在2018/6/21 18:37:00的发言:
再麻烦请教版主一个问题,就是按2018版使用帮助“自定义用户与权限管理之一”的用户管理窗口的列表框如何能显示出两列内容来,即显示“用户编码、用户名称”两列并按用户编码排序。代码如下:(还是上不去代码)



另外,如何将列表框选定的用户在“用户编码、用户姓名、用户密码”等文本框显示出“用户”表的列内容。谢谢版主。

 

afterLoad事件

 

cmd.CommandText = "SELECT DISTINCT Name From {Users}"

 

改成,细节自己调整

 

cmd.CommandText = "SELECT DISTINCT 用户编码+Name as name From {Users}"

 


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/6/21 20:47:00 [显示全部帖子]

以下是引用hanzhang98在2018/6/21 18:42:00的发言:
再请教版主:“增加用户”和“更改用户”窗口给用户的密码加密并写入表中后,在登录窗口输入的密码是不是也得用加密方法验证,登录窗口的加密验证代码又如何写。谢谢!

 

If e.Form.Controls("PassWord").Value = dr("Password") Then

 

改成,请灵活变通

 

If e.Form.Controls("PassWord").Value = MD5Encrypt(dr("Password")) Then


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/6/22 17:41:00 [显示全部帖子]

改成

 

lst.Items.add(dr("用户编码") & "    " & dr("用户姓名"))


 回到顶部