Devart Forums

Code: Select all

 
IBCConnection1.Open;
  IBCQuery1.ParamByName('id').AsInteger := 1;
  IBCQuery1.Open;
  IBCQuery1.Edit;
  IBCQuery1.FieldByName('name').AsString := 'asdf 1 ' + IntToStr(Random(1000));
  IBCQuery1.Post; // name has not the value in the DB
  IBCQuery1.Close;

  IBCQuery1.Open;
  IBCQuery1.Edit;
  IBCQuery1.FieldByName('name').AsString := 'asdf 2 ' + IntToStr(Random(4000));
  IBCQuery1.Post; // name has the value in the DB
  IBCQuery1.Close;
  IBCConnection1.Close;

Code: Select all

Connect: VARIO@localhost/3050
Start: 

-------------------------

select benutzer, name from ben
where id = :id
order by id
:id(INTEGER)=1

-------------------------

UPDATE BEN
SET
  BENUTZER = ?
WHERE
  BENUTZER = ?

:BENUTZER(CHAR[3],IN)='NEU' 
:Old_BENUTZER(CHAR[3],IN)='NEU'

-------------------------

CommitRetaining: 

-------------------------

select benutzer, name from ben
where id = :id
order by id
:id(INTEGER)=1

-------------------------

UPDATE BEN
SET
  BENUTZER = ?, NAME = ?
WHERE
  BENUTZER = ?

:BENUTZER(CHAR[3],IN)='NEU' 
:NAME(VARCHAR[11],IN)='asdf 2 1305' 
:Old_BENUTZER(CHAR[3],IN)='NEU'

-------------------------

CommitRetaining: 
Commit: 
Disconnect: VARIO@localhost/3050

Code: Select all

unit MyFields;

interface

uses
  Data.DB;

type
  TMyFields = class(TFields)
  strict private
    procedure OnFieldsChanged(Sender: TObject);
  public
    constructor Create(ADataSet: TDataSet); override;
  end;

implementation


{ TMyFields }


procedure TMyFields.OnFieldsChanged(Sender: TObject);
begin
  self.LifeCycles := [lcAutomatic];
end;

{ TMyFields }

constructor TMyFields.Create(ADataSet: TDataSet);
begin
  Inherited;
  self.OnChange := OnFieldsChanged;
end;

Code: Select all

function TMyIBCQuery.GetFieldsClass: TFieldsClass;
begin
  result := TMyFields;
end;