umadinpatient.pas

来自「一整套的源代码」· PAS 代码 · 共 62 行

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.