用户管理 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有7049人关注过本帖树形打印复制链接主题：用户管理

denghui69986

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

加好友

发短信

等级：一尾狐帖子：499 积分：3262 威望：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

有点蓝

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

加好友

发短信

等级：超级版主帖子：110758 积分：563716 威望：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用于保存该用户的分组。