unit UVADGRmedicineReadOnly;

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, RzBckgnd, ExtCtrls, RzPanel,
  UMADRmedicine, UCloneDataModel, cxDBLookupComboBox, cxCurrencyEdit;

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

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

{ TVADGRmedicineReadOnly }

function TVADGRmedicineReadOnly.GetCaption: string;
begin
  Result := '物資賬單查詢';
end;

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

end.