| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 用户登录时，加载所有表 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=138162) |
| -- 作者：foxuser -- 发布时间：2019/7/24 11:00:00 -- 用户登录时，加载所有表 用户登录时，加载所有表。怎样设置用户登录时，只加载有权限的表呢？ |
| -- 作者：有点蓝 -- 发布时间：2019/7/24 11:23:00 -- 参考：http://www.foxtable.com/webhelp/topics/2267.htm |
| -- 作者：foxuser -- 发布时间：2019/7/26 18:44:00 -- Select Case e.DataTableName Case "A表" e.Cancel = (e.User.Group = "A") Case "E表" e.Cancel = (e.User.Group = "B") Case "C表" e.Cancel = (e.User.Group = "C") Case "d表" e.Cancel = (e.User.Group = "D") ... End Select 多个Case语句,不生效
|
| -- 作者：有点蓝 -- 发布时间：2019/7/26 20:53:00 -- 贴出你完整有意义的代码 |
| -- 作者：foxuser -- 发布时间：2019/7/29 9:14:00 -- Select Case e.DataTableName Case "客户", "销售单","检验标准","首件","复卷","涂布","来料异常统计表","制程异常汇总表","浆料检验","箔材进料检验","IPA检验","纸管检验","特采跟踪反馈表","风鹏检验","石墨检验","碳黑检验","干燥剂检验","浆料072C3生产记录表","胶水检验记录表","浆料062CH1生产记录表","浆料065C0生产记录表","浆料067C0生产记录表","浆料069C3A生产记录表","生产复卷工艺记录表","生产复卷不良记录表" e.Cancel = (e.User.Group = "涂布") Case "客户", "销售单","检验标准","首件","复卷","涂布","来料异常统计表","制程异常汇总表","浆料检验","箔材进料检验","IPA检验","纸管检验","特采跟踪反馈表","风鹏检验","石墨检验","碳黑检验","干燥剂检验","浆料072C3生产记录表","胶水检验记录表","浆料062CH1生产记录表","浆料065C0生产记录表","浆料067C0生产记录表","浆料069C3A生产记录表", "生产涂布工艺记录表","生产涂布不良记录表","生产统计","生产配料记录表","生产首件打样" e.Cancel = (e.User.Group = "复卷") Case "客户","销售单","检验标准","首件","复卷","涂布","来料异常统计表","制程异常汇总表","浆料检验","箔材进料检验","IPA检验","纸管检验","特采跟踪反馈表","风鹏检验","石墨检验","碳黑检验","干燥剂检验","浆料072C3生产记录表","胶水检验记录表","浆料062CH1生产记录表","浆料065C0生产记录表","浆料067C0生产记录表","浆料069C3A生产记录表","版辊对应配比" e.Cancel = (e.User.Group = "文员") Case "生产首件打样","客户","销售单","检验标准","首件","复卷","涂布","来料异常统计表","制程异常汇总表","浆料检验","箔材进料检验","IPA检验","纸管检验","特采跟踪反馈表","风鹏检验","石墨检验","碳黑检验","干燥剂检验","胶水检验记录表","浆料072C3生产记录表" e.Cancel = (e.User.Group = "计划") Case "生产排产表","生产涂布工艺记录表","生产统计","生产配料记录表","生产首件打样","生产复卷工艺记录表","工艺标准表","版辊对应配比" e.Cancel = (e.User.Group = "普通用户") Case "客户","检验标准","来料异常统计表","箔材进料检验","IPA检验","纸管检验","风鹏检验","石墨检验","碳黑检验","干燥剂检验","浆料072C3生产记录表" e.Cancel = (e.User.Group = "主管") Case "特采跟踪反馈表","风鹏检验","石墨检验","碳黑检验","干燥剂检验" e.Cancel = (e.User.Group = "GCB") Case "生产排产表","生产涂布工艺记录表","生产统计","生产配料记录表","生产首件打样","生产复卷工艺记录表","浆料072C3生产记录表","版辊对应配比" e.Cancel = (e.User.Group = "COA") Case "生产排产表","生产涂布工艺记录表","生产涂布不良记录表","生产统计","生产配料记录表","生产首件打样","生产复卷工艺记录表","生产复卷不良记录表","客户","销售单","检验标准","首件","复卷","涂布","来料异常统计表","制程异常汇总表","浆料检验","箔材进料检验","IPA检验","纸管检验","特采跟踪反馈表","工艺标准表","风鹏检验","石墨检验","碳黑检验","浆料072C3生产记录表","干燥剂检验","胶水检验记录表","浆料062CH1生产记录表","浆料065C0生产记录表","浆料067C0生产记录表","浆料069C3A生产记录表","版辊对应配比" e.Cancel = (e.User.Group = "WK") Case "生产排产表","生产涂布工艺记录表","生产涂布不良记录表","生产统计","生产配料记录表","生产首件打样","生产复卷工艺记录表","生产复卷不良记录表","客户","销售单","检验标准","首件","复卷","涂布","来料异常统计表","制程异常汇总表","浆料检验","箔材进料检验","IPA检验","纸管检验","特采跟踪反馈表","工艺标准表","风鹏检验","石墨检验","碳黑检验","浆料072C3生产记录表","干燥剂检验","胶水检验记录表","浆料062CH1生产记录表","浆料065C0生产记录表","浆料067C0生产记录表","浆料069C3A生产记录表","版辊对应配比" e.Cancel = (e.User.Group = "HR") Case "版辊对应配比" e.Cancel = (e.User.Group = "QE") Case "客户","销售单","检验标准","首件","复卷","涂布","来料异常统计表","制程异常汇总表","浆料检验","箔材进料检验","IPA检验","纸管检验","特采跟踪反馈表","风鹏检验","石墨检验","碳黑检验","干燥剂检验","浆料072C3生产记录表","胶水检验记录表","浆料062CH1生产记录表","浆料065C0生产记录表","浆料067C0生产记录表","浆料069C3A生产记录表","版辊对应配比" e.Cancel = (e.User.Group = "ACC") Case "生产涂布工艺记录表","生产统计","生产配料记录表","生产首件打样","生产复卷工艺记录表","生产复卷不良记录表","客户","销售单","检验标准","首件","复卷","涂布","来料异常统计表","制程异常汇总表","浆料检验","箔材进料检验","IPA检验","纸管检验","特采跟踪反馈表","工艺标准表","风鹏检验","石墨检验","碳黑检验","浆料072C3生产记录表","干燥剂检验","胶水检验记录表","浆料062CH1生产记录表","浆料065C0生产记录表","浆料067C0生产记录表","浆料069C3A生产记录表","版辊对应配比" e.Cancel = (e.User.Group = "PUR") Case "生产排产表","生产涂布工艺记录表","生产涂布不良记录表","生产统计","生产配料记录表","生产首件打样","生产复卷工艺记录表","生产复卷不良记录表","客户","销售单","检验标准","首件","复卷","涂布","来料异常统计表","制程异常汇总表","箔材进料检验","IPA检验","纸管检验","特采跟踪反馈表","工艺标准表","风鹏检验","石墨检验","碳黑检验","版辊对应配比" e.Cancel = (e.User.Group = "SC") Case "生产排产表","生产涂布工艺记录表","生产涂布不良记录表","生产统计","生产配料记录表","生产首件打样","生产复卷工艺记录表","生产复卷不良记录表","客户","销售单","检验标准","首件","复卷","涂布","来料异常统计表","制程异常汇总表","浆料检验","箔材进料检验","IPA检验","纸管检验","特采跟踪反馈表","工艺标准表","风鹏检验","石墨检验","碳黑检验","浆料072C3生产记录表","干燥剂检验","胶水检验记录表","浆料062CH1生产记录表","浆料065C0生产记录表","浆料067C0生产记录表","浆料069C3A生产记录表","版辊对应配比","文件系统管理" e.Cancel = (e.User.Group = "6S") Case "生产涂布工艺记录表","生产涂布不良记录表","生产统计","生产配料记录表","生产首件打样","生产复卷工艺记录表","客户","销售单","检验标准","首件","涂布","浆料检验","箔材进料检验","IPA检验","纸管检验","特采跟踪反馈表","风鹏检验","石墨检验","碳黑检验","浆料072C3生产记录表","干燥剂检验","胶水检验记录表","浆料062CH1生产记录表","浆料065C0生产记录表","浆料067C0生产记录表","浆料069C3A生产记录表","版辊对应配比","分层审核问题跟踪表" e.Cancel = (e.User.Group = "CK") End Select
|
| -- 作者：有点蓝 -- 发布时间：2019/7/29 10:46:00 -- 先看看：http://www.foxtable.com/webhelp/topics/2242.htm 然后需要使用2层select case处理，如： Select Case e.User.Group Case "涂布" Select Case e.DataTableName Case "客户", "销售单","检验标准","首件","复卷","涂布","来料异常统计表","制程异常汇总表","浆料检验","箔材进料检验","IPA检验","纸管检验","特采跟踪反馈表","风鹏检验","石墨检验","碳黑检验","干燥剂检验","浆料072C3生产记录表","胶水检验记录表","浆料062CH1生产记录表","浆料065C0生产记录表","浆料067C0生产记录表","浆料069C3A生产记录表","生产复卷工艺记录表","生产复卷不良记录表" Case Else e.Cancel = True End Select Case "复卷" Select Case e.DataTableName Case "客户", "销售单","检验标准","首件","复卷","涂布","来料异常统计表","制程异常汇总表","浆料检验","箔材进料检验","IPA检验","纸管检验","特采跟踪反馈表","风鹏检验","石墨检验","碳黑检验","干燥剂检验","浆料072C3生产记录表","胶水检验记录表","浆料062CH1生产记录表","浆料065C0生产记录表","浆料067C0生产记录表","浆料069C3A生产记录表", "生产涂布工艺记录表","生产涂布不良记录表","生产统计","生产配料记录表","生产首件打样" Case Else e.Cancel = True End Select End Select |