uvadistockinorderhistory.pas

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

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.