主题：如何实现多用户管理

我们现在有23个用户，每个人一张表。

如何实现：

其中一部分人能看到其他人的22张表，

其中一部分人不可以看到别人的表，

每个人的表只能在规定的日期内填写与修改自己的表，过了一定的实效就不可以修改。

设计步骤：

1、首先在用户管理中，加上每个填报人:

2、然后在订单表的DataRowAdding事件 中加入代码：

e.DataRow("填报人") = User.name

这样新增订单的时候，会自动在业务员列填入当前登录用户名。

3、最后将订单表的PrepareEdit事件设置为：

此主题相关图片如下：微信图片_20200824143235.png

If e.Row("填报人") <> User.Name Then
    e.Cancel = True
End If
此主题相关图片如下：微信图片_20200824143019.png

表事件

 

工作日志基础数据_PrepareEdit

 

If User.Name = "管理员" Then '如果是管理员

    If e.Row("结账") = True Then '此订单已经结账

        Dim tv As Date = e.Row("日期")

        Dim tp As TimeSpan = Date.Today - tv

        If tp.TotalDays >= 10 Then '如果订单已经超过10天

            e.Row("结账") = True '则结账列自动返回True？？？

            e.Cancel = True '则取消编辑

        End If

    End If

ElseIf e.Row("填报人") <> User.Name Then '如果是其他用户,且填报人和登录用户名不同

    e.Cancel = True '则取消编辑

End If

假定在数据表中，有一逻辑型数据列，列名为“结帐”，我们希望对于每一个结帐的行，是否能够自动通过大于10天则审核(锁定)，以免被误编辑。　

表事件

 

工作日志基础数据_PrepareEdit

 

If User.Name = "管理员" Then '如果是开发者或者是管理员

    If e.Row("结账") = True Then '此订单已经结账

        Dim tv As Date = e.Row("日期")

        Dim tp As TimeSpan = Date.Today - tv

        If tp.TotalDays >= 10 Then '如果订单已经超过10天

            e.Row("结账") = True '则结账列返回True

            e.Cancel = True '则取消编辑

        End If

    End If

ElseIf e.Row("填报人") <> User.Name Then '如果是其他用户,且填报人和登录用户名不同

    e.Cancel = True '则取消编辑

End If

 

工作日志基础数据_DataColChanged

 

If e.DataCol.Name = "结帐" Then '如果是已结帐列的内容变动

    If e.NewValue = True Then '而且变动后的值是True(已勾选)

        Dim tv As Date = e.DataRow("日期")

        Dim tp As TimeSpan = Date.Today - tv

        If tp.TotalDays >= 10 Then '如果订单已经超过10天

            e.DataRow.Locked = True '那么锁定此行

        End If

    End If

End If

 

工作日志基础数据_DataRowAdding

 

e.DataRow("填报人") = User.name '新增行.20200826

e.DataRow("日期") = Date.Today()

e.DataRow("编号") = e.DataTable.Compute("Max(编号)") + 1

 

项目事件

 

LoadUserSetting

 

If User.Name = "管理员" Then

    DataTables("工作日志基础数据").LoadFilter = ""

Else

    DataTables("工作日志基础数据").LoadFilter = "填报人 = '" & User.Name & "'"

End If

DataTables("工作日志基础数据").Load()

DataTables("工作日志基础数据").DataCols("日期").RaiseDataColChanged

 

 

表事件

 

工作日志基础数据_DataColChanged

If e.DataCol.Name = "结账" Then '如果是已结帐列的内容变动

    If e.NewValue = True Then '而且变动后的值是True(已勾选)

        If e.DataRow.isnull("结账")=False Then '而且变动后的值是True(已勾选)

            Dim tv As Date = e.DataRow("日期")

            Dim tp As TimeSpan = Date.Today - tv

            If tp.TotalDays >= 10 Then '如果订单已经超过10天

                e.DataRow.Locked = True '那么锁定此行

            End If

        End If

    End If

End If

 

工作日志基础数据_DataRowAdding

 

e.DataRow("填报人") = User.name '新增行.20200826

e.DataRow("日期") = Date.Today()

e.DataRow("编号") = e.DataTable.Compute("Max(编号)") + 1

 

工作日志基础数据_DataRowLockedChanging

 

If e.DataRow("结账") = False Then  '未审核通过的行

    If e.DataRow.Locked  = False Then '如果此行目前未锁定,也就是准备锁定此行

        Dim tv As Date = e.DataRow("日期")

        Dim tp As TimeSpan = Date.Today - tv

        If tp.TotalDays >= 10 Then '如果订单已经超过10天

            e.DataRow.Locked = True '那么锁定此行

        End If

        Messagebox.show("不能锁定未审核通过的行!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

        e.Cancel = True

    End If

ElseIf e.DataRow("结账") = True Then '已经结账通过的行

    If e.DataRow.Locked  = True Then '如果此行已锁定,也就是准备取消锁定此行

        If User.Group <> "管理员" Then

            Messagebox.show("只有管理员才能解锁已经审核通过的行!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

            e.Cancel = True

        End If

    End If

End If

 

表事件

 

工作日志基础数据_DataColChanged

 

If e.DataCol.Name = "结账" OrElse e.DataCol.Name = "日期" Then '如果是已结帐列的内容变动

    

    If e.NewValue = True AndAlso e.DataRow.isnull("日期") = False Then '而且变动后的值是True(已勾选)

        

        Dim tv As Date = e.DataRow("日期")

        

        Dim tp As TimeSpan = Date.Today - tv

        

        If tp.TotalDays >= 10 Then '如果订单已经超过10天

            

            e.DataRow.Locked = False '那么锁定此行

            

        End If

        

    End If

    

End If

 

工作日志基础数据_DataRowAdding

 

e.DataRow("填报人") = User.name '新增行.20200826

 

e.DataRow("日期") = Date.Today()

 

e.DataRow("编号") = e.DataTable.Compute("Max(编号)") + 1

项目事件

 

LoadUserSetting

 

If User.Name = "管理员" Then

    DataTables("工作日志基础数据").LoadFilter = ""

Else

    DataTables("工作日志基础数据").LoadFilter = "填报人 = '" & User.Name & "'"

End If

DataTables("工作日志基础数据").Load()

DataTables("工作日志基础数据").DataCols("日期").RaiseDataColChanged

表事件
工作日志基础数据_DataColChanged
If e.DataCol.Name = "结账" Then '如果是已结帐列的内容变动
    If e.NewValue = True Then '而且变动后的值是True(已勾选)
        If e.DataRow("结账") = True AndAlso e.DataRow.isnull("日期") = False Then '而且变动后的值是True(已勾选)
            Dim tv As Date = e.DataRow("日期")
            Dim tp As TimeSpan = Date.Today - tv
            If tp.TotalDays >= 10 Then '如果订单已经超过10天
                e.DataRow.Locked = True '那么锁定此行
            End If
        End If
    End If
End If

以上能实现超过十天，手动结账后，自动锁定该行。
我想实现，超过十天，自动结账，并锁定该行。请问如何实现？多谢！！！