umadinpatientstation.pas

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

unit UMADInpatientStation;

interface

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

type
  TMADInpatientStation = class(TQueryDataModel)
    DataSetINPATIENTID: TFloatField;
    DataSetLINKMANPHONE: TStringField;
    DataSetLINKMANADDRESS: TStringField;
    DataSetLINKMANNAME: TStringField;
    DataSetRPRPOSTCODE: TStringField;
    DataSetRPRADDRESS: TStringField;
    DataSetWORKDEPTPOSTCODE: TStringField;
    DataSetIDCARDCODE: TStringField;
    DataSetPHONE: TStringField;
    DataSetWORKDEPATCAPTION: TStringField;
    DataSetCREATED: TDateTimeField;
    DataSetUPDATED: TDateTimeField;
    DataSetMEMO: TStringField;
    DataSetPREPAY: TFloatField;
    DataSetBLANCE: TFloatField;
    DataSetFOODID: TFloatField;
    DataSetSICKNESSLEVELID: TFloatField;
    DataSetBEDID: TFloatField;
    DataSetSICKTYPEID: TFloatField;
    DataSetCOUNTRYID: TFloatField;
    DataSetBLOODTYPEID: TFloatField;
    DataSetPERSONRELATIONID: TFloatField;
    DataSetSICKID: TFloatField;
    DataSetRECKONINGID: TFloatField;
    DataSetSECTIONOFFICEID: TFloatField;
    DataSetINDATE: TDateTimeField;
    DataSetOUTDATE: TDateTimeField;
    DataSetDOCTORID: TFloatField;
  private
    SickID : IIntegerKey;
  protected
    procedure PrepareQuery(Parameters: MyTools.IQueryParameters); override;
  public
    procedure Append(Parameters: IParameters); override;
    function GetKey : IKey; override;
  end;

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

uses UPrimaryDataModel, UDataModel;

{$R *.dfm}

{ TInpatientStationFactory }

function TInpatientStationFactory.NewModel: TModel;
begin
  Result := TMADInpatientStation.Create(GetOwner);
end;

{ TMADInpatientStation }

procedure TMADInpatientStation.Append(Parameters: IParameters);
begin
  inherited;
  DataSet.FieldByName('SickID').AsInteger := SickID.GetKey;
end;

function TMADInpatientStation.GetKey: IKey;
begin
  Result := NewKey('INPATIENTID');
end;

procedure TMADInpatientStation.PrepareQuery(Parameters: IQueryParameters);
begin
  SickID := IIntegerKey(Parameters);
  DataSet.ParamByName('SickID').AsInteger := SickID.GetKey;
end;

end.