起步软件技术论坛-X3

 找回密码
 立即注册
搜索
查看: 142|回复: 6

【搞定】工作台问题(急~急~!)**

[复制链接]
发表于 2007-12-4 09:35:37 | 显示全部楼层 |阅读模式
我在工作台上新加了一个 ‘完成任务’的选项。里面写的是已完成的任务。现在问题是 A 完成的任务 B也能看到。。。这个问题如何解决? 如何才能想 代办和提交 只能看到自己的任务消息?
回复

使用道具 举报

发表于 2007-12-4 09:48:19 | 显示全部楼层
按照提交人过滤任务表啊
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-12-4 09:54:04 | 显示全部楼层
在哪写过滤条件啊? 我不太明白
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-12-4 10:08:50 | 显示全部楼层
我作的‘完成任务’是继承桌面的  代码如下:
你看看应该在什么地方 过滤 应该如何写

function TWCRW.GetTestDataSet: TSQLDataSet;
begin
  //Result := DataSetBroker1.DataSet as TSQLDataSet;
    Result := DataSetBroker2.DataSet as TSQLDataSet;
end;

function TWCRW.GetTestInfo: TTASKCENTERINFO;
begin
  Result := InfoBroker1.Info as TTASKCENTERINFO;
end;



procedure TWCRW.FormDocCreate(Sender: TObject);
begin
  Inherited;
  DataSetBroker1.DataSet.Open;
  DataSetBroker2.DataSet.Open();
end;



procedure TWCRW.GridCanClick(Sender: TObject; ACol, ARow: Integer; var CanClick: Boolean);
begin
  Inherited;
   CanClick := ACol = 1;
end;

procedure TWCRW.GridResize(Sender: TObject);
begin
  Inherited;
  Grid.Columns[1].Width := Grid.Width - Grid.Columns[0].Width;
end;

procedure TWCRW.GridClick(Sender: TObject);
begin
  Inherited;
  actDetailExecute(Grid);
end;

procedure TWCRW.Timer1Timer(Sender: TObject);
begin
  Inherited;
  Timer1.Enabled := False;
  TestDataSet.Open;
end;

procedure TWCRW.actDetailExecute(Sender: TObject);
var
FuncURL:string;
vValues:string;
begin
//TSystemCore.FuncManager.RunFunc(Context, '', 'Biz:\JTTXM\XXCK1.Func','', TSQLDataSet.FieldByName('XXBH').AsString, False, nil, False);
  //funGUID := GetTestDataSet.FieldByName('FGUID').AsString;

  FuncURL := DataSetBroker1.DataSet.FieldByName('FFUNCURL').AsString;

  vValues := GetTestDataSet.FieldByName('FKEYVALUE0').AsString;
  vValues := vValues;

//TTaskServices.RunTask(TSystemCore.FuncManager, Context, [Task], True);

TSystemCore.FuncManager.RunFunc(Context,
                                '',
                                FuncURL,
                                //'Biz:\COLLABORATION\WCRWXX.Func',
                                //GetTestDataSet.FieldByName('FGUID').AsString,
                               GetTestDataSet.FieldByName('FKEYVALUE0').AsString,
                                False, nil, False);

end;
回复 支持 反对

使用道具 举报

发表于 2007-12-4 10:15:47 | 显示全部楼层
用sqlfilter写,这个用法自己查查手册。
具体写哪里,我不知道你哪个是任务表,大概应该写那个timer事件里吧
回复 支持 反对

使用道具 举报

发表于 2007-12-24 15:23:30 | 显示全部楼层
楼主,问题怎么样了?
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-12-24 15:29:47 | 显示全部楼层
这个解决了 看看 8*3 那个 怎么分 看看我代码写的对不对
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2025-7-4 23:56 , Processed in 0.037661 second(s), 15 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表