unit UVADGPstockmedicine;

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,
  UMADPstockmedicine, UCloneDataModel, UPrimaryDataModel, Factory,
  cxDBLookupComboBox;

type
  TVADGPstockmedicine = class(TAdapterDataGridView)
    MedicineStock: TDataSource;
    GridDBTableViewPSTOCKMEDICINEID: TcxGridDBColumn;
    GridDBTableViewAMOUNT: TcxGridDBColumn;
    GridDBTableViewCREATED: TcxGridDBColumn;
    GridDBTableViewUPDATED: TcxGridDBColumn;
    GridDBTableViewMEDICINESTOCKID: TcxGridDBColumn;
    GridDBTableViewSAMOUNT: TcxGridDBColumn;
  private
    MedicineStockModel: TCloneDataModel;
  protected
    procedure InitModel; override;
  public
    function GetCaption: string; override;
  end;

implementation

uses UMADMedicineStock;

{$R *.dfm}

{ TVADGPstockmedicine }

function TVADGPstockmedicine.GetCaption: string;
begin
  Result := '藥房庫存';
end;

procedure TVADGPstockmedicine.InitModel;
begin
  inherited;
  MedicineStockModel := TCloneDataModel.Create(Self);
  TPrimaryDataModel(MedicineStockFactory.GetModel).Clone(MedicineStockModel);
  MedicineStock.DataSet := MedicineStockModel.GetDataSet;
end;

end.