unit UVADGRMedicine;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, UAdapterDataGridView, 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;

type
  TVADGRmedicine = class(TAdapterDataGridView)
    Medicine: TDataSource;
    Units: TDataSource;
    GridDBTableViewRMEDICINEID: TcxGridDBColumn;
    GridDBTableViewPRICE: TcxGridDBColumn;
    GridDBTableViewTOTAL: TcxGridDBColumn;
    GridDBTableViewAMOUNT: TcxGridDBColumn;
    GridDBTableViewRECKONINGID: TcxGridDBColumn;
    GridDBTableViewUNITSID: TcxGridDBColumn;
    GridDBTableViewMEDICINEID: TcxGridDBColumn;
    Reckoning: TDataSource;

  private
    MedicineModel: TCloneDataModel;
    UnitsModel: TCloneDataModel;
    ReckoningModel: TCloneDataModel;

  protected
    procedure InitModel; override;
  public
    function GetCaption: string; override; 
  end;

implementation

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

{ TVADGRmedicine }

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

procedure TVADGRmedicine.InitModel;
begin
  inherited;
  MedicineModel := GetCloneDataModel(TPrimaryDataModel(MedicineFactory.GetModel));
  Medicine.DataSet := MedicineModel.GetDataSet;

  UnitsModel := GetCloneDataModel(TPrimaryDataModel(UnitsFactory.GetModel));
  Units.DataSet := UnitsModel.GetDataSet;

  ReckoningModel := GetCloneDataModel(TPrimaryDataModel(ReckoningFactory.GetModel));
  Reckoning.DataSet := ReckoningModel.GetDataSet;
end;

end.