uvadgprepayop.pas

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

unit UVADGPrepayOp;

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, RzRadGrp, RzDBRGrp, RzDBEdit, DBCtrls, RzDBCmbo,
  StdCtrls, Mask, RzEdit, RzLabel, UView, UControllerView, UPagesView,
  UAdapterDataPagesView, UMADPrepayOperation, UCloneDataModel,
  MyTools, UPrimaryDataModel, UVADGPrepayHistory, UQueryDataModel,
  Factory, RzTabS;

type
  TVADGPrepayOp = class(TAdapterDataItemView)
    RzPanel6: TRzPanel;
    RzLabel2: TRzLabel;
    RzLabel7: TRzLabel;
    RzLabel9: TRzLabel;
    RzLabel10: TRzLabel;
    RzLabel14: TRzLabel;
    RzLabel15: TRzLabel;
    RzDBEdit2: TRzDBEdit;
    RzDBLookupComboBox5: TRzDBLookupComboBox;
    RzDBLookupComboBox6: TRzDBLookupComboBox;
    RzDBLookupComboBox7: TRzDBLookupComboBox;
    RzDBDateTimeEdit3: TRzDBDateTimeEdit;
    RzDBRadioGroup1: TRzDBRadioGroup;
    RzLabel17: TRzLabel;
    RzLabel18: TRzLabel;
    RzLabel23: TRzLabel;
    RzLabel1: TRzLabel;
    RzLabel3: TRzLabel;
    RzLabel12: TRzLabel;
    RzDBEdit11: TRzDBEdit;
    RzDBLookupComboBox3: TRzDBLookupComboBox;
    RzDBLookupComboBox4: TRzDBLookupComboBox;
    RzDBLookupComboBox8: TRzDBLookupComboBox;
    RzDBLookupComboBox9: TRzDBLookupComboBox;
    RzDBDateTimeEdit1: TRzDBDateTimeEdit;
    RzPanel7: TRzPanel;
    RzEdit1: TRzEdit;
    RzLabel4: TRzLabel;
    PagesView: TAdapterDataPagesView;
    WedlockID: TDataSource;
    NationID: TDataSource;
    ProfessionID: TDataSource;
    SectionOffice: TDataSource;
    Bed: TDataSource;
    SickType: TDataSource;
    Doctor: TDataSource;
    RzBitBtn1: TRzBitBtn;
    Splitter1: TSplitter;
    procedure RzBitBtn1Click(Sender: TObject);
  private
    NationIDModel: TCloneDataModel;
    ProfessionIDModel: TCloneDataModel;
    WedlockIDModel: TCloneDataModel;
    BedModel : TCloneDataModel;
    SICKTYPEModel:   TCloneDataModel;
    DoctorModel : TCloneDataModel;
    SectionOfficeModel : TCloneDataModel;
    PrepayView : TVADGPrepayHistory;
  protected
    procedure InitView; override;
    procedure InitModel; override;
  public
    function GetCaption : String; override;
    procedure Append(Parameters: IParameters); override;
    procedure Delete(Parameters: IParameters); override;
    procedure Save(Parameters: IParameters); override;
  end;

implementation
uses
  UMADProfession, UMADWedlock, UMADNation, UMADSectionOffice,  UMADDoctorStation, UMADBed,
  UMadSickType, UDataView;
{$R *.dfm}

{ TVADGPrepayOp }

procedure TVADGPrepayOp.Append(Parameters: IParameters);
begin
  If GetDataModel.GetDataSet.IsEmpty  or (not GetDataModel.GetDataSet.Active) then exit;
  TQueryDataModel(PrepayView.GetDataModel).Append(Parameters);
  PrepayView.GetDataModel.GetDataSet.FieldByName('INPATIENTID').AsInteger := GetDataModel.GetDataSet.FieldByName('I_INPATIENTID').AsInteger;
end;

procedure TVADGPrepayOp.Delete(Parameters: IParameters);
begin
  If GetDataModel.GetDataSet.IsEmpty  or (not GetDataModel.GetDataSet.Active) then exit;
  TQueryDataModel(PrepayView.GetDataModel).Delete(Parameters);
end;

function TVADGPrepayOp.GetCaption: String;
begin
  Result := '预交金';
end;

procedure TVADGPrepayOp.InitModel;
begin
  inherited;
  NationIDModel := GetCloneDataModel(TPrimaryDataModel(NationFactory.GetModel));
  NationID.DataSet := NationIDModel.GetDataSet;

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

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

  BedModel := GetCloneDataModel(TPrimaryDataModel(BedFactory.GetModel));
  Bed.DataSet := BedModel.GetDataSet;

  SICKTYPEModel := GetCloneDataModel(TPrimaryDataModel(SICKTYPEFactory.GetModel));
  Bed.DataSet := BedModel.GetDataSet;

  DoctorModel := GetCloneDataModel(TPrimaryDataModel(DoctorStationFactory.GetModel));
  Doctor.DataSet := DoctorModel.GetDataSet;

  SectionOfficeModel := GetCloneDataModel(TPrimaryDataModel(SectionOfficeFactory.GetModel));
  SectionOffice.DataSet := SectionOfficeModel.GetDataSet;
end;

procedure TVADGPrepayOp.InitView;
var
  Page : TRzTabSheet;
begin
  inherited;
  Page := PagesView.NewPage;
  PrepayView := TVADGPrepayHistory.Create(Page, PrepayHistoryFactory);
  PagesView.BandView(Page, PrepayView);
end;

procedure TVADGPrepayOp.Save(Parameters: IParameters);
begin
  If GetDataModel.GetDataSet.IsEmpty  or (not GetDataModel.GetDataSet.Active) then exit;
  TQueryDataModel(PrepayView.GetDataModel).Save(Parameters);
end;

procedure TVADGPrepayOp.RzBitBtn1Click(Sender: TObject);
var
  SKey: IStringKey;
begin
  inherited;
  RzEdit1.Text := UpperCase(Trim(RzEdit1.Text));
  if RzEdit1.Text = '' then Exit;
  SKey := TStringKey.Create;
  SKey.SetKey(RzEdit1.Text);
  TQueryDataModel(GetDataModel).Query(IParameters(SKey));
  If GetDataModel.GetDataSet.IsEmpty then exit;
  TQueryDataModel(PrepayView.GetDataModel).Query(GetKey);
end;

end.