Zeoslib Portal

Code: Select all

CREATE TABLE TBIZONYLATFEJ
(
  FAZONOSITO	INTEGER NOT NULL  AUTO_INCREMENT,
  FBIZTIP       INTEGER NOT NULL,
  FSTATUS       INTEGER NOT NULL,
  
  FCEGNEV VARCHAR(100) NOT NULL,
  FCEGORSZAG VARCHAR(100),
  FCEGIRSZ VARCHAR(70),
  FCEGTELEP	VARCHAR(100) NOT NULL,
  FCEGUTCA VARCHAR(100) NOT NULL,
  FCEGTEL	VARCHAR(70),
  FCEGFAX	VARCHAR(70),
  FCEGEMAIL	VARCHAR(100),
  FCEGBANKSZLA	VARCHAR(100),
  FCEGADOSZAM	VARCHAR(100),

  FVEVONEV VARCHAR(100) NOT NULL,
  FVEVOORSZAG	VARCHAR(100),
  FVEVOIRSZ	VARCHAR(70),
  FVEVOTELEPULES	VARCHAR(100) NOT NULL,
  FVEVOUTCA	VARCHAR(100) NOT NULL,
  FVEVOTELEFON	VARCHAR(100),
  FVEVOFAX	VARCHAR(100),
  FVEVOEMAIL	VARCHAR(100),
  FVEVOBANKSZLA	VARCHAR(100),
  FVEVOADOSZAM	VARCHAR(100),

  FFORMATUM	INTEGER NOT NULL,

  FSZEV                    INTEGER NOT NULL,
  FSZSZAM	INTEGER NOT NULL,
  FKIALLDATUM	TIMESTAMP NOT NULL,
  FFIZDATUM	TIMESTAMP,
  FTELJDATUM	TIMESTAMP,
  FFIZMOD	VARCHAR(70),
  FTIPUS	INTEGER,
  FKEDVEZMENY	FLOAT,
  FIDO	TIMESTAMP,
  FUSER	VARCHAR(70),
  FMEGJEGYZES	VARCHAR(255),
  FRENDSZAM	VARCHAR(70),
  FMEGRENDELES	VARCHAR(70),
  FHIVATKOZAS	VARCHAR(70),
  FNYOMTATVA	INTEGER,
  FPELDANY	INTEGER,
  FVALUTA VARCHAR(10),
  FSTORNOSZLA	INTEGER,
  FSTORNOKIALLDATUM	TIMESTAMP,
CONSTRAINT BIZONYLATFEJ_AZONOSITO PRIMARY KEY (FAZONOSITO),
CONSTRAINT BIZONYLATFEJ_KOD UNIQUE (FBIZTIP,FSZEV, FSZSZAM)
)

Code: Select all

11:01:04 - SELECT * FROM TBIZONYLATFEJ
11:00:48 - SELECT * FROM TBIZONYLATFEJ
11:00:48 - SELECT * FROM TRIPORTOK
11:00:48 - SELECT COUNT(*) AS Mennyiseg FROM TBIZONYLATFEJ
11:00:48 - SELECT COUNT(*) AS MENNYISEG FROM TANYAGMOZGAS
11:00:47 - SELECT * FROM TUSERS WHERE FUSERID = ? AND FPASSWORD = ?
11:00:46 - SELECT * FROM TUSERS
11:00:45 - SELECT * FROM TRIPORTOK
11:00:45 - SELECT * FROM TBEALLIT
11:00:45 - CONNECT TO "Provider=SQLOLEDB.1;Persist Security Info=True;Initial Catalog=SmartStorage14;Data Source=PERGER-DELL" AS USER "sa"

Code: Select all

procedure TZGenericCachedResolver.PostUpdates(Sender: IZCachedResultSet;
  UpdateType: TZRowUpdateType; OldRowAccessor, NewRowAccessor: TZRowAccessor);
var
  Statement: IZPreparedStatement;
  SQL: string;
  SQLParams: TObjectList;
begin
  if (UpdateType = utDeleted)
    and (OldRowAccessor.RowBuffer.UpdateType = utInserted) then
    Exit;

  SQLParams := TObjectList.Create;
  try
    case UpdateType of
      utInserted:
        SQL := FormInsertStatement(SQLParams, NewRowAccessor);
      utDeleted:
        SQL := FormDeleteStatement(SQLParams, OldRowAccessor);
      utModified:
        SQL := FormUpdateStatement(SQLParams, OldRowAccessor, NewRowAccessor);
      else
        Exit;
    end;

    if SQL <> '' then // Here SQL is empty!!!!
    begin
      Statement := Connection.PrepareStatement(SQL);
      FillStatement(Statement, SQLParams, OldRowAccessor, NewRowAccessor);
      Statement.ExecuteUpdatePrepared;
    end;
  finally
    SQLParams.Free;
  end;
end;