Devart Forums

Code: Select all

var
  vDB: TIBCConnection;
  vTR: TIBCTransaction;
  vQuery: TIBCSQL;
begin
  vDB := TIBCConnection.Create(nil);
  vTR := TIBCTransaction.Create(nil);
  vQuery := TIBCSQL.Create(nil);
  try
    vTR.DefaultConnection := vDB;
    vTR.IsolationLevel := iblReadCommitted;
    vDB.DefaultTransaction := vTR;
    vDB.AutoCommit := False;
    vQuery.AutoCommit := False;
    SetupIBDACConnection(vDB, Demo); // A procedure that populates the TIBCConnection properties.
    vDB.Open;
    vQuery.Transaction := vTR;
    vTR.StartTransaction;
    vQuery.SQL.Add('INSERT INTO PATIENT_ACCESS_LOG ');
    vQuery.SQL.Add
      (' (PATIENTNO, SECTION, DESCRIPTION_TEXT, USERNAME, PAL_DATE, PAL_TIMESTAMP, EMPLOYEE_ID) ');
    vQuery.SQL.Add(' VALUES (' + IntToStr(PatientNo) + ', ''' + Section +
      ''', ''' + DescriptionText + ''', ''' + Username +
      ''', CURRENT_DATE, CURRENT_TIMESTAMP, ' + IntToStr(Employee_ID) + ') ');
    vQuery.Execute;
  finally
    if vTR.Active then
      vTR.Commit;
    if vDB.Connected then
      vDB.Disconnect;
    if Assigned(vQuery) then
      vQuery.Free;
    if Assigned(vTR) then
      vTR.Free;
    if Assigned(vDB) then
      vDB.Free;
  end;
end;