umqdchargeinpatient.pas

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

unit UMQDChargeInpatient;

interface

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

type
  TMQDChargeInpatient = class(TQueryDataModel)
    DataSetI_INPATIENTID: TFloatField;
    DataSetI_LINKMANPHONE: TStringField;
    DataSetI_LINKMANADDRESS: TStringField;
    DataSetI_LINKMANNAME: TStringField;
    DataSetI_RPRPOSTCODE: TStringField;
    DataSetI_RPRADDRESS: TStringField;
    DataSetI_WORKDEPTPOSTCODE: TStringField;
    DataSetI_IDCARDCODE: TStringField;
    DataSetI_PHONE: TStringField;
    DataSetI_WORKDEPATCAPTION: TStringField;
    DataSetI_CREATED: TDateTimeField;
    DataSetI_UPDATED: TDateTimeField;
    DataSetI_MEMO: TStringField;
    DataSetI_PREPAY: TFloatField;
    DataSetI_BLANCE: TFloatField;
    DataSetI_FOODID: TFloatField;
    DataSetI_SICKNESSLEVELID: TFloatField;
    DataSetI_BEDID: TFloatField;
    DataSetI_SICKTYPEID: TFloatField;
    DataSetI_COUNTRYID: TFloatField;
    DataSetI_BLOODTYPEID: TFloatField;
    DataSetI_PERSONRELATIONID: TFloatField;
    DataSetI_SICKID: TFloatField;
    DataSetI_RECKONINGID: TFloatField;
    DataSetI_SECTIONOFFICEID: TFloatField;
    DataSetI_INDATE: TDateTimeField;
    DataSetI_OUTDATE: TDateTimeField;
    DataSetI_DOCTORID: TFloatField;
    DataSetI_LEAVED: TFloatField;
    DataSetS_SICKID: TFloatField;
    DataSetS_ISARREARAGE: TIntegerField;
    DataSetS_CODE: TStringField;
    DataSetS_BIRTHDAY: TDateTimeField;
    DataSetS_SEX: TIntegerField;
    DataSetS_CNAME: TStringField;
    DataSetS_CREATED: TDateTimeField;
    DataSetS_ISACTIVE: TIntegerField;
    DataSetS_ISVALID: TIntegerField;
    DataSetS_ST: TIntegerField;
    DataSetS_UPDATED: TDateTimeField;
    DataSetS_PROFESSIONID: TFloatField;
    DataSetS_WEDLOCKID: TFloatField;
    DataSetS_NATIVEPLACEID: TFloatField;
    DataSetS_NATIONID: TFloatField;
    DataSetS_PAYMENTMETHODID: TFloatField;
    DataSetS_CREATEBY: TFloatField;
    DataSetS_UPDATEBY: TFloatField;
    DataSetS_TOLLSTATIONID: TFloatField;
  private
    { Private declarations }
  protected
    procedure PrepareQuery (Parameters : MyTools.IQueryParameters); override;  
  public
    function GetKey : IKey; override;
  end;

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

implementation

uses UDataModel, UPrimaryDataModel;

{$R *.dfm}

{ TChargeInpatientFactory }

function TChargeInpatientFactory.NewModel: TModel;
begin
  Result := TMQDChargeInpatient.Create(GetOwner);
end;

{ TMQDChargeInpatient }



function TMQDChargeInpatient.GetKey: IKey;
begin
  Result := NewKey('I_RECKONINGID');
end;

procedure TMQDChargeInpatient.PrepareQuery(Parameters: IQueryParameters);
begin
  DataSet.ParamByName('S_CODE').AsString := IStringKey(Parameters).GetKey;
end;

end.