uvadiscomedicinehistory.pas

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

unit UVADISCOMedicineHistory;

interface

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

type
  TVADISCOMedicineHistory = class(TVADISCOMedicine)
  private
    MedicineStockDetailModel: TCloneDataModel;
  protected
    procedure InitModel; override;
  public
    function GetCaption: string; override;
  end;

implementation
uses
  UMADSCOMedicine, UMADMedicineStockDetail;
{$R *.dfm}

{ TVADISCOMedicineHistory }

function TVADISCOMedicineHistory.GetCaption: string;
begin
  Result := '库存变更历史';
end;

procedure TVADISCOMedicineHistory.InitModel;
begin
  inherited;
  MedicineStockDetailModel := TCloneDataModel.Create(Self);
  TPrimaryDataModel(MedicineStockDetailFactory.GetModel).Clone(MedicineStockDetailModel);
  MedicineStockDetail.DataSet := MedicineStockDetailModel.GetDataSet;
end;

end.