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


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

主题：[求助] 表事件的代码如何转换为窗口代码
帅哥哟，离线，有人找我吗？
有点甜
 小大  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("用户姓名"))
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 5 次数据查询