uvadgdainput.pas

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

unit UVADGDAInput;

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,cxCheckComboBox,
  Factory, cxCurrencyEdit, cxDBLookupComboBox,UPrimaryDataModel, MyTools,
  UQueryDataModel, UCloneDataModel, UVADGDAService, UVMADGDAMedicine, RzTabs;

type
  TVADGDAInput = class(TAdapterDataGridView)
    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;
    Bed: TDataSource;
    SectionOffice: TDataSource;
    SickType: TDataSource;
    Doctor: TDataSource;
    procedure GridDBTableViewCellClick(Sender: TcxCustomGridTableView;
      ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
      AShift: TShiftState; var AHandled: Boolean);
  private
    BedModel : TCloneDataModel;
    SICKTYPEModel:   TCloneDataModel;
    DoctorModel : TCloneDataModel;
    SectionOfficeModel : TCloneDataModel;
    DAServiceView : TVADGDAService;
    DAMedicineView : TVMADGDAMedicine;
  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 Cancel(Parameters : IParameters);override;
  end;

implementation

uses
  UMADDAInput, UMADDoctorStation, UMADSectionOffice, UDataView, UAdapterDataModel,
  Math, UAdapterDataView;
  
{$R *.dfm}

{ TVADGDAInput }

function TVADGDAInput.GetCaption: string;
begin
  Result := '医嘱录入';
end;

procedure TVADGDAInput.InitModel;
begin
  inherited;
  TQueryDataModel(GetDataModel).Query(nil);

  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 TVADGDAInput.InitView;
var
  Page : TRzTabSheet;
  Key : IKey;
begin
  inherited;
  Key := GetKey;
  Page := PagesView.NewPage;
  DAServiceView := TVADGDAService.Create(Page, DAServiceFactory);
  PagesView.BandView(Page, DAServiceView);
  TQueryDataModel(DAServiceView.GetDataModel).Query(Key);

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

procedure TVADGDAInput.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 TVADGDAInput.Append(Parameters: IParameters);
begin
  if  GetDataModel.GetDataSet.IsEmpty then Exit;
  TAdapterDataModel(PagesView.GetActiveView.GetModel).Append(Parameters);
  if PagesView.GetActiveView is TVADGDAService then
    DAServiceView.GridDBTableViewDBColumn1PropertiesPopup(Self)
  else
    DAMedicineView.GridDBTableViewMEDICINESELECTPropertiesPopup(Self);
end;

procedure TVADGDAInput.Delete(Parameters: IParameters);
begin
  TAdapterDataModel(PagesView.GetActiveView.GetModel).Delete(Parameters);
end;

procedure TVADGDAInput.Save(Parameters: IParameters);
begin
  TAdapterDataModel(PagesView.GetActiveView.GetModel).Save(Parameters);
end;

procedure TVADGDAInput.Cancel(Parameters: IParameters);
begin
  inherited;
  TAdapterDataView(PagesView.GetActiveView).Cancel(Parameters);
end;

end.