我作的‘完成任务’是继承桌面的 代码如下:
你看看应该在什么地方 过滤 应该如何写
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; |