unit UVMADGStockOutOrderApproving;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, UVMADGStockOutOrder, cxStyles, cxCustomData, cxGraphics,
  cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, cxCheckBox,
  cxDBLookupComboBox, dxPSGlbl, dxPSUtl, dxPSEngn, dxPrnPg, dxBkgnd,
  dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns, dxPSEdgePatterns,
  dxPSCore, RzCommon, cxGridLevel, cxGridCustomTableView, cxGridTableView,
  cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, jpeg,
  RzBckgnd, ExtCtrls, RzPanel, UView, UDataView, UAdapterDataView,
  UAdapterDataItemsView, UAdapterDataGridView, UMasterAdapterDataGridView,
  UVADGSOOMedicineDetail, UControllerView, UPagesView, RzTabs, MyTools,
  UAdapterDataPagesView, cxSplitter, UVADGSOOMedicineDetailApproving,
  UQueryDataModel, UMADStockoutorder;

type
  TVMADGStockOutOrderApproving = class(TVMADGStockOutOrder)
    cxSplitter1: TcxSplitter;
    PagesView: TAdapterDataPagesView;
    procedure GridClick(Sender: TObject);
  private
    SOOMedicineDetailApprovingView: TVADGSOOMedicineDetailApproving;
  protected
    procedure InitModel; override;
    procedure InitView; override;
  public
    function GetCaption: string; override;
  end;

implementation

uses Factory;

{$R *.dfm}

{ TVMADGStockOutOrderApproving }

function TVMADGStockOutOrderApproving.GetCaption: string;
begin
  Result := '藥物申領批準';
end;

procedure TVMADGStockOutOrderApproving.InitModel;
begin
  inherited;

end;

procedure TVMADGStockOutOrderApproving.InitView;
var
  Page: TRzTabSheet;
  Key: IKey;
begin
  inherited;
  Page := PagesView.NewPage;
  SOOMedicineDetailApprovingView := TVADGSOOMedicineDetailApproving.Create(Page, SOOMedicineDetailNOTApproveFactory);
  PagesView.BandView(Page, SOOMedicineDetailApprovingView);
  Key := GetDataModel.GetKey;
  TQueryDataModel(SOOMedicineDetailApprovingView.GetDataModel).Query(Key);
end;

procedure TVMADGStockOutOrderApproving.GridClick(Sender: TObject);
begin
  inherited;
  TQueryDataModel(SOOMedicineDetailApprovingView.GetDataModel).Query(GetDataModel.GetKey);
end;

end.