umqdtollstation.pas

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

unit UMQDTollStation;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, UMADTollStation, Provider, OraProvider, DB, MemDS, DBAccess,
  Ora, OraSmart, DBClient, UModel, MyFactory, UQueryDataModel, MyTools;

type
  TMQDTollStation = class(TQueryDataModel)
    DataSetCAPTION: TStringField;
    DataSetSECTIONOFFICEID: TFloatField;
    DataSetTOLLSTATIONID: TFloatField;
  private
    TOLLSTATIONID : IIntegerKey;
   protected
    procedure PrepareQuery(Parameters: MyTools.IQueryParameters); override;
  public
    procedure Append(Parameters: IParameters); override;
  end;

  TQTollStationFactory = class(TModelFactory)
    function NewModel: TModel; override;
  end;
implementation

uses UMPDatabase;

{$R *.dfm}

{ TQTollStationFactory }

function TQTollStationFactory.NewModel: TModel;
begin
  Result := TMQDTollStation.Create(GetOwner);
end;

{ TMQDTollStation }

procedure TMQDTollStation.Append(Parameters: IParameters);
begin
  inherited;
  GetDataSet.FieldByName('TOLLSTATIONID').AsInteger := TOLLSTATIONID.GetKey;
end;

procedure TMQDTollStation.PrepareQuery(Parameters: IQueryParameters);
begin
  inherited;
  DataSet.ParamByName('TOLLSTATIONID').AsInteger := IIntegerKey(Parameters).GetKey;
  TOLLSTATIONID := IIntegerKey(Parameters);
end;

end.