增加功能到平台**

xhsoft · 发表于 2009-3-13 16:17:51

根据QQ上的沟通：
我现在建了一个无窗体的功能，不知道怎么代码建立datasetbroker
time,等控件

xhsoft · 发表于 2009-3-13 16:32:28

ding

xhsoft · 发表于 2009-3-13 16:48:57

ding

xhsoft · 发表于 2009-3-13 16:57:57

xhsoft · 发表于 2009-3-13 17:00:22

shangxy · 发表于 2009-3-13 17:04:05

用ttimer.create
tdatasetbroker.create
在论坛中搜索。

xhsoft · 发表于 2009-3-13 17:15:54

不会建，请QQ指导一下

shangxy · 发表于 2009-3-13 17:29:18

等等，今天比较忙，一会有时间给你做个例子吧。

xhsoft · 发表于 2009-3-13 17:30:27

谢谢，

shangxy · 发表于 2009-3-13 18:58:57

unit YWGN3;

interface

uses
  Business.System, Business.Forms, Business.Model;

type
  TYWGN3 = class(TFunc)
procedure FuncDestroy(Sender: TObject);
  private
      lTimer :TTimer;

         lContextCurrent: TContextCurrent;
      DataSetBroker1 :TDataSetBroker;
      lInfo: TInfo;
      lInfoBroker: TInfoBroker;
      lBizClassURL: TBizClassURL;
{private declarations}
  public
procedure DoRun; override;
procedure Ontime(Sender: TObject);
{public declarations}
  end;

implementation

procedure TYWGN3.DoRun();

begin
  lTimer :=TTimer.create(nil);
  lTimer.Enabled :=False;
  lTimer.Interval :=3000;
  lTimer.OnTimer :=OnTime;
  lTimer.Enabled :=True;

  lBizClassURL := TBizClassURL.Create;
  lInfoBroker := TInfoBroker.Create(Self);
  DataSetBroker1 := TDataSetBroker.Create(nil);
  lContextCurrent := TContextCurrent.Create(Context);
end;
procedure TYWGN3.Ontime(Sender: TObject);
begin

lTimer.Enabled :=false;

  try
  lBizClassURL.BizURL.URL := 'Biz:\COLLABORATION\BIZBASEINFO.INFO';
  lInfo := Context.GetBizObject(lBizClassURL) as TInfo;
  lInfoBroker.AutoBroker := False;
  lInfoBroker.Info := lInfo;
  DataSetBroker1.InfoBroker := lInfoBroker;
  DataSetBroker1.DataSetID :='BizTaskData';
  TSQLDataSet(DataSetBroker1.DataSet).Open;
  TSQLDataSet(DataSetBroker1.DataSet).Append;
  TSQLDataSet(DataSetBroker1.DataSet).FieldByName('FPartyID').AsString := jscommon.CreateGUIDStr;
  TSQLDataSet(DataSetBroker1.DataSet).FieldByName('FPARTYNAME').AsString := jscommon.CreateGUIDStr;
  TSQLDataSet(DataSetBroker1.DataSet).FieldByName('FBizType').AsString := 'WORKTASK';//类型************
  TSQLDataSet(DataSetBroker1.DataSet).FieldByName('FDealDate').AsDateTime := Business.Data.SysSrv.SysService.Time;
  TSQLDataSet(DataSetBroker1.DataSet).FieldByName('FAssignTime').AsDateTime := Business.Data.SysSrv.SysService.Time;
  TSQLDataSet(DataSetBroker1.DataSet).FieldByName('FBeginDate').AsDateTime := Business.Data.SysSrv.SysService.Time;
  TSQLDataSet(DataSetBroker1.DataSet).FieldByName('FTopic').AsString :='自动生成工作任务1222222';
  DataSetBroker1.DataSet.FieldByName('FDealDept').AsString := lContextCurrent.Dept.ID;
  DataSetBroker1.DataSet.FieldByName('FDealPtm').AsString := lContextCurrent.PositionMember.ID;
  DataSetBroker1.DataSet.FieldByName('FDealMan').AsString := lContextCurrent.Operator.ID;
  TSQLDataSet(DataSetBroker1.DataSet).ApplyUpdates;
  except
  end;
lTimer.Enabled :=True;
end;

procedure TYWGN3.FuncDestroy(Sender: TObject);
begin
lTimer.Free;
lContextCurrent.Free;
DataSetBroker1.Free;
lInfoBroker.Free;
lBizClassURL.Free;
end;

end.

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