designconnectionlisteh.pas

最新的 DBGRIDEH4.0

{*******************************************************}
{                                                       }
{                       EhLib v4.0                      }
{                                                       }
{            TfDesignConnectionListEh form              }
{                                                       }
{      Copyright (c) 2005 by Dmitry V. Bolshakov        }
{                                                       }
{*******************************************************}

{$I EhLib.Inc}

unit DesignConnectionListEh;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, MemTableEh, ExtCtrls, DBGridEh, SQLDriverEditEh,
{$IFDEF CIL}
  EhLibVCLNET,
{$ELSE}
  EhLibVCL,
{$ENDIF}
{$IFDEF EH_LIB_6}
  Variants,
{$ENDIF}
  GridsEh;

type
  TfDesignConnectionListEh = class(TForm)
    DBGridEh1: TDBGridEh;
    Panel1: TPanel;
    DataSource1: TDataSource;
    MemTableEh1: TMemTableEh;
    MemTableEh1ConnectionName: TStringField;
    MemTableEh1Engine: TStringField;
    MemTableEh1ServerType: TStringField;
    MemTableEh1Connected: TBooleanField;
    bSelect: TButton;
    bNew: TButton;
    bDelete: TButton;
    bCancel: TButton;
    bEdit: TButton;
    MemTableEh1RefObject: TRefObjectField;
    procedure bEditClick(Sender: TObject);
    procedure DataSource1DataChange(Sender: TObject; Field: TField);
    procedure bNewClick(Sender: TObject);
    procedure bDeleteClick(Sender: TObject);
    procedure bSelectClick(Sender: TObject);
  private
    { Private declarations }
  public
//    FIDesignDataBase: IInterface;
    FDesignDataBase: TObject;
    procedure PrepareList(DesignDataBaseList: TList);
    function CurrentDesignDataBase: TDesignDataBaseEh;
  end;

var
  fDesignConnectionListEh: TfDesignConnectionListEh;

function SelectDesignConnectionListEh(DesignDataBaseList: TList): TDesignDataBaseEh;

implementation

{$R *.dfm}

function SelectDesignConnectionListEh(DesignDataBaseList: TList): TDesignDataBaseEh;
var
  DCForm: TfDesignConnectionListEh;
begin
  Result := nil;
  DCForm := TfDesignConnectionListEh.Create(Application);
  DCForm.PrepareList(DesignDataBaseList);
  if DCForm.ShowModal = mrOk then
//    Result := TDesignDataBaseEh((DCForm.FIDesignDataBase as IInterfaceComponentReference).GetComponent);
    Result := TDesignDataBaseEh(DCForm.FDesignDataBase);

  DCForm.Free;
end;

{ TfDesignConnectionListEh }

function TfDesignConnectionListEh.CurrentDesignDataBase: TDesignDataBaseEh;
begin
  Result := nil;
end;

procedure TfDesignConnectionListEh.PrepareList(DesignDataBaseList: TList);
var
  i: Integer;
begin
  for i := 0 to DesignDataBaseList.Count-1 do
  begin
    MemTableEh1.Append;

    with TDesignDataBaseEh(DesignDataBaseList[i]) do
    begin
      MemTableEh1['ConnectionName'] := 'Ggg';
      MemTableEh1['Engine'] := GetEngineName;
      MemTableEh1['ServerType'] := GetServerTypeName;
      MemTableEh1['Connected'] := Connected;
//      MemTableEh1['RefObject'] := TDesignDataBaseEh(DesignDataBaseList[i]) as IInterface;
      MemTableEh1['RefObject'] := RefObjectToVariant(DesignDataBaseList[i]);
    end;
    MemTableEh1.Post;
  end;
end;

procedure TfDesignConnectionListEh.bNewClick(Sender: TObject);
var
//  ae: TAccessEngineEh;
  sdb: TSelectDBService;
begin
  sdb := TSelectDBService.Create;
  if GUISelectAccessEngine(sdb) and (sdb.AccessEngine <> nil) then
    sdb.AccessEngine.CreateDesignDataBase(nil, sdb.DBServiceClass, sdb.DBName);
  sdb.Free;
  while not MemTableEh1.Eof do
    MemTableEh1.Delete;
  PrepareList(DesignDataBaseList);
end;

procedure TfDesignConnectionListEh.bDeleteClick(Sender: TObject);
var
  RefObject: TObject;
begin
  RefObject := VariantToRefObject(MemTableEh1['RefObject']);
//  RefObject := MemTableEh1['RefObject'];
//  Clear RefInterfase because TDataSet does not clear Buffers.
  MemTableEh1.Edit;
  MemTableEh1['RefObject'] := Null;
  MemTableEh1.Post;
  MemTableEh1.Delete;
  if RefObject <> nil then
    RefObject.Free;
//  if not VarIsNull(RefObject) then
//    (RefObject as IInterfaceComponentReference).GetComponent.Free;
end;

procedure TfDesignConnectionListEh.bSelectClick(Sender: TObject);
begin
//  FIDesignDataBase := IUnknown(MemTableEh1['RefObject']);
  if VarIsNull(MemTableEh1['RefObject'])
    then FDesignDataBase := nil
    else FDesignDataBase := TDesignDataBaseEh(VariantToRefObject(MemTableEh1['RefObject']));
{  if VarIsNull(MemTableEh1['RefObject'])
    then FIDesignDataBase := nil
    else FIDesignDataBase := MemTableEh1['RefObject'];}
end;

procedure TfDesignConnectionListEh.DataSource1DataChange(Sender: TObject;
  Field: TField);
begin
  bSelect.Enabled := not MemTableEh1.IsEmpty;
  bDelete.Enabled := not MemTableEh1.IsEmpty;
  bEdit.Enabled := not MemTableEh1.IsEmpty;
end;

procedure TfDesignConnectionListEh.bEditClick(Sender: TObject);
var
  RefObject: TObject;
begin
  RefObject := VariantToRefObject(MemTableEh1['RefObject']);
  if (RefObject <> nil) then
    (RefObject as TDesignDataBaseEh).EditDatabaseParams;
end;

end.