- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 用户管理 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=180290)
-- 发布时间：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
-- 发布时间：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用于保存该用户的分组。
-- 发布时间：2022/10/12 16:47:00
--
设置的内部表，直接复制论坛里面下载的权限管理
-- 发布时间：2022/10/12 16:49:00
--
直接搬运论坛这个里面表和代码就弹窗不可以
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:权限管理_小例.table |
-- 发布时间：2022/10/12 16:59:00
--
照抄全局代码的代码
-- 发布时间：2022/10/12 17:04:00
--
登录窗口事件代码，登录按键，全部照抄就弹窗不可以
-- 发布时间：2022/10/12 17:09:00
--
4楼项目有问题？怎么测试？
-- 发布时间：2022/10/12 17:36:00
--
直接建立一样的表名，列名就在建立窗口事件代码和登录按键就弹窗一楼那截图错误代码
-- 发布时间：2022/10/12 17:41:00
--
如果是指新建的项目测试，照抄别人项目的全局代码啊！
此主题相关图片如下：1.png
-- 发布时间：2022/10/13 9:23:00
--
谢谢，可以了，老师：论坛有没有像这样外部资源用户管理分享的