uvadiscomedicinehistory.pas

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

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.