umadprepayoperation.pas

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

unit UMADPrepayOperation;

interface

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

type
  TMADPrepayOperation = 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;
    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;

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

implementation

uses UPrimaryDataModel, UDataModel;

{$R *.dfm}

{ TPrepayOperationFactory }

function TPrepayOperationFactory.NewModel: TModel;
begin
  Result := TMADPrepayOperation.Create(GetOwner);
end;

{ TMADPrepayOperation }

function TMADPrepayOperation.GetKey: IKey;
begin
  Result := NewKey('I_INPATIENTID');
end;

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

end.