umadvrmedicine.pas

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

unit UMADVRMedicine;

interface

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

type
  TMADVRMedicine = class(TQueryDataModel)
    DataSetSICKE_SICKID: TFloatField;
    DataSetSICKE_ISARREARAGE: TIntegerField;
    DataSetSICKE_CODE: TStringField;
    DataSetSICKE_BIRTHDAY: TDateTimeField;
    DataSetSICKE_SEX: TIntegerField;
    DataSetSICKE_CNAME: TStringField;
    DataSetSICKE_CREATED: TDateTimeField;
    DataSetSICKE_ISACTIVE: TIntegerField;
    DataSetSICKE_ISVALID: TIntegerField;
    DataSetSICKE_ST: TIntegerField;
    DataSetSICKE_UPDATED: TDateTimeField;
    DataSetSICKE_PROFESSIONID: TFloatField;
    DataSetSICKE_WEDLOCKID: TFloatField;
    DataSetSICKE_NATIVEPLACEID: TFloatField;
    DataSetSICKE_NATIONID: TFloatField;
    DataSetSICKE_PAYMENTMETHODID: TFloatField;
    DataSetSICKE_CREATEBY: TFloatField;
    DataSetSICKE_UPDATEBY: TFloatField;
    DataSetSICKE_TOLLSTATIONID: TFloatField;
    DataSetRECIPE_RECIPEID: TFloatField;
    DataSetRECIPE_CREATED: TDateTimeField;
    DataSetRECIPE_ISACTIVE: TIntegerField;
    DataSetRECIPE_ISVALID: TIntegerField;
    DataSetRECIPE_ISPRINTED: TIntegerField;
    DataSetRECIPE_ST: TIntegerField;
    DataSetRECIPE_UPDATED: TDateTimeField;
    DataSetRECIPE_DOCTORID: TFloatField;
    DataSetRECIPE_RECKONINGID: TFloatField;
    DataSetRECIPE_CREATEBY: TFloatField;
    DataSetRECIPE_UPDATEBY: TFloatField;
    DataSetRMEDICINE_RMEDICINEID: TFloatField;
    DataSetRMEDICINE_ISACTIVE: TIntegerField;
    DataSetRMEDICINE_PRICE: TFloatField;
    DataSetRMEDICINE_TOTAL: TFloatField;
    DataSetRMEDICINE_AMOUNT: TFloatField;
    DataSetRMEDICINE_RECKONINGID: TFloatField;
    DataSetRMEDICINE_PSTOCKMEDICINEID: TFloatField;
    DataSetMEDICINESTOCK_MEDICINEID: TFloatField;
    DataSetMEDICINE_CODE: TStringField;
    DataSetMEDICINE_MEMO: TStringField;
    DataSetMEDICINE_ALAIS: TStringField;
    DataSetMEDICINE_MODEL: TStringField;
    DataSetMEDICINE_CAPTION: TStringField;
    DataSetMEDICINE_DOSEID: TFloatField;
    DataSetMEDICINE_UNITSID: TFloatField;
    DataSetMEDICINE_USEMETHODID: TFloatField;
    DataSetMEDICINE_MEDICINECATALOGID: TFloatField;
  private
    SickID : IIntegerKey;
  protected
    procedure PrepareQuery(Parameters: MyTools.IQueryParameters); override;
  public

  end;

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

implementation

uses UMPDatabase, UDataModel;

{$R *.dfm}

{ TVRmedicineFactory }

function TVRmedicineFactory.NewModel: TModel;
begin
  Result := TMADVRMedicine.Create(GetOwner);
end;



{ TMADVRMedicine }

procedure TMADVRMedicine.PrepareQuery(Parameters: IQueryParameters);
begin
  DataSet.ParamByName('SICKE_SICKID').AsInteger := IIntegerKey(Parameters).GetKey;
  SickID := IIntegerKey(Parameters);
end;

end.