PostGres

Комментарии

• -=Serg=-

  October 2005 отредактировано 12:23

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

  написал:

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

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

  October 2005 отредактировано 12:23

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

  October 2005 отредактировано 12:23

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

  October 2005 отредактировано 12:23

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

  October 2005 отредактировано 12:23

  Нужно создать новый 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=-

  October 2005 отредактировано 12:23

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