Devart Forums

Code: Select all

procedure TDataSet.DataEvent(Event: TDataEvent; Info: Longint);

  procedure NotifyDetails;
  var
    I: Integer;
  begin
    if Assigned(FNestedDataSets) then
    begin
      if State <> dsInsert then UpdateCursorPos;
      for I := 0 to FNestedDataSets.Count - 1 do
        with TDataSet(FNestedDataSets[I]) do
          if Active then DataEvent(deParentScroll, 0);
    end;
    if (State = dsBlockRead) then
      for I := 0 to FDataSources.Count - 1 do
        TDataSource(FDataSources[I]).NotifyLinkTypes(Event, Info, False);
  end;

var
  I: Integer;
  NotifyDataSources: Boolean;
begin
  NotifyDataSources := not (ControlsDisabled or (State = dsBlockRead));
  case Event of
    deFieldChange:
      begin
        if TField(Info).FieldKind in [fkData, fkInternalCalc] then
          SetModified(True);
        UpdateCalcFields;
      end;
    deFieldListChange:
      FieldList.Updated := False;
    dePropertyChange:
      FieldDefs.Updated := False;
    deCheckBrowseMode:
      CheckNestedBrowseMode;
    deDataSetChange, deDataSetScroll:
      NotifyDetails;
    deLayoutChange:
      begin
        FieldList.Updated := False;
        if ControlsDisabled then
          FEnableEvent := deLayoutChange;
      end;
    deUpdateState:
      if ControlsDisabled then
      begin
        Event := deDisabledStateChange;
        Info := Integer(State <> dsInactive);
        NotifyDataSources := True;
        FEnableEvent := deLayoutChange;
      end;
  end;

  if NotifyDataSources then
  begin
    for I := 0 to FDataSources.Count - 1 do
      TDataSource(FDataSources[I]).DataEvent(Event, Info);
    if FDesigner <> nil then FDesigner.DataEvent(Event, Info);
  end;
end;

Code: Select all

DROP TABLE IF EXISTS first;
CREATE
-- TEMP
TABLE first
(
  id SERIAL,
  context character varying(32)
);

DROP TABLE IF EXISTS second;
CREATE
-- TEMP
TABLE second
(
  id integer,
  second_first_id integer,
  context character varying(32)
);

-- Query to select Data

SELECT
 first.context AS first_ctx,
 second.context AS second_ctx,
 *
FROM
 first LEFT JOIN second ON first.id = second_first_id

Code: Select all

 var Q1 : TPgQuery;
 ...
 for I := 0 to Q1.FieldCount - 1 do begin
     FieldDesc := TCustomDADataSet(Q1).GetFieldDesc(Q1.Fields[I]);
     MemoSQLLog.Lines.Add(Q1.Fields[I].FieldName + ' -> ' + TCRFieldDesc(FieldDesc).TableInfo.TableName)
 end;

Code: Select all

first_ctx -> first
second_ctx -> first   !!!!!!!!!!!!!!!!!!!!! WRONG !!!!!!!!!!!!!!!!!!!!!!!
id -> first
context -> first
id_1 -> second
second_first_id -> second
context_1 -> second

Code: Select all

-- CREATE TABLES as TEMP tables (use Script above)
SELECT
 first.context AS first_ctx,
 second.context AS second_ctx
FROM
 first LEFT JOIN second ON first.id = second_first_id
 ========================== 
first_ctx -> first
second_ctx -> second

Code: Select all

-- Info: "WITHOUT TIME ZONE" nicht mehr nötig - TIMESTAMP wurde mit Postgre 7.3 dem SQL-Standard angepasst und ist jetzt standardmäßig ohne TIMEZONE
CREATE OR REPLACE FUNCTION currenttime() 
RETURNS timestamp AS $$
  SELECT date_trunc(
      'second', 
      transaction_timestamp()::timestamp
  )
$$ LANGUAGE sql --
--

Code: Select all

INSERT INTO a VALUES
 ('A'), -- Comment
 ('B')  -- Comment Last line
 ;
 

Code: Select all

Unit MemDS

uses
{$IFDEF MSWINDOWS}
  {$IFNDEF FPC}Windows,{$ENDIF}
  CRTimer,
{$ENDIF}

Code: Select all

procedure TMemDataSet.MasterRecordChanged;
    if MDLinksRefreshed then begin // need refresh
//        {$IFDEF MSWINDOWS}
      if (FDetailRefreshTimer <> nil) and (FDetailRefreshTimer.Interval <> 0) then begin
        FDetailRefreshTimer.Enabled := False; //reset time period
        FDetailRefreshTimer.Enabled := True;
      end
      else
//    {$ENDIF}
        RefreshDetail(nil);

Code: Select all

CacheGridFilter.Locate('il_group;il_item;gf_minr;gf_default;gf_deleted',
[ClassName, GridFilterSaveName(GridView), NULL, True, False])

Code: Select all

procedure TForm1.Button4Click(Sender: TObject);
var
  Data1, Data2: TFileStream;
  B:            Byte;
  A1, A2:       TBytes;
begin
  Data1 := TFileStream.Create('S:\Testfilter.dat', fmOpenRead);
  Data2 := TFileStream.Create('S:\Testfilter_pg.dat', fmCreate);
  try
    PgQuery2.Connection := DM1.DataBase1;
    PgQuery1.Connection := DM1.DataBase1;

    //PgQuery1.Options.UnknownAsString := True;  // This one has no effect.
    PgQuery1.Options.UnpreparedExecute := True;  // The GUILTY.

    PgQuery1.SQL.Text :=
        'CREATE TABLE IF NOT EXISTS datatest ( '#10
      + '  ident SERIAL PRIMARY KEY, '#10
      + '  data  BYTEA '#10
      + ');';
    PgQuery1.Execute;

    PgQuery1.Close;
    PgQuery1.SQL.Text := 'SELECT * FROM datatest';
    PgQuery1.Open;
    PgQuery1.Locate('ident', 0, []);
    PgQuery1.Edit;
    PgQuery1.FieldByName('ident').AsInteger := 0;
    //TBlobField(PgQuery1.FieldByName('data')).LoadFromFile('S:\Testfilter.dat');
    TBlobField(PgQuery1.FieldByName('data')).LoadFromStream(Data1);
    PgQuery1.Post;

    PgQuery2.Close;
    PgQuery2.SQL.Text := 'SELECT * FROM datatest WHERE ident = 0';
    PgQuery2.Open;
    //TBlobField(PgQuery2.FieldByName('data')).SaveToFile('S:\Testfilter_pg.dat');
    TBlobField(PgQuery2.FieldByName('data')).SaveToStream(Data2);

    Data2.Position := $34;
    Data2.ReadBuffer(B, 1);
    if B <> $85 then
      ShowMessage('byte modified');

    SetLength(A1, Data1.Size);
    SetLength(A2, Data2.Size);
    Data1.Position := 0;
    Data2.Position := 0;
    Data1.ReadBuffer(A1[0], Length(A1));
    Data2.ReadBuffer(A2[0], Length(A2));
    if (Length(A1) <> Length(A2)) or not CompareMem(@A1[0], @A2[0], Length(A1)) then
      ShowMessage('data modified');
  finally
    Data1.Free;
    Data2.Free;
  end;
end;