uprimarydatamodel.pas

Software Requirements1. Delphi 6 SP22. Oracle 8i R33. Raize 3.0.94. ExpressQuantumGrid 4.505. Expres

unit UPrimaryDataModel;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, UDataModel, Provider, OraProvider, MemDS, DBAccess, Ora,
  OraSmart, DB, DBClient,
  UCloneDataModel, ADODB;

type
  TPrimaryDataModel = class(TDataModel)
    DataSet: TSmartQuery;
    Provider: TOraProvider;
  protected
  public
    procedure Clone(CloneDataModel: TCloneDataModel); virtual;
    procedure OpenDataSet; override;
  public
    constructor Create(Owner: TComponent); override;
    destructor Destroy; override;
  end;

implementation

uses UMPDatabase;

{$R *.dfm}

{ TPrimaryDataModel }

procedure TPrimaryDataModel.Clone(CloneDataModel: TCloneDataModel);
begin
  CloneDataModel.ClientDataSet.CloneCursor(ClientDataSet, True); 
end;

constructor TPrimaryDataModel.Create(Owner: TComponent);
begin
  inherited;
  AutoOpenDataSet := True;
end;

destructor TPrimaryDataModel.Destroy;
begin
  DataSet.Close;
  inherited;
end;

procedure TPrimaryDataModel.OpenDataSet;
begin
  DataSet.Open;
  ClientDataSet.Open;
end;

end.