uvadgdaquery.pas

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

unit UVADGDAQuery;

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, RzBckgnd, ExtCtrls, RzPanel,
  UView, UControllerView, UPagesView, UAdapterDataPagesView,
  Factory, UPrimaryDataModel, MyTools,UQueryDataModel, UCloneDataModel,
  UVADGRserviceReadOnly, UVADGRmedicineReadOnly, RzTabs,
  cxDBLookupComboBox, cxCheckComboBox, cxCheckBox;

type
  TVADGDAQuery = class(TAdapterDataGridView)
    Doctor: TDataSource;
    SickType: TDataSource;
    SectionOffice: TDataSource;
    Bed: TDataSource;
    Splitter1: TSplitter;
    PagesView: TAdapterDataPagesView;
    GridDBTableViewI_INPATIENTID: TcxGridDBColumn;
    GridDBTableViewI_LINKMANPHONE: TcxGridDBColumn;
    GridDBTableViewI_LINKMANADDRESS: TcxGridDBColumn;
    GridDBTableViewI_LINKMANNAME: TcxGridDBColumn;
    GridDBTableViewI_RPRPOSTCODE: TcxGridDBColumn;
    GridDBTableViewI_RPRADDRESS: TcxGridDBColumn;
    GridDBTableViewI_WORKDEPTPOSTCODE: TcxGridDBColumn;
    GridDBTableViewI_IDCARDCODE: TcxGridDBColumn;
    GridDBTableViewI_PHONE: TcxGridDBColumn;
    GridDBTableViewI_WORKDEPATCAPTION: TcxGridDBColumn;
    GridDBTableViewI_CREATED: TcxGridDBColumn;
    GridDBTableViewI_UPDATED: TcxGridDBColumn;
    GridDBTableViewI_MEMO: TcxGridDBColumn;
    GridDBTableViewI_PREPAY: TcxGridDBColumn;
    GridDBTableViewI_BLANCE: TcxGridDBColumn;
    GridDBTableViewI_FOODID: TcxGridDBColumn;
    GridDBTableViewI_SICKNESSLEVELID: TcxGridDBColumn;
    GridDBTableViewI_BEDID: TcxGridDBColumn;
    GridDBTableViewI_SICKTYPEID: TcxGridDBColumn;
    GridDBTableViewI_COUNTRYID: TcxGridDBColumn;
    GridDBTableViewI_BLOODTYPEID: TcxGridDBColumn;
    GridDBTableViewI_PERSONRELATIONID: TcxGridDBColumn;
    GridDBTableViewI_SICKID: TcxGridDBColumn;
    GridDBTableViewI_RECKONINGID: TcxGridDBColumn;
    GridDBTableViewI_SECTIONOFFICEID: TcxGridDBColumn;
    GridDBTableViewI_INDATE: TcxGridDBColumn;
    GridDBTableViewI_OUTDATE: TcxGridDBColumn;
    GridDBTableViewI_DOCTORID: TcxGridDBColumn;
    GridDBTableViewS_SICKID: TcxGridDBColumn;
    GridDBTableViewS_ISARREARAGE: TcxGridDBColumn;
    GridDBTableViewS_CODE: TcxGridDBColumn;
    GridDBTableViewS_BIRTHDAY: TcxGridDBColumn;
    GridDBTableViewS_SEX: TcxGridDBColumn;
    GridDBTableViewS_CNAME: TcxGridDBColumn;
    GridDBTableViewS_CREATED: TcxGridDBColumn;
    GridDBTableViewS_ISACTIVE: TcxGridDBColumn;
    GridDBTableViewS_ISVALID: TcxGridDBColumn;
    GridDBTableViewS_ST: TcxGridDBColumn;
    GridDBTableViewS_UPDATED: TcxGridDBColumn;
    GridDBTableViewS_PROFESSIONID: TcxGridDBColumn;
    GridDBTableViewS_WEDLOCKID: TcxGridDBColumn;
    GridDBTableViewS_NATIVEPLACEID: TcxGridDBColumn;
    GridDBTableViewS_NATIONID: TcxGridDBColumn;
    GridDBTableViewS_PAYMENTMETHODID: TcxGridDBColumn;
    GridDBTableViewS_CREATEBY: TcxGridDBColumn;
    GridDBTableViewS_UPDATEBY: TcxGridDBColumn;
    GridDBTableViewS_TOLLSTATIONID: TcxGridDBColumn;
    GridDBTableViewI_LEAVED: TcxGridDBColumn;
    procedure GridDBTableViewCellClick(Sender: TcxCustomGridTableView;
      ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
      AShift: TShiftState; var AHandled: Boolean);
  private
    BedModel : TCloneDataModel;
    SICKTYPEModel:   TCloneDataModel;
    DoctorModel : TCloneDataModel;
    SectionOfficeModel : TCloneDataModel;
    RServiceView : TVADGRserviceReadOnly;
    RMedicineView : TVADGRmedicineReadOnly;
  protected
    procedure InitModel; override;
    procedure InitView; override;
  public
    function GetCaption : string; override;
    procedure Append(Parameters : IParameters);override;
    procedure Delete(Parameters : IParameters);override;
    procedure Save(Parameters : IParameters);override;
  end;

implementation
uses
  UMADDAQuery, UMADDoctorStation, UMADSectionOffice, UDataView, UAdapterDataModel;
{$R *.dfm}

{ TVADGDAQuery }

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

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

function TVADGDAQuery.GetCaption: string;
begin
  Result := '出院结算';
end;

procedure TVADGDAQuery.InitModel;
begin
  inherited;
  BedModel := GetCloneDataModel(TPrimaryDataModel(BedFactory.GetModel));
  Bed.DataSet := BedModel.GetDataSet;

  SICKTYPEModel := GetCloneDataModel(TPrimaryDataModel(SICKTYPEFactory.GetModel));
  Bed.DataSet := BedModel.GetDataSet;

  DoctorModel := GetCloneDataModel(TPrimaryDataModel(DoctorStationFactory.GetModel));
  Doctor.DataSet := DoctorModel.GetDataSet;

  SectionOfficeModel := GetCloneDataModel(TPrimaryDataModel(SectionOfficeFactory.GetModel));
  SectionOffice.DataSet := SectionOfficeModel.GetDataSet;
end;

procedure TVADGDAQuery.InitView;
var
  Page : TRzTabSheet;
  Key : IKey;
begin
  inherited;
  Key := GetKey;
  Page := PagesView.NewPage;
  RServiceView := TVADGRserviceReadOnly.Create(Page, RServiceFactory);
  PagesView.BandView(Page, RServiceView);
  TQueryDataModel(RServiceView.GetDataModel).Query(Key);

  Page := PagesView.NewPage;
  RMedicineView := TVADGRmedicineReadOnly.Create(Page, RmedicineFactory);
  PagesView.BandView(Page, RMedicineView);
  TQueryDataModel(RMedicineView.GetDataModel).Query(Key);
end;

procedure TVADGDAQuery.Save(Parameters: IParameters);
begin
  inherited;
end;

procedure TVADGDAQuery.GridDBTableViewCellClick(
  Sender: TcxCustomGridTableView;
  ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
  AShift: TShiftState; var AHandled: Boolean);
begin
  inherited;
  TQueryDataModel(RServiceView.GetDataModel).Query(GetKey);
  TQueryDataModel(RMedicineView.GetDataModel).Query(GetKey);
end;

end.