uvadiinpatientin.pas

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

unit UVADIInpatientIN;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, UAdapterDataItemView, dxPSGlbl, dxPSUtl, dxPSEngn, dxPrnPg,
  dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns,
  dxPSEdgePatterns, UView, UControllerView, UPagesView,
  UAdapterDataPagesView, DB, dxPSCore, RzCommon, RzButton, jpeg, RzBckgnd,
  ExtCtrls, RzPanel, StdCtrls, Mask, RzEdit, RzLabel, Factory, RzTabs,
  UVADISick, UVADIInpatient, UVADGSickNesshistory, UQueryDataModel, MyTools,
  UAdapterDataView, UAdapterDataModel;

type
  TVADIInpatientIN = class(TAdapterDataItemView)
    RzPanel6: TRzPanel;
    PagesView: TAdapterDataPagesView;
    RzLabel1: TRzLabel;
    RzEdit1: TRzEdit;
    RzBitBtn1: TRzBitBtn;
    procedure RzBitBtn1Click(Sender: TObject);
  private
    SickView : TVADISick;
    InpatientView : TVADIInpatient;
    SickNessHistoryView : TVADGSickNesshistory;
  protected
    procedure InitView; override;
  public
    function GetCaption : String; override;
     procedure Append(Parameters: IParameters); override;
     procedure Delete(Parameters: IParameters); override;
     procedure Save(Parameters: IParameters); override;
  end;

implementation

uses
  UQDMSickStation, UDataView, Math;
  
{$R *.dfm}

procedure TVADIInpatientIN.Append(Parameters: IParameters);
begin
  if GetDataModel.GetDataSet.IsEmpty then exit;
  if InpatientView.GetDataModel.GetDataSet.Active then
  begin
    TAdapterDataModel(InpatientView.GetDataModel).Save(Parameters);
  end;

  if  SickNessHistoryView.GetDataModel.GetDataSet.Active then
  begin
    TQueryDataModel(SickNessHistoryView.GetDataModel).Query(InpatientView.GetKey);
    TAdapterDataView(SickNessHistoryView).Append(Parameters);
    TAdapterDataView(SickNessHistoryView).GetDataModel.GetDataSet.FieldByName('InpatientID').AsInteger := IIntegerKey(InpatientView.GetDataModel.GetKey).GetKey;
  end;
end;

procedure TVADIInpatientIN.Delete(Parameters: IParameters);
begin
//
end;

function TVADIInpatientIN.GetCaption: String;
begin
  Result := '入院登记';
end;

procedure TVADIInpatientIN.InitView;
var
  Page : TRzTabSheet;
begin
  inherited;
  Page := PagesView.NewPage;
  SickView := TVADISick.Create(Page, SickStationFactory);
  PagesView.BandView(Page, SickView);

  Page := PagesView.NewPage;
  InpatientView := TVADIInpatient.Create(Page, InpatientStationFactory);
  PagesView.BandView(Page, InpatientView);

  Page := PagesView.NewPage;
  SickNessHistoryView := TVADGSickNesshistory.Create(Page, SickNesshistoryFactory);
  PagesView.BandView(Page, SickNessHistoryView);

  PagesView.Pages.ActivePageIndex := 0;

  PagesView.Enabled := False;
end;

procedure TVADIInpatientIN.RzBitBtn1Click(Sender: TObject);
var
  SKey: IStringKey;
  Key : IKey;
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;
  Key := GetDataModel.GetKey;
  PagesView.Pages.ActivePageIndex := 1;
  TQueryDataModel(InpatientView.GetDataModel).Query(Key);
  TAdapterDataModel(InpatientView.GetDataModel).Append(nil);
  TAdapterDataModel(InpatientView.GetDataModel).GetDataSet.FieldByName('sickid').AsInteger := IIntegerKey(Key).GetKey;
  PagesView.Enabled := True;
end;

procedure TVADIInpatientIN.Save(Parameters: IParameters);
begin
  if GetDataModel.GetDataSet.IsEmpty then exit;
  if InpatientView.GetDataModel.GetDataSet.Active then
  begin
    TAdapterDataModel(InpatientView.GetDataModel).Save(Parameters);
  end;

  if SickNessHistoryView.GetDataModel.GetDataSet.Active  then
  begin
    TAdapterDataModel(SickNessHistoryView.GetDataModel).Save(Parameters);
  end;

end;

end.