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

来源:原创 点击数:8704 　 | 收藏 | 复制

时　间:2007-10-29 14:57:41
作　者:gdjdyyj ID：54 城市：东营
摘　要:增加销售订单修改权限提示
正　文:

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

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

如果操作员登录后,修改了不是本操作员的订单,弹出一个消息框提示本操作员,则不打开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窗体关闭的闪动痕迹，请大家研究如何使界面更优化美观。

显示效果如下图：

Access软件网官方交流QQ群 (群号:483923997) 　　　　　　Access源码网店

Access网店: