uvadgprepayop.pas

Software Requirements1. Delphi 6 SP22. Oracle 8i R33. Raize 3.0.94. ExpressQuantumGrid 4.505. Expres

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.