开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 行业应用 > 医药行业 > 查看源码
UVADGSickNessHistoryModify.pas
资源名称：HIS_ALL.rar　[点击查看]
上传用户：vishay168
上传日期：2016-09-02
资源大小：3856k
文件大小：7k
源码类别：

医药行业

开发平台：

Delphi

UVADGSickNessHistoryModify.pas：源码内容
  1. unit UVADGSickNessHistoryModify;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, UAdapterDataGridView, cxStyles, cxCustomData, cxGraphics,
  8.   cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, dxPSGlbl, dxPSUtl,
  9.   dxPSEngn, dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider,
  10.   dxPSFillPatterns, dxPSEdgePatterns, ExtCtrls, dxPSCore, RzCommon,
  11.   cxGridLevel, cxClasses, cxControls, cxGridCustomView,cxGridCustomTableView,
  12.   cxGridTableView, cxGridDBTableView, cxGrid,RzBckgnd, RzPanel, UView,
  13.   UControllerView, UPagesView,UAdapterDataPagesView, Factory, MyTools,
  14.   UVADIInpatientHistoryModify,UVADGSickNesshistory, UQueryDataModel, cxDBLookupComboBox,
  15.   RzTabs, UCloneDataModel, UPrimaryDataModel;
  17. type
  18.   TVADGSickNessHistoryModify = class(TAdapterDataGridView)
  19.     Splitter1: TSplitter;
  20.     PagesView: TAdapterDataPagesView;
  21.     TollStationID: TDataSource;
  22.     ProfessionID: TDataSource;
  23.     NativePlaceID: TDataSource;
  24.     NationID: TDataSource;
  25.     PaymentMethodID: TDataSource;
  26.     WedlockID: TDataSource;
  27.     GridDBTableViewI_INPATIENTID: TcxGridDBColumn;
  28.     GridDBTableViewI_LINKMANPHONE: TcxGridDBColumn;
  29.     GridDBTableViewI_LINKMANADDRESS: TcxGridDBColumn;
  30.     GridDBTableViewI_LINKMANNAME: TcxGridDBColumn;
  31.     GridDBTableViewI_RPRPOSTCODE: TcxGridDBColumn;
  32.     GridDBTableViewI_RPRADDRESS: TcxGridDBColumn;
  33.     GridDBTableViewI_WORKDEPTPOSTCODE: TcxGridDBColumn;
  34.     GridDBTableViewI_IDCARDCODE: TcxGridDBColumn;
  35.     GridDBTableViewI_PHONE: TcxGridDBColumn;
  36.     GridDBTableViewI_WORKDEPATCAPTION: TcxGridDBColumn;
  37.     GridDBTableViewI_CREATED: TcxGridDBColumn;
  38.     GridDBTableViewI_UPDATED: TcxGridDBColumn;
  39.     GridDBTableViewI_MEMO: TcxGridDBColumn;
  40.     GridDBTableViewI_PREPAY: TcxGridDBColumn;
  41.     GridDBTableViewI_BLANCE: TcxGridDBColumn;
  42.     GridDBTableViewI_FOODID: TcxGridDBColumn;
  43.     GridDBTableViewI_SICKNESSLEVELID: TcxGridDBColumn;
  44.     GridDBTableViewI_BEDID: TcxGridDBColumn;
  45.     GridDBTableViewI_SICKTYPEID: TcxGridDBColumn;
  46.     GridDBTableViewI_COUNTRYID: TcxGridDBColumn;
  47.     GridDBTableViewI_BLOODTYPEID: TcxGridDBColumn;
  48.     GridDBTableViewI_PERSONRELATIONID: TcxGridDBColumn;
  49.     GridDBTableViewI_SICKID: TcxGridDBColumn;
  50.     GridDBTableViewI_RECKONINGID: TcxGridDBColumn;
  51.     GridDBTableViewI_SECTIONOFFICEID: TcxGridDBColumn;
  52.     GridDBTableViewI_INDATE: TcxGridDBColumn;
  53.     GridDBTableViewI_OUTDATE: TcxGridDBColumn;
  54.     GridDBTableViewI_DOCTORID: TcxGridDBColumn;
  55.     GridDBTableViewS_SICKID: TcxGridDBColumn;
  56.     GridDBTableViewS_ISARREARAGE: TcxGridDBColumn;
  57.     GridDBTableViewS_CODE: TcxGridDBColumn;
  58.     GridDBTableViewS_BIRTHDAY: TcxGridDBColumn;
  59.     GridDBTableViewS_SEX: TcxGridDBColumn;
  60.     GridDBTableViewS_CNAME: TcxGridDBColumn;
  61.     GridDBTableViewS_CREATED: TcxGridDBColumn;
  62.     GridDBTableViewS_ISACTIVE: TcxGridDBColumn;
  63.     GridDBTableViewS_ISVALID: TcxGridDBColumn;
  64.     GridDBTableViewS_ST: TcxGridDBColumn;
  65.     GridDBTableViewS_UPDATED: TcxGridDBColumn;
  66.     GridDBTableViewS_PROFESSIONID: TcxGridDBColumn;
  67.     GridDBTableViewS_WEDLOCKID: TcxGridDBColumn;
  68.     GridDBTableViewS_NATIVEPLACEID: TcxGridDBColumn;
  69.     GridDBTableViewS_NATIONID: TcxGridDBColumn;
  70.     GridDBTableViewS_PAYMENTMETHODID: TcxGridDBColumn;
  71.     GridDBTableViewS_CREATEBY: TcxGridDBColumn;
  72.     GridDBTableViewS_UPDATEBY: TcxGridDBColumn;
  73.     GridDBTableViewS_TOLLSTATIONID: TcxGridDBColumn;
  74.     procedure GridDBTableViewCellClick(Sender: TcxCustomGridTableView;
  75.       ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
  76.       AShift: TShiftState; var AHandled: Boolean);
  77.   private
  78.     PaymentMethodIDModel: TCloneDataModel;
  79.     NationIDModel: TCloneDataModel;
  80.     NativePlaceIDModel: TCloneDataModel;
  81.     ProfessionIDModel: TCloneDataModel;
  82.     WedlockIDModel: TCloneDataModel;
  83.     TollStationIDModel: TCloneDataModel;
  84.     InpatientView : TVADIInpatientHistoryModify;
  85.     SickNessHistoryView : TVADGSickNesshistory;
  86.   protected
  87.     procedure InitModel; override;
  88.     procedure InitView; override;
  89.   public
  90.     function GetCaption : String; override;
  91.     procedure Append(Parameters: IParameters); override;
  92.     procedure Delete(Parameters: IParameters); override;
  93.     procedure Save(Parameters: IParameters); override;
  94.   end;
  96. implementation
  97. uses
  98.   UMADPaymentMethod, UMADNation,UMADNativePlace,
  99.   UMADProfession, UMADWedlock, UMADTollStation, UDataView,
  100.   UMADSickNessHistoryModify;
  102. {$R *.dfm}
  104. { TVADGSickNessHistoryModify }
  106. procedure TVADGSickNessHistoryModify.Append(Parameters: IParameters);
  107. begin
  108.   if PagesView.GetActiveView is TVADGSickNesshistory  then
  109.     TQueryDataModel(SickNessHistoryView.GetDataModel).Append(Parameters);
  110. end;
  112. procedure TVADGSickNessHistoryModify.Delete(Parameters: IParameters);
  113. begin
  114.    if PagesView.GetActiveView is TVADGSickNesshistory  then
  115.     TQueryDataModel(SickNessHistoryView.GetDataModel).Delete(Parameters);
  116. end;
  118. function TVADGSickNessHistoryModify.GetCaption: String;
  119. begin
  120.   Result := '病人档案维护';
  121. end;
  123. procedure TVADGSickNessHistoryModify.InitModel;
  124. begin
  125.   inherited;
  126.   TQueryDataModel(GetDataModel).Query(nil);
  128.   PaymentMethodIDModel := GetCloneDataModel(TPrimaryDataModel(PaymentMethodFactory.GetModel));
  129.   PaymentMethodID.DataSet := PaymentMethodIDModel.GetDataSet;
  131.   NationIDModel := GetCloneDataModel(TPrimaryDataModel(NationFactory.GetModel));
  132.   NationID.DataSet := NationIDModel.GetDataSet;
  134.   NativePlaceIDModel := GetCloneDataModel(TPrimaryDataModel(NativePlaceFactory.GetModel));
  135.   NativePlaceID.DataSet := NativePlaceIDModel.GetDataSet;
  136.   
  137.   ProfessionIDModel := GetCloneDataModel(TPrimaryDataModel(ProfessionFactory.GetModel));
  138.   ProfessionID.DataSet := ProfessionIDModel.GetDataSet;
  140.   WedlockIDModel := GetCloneDataModel(TPrimaryDataModel(WedlockFactory.GetModel));
  141.   WedlockID.DataSet := WedlockIDModel.GetDataSet;
  143.   TollStationIDModel := GetCloneDataModel(TPrimaryDataModel(TollStationFactory.GetModel));
  144.   TollStationID.DataSet := TollStationIDModel.GetDataSet;
  145. end;
  147. procedure TVADGSickNessHistoryModify.InitView;
  148. var
  149.   Page : TRzTabSheet;
  150.   key : IKey;
  151. begin
  152.   inherited;
  153.   Page := PagesView.NewPage;
  154.   InpatientView := TVADIInpatientHistoryModify.Create(Page, SickNessHistoryModifyFactory);
  155.   PagesView.BandView(Page, InpatientView);
  157.   Page := PagesView.NewPage;
  158.   SickNessHistoryView := TVADGSickNesshistory.Create(Page, SickNesshistoryFactory);
  159.   PagesView.BandView(page, SickNessHistoryView);
  160.   Key := GetDataModel.GetKey;
  161.   TQueryDataModel(SickNessHistoryView.GetDataModel).Query(Key);
  162. end;
  164. procedure TVADGSickNessHistoryModify.Save(Parameters: IParameters);
  165. begin
  166.   TQueryDataModel(TDataView(PagesView.GetActiveView).GetDataModel).Save(Parameters);
  167. end;
  169. procedure TVADGSickNessHistoryModify.GridDBTableViewCellClick(
  170.   Sender: TcxCustomGridTableView;
  171.   ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
  172.   AShift: TShiftState; var AHandled: Boolean);
  173. begin
  174.   inherited;
  175.   TQueryDataModel(SickNessHistoryView.GetDataModel).Query(GetKey);
  176. end;
  178. end.