Foxtable(狐表)用户栏目专家坐堂 → 用户管理


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

主题:用户管理

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


加好友 发短信
等级:一尾狐 帖子:496 积分:3242 威望:0 精华:0 注册:2022/3/25 7:44:00
用户管理  发帖心情 Post By:2022/10/12 16:18:00 [只看该作者]

老师帮忙看看,设置一个用户登录窗口,登录按键用以下代码弹窗
图片点击可在新窗口打开查看
Dim user As String = e.Form.Controls("cbx_user").Text
Dim pwd As String = e.Form.Controls("txt_pwd").Text
Dim dr As DataRow = DataTables("用户").Find("登录名 = '" & user & "'")   '分开查询,防注入登录
If dr IsNot Nothing Then
    pwd = MD5Encrypt(pwd)
    If pwd = dr("密码") Then
        _UserName = dr("用户名")
        _UserLoginName = user
        _UserGroup = dr("角色")
        e.Form.Close()
    Else
        MessageBox.Show("输入的密码错误,请重试!", "出错")
    End If
End If

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


加好友 发短信
等级:超级版主 帖子:110253 积分:561089 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/10/12 16:30:00 [只看该作者]

设计步骤

一、在文件“用户.mdb”新建一个名为“Users”的表,包括Name、Group、Password三列,分别 用于保存用户名、用户分组和密码。

二、建立一个外部数据源,连接到文件“用户.mdb”,数据源的名称设置为“User”。

三、打开Foxtable的用户管理,增加一个用户,并将其设置为默认用户,这样打开项目的时候,将不会出现foxtable的用户登录窗口。
  提示:示例文件“自定义用户管理.Table"”菜单中的用户管理和用户登录,已经被自定义的用户管理和登录代替,必须先按Ctrl+Shift+F12回到系统菜单,才能打开Foxtable的用户管理。

四、在全局代码中定义两个变量:

Public _UserName As String
Public
 _UserGroup As String

_UserName用户保存当前登录用户的名称,_UserGroup用于保存该用户的分组。


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


加好友 发短信
等级:一尾狐 帖子:496 积分:3242 威望:0 精华:0 注册:2022/3/25 7:44:00
  发帖心情 Post By:2022/10/12 16:47:00 [只看该作者]

设置的内部表,直接复制论坛里面下载的权限管理

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


加好友 发短信
等级:一尾狐 帖子:496 积分:3242 威望:0 精华:0 注册:2022/3/25 7:44:00
  发帖心情 Post By:2022/10/12 16:49:00 [只看该作者]

直接搬运论坛这个里面表和代码就弹窗不可以
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:权限管理_小例.table



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


加好友 发短信
等级:超级版主 帖子:110253 积分:561089 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/10/12 16:59:00 [只看该作者]

照抄全局代码的代码

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


加好友 发短信
等级:一尾狐 帖子:496 积分:3242 威望:0 精华:0 注册:2022/3/25 7:44:00
  发帖心情 Post By:2022/10/12 17:04:00 [只看该作者]

登录窗口事件代码,登录按键,全部照抄就弹窗不可以

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


加好友 发短信
等级:超级版主 帖子:110253 积分:561089 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/10/12 17:09:00 [只看该作者]

4楼项目有问题?怎么测试?

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


加好友 发短信
等级:一尾狐 帖子:496 积分:3242 威望:0 精华:0 注册:2022/3/25 7:44:00
  发帖心情 Post By:2022/10/12 17:36:00 [只看该作者]

直接建立一样的表名,列名就在建立窗口事件代码和登录按键就弹窗一楼那截图错误代码

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


加好友 发短信
等级:超级版主 帖子:110253 积分:561089 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/10/12 17:41:00 [只看该作者]

如果是指新建的项目测试,照抄别人项目的全局代码啊!


图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看


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


加好友 发短信
等级:一尾狐 帖子:496 积分:3242 威望:0 精华:0 注册:2022/3/25 7:44:00
  发帖心情 Post By:2022/10/13 9:23:00 [只看该作者]

谢谢,可以了,老师:论坛有没有像这样外部资源用户管理分享的

 回到顶部
总数 11 1 2 下一页