uvadgsicknesshistorymodify.pas

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

unit UVADGSickNessHistoryModify;

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, ExtCtrls, dxPSCore, RzCommon,
  cxGridLevel, cxClasses, cxControls, cxGridCustomView,cxGridCustomTableView,
  cxGridTableView, cxGridDBTableView, cxGrid,RzBckgnd, RzPanel, UView,
  UControllerView, UPagesView,UAdapterDataPagesView, Factory, MyTools,
  UVADIInpatientHistoryModify,UVADGSickNesshistory, UQueryDataModel, cxDBLookupComboBox,
  RzTabs, UCloneDataModel, UPrimaryDataModel;

type
  TVADGSickNessHistoryModify = class(TAdapterDataGridView)
    Splitter1: TSplitter;
    PagesView: TAdapterDataPagesView;
    TollStationID: TDataSource;
    ProfessionID: TDataSource;
    NativePlaceID: TDataSource;
    NationID: TDataSource;
    PaymentMethodID: TDataSource;
    WedlockID: 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;
    procedure GridDBTableViewCellClick(Sender: TcxCustomGridTableView;
      ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
      AShift: TShiftState; var AHandled: Boolean);
  private
    PaymentMethodIDModel: TCloneDataModel;
    NationIDModel: TCloneDataModel;
    NativePlaceIDModel: TCloneDataModel;
    ProfessionIDModel: TCloneDataModel;
    WedlockIDModel: TCloneDataModel;
    TollStationIDModel: TCloneDataModel;
    InpatientView : TVADIInpatientHistoryModify;
    SickNessHistoryView : TVADGSickNesshistory;
  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
  UMADPaymentMethod, UMADNation,UMADNativePlace,
  UMADProfession, UMADWedlock, UMADTollStation, UDataView,
  UMADSickNessHistoryModify;

{$R *.dfm}

{ TVADGSickNessHistoryModify }

procedure TVADGSickNessHistoryModify.Append(Parameters: IParameters);
begin
  if PagesView.GetActiveView is TVADGSickNesshistory  then
    TQueryDataModel(SickNessHistoryView.GetDataModel).Append(Parameters);
end;

procedure TVADGSickNessHistoryModify.Delete(Parameters: IParameters);
begin
   if PagesView.GetActiveView is TVADGSickNesshistory  then
    TQueryDataModel(SickNessHistoryView.GetDataModel).Delete(Parameters);
end;

function TVADGSickNessHistoryModify.GetCaption: String;
begin
  Result := '病人档案维护';
end;

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

  PaymentMethodIDModel := GetCloneDataModel(TPrimaryDataModel(PaymentMethodFactory.GetModel));
  PaymentMethodID.DataSet := PaymentMethodIDModel.GetDataSet;

  NationIDModel := GetCloneDataModel(TPrimaryDataModel(NationFactory.GetModel));
  NationID.DataSet := NationIDModel.GetDataSet;

  NativePlaceIDModel := GetCloneDataModel(TPrimaryDataModel(NativePlaceFactory.GetModel));
  NativePlaceID.DataSet := NativePlaceIDModel.GetDataSet;
  
  ProfessionIDModel := GetCloneDataModel(TPrimaryDataModel(ProfessionFactory.GetModel));
  ProfessionID.DataSet := ProfessionIDModel.GetDataSet;

  WedlockIDModel := GetCloneDataModel(TPrimaryDataModel(WedlockFactory.GetModel));
  WedlockID.DataSet := WedlockIDModel.GetDataSet;

  TollStationIDModel := GetCloneDataModel(TPrimaryDataModel(TollStationFactory.GetModel));
  TollStationID.DataSet := TollStationIDModel.GetDataSet;
end;

procedure TVADGSickNessHistoryModify.InitView;
var
  Page : TRzTabSheet;
  key : IKey;
begin
  inherited;
  Page := PagesView.NewPage;
  InpatientView := TVADIInpatientHistoryModify.Create(Page, SickNessHistoryModifyFactory);
  PagesView.BandView(Page, InpatientView);

  Page := PagesView.NewPage;
  SickNessHistoryView := TVADGSickNesshistory.Create(Page, SickNesshistoryFactory);
  PagesView.BandView(page, SickNessHistoryView);
  Key := GetDataModel.GetKey;
  TQueryDataModel(SickNessHistoryView.GetDataModel).Query(Key);
end;

procedure TVADGSickNessHistoryModify.Save(Parameters: IParameters);
begin
  TQueryDataModel(TDataView(PagesView.GetActiveView).GetDataModel).Save(Parameters);
end;

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

end.