frxsdaceditor.pas

ODAC+SDAC源代码

{******************************************}
{                                          }
{             FastReport v3.0              }
{      SDAC components design editors       }
{                                          }

// Created by: CoreLab
// E-mail: [e-mail]

{                                          }
{******************************************}

unit frxSDACEditor;

interface

{$I frx.inc}

implementation

uses
  Windows, Classes, SysUtils, Forms, Dialogs, frxSDACComponents, frxCustomDB,
  frxDsgnIntf, frxRes, MSAccess, OLEDBAccess, OLEDBC, SdacVcl
{$IFDEF Delphi6}
, Variants
{$ENDIF};


type
  TfrxDatabaseProperty = class(TfrxComponentProperty)
  public
    function GetValue: String; override;
  end;

  TfrxTableNameProperty = class(TfrxStringProperty)
  public
    function GetAttributes: TfrxPropertyAttributes; override;
    procedure GetValues; override;
  end;

{ TfrxDatabaseProperty }

function TfrxDatabaseProperty.GetValue: String;
var
  db: TfrxSDACDatabase;
begin
  db := TfrxSDACDatabase(GetOrdValue);
  if db = nil then
  begin
    if (SDACComponents <> nil) and (SDACComponents.DefaultDatabase <> nil) then
      Result := SDACComponents.DefaultDatabase.Name
    else
      Result := frxResources.Get('prNotAssigned');
  end
  else
    Result := inherited GetValue;
end;

{ TfrxTableNameProperty }

function TfrxTableNameProperty.GetAttributes: TfrxPropertyAttributes;
begin
  Result := [paMultiSelect, paValueList];
end;

procedure TfrxTableNameProperty.GetValues;
begin
  inherited;
  with TfrxSDACTable(Component).Table do
    if Connection <> nil then
      Connection.GetTableNames(Values);
end;

initialization
  frxPropertyEditors.Register(TypeInfo(TfrxSDACDatabase), TfrxSDACTable, 'Database',
    TfrxDatabaseProperty);
  frxPropertyEditors.Register(TypeInfo(TfrxSDACDatabase), TfrxSDACQuery, 'Database',
    TfrxDatabaseProperty);
  frxPropertyEditors.Register(TypeInfo(String), TfrxSDACTable, 'TableName',
    TfrxTableNameProperty);

end.