uvadisick.pas

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

unit UVADISick;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, UAdapterDataItemView, dxPSGlbl, dxPSUtl, dxPSEngn, dxPrnPg,
  dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns,
  dxPSEdgePatterns, DB, dxPSCore, RzCommon, RzButton, jpeg, RzBckgnd,
  ExtCtrls, RzPanel, RzDBEdit, StdCtrls, Mask, RzEdit, RzLabel, DBCtrls,
  RzDBCmbo, RzCmboBx, RzRadChk, RzDBChk,
  UCloneDataModel, RzRadGrp, RzDBRGrp;

type
  TVADISick = class(TAdapterDataItemView)
    SourceWedlock: TDataSource;
    ProfessionID: TDataSource;
    NativePlaceID: TDataSource;
    NationID: TDataSource;
    PaymentMethodID: TDataSource;
    RzLabel7: TRzLabel;
    RzLabel8: TRzLabel;
    RzLabel9: TRzLabel;
    RzLabel10: TRzLabel;
    RzLabel14: TRzLabel;
    RzLabel15: TRzLabel;
    RzLabel16: TRzLabel;
    RzDBEdit2: TRzDBEdit;
    RzDBLookupComboBox3: TRzDBLookupComboBox;
    RzDBLookupComboBox4: TRzDBLookupComboBox;
    RzDBLookupComboBox5: TRzDBLookupComboBox;
    RzDBLookupComboBox6: TRzDBLookupComboBox;
    RzDBLookupComboBox7: TRzDBLookupComboBox;
    RzDBDateTimeEdit3: TRzDBDateTimeEdit;
    WedlockID: TDataSource;
    RzLabel1: TRzLabel;
    RzDBLookupComboBox1: TRzDBLookupComboBox;
    TollStationID: TDataSource;
    RzDBRadioGroup1: TRzDBRadioGroup;
    RzLabel2: TRzLabel;
    RzLabel3: TRzLabel;
    RzDBEdit1: TRzDBEdit;
  private
    PaymentMethodIDModel: TCloneDataModel;
    NationIDModel: TCloneDataModel;
    NativePlaceIDModel: TCloneDataModel;
    ProfessionIDModel: TCloneDataModel;
    WedlockIDModel: TCloneDataModel;
    TollStationIDModel: TCloneDataModel;
  protected
    procedure InitModel; override;
  public
    function GetCaption: string; override;
  end;

implementation

uses UPrimaryDataModel, Factory, UMADSick, UMADPaymentMethod, UMADNation,
     UMADNativePlace, UMADProfession, UMADWedlock, UMADTollStation,
  UDataView, UDataItemsView, UDialogDataItemsView, UVADGTollStation, MyTools;

{$R *.dfm}

{ TVADISick }

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

procedure TVADISick.InitModel;
begin
  inherited;
  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;

end.