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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 窗口关联表权限问题

共有15478人关注过本帖树形打印复制链接主题：窗口关联表权限问题

czy

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

加好友

发短信

等级：超级版主帖子：6318 积分：33963 威望：0 精华：10 注册：2008/8/31 20:56:00

Post By：2009/12/17 15:23:00 [显示全部帖子]

这样的提问会把人吓跑的。

czy

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

加好友

发短信

等级：超级版主帖子：6318 积分：33963 威望：0 精华：10 注册：2008/8/31 20:56:00

Post By：2009/12/17 15:36:00 [显示全部帖子]

1、

Select Case User.Group
    Case "管理员","部门主管"
        DataTables("表A").AllowEdit = False
        DataTables("表B").AllowEdit = False
    Case Else
        DataTables("表A").AllowEdit = False
        DataTables("表B").AllowEdit = true
        DataTables("表B").DataCols("图号").AllowEdit = False
        DataTables("表B").DataCols("名称").AllowEdit = False
        DataTables("表B").DataCols("订单号").AllowEdit = False
        DataTables("表B").DataCols("工序班组").AllowEdit = False
End Select

czy

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

加好友

发短信

等级：超级版主帖子：6318 积分：33963 威望：0 精华：10 注册：2008/8/31 20:56:00

Post By：2009/12/17 22:31:00 [显示全部帖子]

其余列指的是哪些列？

czy

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

加好友

发短信

等级：超级版主帖子：6318 积分：33963 威望：0 精华：10 注册：2008/8/31 20:56:00

Post By：2009/12/17 22:52:00 [显示全部帖子]

启用定时器。

'窗口TimerTick代码
Dim r1 As Row = Tables("表A").Current
Dim r2 As Row = Tables("表B").Current
Select Case User.Group
    Case "1组"
        DataTables("表A").AllowEdit = True
        DataTables("表A").AllowAddNew = r1("工序班组") = "A"
        DataTables("表B").AllowAddNew = r1("工序班组") = "A"
        '允许编辑指定列代码,下一行代码只是示例
        DataTables("表B").DataCols("图号").AllowEdit = r2("工序班组") = "A"
    Case "2组"
        DataTables("表A").AllowEdit = True
        DataTables("表A").AllowAddNew = r1("工序班组") = "B"
        DataTables("表B").AllowAddNew = r1("工序班组") = "B"
        '允许编辑指定列代码,下一行代码只是示例
        DataTables("表B").DataCols("图号").AllowEdit = r2("工序班组") = "B"

        '其它分组代码可参照上面
End Select

czy

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

加好友

发短信

等级：超级版主帖子：6318 积分：33963 威望：0 精华：10 注册：2008/8/31 20:56:00

Post By：2009/12/18 1:15:00 [显示全部帖子]

看来还不能偷懒。

Dim r1 As Row = Tables("表A").Current
Dim r2 As Row = CurrentTable.Current
Select Case User.Group
    Case "1组"
        if r2 IsNot Nothing Then
            CurrentTable.AllowAddNew = r1("工序班组") = "A"
            CurrentTable.Cols("第五列").AllowEdit = r2("工序班组") = "A"
        Else
            CurrentTable.AllowAddNew = False
            CurrentTable.Cols("第五列").AllowEdit = False
        End If
    Case "2组"
        if r2 IsNot Nothing Then
            CurrentTable.AllowAddNew = r1("工序班组") = "B"
            CurrentTable.Cols("第五列").AllowEdit = r2("工序班组") = "B"
        Else
            CurrentTable.AllowAddNew = False
            CurrentTable.Cols("第五列").AllowEdit = False
        End If
End Select

czy

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

加好友

发短信

等级：超级版主帖子：6318 积分：33963 威望：0 精华：10 注册：2008/8/31 20:56:00

Post By：2009/12/18 1:45:00 [显示全部帖子]

还是这样设置算了。
代码在CurrentChanged事件中。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目4.table

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

主题：窗口关联表权限问题