增加销售订单修改权限提示

 

销售订单修改时为了订单数据的安全，应本着谁的订单谁修改的准则。

如果操作员登录后,修改了不是本操作员的订单,弹出一个消息框提示本操作员,则不打开frmxsddzj_chil_edit窗体。

在frmxsddzj_chil_edit窗体的Form_Load事件中，加数条语句就可实现：

Private Sub Form_Load()

    Me.RecordSource = "select * from tblxsddzj where xsddid='" & selectstr & "'"

g_currentselectstrid = selectstr

 

‘tblxsddzj表中的czyid不等于登录框中txtUserName时，弹出消息框

    If Me.czyid <> Forms!usysfrmlogin!txtUserName Then

        MsgBox "此订单的操作员为" & Me.czyid & "!" & Chr(13) & Chr(13) & "您不具有修改此订单的权限!" & Chr(13) & Chr(13) & "   请此订单操作员修改!", vbCritical, "提示"

　　　‘关闭修改窗体

        DoCmd.Close acForm, "frmxsddzj_child_edit"

    End If

End Sub

但有一不足，点击消息框的“确定”后，关闭frmxsddzj_chil_edit窗体时，屏幕有frmxsddzj_chil_edit窗体关闭的闪动痕迹，请大家研究如何使界面更优化美观。

 

显示效果如下图：