uvadgsicknesshistorymodify.pas

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

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.