umadinpatient.pas

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

unit UMADInpatient;

interface

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

type
  TMADInpatient = class(TAdapterDataModel)
    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;
  private
    { Private declarations }
  public
    function GetKey: IKey; override;
  end;

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

implementation

{$R *.dfm}

function TInpatientFactory.NewModel: TModel;
begin
  Result :=  TMADInpatient.Create(GetOwner);
end;

{ TMADInpatient }

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

end.