按照视频里的做，达不到效果 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

用户管理的窗口：afterload，写入以下代码，窗口绑定在授权表下

Dim lst As WinForm.ListBox = e.Form.Controls("ListBox1")

lst.ComboList = _UserTable.SQLGetComboListString("Name")

If Lst.Items.Count > 0 Then

lst.SelectedIndex = 0

End If '用户管理

For Each ck As DataRow In DataTables("授权表").Select("分组 = ' " & user.Group & " ' And 表名 = '" & e.Form.name & " '")

e.form.controls(ck("列名")).Visible = Not ck("不可见")

e.form.controls(ck("列名")).Visible = Not ck("不可编辑")

Next '将窗口以表名字写入授权表控制

此主题相关图片如下：tim截图20180327115138.png

不用管理员登陆，提示错误后，无法进入系统

此主题相关图片如下：tim截图20180327092235.png

[此贴子已经被作者于2018/3/27 11:54:09编辑过]

Tables("授权表").Visible = (User.Type <> UserTypeEnum.User )

If User.Type = UserTypeEnum.User Then

For Each dr As DataRow In DataTables("授权表").Select("分组 = '" & User.Group & "'" )

If dr.IsNull("列名") Then

Tables(dr("表名")).Visible = Not dr("不可见")

Tables(dr("表名")).AllowEdit = Not dr("不可编辑")

Else

Tables(dr("表名")).Cols(dr("列名")).Visible = Not dr("不可见")

Tables(dr("表名")).Cols(dr("列名")).AllowEdit = Not dr("不可编辑")

End If

End If '权限设置

这个是项目属性里的，只是针对表，可以生效，看视频讲解，在窗口的加载后执行，老师演示效果挺好：窗口事件 afterload

在窗口事件里写的是：

Dim lst As WinForm.ListBox = e.Form.Controls("ListBox1")

lst.ComboList = _UserTable.SQLGetComboListString("Name")

If Lst.Items.Count > 0 Then

lst.SelectedIndex = 0

End If '用户管理

For Each ck As DataRow In DataTables("授权表").Select("分组 = ' " & user.Group & " ' And 表名 = '" & e.Form.name & " '")

e.form.controls(ck("列名")).Visible = Not ck("不可见")

e.form.controls(ck("列名")).Visible = Not ck("不可编辑")

Next '将窗口以表名字写入授权表控制

授权被的列是：分组，表名，列名，不可见，不可编辑

下图是视频截图

此主题相关图片如下：tim截图20180327125051.png

[此贴子已经被作者于2018/3/27 12:51:49编辑过]

两种方法都不行，提示找不到****表后，确定系统退出不能进入

好杯具

现在好像权限都失效了。

用户数据绑定到 ACC数据库里，和其他表一个数据，总是提示格式错误，名称这个键已经是主键了

[此贴子已经被作者于2018/3/27 20:53:26编辑过]

授权表格式我重新调整了下

1、权限失效，

限制每个表功能使用

限制窗口打开

限制菜单打开3类

2、第一个表水质检测原始数据，修改第一列，和最后一列，自动记录修改人，如果用开发模式进去，记录没错，如果正常双击进去，记录人是1

[此贴子已经被作者于2018/3/27 20:52:59编辑过]

以上方法都试过，不好用，而且出新问题，不能直接启动了，启动画面晃下就闪退，没任何提示。图片点击可在新窗口打开查看

权限不好使，今天还直接不能启动了，啥提示没有，本想早一点给公司看看效果，买几套。急不来啊，看来，，要么实例帮忙分析下，权限那里有问题

下载信息 [文件大小：下载次数： ]
点击浏览该文件:药店水质分析系统.table

下载信息 [文件大小：下载次数： ]
点击浏览该文件:水质分析系统 - 副本.zip

补充：

授权表隐藏，不可编辑，无效，

此主题相关图片如下：tim截图20180328132925.png

& _usergroup :授权表隐藏不出来，开权限也是不出来

& User.Group 开不开权限，授权被都出来

[此贴子已经被作者于2018/3/28 13:34:01编辑过]

主题：按照视频里的做，达不到效果