unit SQZCT;
interface
uses
Business.System, Business.Model, Business.Forms, Business.Model.Flow,
Business.Data;
type
TSQZCT = class(TForm)
FuncBroker: TFuncBroker;
InfoBrokerXKSQXX: TInfoBroker;
ControlBar: TControlBar;
DataNavigator: TDataNavigator;
DocViewBar: TDocViewBar;
Panel: TPanel;
DocViewXKSQXX_SQXK: TDocView;
DataSetBroker1: TDataSetBroker;
FlowBroker1: TFlowBroker;
procedure FlowBroker1CreateFlowOutFlowTasks(Sender: TObject; Command: TFlowOutCommand);
procedure BizFormCreate(Sender: TObject);
procedure DocViewXKSQXX_SQXKEnter(Sender: TObject);
private
{private declarations}
public
{public declarations}
end;
implementation
procedure TSQZCT.FlowBroker1CreateFlowOutFlowTasks(Sender: TObject; Command: TFlowOutCommand);
begin
Command.FlowTasks[0].Subject := '许可审查:' +
DataSetBroker1.DataSet.FieldByName('JTXZXKSQSXJNR').AsString;
end;
procedure TSQZCT.BizFormCreate(Sender: TObject);
begin
end;
procedure TSQZCT.DocViewXKSQXX_SQXKEnter(Sender: TObject);
begin
end;
end. |