uvadgrmedicine.pas

Software Requirements1. Delphi 6 SP22. Oracle 8i R33. Raize 3.0.94. ExpressQuantumGrid 4.505. Expres

unit UVADGRMedicine;

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, UMADRmedicine, UCloneDataModel, cxDBLookupComboBox,
  UAdapterDataGridView, UView, cxCheckBox, cxCurrencyEdit;

type
  TVADGRmedicine = class(TMasterAdapterDataGridView)
    UnitsID: TDataSource;
    GridDBTableViewRMEDICINEID: TcxGridDBColumn;
    GridDBTableViewISACTIVE: TcxGridDBColumn;
    GridDBTableViewTOTAL: TcxGridDBColumn;
    GridDBTableViewAMOUNT: TcxGridDBColumn;
    GridDBTableViewRECKONINGID: TcxGridDBColumn;
    GridDBTableViewPSTOCKMEDICINEID: TcxGridDBColumn;
    GridDBTableViewMEDICINE_MEMO: TcxGridDBColumn;
    GridDBTableViewMEDICINE_ALAIS: TcxGridDBColumn;
    GridDBTableViewMEDICINE_DOSEID: TcxGridDBColumn;
    GridDBTableViewMEDICINE_USEMETHODID: TcxGridDBColumn;
    GridDBTableViewMEDICINE_MEDICINECATALOGID: TcxGridDBColumn;
    PStockMedicine: TDataSource;
    GridDBTableViewMEDICINE_CAPTION: TcxGridDBColumn;
    GridDBTableViewMEDICINE_CODE: TcxGridDBColumn;
    GridDBTableViewMEDICINE_MODEL: TcxGridDBColumn;
    GridDBTableViewPRICE: TcxGridDBColumn;
  private
    UnitsIDModel: TCloneDataModel;
    PStockMedicineModel : TCloneDataModel;
  protected
    procedure InitModel; override;
  public
    function GetCaption: string; override;
    function GetDetailView: TView; override;
  end;

implementation

uses
  Factory, UPrimaryDataModel, UMADMedicine, UMADUnits, UMADReckoning, UVADIRmedicine,
  UMADVPStockMedicine;              
  
{$R *.dfm}

{ TVADGRmedicine }

function TVADGRmedicine.GetCaption: string;
begin
   Result := '用药帐单';
end;

function TVADGRmedicine.GetDetailView: TView;
var
  View : TVADIRmedicine;
begin
  View := TVADIRmedicine.Create(Self);
  View.SetModel(GetModel);
  Result := View;
end;

procedure TVADGRmedicine.InitModel;
begin
  inherited;
  UnitsIDModel := GetCloneDataModel(TPrimaryDataModel(UnitsFactory.GetModel));
  UnitsID.DataSet := UnitsIDModel.GetDataSet;

  PStockMedicineModel := GetCloneDataModel(TPrimaryDataModel(VPStockmedicineFactory.GetModel));
  PStockMedicine.DataSet := PStockMedicineModel.GetDataSet;
end;

end.