- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 用菜单命令修改和删除行，如何进行不同用户的权限设置？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=17136)
-- 发布时间：2012/3/4 22:20:00
-- 用菜单命令修改和删除行，如何进行不同用户的权限设置？
想要达到的目的：被 业务员A 编辑过的订单（可编辑状态），其它业务员不能通过窗口按钮命令更改或删除。
窗口中“删除订单”命令代码如下：
If Tables("订单").Rows("业务员") <> User.Name Then ---- 如果现在正在编辑的业务员，不是之前创建这个订单的业务员----（保存提示错误，但我不知道如何修改）
e.Form.Controls("textbox1").ReadOnly =BooleanEnum.True ---- 全部控件设为只读----
e.Form.Controls("dingdanhao").ReadOnly =BooleanEnum.True
e.Form.Controls("textbox3").ReadOnly =BooleanEnum.True
e.Form.Controls("textbox4").ReadOnly =BooleanEnum.True
e.Form.Controls("textbox5").ReadOnly =BooleanEnum.True
end If
-- 发布时间：2012/3/5 8:12:00
--
1、设置表A的CurrentChanged事件代码为：
if Forms("窗口名").Opened() Then
if e.Row("业务员") <> User.Name Then
Forms("窗口名").Controls("textbox1").ReadOnly =BooleanEnum.True
Forms("窗口名").Controls("dingdanhao").ReadOnly =BooleanEnum.True
Forms("窗口名").Controls("textbox3").ReadOnly =BooleanEnum.True
Forms("窗口名").Controls("textbox4").ReadOnly =BooleanEnum.True
Forms("窗口名").Controls("textbox5").ReadOnly =BooleanEnum.True
Else
Forms("窗口名").Controls("textbox1").ReadOnly =BooleanEnum.False
Forms("窗口名").Controls("dingdanhao").ReadOnly =BooleanEnum.false
Forms("窗口名").Controls("textbox3").ReadOnly =BooleanEnum.false
Forms("窗口名").Controls("textbox4").ReadOnly =BooleanEnum.false
Forms("窗口名").Controls("textbox5").ReadOnly =BooleanEnum.false
end if
Forms("窗口名").Controls("删除按钮").enabled = e.Row("业务员") = User.Name
2、设置窗口的AfterLoad事件:
Tables("表A").RaiseCurrentChanged()
-- 发布时间：2012/3/5 14:30:00
--
谢谢！！！
-- 发布时间：2012/3/5 14:37:00
--
试了，不过似乎不行....
此主题相关图片如下：11.jpg
-- 发布时间：2012/3/5 14:42:00
--
笔误，请将代码中的e.Row改为e.Table.Current
-- 发布时间：2012/3/5 15:30:00
--
嗯嗯，谢谢！！！