uvadgvrmedicine.pas

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

unit UVADGVRMedicine;

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, cxCurrencyEdit, cxDBLookupComboBox, UCloneDataModel, UPrimaryDataModel,
  Factory, cxCheckBox;

type
  TVADGVRMedicine = class(TAdapterDataGridView)
    GridDBTableViewSICKE_SICKID: TcxGridDBColumn;
    GridDBTableViewSICKE_ISARREARAGE: TcxGridDBColumn;
    GridDBTableViewSICKE_CODE: TcxGridDBColumn;
    GridDBTableViewSICKE_BIRTHDAY: TcxGridDBColumn;
    GridDBTableViewSICKE_SEX: TcxGridDBColumn;
    GridDBTableViewSICKE_CNAME: TcxGridDBColumn;
    GridDBTableViewSICKE_CREATED: TcxGridDBColumn;
    GridDBTableViewSICKE_ISACTIVE: TcxGridDBColumn;
    GridDBTableViewSICKE_ISVALID: TcxGridDBColumn;
    GridDBTableViewSICKE_ST: TcxGridDBColumn;
    GridDBTableViewSICKE_UPDATED: TcxGridDBColumn;
    GridDBTableViewSICKE_PROFESSIONID: TcxGridDBColumn;
    GridDBTableViewSICKE_WEDLOCKID: TcxGridDBColumn;
    GridDBTableViewSICKE_NATIVEPLACEID: TcxGridDBColumn;
    GridDBTableViewSICKE_NATIONID: TcxGridDBColumn;
    GridDBTableViewSICKE_PAYMENTMETHODID: TcxGridDBColumn;
    GridDBTableViewSICKE_CREATEBY: TcxGridDBColumn;
    GridDBTableViewSICKE_UPDATEBY: TcxGridDBColumn;
    GridDBTableViewSICKE_TOLLSTATIONID: TcxGridDBColumn;
    GridDBTableViewRECIPE_RECIPEID: TcxGridDBColumn;
    GridDBTableViewRECIPE_CREATED: TcxGridDBColumn;
    GridDBTableViewRECIPE_ISACTIVE: TcxGridDBColumn;
    GridDBTableViewRECIPE_ISVALID: TcxGridDBColumn;
    GridDBTableViewRECIPE_ISPRINTED: TcxGridDBColumn;
    GridDBTableViewRECIPE_ST: TcxGridDBColumn;
    GridDBTableViewRECIPE_UPDATED: TcxGridDBColumn;
    GridDBTableViewRECIPE_DOCTORID: TcxGridDBColumn;
    GridDBTableViewRECIPE_RECKONINGID: TcxGridDBColumn;
    GridDBTableViewRECIPE_CREATEBY: TcxGridDBColumn;
    GridDBTableViewRECIPE_UPDATEBY: TcxGridDBColumn;
    GridDBTableViewRMEDICINE_RMEDICINEID: TcxGridDBColumn;
    GridDBTableViewRMEDICINE_ISACTIVE: TcxGridDBColumn;
    GridDBTableViewRMEDICINE_PRICE: TcxGridDBColumn;
    GridDBTableViewRMEDICINE_TOTAL: TcxGridDBColumn;
    GridDBTableViewRMEDICINE_AMOUNT: TcxGridDBColumn;
    GridDBTableViewRMEDICINE_RECKONINGID: TcxGridDBColumn;
    GridDBTableViewRMEDICINE_PSTOCKMEDICINEID: TcxGridDBColumn;
    GridDBTableViewMEDICINESTOCK_MEDICINEID: TcxGridDBColumn;
    GridDBTableViewMEDICINE_CODE: TcxGridDBColumn;
    GridDBTableViewMEDICINE_MEMO: TcxGridDBColumn;
    GridDBTableViewMEDICINE_ALAIS: TcxGridDBColumn;
    GridDBTableViewMEDICINE_MODEL: TcxGridDBColumn;
    GridDBTableViewMEDICINE_CAPTION: TcxGridDBColumn;
    GridDBTableViewMEDICINE_DOSEID: TcxGridDBColumn;
    GridDBTableViewMEDICINE_UNITSID: TcxGridDBColumn;
    GridDBTableViewMEDICINE_USEMETHODID: TcxGridDBColumn;
    GridDBTableViewMEDICINE_MEDICINECATALOGID: TcxGridDBColumn;
    Dose: TDataSource;
    MedicineCatalog: TDataSource;
    Units: TDataSource;
    UseMethod: TDataSource;
  private
    MedicineCatalogModel : TCloneDataModel;
    UseMethodModel : TCloneDataModel;
    DoseModel : TCloneDataModel;
    UnitsModel : TCloneDataModel;
  protected
    procedure InitModel; override;
  public
    function GetCaption: string; override;
  end;

implementation

uses UMADVRMedicine, UMADMedicineCatalog, UMADUseMethod, UMADDose,
  UMADUnits, UDataView;

{$R *.dfm}

{ TVADGVRMedicine }

function TVADGVRMedicine.GetCaption: string;
begin
  Result := '账单明细';
end;

procedure TVADGVRMedicine.InitModel;
begin
  inherited;
  UnitsModel := GetCloneDataModel(TPrimaryDataModel(UnitsFactory.GetModel));
  Units.DataSet := UnitsModel.GetDataSet;

  DoseModel := GetCloneDataModel(TPrimaryDataModel(DoseFactory.GetModel));
  Dose.DataSet := DoseModel.GetDataSet;

  UseMethodModel := GetCloneDataModel(TPrimaryDataModel(UseMethodFactory.GetModel));
  UseMethod.DataSet := UseMethodModel.GetDataSet;

  MedicineCatalogModel := GetCloneDataModel(TPrimaryDataModel(MedicineCatalogFactory.GetModel));
  MedicineCatalog.DataSet := MedicineCatalogModel.GetDataSet;

end;

end.