PostGres

Galina

Dobrii den!
Vopros: Mi rabotaem s PostGres cherez componenti ZEOS. Sredi Engine componentov ne mogu podobrat, chtobi rabotali s soedineniem ZEOS Connection. Podskazite pozaluista, kak ih svazat.
Takze, est li bolee podrobnaja documentazija po Fast Query Builder?

Spasibo

-=Serg=-

Необходимо написать движок для ZEOS. Это сделать не сложно, смотрите по анологии с другими базами.

написал:

Takze, est li bolee podrobnaja documentazija po Fast Query Builder?

Что вас интересует?
Вы используете Fast Query Builder в связук с FastReport или как отдельный компонент?

Galina

Kak otdelnii komponent. User dolzen imet vozmozmost sozdat dlja kazdogo klienta sobstvennii zapros i sohranit ego v baze

-=Serg=-

Для этого достаточно сохранить и востановить свойства TfqbDialog.SQL и TfqbDialog.SQLSchema

Galina

Do sohranenija dialoga delo poka ne doshlo, tak kak posle sozdanija ZConnection with PostGres Database ni odin komponent "Engine" etogo soedinenija ne vidit

-=Serg=-

Нужно создать новый Engine
Вот шаблон:

unit fqbXXXEngine;

interface

uses
  Windows, Messages, Classes, Dialogs, DB
{$IFDEF Delphi6}
  ,Variants
{$ENDIF}
  ,fqbClass;

type
  TXXXEngine = class(TfqbEngine)
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
    procedure ReadFieldList(const ATableName: string; var AFieldList: TfqbFieldList);
                   override;
    procedure ReadTableList(ATableList: TStrings); override;
    function ResultDataSet: TDataSet; override;
    procedure SetSQL(const Value: string); override;
  end;
  

implementation

{-----------------------  TXXXEngine -----------------------}
constructor TXXXEngine.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
end;

destructor TXXXEngine.Destroy;
begin
  inherited Destroy;
end;

procedure TXXXEngine.ReadFieldList(const ATableName: string; var AFieldList:
               TfqbFieldList);
begin
end;

procedure TXXXEngine.ReadTableList(ATableList: TStrings);
begin
end;

function TXXXEngine.ResultDataSet: TDataSet;
begin
end;

procedure TXXXEngine.SetSQL(const Value: string);
begin
end;

end.

-=Serg=-

Что бы компонет увидел вашу ZConnection, создайте published свойство с нужным типом.