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,
  UVADGDAServiceReadOnly, UVMADGDAMedicineReadOnly, RzTabs,
  cxDBLookupComboBox, cxCheckComboBox, UMADInpatientCharge, ppCtrls,
  ppPrnabl, ppClass, ppVar, ppBands, ppCache, ppDB, ppProd, ppReport,
  ppComm, ppRelatv, ppDBPipe;

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;
    InpatientCharge: TDataSource;
    ppDBPipeline1: TppDBPipeline;
    ppReport1: TppReport;
    ppHeaderBand1: TppHeaderBand;
    ppDetailBand1: TppDetailBand;
    ppFooterBand1: TppFooterBand;
    ppTitleBand1: TppTitleBand;
    ppSystemVariable1: TppSystemVariable;
    ppSystemVariable2: TppSystemVariable;
    ppDBText1: TppDBText;
    ppLabel2: TppLabel;
    ppDBText2: TppDBText;
    ppLabel3: TppLabel;
    ppDBText3: TppDBText;
    ppLabel4: TppLabel;
    ppDBText4: TppDBText;
    ppLabel5: TppLabel;
    ppDBText5: TppDBText;
    ppLabel6: TppLabel;
    ppDBText6: TppDBText;
    ppLabel7: TppLabel;
    ppDBText7: TppDBText;
    ppLabel8: TppLabel;
    ppLine1: TppLine;
    ppLine2: TppLine;
    ppLabel11: TppLabel;
    ppLabel10: TppLabel;
    ppLabel9: TppLabel;
    ppLabel1: TppLabel;
    ppLabel12: TppLabel;
    ppDBCalc1: TppDBCalc;
    procedure GridDBTableViewCellClick(Sender: TcxCustomGridTableView;
      ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
      AShift: TShiftState; var AHandled: Boolean);
  private
    BedModel : TCloneDataModel;
    SICKTYPEModel:   TCloneDataModel;
    DoctorModel : TCloneDataModel;
    SectionOfficeModel : TCloneDataModel;
    DAServiceView : TVADGDAServiceReadOnly;
    DAMedicineView : TVMADGDAMedicineReadOnly;
    InpatientChargeModel : TQueryDataModel;
  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;
    procedure Print; 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;
  TQueryDataModel(GetDataModel).Query(nil);

  InpatientChargeModel := TQueryDataModel(InpatientChargeFactory.GetModel);
  InpatientCharge.DataSet := InpatientChargeModel.GetDataSet;

  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;
  DAServiceView := TVADGDAServiceReadOnly.Create(Page, DAServiceFactory);
  PagesView.BandView(Page, DAServiceView);
  TQueryDataModel(DAServiceView.GetDataModel).Query(Key);

  Page := PagesView.NewPage;
  DAMedicineView := TVMADGDAMedicineReadOnly.Create(Page, DAMedicineFactory);
  PagesView.BandView(Page, DAMedicineView);
  TQueryDataModel(DAMedicineView.GetDataModel).Query(Key);
end;

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

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

procedure TVADGDAQuery.Print;
var
  Key : IIntegerKey;
begin
  if GetDataModel.GetDataSet.IsEmpty then Exit;
  Key := TIntegerKey.Create;
  Key.SetKey(GetDataModel.GetDataSet.FieldByName('I_RECKONINGID').AsInteger);
  InpatientChargeModel.Query(Key);
  ppLabel9.Caption := GetDataModel.GetDataSet.FieldByName('S_CNAME').AsString;
  ppLabel11.Caption := GetDataModel.GetDataSet.FieldByName('S_CODE').AsString;
  ppReport1.PrintToDevices;
  ppReport1.Print;
end;

end.