uvmadgstockoutorderapproving.pas

Software Requirements1. Delphi 6 SP22. Oracle 8i R33. Raize 3.0.94. ExpressQuantumGrid 4.505. Expres

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.