|

楼主 |
发表于 2008-11-17 16:38:45
|
显示全部楼层
这个是第一步 申请功能的代码
unit MAINFORM;
interface
uses
Business.System, Business.Model, Business.Forms, Business.Data,Business.Model.Flow;
type
TMAINFORM = class(TForm)
FuncBroker: TFuncBroker;
InfoBroker: TInfoBroker;
ControlBar: TControlBar;
DataNavigator: TDataNavigator;
DocViewBar: TDocViewBar;
Panel: TPanel;
DocViewCONSTRACTINFOR_CONSTRACTOPINIONDOC: TDocView;
dsbMaster: TDataSetBroker;
dsbFlow: TDataSetBroker;
FlowBroker: TFlowBroker;
DataSetBroker1: TDataSetBroker;
BizToolBar1: TBizToolBar;
procedure BizFormCreate(Sender: TObject);
procedure BizFormShow(Sender: TObject);
private
{private declarations}
public
{public declarations}
end;
implementation
procedure TMAINFORM.BizFormCreate(Sender: TObject);
begin
(Infobroker.Info as CONSTRACTINFOR.TCONSTRACTINFOR).IsStart := True;
end;
procedure TMainForm.BizFormShow(Sender: TObject);
var
lDataSet : TSqlDataSet;
begin
if not dsbMaster.DataSet.Active then dsbMaster.DataSet.Open;
if not dsbFlow.DataSet.Active then dsbFlow.DataSet.Open;
if not DataSetBroker1.DataSet.Active then DataSetBroker1.DataSet.Open;
dsbMaster.DataSet.Append;
if not Flowbroker.FlowControl.FlowStartuped then
begin
lDataSet := DataSetBroker1.DataSet as TSqlDataSet;
FlowCommonUtils.TFlowUtils.LoadFlowTempletData('CONSTRACTOPINIONPRECESS',lDataSet);
end;
(InfoBroker.Info as CONSTRACTINFOR.TCONSTRACTINFOR).ModifyFlowData('bsWrite','10');
end;
end. |
|