uvadistockinorderhistory.pas

医院信息管理系统 后台采用ORACLE

unit UVADIStockInOrderHistory;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, UAdapterDataItemView, dxPSGlbl, dxPSUtl, dxPSEngn, dxPrnPg,
  dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns,
  dxPSEdgePatterns, DB, dxPSCore, RzCommon, RzButton, jpeg, RzBckgnd,
  ExtCtrls, RzPanel, UView, UControllerView,
  UAdapterDataPagesView, RzDBEdit, DBCtrls, RzDBCmbo, StdCtrls, Mask,
  RzEdit, RzLabel, Factory, UCloneDataModel, UPrimaryDataModel,
  MyTools, RzTabs, UQueryDataModel, UVMADGSIOMedicineDetailHistory, UPagesView;

type
  TVADIStockInOrderHistory = class(TAdapterDataItemView)
    PagesView: TAdapterDataPagesView;
    CheckInMethodID: TDataSource;
    RzLabel1: TRzLabel;
    RzLabel2: TRzLabel;
    RzLabel3: TRzLabel;
    RzLabel4: TRzLabel;
    RzLabel12: TRzLabel;
    RzDBEdit1: TRzDBEdit;
    RzDBEdit3: TRzDBEdit;
    RzDBEdit4: TRzDBEdit;
    RzDBLookupComboBox2: TRzDBLookupComboBox;
    RzDBDateTimeEdit1: TRzDBDateTimeEdit;
  private
    CheckInMethodIDModel: TCloneDataModel;
    SIOMedicineDetailView : TVMADGSIOMedicineDetailHistory;
  protected
    procedure InitModel; override;
    procedure InitView; override;
  public
    function GetCaption: string; override;
  end;

implementation
uses
  UMADStockInOrder, UMADCheckInMethod;
{$R *.dfm}

{ TVADIStockInOrderHistory }

function TVADIStockInOrderHistory.GetCaption: string;
begin
  Result := '入库单历史';
end;

procedure TVADIStockInOrderHistory.InitModel;
begin
  inherited;
  CheckInMethodIDModel := GetCloneDataModel(TPrimaryDataModel(CheckInMethodFactory.GetModel));
  CheckInMethodID.DataSet := CheckInMethodIDModel.GetDataSet;
end;

procedure TVADIStockInOrderHistory.InitView;
var
  Page: TRzTabSheet;
  Key: IKey;
begin
  inherited;
  Page := PagesView.NewPage;
  SIOMedicineDetailView := TVMADGSIOMedicineDetailHistory.Create(Page,SIOMedicineDetailFactory);
  PagesView.BandView(Page,SIOMedicineDetailView);
  Key := GetDataModel.GetKey;
  TQueryDataModel(SIOMedicineDetailView.GetDataModel).Query(Key);
end;

end.