uvadgdaexecuted.pas

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

unit UVADGDAExecuted;

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,
  UControllerView, UPagesView, UAdapterDataPagesView, UView,
  Factory, UPrimaryDataModel, MyTools,UQueryDataModel, UCloneDataModel,
  UVADGDAServiceReadOnly, UVMADGDAMedicineReadOnly, RzTabs, cxDBLookupComboBox,
  cxCheckComboBox, RzButton;

type
  TVADGDAExecuted = class(TAdapterDataGridView)
    Splitter1: TSplitter;
    PagesView: TAdapterDataPagesView;
    Bed: TDataSource;
    SectionOffice: TDataSource;
    SickType: TDataSource;
    Doctor: TDataSource;
    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;
    RzPanel3: TRzPanel;
    RzButton1: TRzButton;
    RzPanel4: TRzPanel;
    procedure GridDBTableViewCellClick(Sender: TcxCustomGridTableView;
      ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
      AShift: TShiftState; var AHandled: Boolean);
    procedure RzButton1Click(Sender: TObject);
  private
    BedModel : TCloneDataModel;
    SICKTYPEModel:   TCloneDataModel;
    DoctorModel : TCloneDataModel;
    SectionOfficeModel : TCloneDataModel;
    DAServiceView : TVADGDAServiceReadOnly;
    DAMedicineView : TVMADGDAMedicineReadOnly;
  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
  UMADDAExecuted, UMADDoctorStation, UMADSectionOffice, UDataView, UAdapterDataModel;
  
{$R *.dfm}

{ TVADGDAExecuted }

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

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

function TVADGDAExecuted.GetCaption: string;
begin
  Result := '医嘱执行';
end;

procedure TVADGDAExecuted.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 TVADGDAExecuted.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 TVADGDAExecuted.Save(Parameters: IParameters);
begin
//
end;

procedure TVADGDAExecuted.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 TVADGDAExecuted.RzButton1Click(Sender: TObject);
begin
  inherited;
  TMADDAExecuted(GetModel).DoctorAdviceExecute;
end;

end.