主题：[求助]如何实现工作流这样的授权？

工作流授权问题，有4个角色，分别为A、B、C、D，负责不同的工作，用户有张三、李四、王五、赵六，按一个月算，每天每人的角色是固定的的，但天与天之间的角色可能是不一样的，需要每个月前预先授权，如下图1、2、3、4等是日期，这样的授权应该可以实现吧？
此主题相关图片如下：图片1.png

狐爸，具体怎么实现，请详细指点，先谢谢了！

这样的表，表名“授权表”，好实现吗？
此主题相关图片如下：图片2.png

狐爸，实现当天以某用户进入实现“入场监督查验”、“检疫申报”、“宰前检查”、“同步检疫”权限，红色代码如何改写？：

Dim dt As Date = Date.Today
Dim us As String = "User.name"
Dim dr As DataRow = DataTables("屠宰检疫用户授权").Find("用户名 = '" & us & "' And 日期 = #" & dt & "#")
If dr IsNot Nothing Then
    If dr("入场监督查验") = True  Then
        Messagebox.show("恭喜,有权限!")
    Else
        Messagebox.show("兄弟,别乱来!")
    End If
Else
        Messagebox.show("嘿嘿,名单中没有你哦")
End If

另，Messagebox.show("恭喜,有权限!")等无法关闭。

信息框怎么按确定，关不掉？

狐爸，我确实写在PrepareEdit事件中，哪应该写在哪里？

红色代码哪里有问题？

Dim dt As Date = Date.Today
Dim us As String = User.name
Dim dr As DataRow = DataTables("屠宰检疫用户授权").Find("用户名 = '" & us & "' And 日期 = #" & dt & "#")
If dr IsNot Nothing Then
    If dr("入场监督查验") = True And dr("检疫申报") = True And dr("宰前检查") = True And dr("同步检疫") = True Then
        Messagebox.show("恭喜,有权限!","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)
    Else
        Messagebox.show("兄弟,别乱来!","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)
    End If
Else
        Messagebox.show("嘿嘿,名单中没有你哦","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)
End If

上个例子吧，根据例程中自动流转二修改，原例程中是以用户为控制权限的，比如，张三只能操作第一、第二列，李四操作第三、第四列等，这样比较死板。

我想要达到预先设定某天、某人、某权限，到那一天某人就具备指定的权限。这样可以做到指定的日期，可以操作某项工作，可以轮班工作，具有很大的灵活性。在这个列程中，A权限可以操作第一、第二列，B权限可以操作第三、第四列，C权限可以操作第五、第六列，D权限可以操作第七列、第八列。怎样可以实现？

前面有人说很容易，按照他们的提示和帮助怎么都实现不了，现请大家帮忙，谢谢。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:自动流程1.foxdb

授权解决了，谢谢有点甜。怎样才能实现处在什么状态？，比如目前处在什么阶段是A1,A2等，还是B1，B2?

LoadUserseting和AftersaveProject如何改？求有点甜再帮忙改下，先谢了。

在BeforeAddDataRow中：

Dim dt As Date = Date.Today
Dim us As String = User.name
Dim dr As DataRow = DataTables("用户授权").Find("用户名 = '" & us & "' And 日期 = #" & dt & "#")
If dr IsNot Nothing And dr("A权限") = True Then
    e.Cancel=False
   Else
    e.cancel=True
End If

运行后显示：

 

此主题相关图片如下：图1.jpg