主题：求窗口权限代码

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

点击浏览该文件:生产流程管理_1224.zip

帮助中找不到例子，求窗口权限代码：

1：窗口中的文本柜如果是空的就可写，有值就不可写（指定管理员才能修改）。

2：窗口中的表如果新增行，或当前行被修改，没有按确认就不能选择其它行与表或退出（要提示确认）。

允许此表可以编辑。

'PrepareEdit事件

If User.Name <> "管理员" Then
    If e.Row.IsNull(e.col.name) = False Then
        e.Cancel = True
    End If
End If

If User.Name <> "管理员" Then
    If e.Row.IsNull(e.col.name) = False Then
        e.Cancel = True
    End If
End If

这个代码只在主表起作用，对窗口文本柜不起作用呀！

2：窗口中的表如果接新增行或当前行被修改，没有按确认（保存）就不能选择其它行与表或退出（要提示确认）。

这个代码怎么写了（是在窗口事件中）？

文本框：TextBox 和 数值勤框：NumericComboBox  不起作用呀

窗口的全局事件Enter 有写了这个，现在的问题是如何让文本框：TextBox 和 数值勤框：NumericComboBox  在以有数值的情况下也禁止编辑

Dim ctl As WinForm.Control = e.Sender
Select Case ctl.BindingField
    Case "生产流程表.生产_交货数量", "生产流程表.生产_日期", "生产流程表.生产_挡车工"
        If User.Group = "生产车间" Then
            ctl.ReadOnly = BooleanEnum.False '允许编辑
        Else
            ctl.ReadOnly = BooleanEnum.True '禁止编辑
        End If
    Case "生产流程表.品检_成品数量", "生产流程表.品检_日期", "生产流程表.品检_检验员"
        If User.Group = "品检车间" Then
            ctl.ReadOnly = BooleanEnum.False '允许编辑
        Else
            ctl.ReadOnly = BooleanEnum.True '禁止编辑
        End If
End Select

这样才不会被工人保存过后更改数值。

刚找到这个代码，就是少了个提示：当前记录未保存！

With Tables("织机生产")
    If .Current.DataRow.RowState = DataRowState.Unchanged Then '如果当前行未曾修改
        Tables("织机生产").AddNew()
    End If
End With

可以看看这个：

http://www.foxtable.com/help/topics/0644.htm

至于加个提示，不是很简单的事情吗？