uprimarydatamodel.pas

Delphi6开发的HIS程序

unit UPrimaryDataModel;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, UDataModel, Provider,
  DB, DBClient,
  UCloneDataModel, ADODB, FMTBcd;

type
  TPrimaryDataModel = class(TDataModel)
    Provider: TDataSetProvider;
    DataSet: TADODataSet;
  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.