uvmadgstockoutorderapproving.pas

来自「一整套的源代码」· PAS 代码 · 共 72 行

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.