uvmadgsoomedicinedetailhistory.pas

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

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.