pFIBDataSet.Cancel;
 

KindUpdate =: ukInsert; ExecuteOrder := oeafterDefault; OrderInList := 0;

KindUpdate =: ukInsert; ExecuteOrder := oeafterDefault; OrderInList := 1;

procedure TmodData.pFIBUOInsert0AAAfterExecute(Sender: TObject);
begin
  pFIBUOInsert1AA.Params[3].Value := pFIBUOInsert0AA.Fields[0].Value;
  pFIBUOInsert1AA.Params[0].Value := pDSTSectionAA.FBN('Ref_Variation').Value;
end;

Application:
 Object: "modData.pFIBUOInsert1AA"
 Operation:TrID=772 Execute query:>> Time 30.03.2012 18:23:56
ins ert into LINKVARIATION (
   REF_VARIATION,
   REF_SYSTEM,
   REF_SECTION,
   REF_DESC
)

val ues (?            , ?          , ?           , ?       )

Params[0]=''
Params[1]='49'
Params[2]='85'
Params[3]=''
Application:
 Object: "modData.trWrite"
 Operation:Commit(TransactionID=772) >> Time 30.03.2012 18:23:56
TransactionParams:
write
isc_tpb_nowait
read_committed
rec_version

    SQL_TYPE_DATE:
       begin
       
        Result:=TimeStampToDateTime(TimeStamp(PInteger(P)^,0));
 

  if PInteger(P)^=0 then Result:=0 else
        Result:=TimeStampToDateTime(TimeStamp(PInteger(P)^,0));

pFibDataBase1.Execute('ins ert into streets (name), val ues (' + QuotedStr(s) +')')

db.ConnectParams.UserName := '';

with db.ConnectParams do

AddCondition('cond1', 'daf.' + fldName +  ' = :' + fldName, True);
ParamByName(fldName).value := val;

CREATE OR ALT ER VIEW V_VIEW (ID1, ID2, REF_ID1, NAME, VALUE)
SEL ECT Dt1.ID1, Dt2.ID2, Dt2.REF_ID1, Dt2.NAME, Dt2.VALUE 
FR OM DataSet1 Dt1
INNER JOIN DataSet2 Dt2 ON Dt1.ID1 = Dt2.Ref_ID1

Select ID_VOLUME, NUMBER, TITLE, OBJECT, REF_BUILDING, MEMBER fr om VOLUME 

SELECT NAME, REF_VOLUME FR OM SECTION 
WHERE REF_VOLUME =:ID_VOLUME AND 
             REF_VOLUME IS NOT NULL

INS ERT INTO VOLUME (ID_VOLUME, NUMBER, TITLE, OBJECT, REF_BUILDING, MEMBER)
VALUES (:ID_VOLUME, ?NUMBER, :TITLE, :OBJECT, :REF_BUILDING, :MEMBER)

INS ERT IN TO SECTION (NAME, REF_VOLUME)
VAL UES (:NAME, :ID_VOLUME)

pFIBDataSet1.Post;

with TpFIBXXXService.Create(nil) do
try
ServerName := <local_backup_server_name>;
Protocol := <net_protocol>;
UserName := <user_name>;
Password := <password>;
DatabaseName := <remote_db_name>;
BackupFile.Add(<local_backup_name>);
Atach;
try
ServiceStart;
while not Eof do
GetNextLine;
finally
Deatach;
end;
finally
Free;
end;