Devart Forums

Code: Select all

function localtime(OOQ00QCOQ0:pointer):ptm;
begin
Result:=malloc(SizeOf(stm));
OO00CQCOQ0(integer(OOQ00QCOQ0^),Result);
end;

Code: Select all

CREATE TABLE [KaArtikelProtokoll](
  [Zeit] DATETIME, 
  [Barcode] NVARCHAR(13), 
  [PreisVKAlt] FLOAT(10, 2), 
  [PreisVKNeu] FLOAT(10, 2), 
  [Kennzeichen] NVARCHAR(1), 
  UNIQUE([Zeit], [Barcode]) ON CONFLICT IGNORE);

CREATE TRIGGER prot_insert AFTER INSERT
ON KaArtikelProtokoll
BEGIN
   UPDATE lastChange SET ChangeTime=datetime('now', 'localtime');
END;

Code: Select all

ProtInsertSQL := TLiteSQL.Create(nil);
    ProtInsertSQL.Connection := DBM.SQLKasse;
    ProtInsertSQL.SQL.Clear;
    ProtInsertSQL.SQL.Add('INSERT INTO KaArtikelProtokoll');
    ProtInsertSQL.SQL.Add('(Zeit,Barcode,PreisVKAlt,PreisVKNeu,Kennzeichen)');
    ProtInsertSQL.SQL.Add('VALUES');
    ProtInsertSQL.SQL.Add('(:Zeit,:Barcode,:PreisVKAlt,:PreisVKNeu,:Kennzeichen)');
    ProtInsertSQL.Params[0].DataType := ftDateTime;
    ProtInsertSQL.Params[1].DataType := ftString;
    ProtInsertSQL.Params[2].DataType := ftCurrency;
    ProtInsertSQL.Params[3].DataType := ftCurrency;
    ProtInsertSQL.Params[4].DataType := ftString;
    ProtInsertSQL.Params.ValueCount := 1;

Code: Select all

i := ProtInsertSQL.Params.ValueCount - 1;
  ProtInsertSQL.Params[0][i].AsDateTime := Zeit;
  ProtInsertSQL.Params[1][i].AsString := Barcode;
  ProtInsertSQL.Params[2][i].AsCurrency := oldPreis;
  ProtInsertSQL.Params[3][i].AsCurrency := newPreis;
  ProtInsertSQL.Params[4][i].AsString := Kennzeichen;
  ProtInsertSQL.Params.ValueCount := ProtInsertSQL.Params.ValueCount + 1;

Code: Select all

ProtInsertSQL.Execute(ProtInsertSQL.Params.ValueCount - 1);

Code: Select all

procedure TDBM.SQLKasseBeforeConnect(Sender: TObject);
begin
  SQLKasse.LoginPrompt := False;
  SQLKasse.Database :=  'xy.db3';
  SQLKasse.EncryptionKey := '***';
  SQLKasse.Options.EncryptionAlgorithm := TLiteEncryptionAlgorithm.leBlowfish;
  SQLKasse.Options.Direct := True;
  SQLKasse.Options.UseUnicode := True;
end;

Code: Select all

procedure TDBM.SQLKasseAfterConnect(Sender: TObject);
begin
  SQLKasse.ExecSQL('PRAGMA page_size=4096');
  SQLKasse.ExecSQL('vacuum');
  SQLKasse.ExecSQL('PRAGMA journal_mode=WAL');
  SQLKasse.ExecSQL('PRAGMA locking_mode = EXCLUSIVE');
  SQLKasse.ExecSQL('BEGIN EXCLUSIVE');
  SQLKasse.ExecSQL('COMMIT');
  SQLKasse.ExecSQL('PRAGMA cell_size_check = TRUE');