uvmadgsick.pas

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

unit UVMADGSick;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, UMasterAdapterDataGridView, 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, jpeg, RzBckgnd, ExtCtrls,
  RzPanel, UView, UCloneDataModel, UPrimaryDataModel, Factory,
  cxDBLookupComboBox, cxCheckBox, cxCalendar, cxCheckComboBox,
  MyTools;

type
  TVMADGSick = class(TMasterAdapterDataGridView)
    CreateBy: TDataSource;
    PaymentMethodID: TDataSource;
    NationID: TDataSource;
    NativePlaceID: TDataSource;
    ProfessionID: TDataSource;
    WedlockID: TDataSource;
    UpdateBy: TDataSource;
    TollStationID: TDataSource;
    GridDBTableViewSICKID: TcxGridDBColumn;
    GridDBTableViewBIRTHDAY: TcxGridDBColumn;
    GridDBTableViewCNAME: TcxGridDBColumn;
    GridDBTableViewCREATED: TcxGridDBColumn;
    GridDBTableViewISVALID: TcxGridDBColumn;
    GridDBTableViewISACTIVE: TcxGridDBColumn;
    GridDBTableViewST: TcxGridDBColumn;
    GridDBTableViewUPDATED: TcxGridDBColumn;
    GridDBTableViewPROFESSIONID: TcxGridDBColumn;
    GridDBTableViewWEDLOCKID: TcxGridDBColumn;
    GridDBTableViewNATIVEPLACEID: TcxGridDBColumn;
    GridDBTableViewNATIONID: TcxGridDBColumn;
    GridDBTableViewPAYMENTMETHODID: TcxGridDBColumn;
    GridDBTableViewCREATEBY: TcxGridDBColumn;
    GridDBTableViewUPDATEBY: TcxGridDBColumn;
    GridDBTableViewCODE: TcxGridDBColumn;
    GridDBTableViewISARREARAGE: TcxGridDBColumn;
    GridDBTableViewSEX: TcxGridDBColumn;
    GridDBTableViewTOLLSTATIONID: TcxGridDBColumn;
    GridDBTableViewDEPARTMENT: TcxGridDBColumn;
  private
    CreateByModel: TCloneDataModel;
    UpdateByModel: TCloneDataModel;
    WedlockIDModel: TCloneDataModel;
    NationIDModel: TCloneDataModel;
    NativePlaceIDModel: TCloneDataModel;
    PaymentMethodIDModel: TCloneDataModel;
    ProfessionIDModel: TCloneDataModel;
    TollStationIDModel: TCloneDataModel;
  protected
    procedure InitModel; override;
  public
    function GetCaption: string; override;
    function GetDetailView: TView; override;
  public
    procedure Append(Parameters: IParameters); override;
  end;

implementation

uses
  UMADSick, UVADISick, UMADPaymentMethod, UMADNation,
  UMADNativePlace, UMADProfession, UMADWedlock, UMADEmployee,
  UMADTollStation;

{$R *.dfm}

{ TVMADGSick }

procedure TVMADGSick.Append(Parameters: IParameters);
begin
  inherited;
  GetAdapterDataModel.Save(Parameters);
end;

function TVMADGSick.GetCaption: string;
begin
  Result := '病人基本信息';
end;

function TVMADGSick.GetDetailView: TView;
var
  View : TVADISick;
begin
  View := TVADISick.Create(Self);
  View.SetModel(GetModel);
  Result := View;
end;

procedure TVMADGSick.InitModel;
begin
  inherited;
  CreateByModel := TCloneDataModel.Create(Self);
  TPrimaryDataModel(EmployeeFactory.GetModel).Clone(CreateByModel);
  CreateBy.DataSet := CreateByModel.GetDataSet;

  UpdateByModel := TCloneDataModel.Create(Self);
  TPrimaryDataModel(EmployeeFactory.GetModel).Clone(UpdateByModel);
  UpdateBy.DataSet := UpdateByModel.GetDataSet;

  PaymentMethodIDModel := TCloneDataModel.Create(Self);
  TPrimaryDataModel(PaymentMethodFactory.GetModel).Clone(PaymentMethodIDModel);
  PaymentMethodID.DataSet := PaymentMethodIDModel.GetDataSet;

  NationIDModel := TCloneDataModel.Create(Self);
  TPrimaryDataModel(NationFactory.GetModel).Clone(NationIDModel);
  NationID.DataSet := NationIDModel.GetDataSet;

  NativePlaceIDModel := TCloneDataModel.Create(Self);
  TPrimaryDataModel(NativePlaceFactory.GetModel).Clone(NativePlaceIDModel);
  NativePlaceID.DataSet := NativePlaceIDModel.GetDataSet;

  ProfessionIDModel := TCloneDataModel.Create(Self);
  TPrimaryDataModel(ProfessionFactory.GetModel).Clone(ProfessionIDModel);
  ProfessionID.DataSet := ProfessionIDModel.GetDataSet;

  WedlockIDModel := TCloneDataModel.Create(Self);
  TPrimaryDataModel(WedlockFactory.GetModel).Clone(WedlockIDModel);
  WedlockID.DataSet := WedlockIDModel.GetDataSet;

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