uvadgrmedicine.pas

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

unit UVADGRMedicine;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, UAdapterDataGridView, 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;

type
  TVADGRmedicine = class(TAdapterDataGridView)
    Medicine: TDataSource;
    Units: TDataSource;
    GridDBTableViewRMEDICINEID: TcxGridDBColumn;
    GridDBTableViewPRICE: TcxGridDBColumn;
    GridDBTableViewTOTAL: TcxGridDBColumn;
    GridDBTableViewAMOUNT: TcxGridDBColumn;
    GridDBTableViewRECKONINGID: TcxGridDBColumn;
    GridDBTableViewUNITSID: TcxGridDBColumn;
    GridDBTableViewMEDICINEID: TcxGridDBColumn;
    Reckoning: TDataSource;

  private
    MedicineModel: TCloneDataModel;
    UnitsModel: TCloneDataModel;
    ReckoningModel: TCloneDataModel;

  protected
    procedure InitModel; override;
  public
    function GetCaption: string; override; 
  end;

implementation

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

{ TVADGRmedicine }

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

procedure TVADGRmedicine.InitModel;
begin
  inherited;
  MedicineModel := GetCloneDataModel(TPrimaryDataModel(MedicineFactory.GetModel));
  Medicine.DataSet := MedicineModel.GetDataSet;

  UnitsModel := GetCloneDataModel(TPrimaryDataModel(UnitsFactory.GetModel));
  Units.DataSet := UnitsModel.GetDataSet;

  ReckoningModel := GetCloneDataModel(TPrimaryDataModel(ReckoningFactory.GetModel));
  Reckoning.DataSet := ReckoningModel.GetDataSet;
end;

end.