uexpsubflow.pas

以可视的方式画IVR语音导航的流程,并把流程做为源文件保存起来

          if (iattr_type[k] = 1) then
          begin
            sContent := cattr_content[k];
            if Trim(sContent) = IntToStr(iOld) then
            begin
              sContent := IntToStr(iID);
              StrPCopy(cattr_content[k],sContent);
            end;
          end;
        end;
      end;
    end;
  end;
end;


procedure TExpSubFlow.InsertToTmpTable;
var
  s: string;
  FunctionRec: PFunctionRec;
  FunctionListRec: PFunctionListRec;
  ADOFun: TADOQuery;
  i: integer;
  j: integer;
  sField: string;
  sContent: string;
begin
  ADOFun := TADOQuery.Create(nil);
  ADOFun.ConnectionString := FDatabase;

  ADOFun.Close(); 
  ADOFun.SQL.Clear();
  ADOFun.SQL.Add('Drop Table FunctionTmp');

  try

    ADOFun.ExecSQL();
  except

  end;  


  ADOFun.Close();
  ADOFun.SQL.Clear();
  ADOFun.SQL.Add('Drop Table FunctionListTmp');

  try

    ADOFun.ExecSQL();
  except

  end;

  ADOFun.Close();
  ADOFun.SQL.Clear();
  ADOFun.SQL.Add('select top 1 * into FunctionTmp from Function');
  ADOFun.ExecSQL();

  ADOFun.Close();
  ADOFun.SQL.Clear();
  ADOFun.SQL.Add('select top 1 * into FunctionListTmp from FunctionList');
  ADOFun.ExecSQL();
  ADOFun.Close();

  s := 'delete from FunctionTmp';
  ADOFun.SQL.Clear;
  ADOFun.SQL.Add(s);
  ADOFun.ExecSQL;
  ADOFun.Close();

  s := 'delete from FunctionListTmp';
  ADOFun.SQL.Clear;
  ADOFun.SQL.Add(s);
  ADOFun.ExecSQL;
  ADOFun.Close();

  s := 'insert into FunctionTmp ('
     + 'id,Caption,x,y,iid_0,iid_1,iid_2,iType,iContent,iMode,CsubType,Ccomment,'
     + 'iattr_0_type,cattr_0_content,iattr_1_type,cattr_1_content,'
     + 'iattr_2_type,cattr_2_content,iattr_3_type,cattr_3_content,'
     + 'iattr_4_type,cattr_4_content,iattr_5_type,cattr_5_content,'
     + 'iattr_6_type,cattr_6_content,iattr_7_type,cattr_7_content,'
     + 'iattr_8_type,cattr_8_content,iattr_9_type,cattr_9_content,'
     + 'iattr_10_type,cattr_10_content,iattr_11_type,cattr_11_content,'
     + 'iattr_12_type,cattr_12_content,iattr_13_type,cattr_13_content,'
     + 'iattr_14_type,cattr_14_content,iattr_15_type,cattr_15_content,'
     + 'iattr_16_type,cattr_16_content,iattr_17_type,cattr_17_content,'
     + 'iattr_18_type,cattr_18_content,iattr_19_type,cattr_19_content,'

     + 'ievent_0,ievent_0_id,ievent_1,ievent_1_id,'
     + 'ievent_2,ievent_2_id,ievent_3,ievent_3_id,'
     + 'ievent_4,ievent_4_id,ievent_5,ievent_5_id,'
     + 'ievent_6,ievent_6_id,ievent_7,ievent_7_id,'
     + 'ievent_8,ievent_8_id,ievent_9,ievent_9_id,'
     + 'ievent_10,ievent_10_id,ievent_11,ievent_11_id,'
     + 'ievent_12,ievent_12_id,ievent_13,ievent_13_id,'
     + 'ievent_14,ievent_14_id,ievent_15,ievent_15_id,'
     + 'ievent_16,ievent_16_id,ievent_17,ievent_17_id,'
     + 'ievent_18,ievent_18_id,ievent_19,ievent_19_id,'
     + 'FunctionID'
     + ') values ('
     + ':id,:Caption,:x,:y,:iid_0,:iid_1,:iid_2,:iType,:iContent,:iMode,:CsubType,:Ccomment,'
     + ':iattr_0_type,:cattr_0_content,:iattr_1_type,:cattr_1_content,'
     + ':iattr_2_type,:cattr_2_content,:iattr_3_type,:cattr_3_content,'
     + ':iattr_4_type,:cattr_4_content,:iattr_5_type,:cattr_5_content,'
     + ':iattr_6_type,:cattr_6_content,:iattr_7_type,:cattr_7_content,'
     + ':iattr_8_type,:cattr_8_content,:iattr_9_type,:cattr_9_content,'
     + ':iattr_10_type,:cattr_10_content,:iattr_11_type,:cattr_11_content,'
     + ':iattr_12_type,:cattr_12_content,:iattr_13_type,:cattr_13_content,'
     + ':iattr_14_type,:cattr_14_content,:iattr_15_type,:cattr_15_content,'
     + ':iattr_16_type,:cattr_16_content,:iattr_17_type,:cattr_17_content,'
     + ':iattr_18_type,:cattr_18_content,:iattr_19_type,:cattr_19_content,'

     + ':ievent_0,:ievent_0_id,:ievent_1,:ievent_1_id,'
     + ':ievent_2,:ievent_2_id,:ievent_3,:ievent_3_id,'
     + ':ievent_4,:ievent_4_id,:ievent_5,:ievent_5_id,'
     + ':ievent_6,:ievent_6_id,:ievent_7,:ievent_7_id,'
     + ':ievent_8,:ievent_8_id,:ievent_9,:ievent_9_id,'
     + ':ievent_10,:ievent_10_id,:ievent_11,:ievent_11_id,'
     + ':ievent_12,:ievent_12_id,:ievent_13,:ievent_13_id,'
     + ':ievent_14,:ievent_14_id,:ievent_15,:ievent_15_id,'
     + ':ievent_16,:ievent_16_id,:ievent_17,:ievent_17_id,'
     + ':ievent_18,:ievent_18_id,:ievent_19,:ievent_19_id,'
     + ':FunctionID'
     + ')';

  ADOFun.SQL.Clear;
  ADOFun.SQL.Add(s);

  for i := 0 to FunctionRecs.Count - 1 do
  begin
    FunctionRec := FunctionRecs[i];

    with ADOFun,FunctionRec^ do
    begin
      Parameters.ParamByName('id').Value := id;

      sContent := Caption;
      if sContent = '' then
      begin
        sContent := ' ';
      end;
      Parameters.ParamByName('Caption').Value := sContent;
      
      Parameters.ParamByName('x').Value := x;
      Parameters.ParamByName('y').Value := y;
      Parameters.ParamByName('iid_0').Value := iid_0;
      Parameters.ParamByName('iid_1').Value := iid_1;
      Parameters.ParamByName('iid_2').Value := iid_2;
      Parameters.ParamByName('iType').Value := iType;
      Parameters.ParamByName('iContent').Value := iContent;
      Parameters.ParamByName('iMode').Value := iMode;

      sContent := CsubType;
      if sContent = '' then
      begin
        sContent := ' ';
      end;
      Parameters.ParamByName('CsubType').Value := sContent;

      sContent := Ccomment;
      if sContent = '' then
      begin
        sContent := ' ';
      end;
      Parameters.ParamByName('Ccomment').Value := sContent;

      for j := 0 to 19 do
      begin
        sField := 'iattr_' + IntToStr(j) + '_type';
        Parameters.ParamByName(sField).Value := iattr_type[j];

        sField := 'cattr_' + IntToStr(j) + '_content';
        sContent := cattr_content[j];
        if sContent = '' then
        begin
          sContent := ' ';
        end;
        Parameters.ParamByName(sField).Value := sContent;

        sField := 'ievent_' + IntToStr(j);
        Parameters.ParamByName(sField).Value := ievent[j];

        sField := 'ievent_' + IntToStr(j) + '_id';
        Parameters.ParamByName(sField).Value := ievent_id[j];
      end;

      Parameters.ParamByName('FunctionID').Value := FunctionID;
    end;

    ADOFun.ExecSQL;
  end;


  s := 'insert into FunctionListTmp ('
     + 'id,Caption,x,y,iid_0,iid_1,iid_2,iType,iContent,iMode,CsubType,Ccomment,'
     + 'iattr_0_type,cattr_0_content,iattr_1_type,cattr_1_content,'
     + 'iattr_2_type,cattr_2_content,iattr_3_type,cattr_3_content,'
     + 'iattr_4_type,cattr_4_content,iattr_5_type,cattr_5_content,'
     + 'iattr_6_type,cattr_6_content,iattr_7_type,cattr_7_content,'
     + 'iattr_8_type,cattr_8_content,iattr_9_type,cattr_9_content,'
     + 'iattr_10_type,cattr_10_content,iattr_11_type,cattr_11_content,'
     + 'iattr_12_type,cattr_12_content,iattr_13_type,cattr_13_content,'
     + 'iattr_14_type,cattr_14_content,iattr_15_type,cattr_15_content,'
     + 'iattr_16_type,cattr_16_content,iattr_17_type,cattr_17_content,'
     + 'iattr_18_type,cattr_18_content,iattr_19_type,cattr_19_content,'

     + 'ievent_0,ievent_0_id,ievent_1,ievent_1_id,'
     + 'ievent_2,ievent_2_id,ievent_3,ievent_3_id,'
     + 'ievent_4,ievent_4_id,ievent_5,ievent_5_id,'
     + 'ievent_6,ievent_6_id,ievent_7,ievent_7_id,'
     + 'ievent_8,ievent_8_id,ievent_9,ievent_9_id,'
     + 'ievent_10,ievent_10_id,ievent_11,ievent_11_id,'
     + 'ievent_12,ievent_12_id,ievent_13,ievent_13_id,'
     + 'ievent_14,ievent_14_id,ievent_15,ievent_15_id,'
     + 'ievent_16,ievent_16_id,ievent_17,ievent_17_id,'
     + 'ievent_18,ievent_18_id,ievent_19,ievent_19_id,'
     + 'FunctionID,Function,FunMemo,"UpDate",ParentID,FunCheck'
     + ') values ('
     + ':id,:Caption,:x,:y,:iid_0,:iid_1,:iid_2,:iType,:iContent,:iMode,:CsubType,:Ccomment,'
     + ':iattr_0_type,:cattr_0_content,:iattr_1_type,:cattr_1_content,'
     + ':iattr_2_type,:cattr_2_content,:iattr_3_type,:cattr_3_content,'
     + ':iattr_4_type,:cattr_4_content,:iattr_5_type,:cattr_5_content,'
     + ':iattr_6_type,:cattr_6_content,:iattr_7_type,:cattr_7_content,'
     + ':iattr_8_type,:cattr_8_content,:iattr_9_type,:cattr_9_content,'
     + ':iattr_10_type,:cattr_10_content,:iattr_11_type,:cattr_11_content,'
     + ':iattr_12_type,:cattr_12_content,:iattr_13_type,:cattr_13_content,'
     + ':iattr_14_type,:cattr_14_content,:iattr_15_type,:cattr_15_content,'
     + ':iattr_16_type,:cattr_16_content,:iattr_17_type,:cattr_17_content,'
     + ':iattr_18_type,:cattr_18_content,:iattr_19_type,:cattr_19_content,'

     + ':ievent_0,:ievent_0_id,:ievent_1,:ievent_1_id,'
     + ':ievent_2,:ievent_2_id,:ievent_3,:ievent_3_id,'
     + ':ievent_4,:ievent_4_id,:ievent_5,:ievent_5_id,'
     + ':ievent_6,:ievent_6_id,:ievent_7,:ievent_7_id,'
     + ':ievent_8,:ievent_8_id,:ievent_9,:ievent_9_id,'
     + ':ievent_10,:ievent_10_id,:ievent_11,:ievent_11_id,'
     + ':ievent_12,:ievent_12_id,:ievent_13,:ievent_13_id,'
     + ':ievent_14,:ievent_14_id,:ievent_15,:ievent_15_id,'
     + ':ievent_16,:ievent_16_id,:ievent_17,:ievent_17_id,'
     + ':ievent_18,:ievent_18_id,:ievent_19,:ievent_19_id,'
     + ':FunctionID,:Function,:FunMemo,:UpDate,:ParentID,:FunCheck'
     + ')';

  ADOFun.SQL.Clear;
  ADOFun.SQL.Add(s);

  for i := 0 to FunctionListRecs.Count - 1 do
  begin
    FunctionListRec := FunctionListRecs[i];

    with ADOFun,FunctionListRec^ do
    begin
      Parameters.ParamByName('id').Value := id;

      sContent := Caption;
      if sContent = '' then
      begin
        sContent := ' ';
      end;
      Parameters.ParamByName('Caption').Value := sContent;

      Parameters.ParamByName('x').Value := x;
      Parameters.ParamByName('y').Value := y;
      Parameters.ParamByName('iid_0').Value := iid_0;
      Parameters.ParamByName('iid_1').Value := iid_1;
      Parameters.ParamByName('iid_2').Value := iid_2;
      Parameters.ParamByName('iType').Value := iType;
      Parameters.ParamByName('iContent').Value := iContent;
      Parameters.ParamByName('iMode').Value := iMode;

      sContent := CsubType;
      if sContent = '' then
      begin
        sContent := ' ';
      end;
      Parameters.ParamByName('CsubType').Value := sContent;

      sContent := Ccomment;
      if sContent = '' then
      begin
        sContent := ' ';
      end;
      Parameters.ParamByName('Ccomment').Value := sContent;

      for j := 0 to 19 do
      begin
        sField := 'iattr_' + IntToStr(j) + '_type';
        Parameters.ParamByName(sField).Value := iattr_type[j];

        sField := 'cattr_' + IntToStr(j) + '_content';
        sContent := cattr_content[j];
        if sContent = '' then
        begin
          sContent := ' ';
        end;
        Parameters.ParamByName(sField).Value := sContent;


        sField := 'ievent_' + IntToStr(j);
        Parameters.ParamByName(sField).Value := ievent[j];

        sField := 'ievent_' + IntToStr(j) + '_id';
        Parameters.ParamByName(sField).Value := ievent_id[j];
      end;

      Parameters.ParamByName('FunctionID').Value := FunctionID;

      sContent := Func;
      if sContent = '' then
      begin
        sContent := ' ';
      end;
      Parameters.ParamByName('Function').Value := sContent;

      sContent := FunMemo;
      if sContent = '' then
      begin
        sContent := ' ';
      end;
      Parameters.ParamByName('FunMemo').Value := sContent;

      Parameters.ParamByName('UpDate').Value := UpDate;
      Parameters.ParamByName('ParentID').Value := ParentID;
      Parameters.ParamByName('FunCheck').Value := FunCheck;
    end;

    ADOFun.ExecSQL;
  end;

  ADOFun.Free;
end;

end.