【结贴】请教，如何控制只能删除自己维护的数据。**

hero419 · 发表于 2007-12-12 10:35:44

在业务表中添加了维护人字段，自动填充操作者工号。
现在控制只能修改自己维护的数据是可以的，在是否可编辑表达式中维护“WHR＝OperatorID”
那如何控制只能删除自己维护的数据呢？
. .
谢谢！
. .

lixy · 发表于 2007-12-12 10:51:44

只能自己在代码里面控制，判断当前字段当前值是否是操作人。不是的，不让删除

hero419 · 发表于 2007-12-12 10:56:44

能不能说详细点啊，或者给个例子看看吧。

lixy · 发表于 2007-12-12 11:03:07

在BeforeDelete事件里面写，如果不是当前操作人。就执行
dataset.canel;
sysutils.abort;

hero419 · 发表于 2007-12-12 11:19:11

我过程这样写的：
procedure TCS.DataSetBZSJJBeforeDelete(DataSet: TDataSet);
begin
if DataSetBZSJJ.FieldByName('WHR')<>'Biz:\SYSTEM\ORGPARAMS.PARAMGROUP\OperatorID.Param'
then
begin
      datasetBZSJJ.cancel;
      sysutils.abort;
      jsdialogs.showmsg('只能删除自己的数据','')
end;
end;

这样可以么？

还有jsdialogs.showmsg('只能删除自己的数据','')报错：
[错误]Biz:\MASTERMIND\XTGL\INFO\CS.Info.pas(28, 9): Undeclared identifier "jsdialogs"

谢谢。

lixy · 发表于 2007-12-12 11:24:21

if DataSetBZSJJ.FieldByName('WHR')<>'Biz:\SYSTEM\ORGPARAMS.PARAMGROUP\OperatorID.Param'
当前操作者不是这样获取的
TSYSTEMCORE.Operator才是当前操作者精华贴有很多讲这个的。

jsdialogs 去help搜索一下在什么空间里，uses加上就行了。

hero419 · 发表于 2007-12-12 14:05:08

恩，那能不能控制为判断如果点到别人的数据，“删除”按钮显示成灰色？

lixy · 发表于 2007-12-12 14:27:10

在数据集滚动事件里面写禁用或者有效按钮的事件

hero419 · 发表于 2007-12-12 14:32:35

是不是afterscroll事件啊？
这样写可以吧：
begin
if DataSetBZSJJ.FieldByName('WHR').AsString <> SystemCore.TSYSTEMCORE.Operator.Positions[0].PersonID
then
   begin
      禁用事件
   end;
else
   begin
      有效事件
end;
end;
.                                                                                                                                                                                  .
禁用或者有效事件怎么写啊？
.                                                                                                                                                                                  .

lixy · 发表于 2007-12-12 14:40:38

用actionlist ，搜搜bbs吧。
http://bbs.justep.com/search.php ... ng&pagenumber=1

		自动登录	找回密码
密码			立即注册