|

楼主 |
发表于 2010-5-6 11:00:03
|
显示全部楼层
procedure TMAINFORM.ToolButton3Click(Sender: TObject);
begin
BH := DataGrid1.DataSource.DataSet.FieldByName('bh').AsString;
Query1.Close;
Query1.CommandText :='SELECT BZQRJL.*,FID FROM TFLOWID,BZQRJL where TFLOWID.FID='''+bh+'''';
Query1.Open;
GetIDStr := Query1.FieldByName('FID').AsString;
FID := GetIDStr;
if FID <> '' then
with LCZYJ.TLCZYJ.Create(Context) do
begin
try
GetFlowForm(FID, SysUtils.UpperCase('Biz:\ZJGLXT\PROC\XJCFF_BZQRJL.PROC'));
finally
Free;
end;
//资源集的
procedure TLCZYJ.GetFlowForm(AGuidStr, ABizURL: string);
var
lFlowGuid: String;
lFlow: TFlow;
lFlowIDQuery: TQuery;
begin
lFlowIDQuery:= TQuery.Create(Nil);
try
lFlowIDQuery.ConnectionString:='DATABASEURL=Biz:\SYSTEM\System.DataBase';
if AGuidStr <> '' then
begin
lFlowIDQuery.Close;
lFlowIDQuery.CommandText := 'select TFLOW.FGUID from TFLOW,TFLOWID' +
' where TFLOW.FGUID=TFLOWID.FFLOWGUID and TFLOWID.FID=''' + AGuidStr +
''' and TFLOW.FPROCURL = ''' + ABizURL + '''';
lFlowIDQuery.Open;
lFlowGuid := lFlowIDQuery.Fields[0].AsString;
if lFlowGuid <> '' then
begin
lFlow := TFlow.Create;
Flow.FlowEngine.LoadFlow(lFlowGuid, lFlow);//加载流程数据
if lFlow <> nil then
TSystemCore.SystemInterface.ShowFlowView(lFlow);//显示
lFlow.Free;
end
else
begin
jsDialogs.ShowMsg('该数据还未启动流程!','提示')
end;
lFlowIDQuery.Close;
end
else
begin
jsDialogs.ShowWarning('非流程功能模块!','提示');
end;
finally
lFlowIDQuery.Free;
end;
end; |
|