unit UVADGRMedicine;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, UMasterAdapterDataGridView, cxStyles, cxCustomData, cxGraphics,
  cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, dxPSGlbl, dxPSUtl,
  dxPSEngn, dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider,
  dxPSFillPatterns, dxPSEdgePatterns, dxPSCore, RzCommon, cxGridLevel,
  cxClasses, cxControls, cxGridCustomView, cxGridCustomTableView,
  cxGridTableView, cxGridDBTableView, cxGrid, jpeg, RzBckgnd, ExtCtrls,
  RzPanel, UMADRmedicine, UCloneDataModel, cxDBLookupComboBox,
  UAdapterDataGridView, UView, cxCheckBox, cxCurrencyEdit;

type
  TVADGRmedicine = class(TMasterAdapterDataGridView)
    UnitsID: TDataSource;
    GridDBTableViewRMEDICINEID: TcxGridDBColumn;
    GridDBTableViewISACTIVE: TcxGridDBColumn;
    GridDBTableViewTOTAL: TcxGridDBColumn;
    GridDBTableViewAMOUNT: TcxGridDBColumn;
    GridDBTableViewRECKONINGID: TcxGridDBColumn;
    GridDBTableViewPSTOCKMEDICINEID: TcxGridDBColumn;
    GridDBTableViewMEDICINE_MEMO: TcxGridDBColumn;
    GridDBTableViewMEDICINE_ALAIS: TcxGridDBColumn;
    GridDBTableViewMEDICINE_DOSEID: TcxGridDBColumn;
    GridDBTableViewMEDICINE_USEMETHODID: TcxGridDBColumn;
    GridDBTableViewMEDICINE_MEDICINECATALOGID: TcxGridDBColumn;
    PStockMedicine: TDataSource;
    GridDBTableViewMEDICINE_CAPTION: TcxGridDBColumn;
    GridDBTableViewMEDICINE_CODE: TcxGridDBColumn;
    GridDBTableViewMEDICINE_MODEL: TcxGridDBColumn;
    GridDBTableViewPRICE: TcxGridDBColumn;
  private
    UnitsIDModel: TCloneDataModel;
    PStockMedicineModel : TCloneDataModel;
  protected
    procedure InitModel; override;
  public
    function GetCaption: string; override;
    function GetDetailView: TView; override;
  end;

implementation

uses
  Factory, UPrimaryDataModel, UMADMedicine, UMADUnits, UMADReckoning,
  UMADVPStockMedicine, UVADIRmedicine;              
  
{$R *.dfm}

{ TVADGRmedicine }

function TVADGRmedicine.GetCaption: string;
begin
   Result := '用藥帳單';
end;

function TVADGRmedicine.GetDetailView: TView;
var
  View : TVADIRmedicine;
begin
  View := TVADIRmedicine.Create(Self);
  View.SetModel(GetModel);
  Result := View;
end;

procedure TVADGRmedicine.InitModel;
begin
  inherited;
  UnitsIDModel := GetCloneDataModel(TPrimaryDataModel(UnitsFactory.GetModel));
  UnitsID.DataSet := UnitsIDModel.GetDataSet;

  PStockMedicineModel := GetCloneDataModel(TPrimaryDataModel(VPStockmedicineFactory.GetModel));
  PStockMedicine.DataSet := PStockMedicineModel.GetDataSet;
end;

end.