umodel.pas

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

unit UModel;

interface

uses
  SysUtils, Classes, ComObj,
  MyModel, MyTools;

type
  TModel = class(TDataModule, IModel)
  private
    FIsModified: Boolean;
{---------------------------------------- IModel ----------------------------------------}
  protected
    function GetIsModified: Boolean; virtual;
    procedure SetIsModified(const Value: Boolean); virtual;
    procedure Refresh(Parameters: IParameters); virtual;
  public
    property IsModified: Boolean read GetIsModified write SetIsModified;
  public
    constructor Create(Owner: TComponent); override;
  end;

implementation

uses
  MyException;

{$R *.dfm}

{ TModel }

constructor TModel.Create(Owner: TComponent);
begin
  inherited;
  FIsModified := False;
end;

function TModel.GetIsModified: Boolean;
begin
  Result := FIsModified;
end;

procedure TModel.Refresh(Parameters: IParameters);
begin

end;

procedure TModel.SetIsModified(const Value: Boolean);
begin
  FIsModified := Value;
end;

end.