umqdsicktollquery.pas

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

unit UMQDSickTollQuery;

interface

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

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

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

implementation

uses UDataModel, UPrimaryDataModel, UMPSysEnv;

{$R *.dfm}

{ TQSickTollQuery }

function TQSickTollQueryFactory.NewModel: TModel;
begin
  Result := TMQDSickTollQuery.Create(GetOwner);
end;

{ TMQDSickTollQuery }

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


procedure TMQDSickTollQuery.PrepareQuery(Parameters: IQueryParameters);
begin
  DataSet.ParamByName('S_CNAME').AsString := IStringKey(Parameters).GetKey;
  DataSet.ParamByName('I_SECTIONOFFICEID').AsInteger := MPSysEnv.SectionOfficeKey.GetKey;
end;

end.