uvmadgsoomedicinedetailhistory.pas

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

unit UVMADGSOOMedicineDetailHistory;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, UMasterAdapterDataGridView, cxStyles, cxCustomData, cxGraphics,
  cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, dxPSGlbl, dxPSUtl,
  dxPSEngn, dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider,
  dxPSFillPatterns, dxPSEdgePatterns, dxPSCore, RzCommon, cxGridLevel,
  cxClasses, cxControls, cxGridCustomView, cxGridCustomTableView,
  cxGridTableView, cxGridDBTableView, cxGrid, jpeg, RzBckgnd, ExtCtrls,
  RzPanel, UCloneDataModel, UPrimaryDataModel, Factory, UView, UDataModel,
  cxDBLookupComboBox, cxCheckBox, MyTools, cxCurrencyEdit, dxPScxGridLnk,
  ppDB, ppBands, ppCache, ppClass, ppProd, ppReport, ppComm, ppRelatv,
  ppDBPipe, ppDBBDE, ppCtrls, ppVar, ppPrnabl;

type
  TVMADGSOOMedicineDetailHistory = class(TMasterAdapterDataGridView)
    MedicineStockID: TDataSource;
    StockoutorderID: TDataSource;
    GridDBTableViewSOOMEDICINEDETAILID: TcxGridDBColumn;
    GridDBTableViewPRICE: TcxGridDBColumn;
    GridDBTableViewAMOUNT: TcxGridDBColumn;
    GridDBTableViewTOTAL: TcxGridDBColumn;
    GridDBTableViewSTOCKOUTORDERID: TcxGridDBColumn;
    GridDBTableViewMEDICINESTOCKID: TcxGridDBColumn;
    GridDBTableViewISAPPROVE: TcxGridDBColumn;
    cxPrinter: TdxGridReportLink;
    GridDBTableViewM_CAPTION: TcxGridDBColumn;
    GridDBTableViewM_CODE: TcxGridDBColumn;
    GridDBTableViewM_MEDICINECATALOGID: TcxGridDBColumn;
    GridDBTableViewM_UNITSID: TcxGridDBColumn;
    GridDBTableViewM_PACKAMOUNT: TcxGridDBColumn;
    ppBDEPipeline1: TppBDEPipeline;
    ppReport1: TppReport;
    ppHeaderBand1: TppHeaderBand;
    ppDetailBand1: TppDetailBand;
    ppFooterBand1: TppFooterBand;
    ppTitleBand1: TppTitleBand;
    ppGroup1: TppGroup;
    ppGroupFooterBand1: TppGroupFooterBand;
    ppGroupHeaderBand1: TppGroupHeaderBand;
    ppLabel1: TppLabel;
    ppSystemVariable1: TppSystemVariable;
    ppDBText1: TppDBText;
    ppLabel2: TppLabel;
    ppDBText2: TppDBText;
    ppLabel3: TppLabel;
    ppDBText3: TppDBText;
    ppDBText4: TppDBText;
    ppLabel4: TppLabel;
    ppDBText5: TppDBText;
    ppLabel5: TppLabel;
    ppDBText6: TppDBText;
    ppLabel6: TppLabel;
    ppDBText7: TppDBText;
    ppLabel7: TppLabel;
    ppDBText8: TppDBText;
    ppLabel8: TppLabel;
    ppDBText9: TppDBText;
    ppLabel9: TppLabel;
    ppLine4: TppLine;
    ppLine5: TppLine;
    ppLabel10: TppLabel;
    ppLabel11: TppLabel;
    ppLabel12: TppLabel;
    ppDBCalc1: TppDBCalc;
    ppDBCalc2: TppDBCalc;
    ppLine1: TppLine;
    ppLabel13: TppLabel;
    ppLabel14: TppLabel;
  private
    MedicineStockIDModel: TCloneDataModel;
    StockoutorderIDModel: TCloneDataModel;
  protected
    procedure InitModel; override;
  public
    function GetCaption: string; override;
    function GetDetailView: TView; override;
    procedure Append(Parameters: IParameters); override;
    procedure Delete(Parameters: IParameters); override;
    procedure Save(Parameters: IParameters); override;
    procedure Print; override;
  end;

implementation
uses
  UMADSOOMedicineDetail, UMADStockoutorder, UVADISOOMedicineDetailHistory,
  UMADMedicineStock;
{$R *.dfm}

{ TVMADGSOOMedicineDetailHistory }

procedure TVMADGSOOMedicineDetailHistory.Append(Parameters: IParameters);
begin
//
end;

procedure TVMADGSOOMedicineDetailHistory.Delete(Parameters: IParameters);
begin
//
end;

function TVMADGSOOMedicineDetailHistory.GetCaption: string;
begin
  Result := '出库单详细';
end;

function TVMADGSOOMedicineDetailHistory.GetDetailView: TView;
var
  View : TVADISOOMedicineDetailHistory;
begin
  View := TVADISOOMedicineDetailHistory.Create(Self, GetModelFactory);
  View.SetModel(GetModel);
  Result := View;
end;

procedure TVMADGSOOMedicineDetailHistory.InitModel;
begin
  inherited;
  MedicineStockIDModel := TCloneDataModel.Create(Self);
  TPrimaryDataModel(MedicineStockFactory.GetModel).Clone(MedicineStockIDModel);
  MedicineStockID.DataSet := MedicineStockIDModel.GetDataSet;

  StockoutorderIDModel := TCloneDataModel.Create(Self);
  TPrimaryDataModel(StockoutorderFactory.GetModel).Clone(StockoutorderIDModel);
  StockoutorderID.DataSet := StockoutorderIDModel.GetDataSet;
end;

procedure TVMADGSOOMedicineDetailHistory.Print;
begin
  ppReport1.PrintReport;
end;

procedure TVMADGSOOMedicineDetailHistory.Save(Parameters: IParameters);
begin
//
end;

end.