uvadirecipecharge.pas

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

unit UVADIRecipeCharge;

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, StdCtrls, Mask, RzEdit, UView, UControllerView,
  UPagesView, UAdapterDataPagesView, RzLabel, RzDBEdit, RzRadGrp, RzDBRGrp,
  DBCtrls, RzDBCmbo, MyTools, UQueryDataModel, UCloneDataModel, UPrimaryDataModel, Factory,
  RzTabs, UVADGRMedicine, UVADGRservice, UAdapterDataModel, ppProd,
  ppClass, ppReport, ppComm, ppRelatv, ppDB, ppDBPipe, ppBands, ppCache,
  ppCtrls, ppPrnabl, ppVar;

type
  TVADIRecipeCharge = class(TAdapterDataItemView)
    PagesView: TAdapterDataPagesView;
    RzPanel6: TRzPanel;
    RzBitBtn1: TRzBitBtn;
    RzEdit1: TRzEdit;
    RzLabel1: TRzLabel;
    WedlockID: TDataSource;
    PaymentMethodID: TDataSource;
    NationID: TDataSource;
    NativePlaceID: TDataSource;
    ProfessionID: TDataSource;
    TollStationID: TDataSource;
    RecipeTollCharge: TDataSource;
    Doctor: TDataSource;
    RzPanel7: TRzPanel;
    RzLabel7: TRzLabel;
    RzLabel8: TRzLabel;
    RzLabel9: TRzLabel;
    RzLabel10: TRzLabel;
    RzLabel14: TRzLabel;
    RzLabel15: TRzLabel;
    RzLabel16: TRzLabel;
    RzLabel2: TRzLabel;
    RzLabel3: TRzLabel;
    RzLabel5: TRzLabel;
    RzDBEdit2: TRzDBEdit;
    RzDBLookupComboBox3: TRzDBLookupComboBox;
    RzDBLookupComboBox4: TRzDBLookupComboBox;
    RzDBLookupComboBox5: TRzDBLookupComboBox;
    RzDBLookupComboBox6: TRzDBLookupComboBox;
    RzDBLookupComboBox7: TRzDBLookupComboBox;
    RzDBDateTimeEdit3: TRzDBDateTimeEdit;
    RzDBLookupComboBox1: TRzDBLookupComboBox;
    RzDBRadioGroup1: TRzDBRadioGroup;
    RzDBLookupComboBox2: TRzDBLookupComboBox;
    Splitter1: TSplitter;
    ppDBPipeline1: TppDBPipeline;
    ppReport1: TppReport;
    RecipeReckoning: TDataSource;
    ppHeaderBand1: TppHeaderBand;
    ppDetailBand1: TppDetailBand;
    ppFooterBand1: TppFooterBand;
    ppTitleBand1: TppTitleBand;
    ppLabel1: TppLabel;
    ppDBText1: TppDBText;
    ppLabel2: TppLabel;
    ppDBText2: TppDBText;
    ppLabel3: TppLabel;
    ppDBText3: TppDBText;
    ppLabel4: TppLabel;
    ppLine1: TppLine;
    ppDBCalc1: TppDBCalc;
    ppLabel5: TppLabel;
    ppLine2: TppLine;
    ppLabel6: TppLabel;
    ppLine3: TppLine;
    ppLabel8: TppLabel;
    procedure RzBitBtn1Click(Sender: TObject);
  private
    RecipeModel: TQueryDataModel;
    DoctorModel: TQueryDataModel;
    RecipeReckoningModel: TQueryDataModel;
    PaymentMethodIDModel: TCloneDataModel;
    NationIDModel: TCloneDataModel;
    NativePlaceIDModel: TCloneDataModel;
    ProfessionIDModel: TCloneDataModel;
    WedlockIDModel: TCloneDataModel;
    TollStationIDModel: TCloneDataModel;
    RMedicineView : TVADGRmedicine;
    RServiceView : TVADGRservice;
  protected
    procedure InitView; override;
    procedure InitModel; override;
  public
    function GetCaption : String; override;
    procedure Append(Parameters: IParameters); override;
    procedure Save(Parameters: IParameters); override;
    procedure Delete(Parameters: IParameters); override;
    procedure Cancel(Parameters: IParameters); override;
    procedure Print; override;
  end;

implementation

uses
  UMQDSickByCode, UMADPaymentMethod, UMADWedlock, UMADNation,
  UMADNativePlace, UMADProfession, UMADTollStation,
  UMADRecipeTollCharge, UMADDoctorToll, UMADEmployee, UAdapterDataView,
  Math, UDataView, UMQDRecipeReckoning;

{$R *.dfm}

procedure TVADIRecipeCharge.Append(Parameters: IParameters);
var
  ReckoningKey: IIntegerKey;
begin
  if (GetDataModel.GetDataSet.IsEmpty) or (not GetDataModel.GetDataSet.Active) then exit;
  TAdapterDataView(PagesView.GetActiveView).GetAdapterDataModel.DataSet.Edit;
  TAdapterDataView(PagesView.GetActiveView).Append(Parameters);
  TAdapterDataView(PagesView.GetActiveView).GetDataModel.GetDataSet.FieldByName('ReckoningID').AsInteger := RecipeModel.GetDataSet.FieldByName('ReckoningID').AsInteger;
end;

procedure TVADIRecipeCharge.Cancel(Parameters: IParameters);
begin
  TAdapterDataView(PagesView.GetActiveView).Cancel(Parameters);
end;

procedure TVADIRecipeCharge.Delete(Parameters: IParameters);
begin
  TAdapterDataView(PagesView.GetActiveView).Delete(Parameters);
end;

function TVADIRecipeCharge.GetCaption: String;
begin
  Result := '门诊收费';
end;

procedure TVADIRecipeCharge.InitModel;
begin
  inherited;
  RecipeModel := TQueryDataModel(RecipeTollChargeFactory.GetModel);
  DoctorModel := TQueryDataModel(DoctorTollFactory.GetModel);
  RecipeReckoningModel := TQueryDataModel(QRecipeReckoningFactory.GetModel);
  RecipeTollCharge.DataSet := RecipeModel.GetDataSet;
  Doctor.DataSet := DoctorModel.GetDataSet;
  RecipeReckoning.DataSet := RecipeReckoningModel.GetDataSet;


  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;

procedure TVADIRecipeCharge.InitView;
var
  Page: TRzTabSheet;
  Key: IKey;
begin
  inherited;
  Page := PagesView.NewPage;
  RMedicineView := TVADGRmedicine.Create(Page, RmedicineFactory);
  PagesView.BandView(Page,RMedicineView);

  Page := PagesView.NewPage;
  RServiceView := TVADGRService.Create(Page, RServiceFactory);
  PagesView.BandView(Page,RServiceView);
end;

procedure TVADIRecipeCharge.Print;
begin
  if GetDataModel.GetDataSet.Active and (not GetDataModel.GetDataSet.IsEmpty) then
  begin
    ppLabel8.Caption := '姓名:'+GetDataModel.GetDataSet.FieldByName('CNAME').AsString+'   门诊号:'+GetDataModel.GetDataSet.FieldByName('CODE').AsString;
    ppLabel5.Caption := '工作单位:'+GetDataModel.GetDataSet.FieldByName('DEPARTMENT').AsString;
    ppReport1.PrintToDevices;
    ppReport1.Print;
  end;
end;

procedure TVADIRecipeCharge.RzBitBtn1Click(Sender: TObject);
var
  SKey: IStringKey;
  IntKey: IIntegerKey;
  ReckoningKey: IIntegerKey;
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; 
  RecipeModel.Query(GetDataModel.GetKey);
  IntKey := TIntegerKey.Create;
  IntKey.SetKey(GetDataModel.GetDataSet.FieldByName('TOLLSTATIONID').AsInteger);
  DoctorModel.Query(IQueryParameters(IntKey));
  ReckoningKey := TIntegerKey.Create;
  ReckoningKey.SetKey(RecipeModel.GetDataSet.FieldByName('ReckoningID').AsInteger);
  TQueryDataModel(RServiceView.GetDataModel).Query(ReckoningKey);
  TQueryDataModel(RMedicineView.GetDataModel).Query(ReckoningKey);
  RecipeReckoningModel.Query(ReckoningKey);
end;



procedure TVADIRecipeCharge.Save(Parameters: IParameters);
begin
  If (not GetDataModel.GetDataSet.Active) and GetDataModel.GetDataSet.IsEmpty then Exit;
  if RzDBLookupComboBox2.Text = '' then
    ShowMessage('请填处方医生')
  else
  begin
    RecipeModel.Save(Parameters);
    TAdapterDataView(PagesView.GetActiveView).Save(Parameters);
  end;
end;

end.