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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 老大请教个问题

共有4446人关注过本帖树形打印复制链接主题：老大请教个问题

xiaofei_00

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

加好友

发短信

等级：幼狐帖子：147 积分：1230 威望：0 精华：0 注册：2021/6/18 12:12:00

老大请教个问题 发帖心情

Post By：2022/1/12 11:16:00 [只看该作者]

我的程序中采用的外部数据源，数据源中有5个表格，其中一个是权限表，我的权限设置是不同的人看到不同的表，只能对他自己看见的表进行部分操作，现在的问题是我们的服务器不是很稳定，有的时候打开软件加载表格时由于网速的问题报错，就是本应该他看不到的表格由于出错他也看到了，我分析是权限表没有加载或者加载不完全的原因造成的，我的问题是这样情况下他是否对出错本不该看到的表格进行修改？会不会越过我设置的权限，最后造成我的数据不安全？？？？？？请老大明示，还有这样的问题怎么避免？？

lgzhao

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

加好友

发短信

等级：小狐帖子：304 积分：2091 威望：0 精华：0 注册：2017/11/19 9:46:00

Post By：2022/1/12 11:19:00 [只看该作者]

开始不加载任何数据表。在相应功能按钮内设置加载外部表。

有点蓝

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

加好友

发短信

等级：超级版主帖子：113480 积分：577889 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/1/12 11:44:00 [只看该作者]

不要加载权限表，使用SQLcommand获取权限表数据，如果SQLcommand出错，就退出程序

[此贴子已经被作者于2022/1/12 11:43:43编辑过]

xiaofei_00

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

加好友

发短信

等级：幼狐帖子：147 积分：1230 威望：0 精华：0 注册：2021/6/18 12:12:00

Post By：2022/1/12 13:27:00 [只看该作者]

老师能给我个参考吗？我是按照咱的帮助文件一点一点做起来的，有些真的不大懂，就是可视化授权那一节的内容搞得

[此贴子已经被作者于2022/1/12 13:29:38编辑过]

有点蓝

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

加好友

发短信

等级：超级版主帖子：113480 积分：577889 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/1/12 13:44:00 [只看该作者]

http://www.foxtable.com/webhelp/topics/0696.htm

[此贴子已经被作者于2022/1/12 14:02:45编辑过]

xiaofei_00

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

加好友

发短信

等级：幼狐帖子：147 积分：1230 威望：0 精华：0 注册：2021/6/18 12:12:00

Post By：2022/1/12 13:59:00 [只看该作者]

老师实在不好意思我了还是不知道怎么用，我的授权表就是叫”授权表“，请问我要怎么读取它的数据呢？代码写在哪里？怎么写？请您出手给写一段代码吧，万分感谢

有点蓝

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

加好友

发短信

等级：超级版主帖子：113480 积分：577889 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/1/12 14:04:00 [只看该作者]

发错了，这个帮助：http://www.foxtable.com/webhelp/topics/0696.htm

Dim cmd As New SQLCommand
cmd.ConnectionName = "数据源名称"
Dim dt As DataTable
cmd.CommandText = "SELECT DISTINCT 客户 From {授权表}"
dt = cmd.ExecuteReader()

然后可以使用dt替代datatables("授权表")

xiaofei_00

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

加好友

发短信

等级：幼狐帖子：147 积分：1230 威望：0 精华：0 注册：2021/6/18 12:12:00

Post By：2022/1/12 14:15:00 [只看该作者]

For Each t As Table In Tables

t.Visible = True

t.AllowEdit = True

For Each c As Col In t.Cols

c.Visible = True

c.AllowEdit = True

Tables("ACCshqb").Visible = (User.Type <> UserTypeEnum.User )

If User.Type = UserTypeEnum.User Then

For Each dr As DataRow In DataTables("ACCshqb").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

老师这是我的授权表使用的代码，您给的代码我要怎么用呢？

有点蓝

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

加好友

发短信

等级：超级版主帖子：113480 积分：577889 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/1/12 14:19:00 [只看该作者]

For Each t As Table In Tables

t.Visible = True

t.AllowEdit = True

For Each c As Col In t.Cols

c.Visible = True

c.AllowEdit = True

Tables("ACCshqb").Visible = (User.Type <> UserTypeEnum.User )

If User.Type = UserTypeEnum.User Then

Dim cmd As New SQLCommand
cmd.ConnectionName = "数据源名称"
Dim dt As DataTable
cmd.CommandText = "SELECT * From {ACCshqb} where 分组名 = '" & User.Group & "'"

dt = cmd.ExecuteReader()

For Each dr As DataRow In dt.datarows

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

xiaofei_00

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

加好友

发短信

等级：幼狐帖子：147 积分：1230 威望：0 精华：0 注册：2021/6/18 12:12:00

Post By：2022/1/12 14:35:00 [只看该作者]

感谢老师，哪天老师来淄博我请您吃饭

下一主题 >> << 上一主题

主题：老大请教个问题