uvadisiomedicinedetail.pas

医院信息管理系统 后台采用ORACLE

unit UVADISIOMedicineDetail;

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, DBCtrls, RzDBCmbo, StdCtrls, Mask, RzEdit, RzDBEdit,
  RzLabel, UCloneDataModel, UDataItemsView, MyTools;

type
  TVADISIOMedicineDetail = class(TAdapterDataItemView)
    RzLabel1: TRzLabel;
    RzLabel2: TRzLabel;
    RzLabel3: TRzLabel;
    RzLabel4: TRzLabel;
    RzLabel7: TRzLabel;
    RzLabel8: TRzLabel;
    RzLabel9: TRzLabel;
    RzLabel10: TRzLabel;
    RzLabel11: TRzLabel;
    RzLabel12: TRzLabel;
    RzLabel13: TRzLabel;
    RzDBEdit1: TRzDBEdit;
    RzDBEdit2: TRzDBEdit;
    RzDBEdit5: TRzDBEdit;
    RzDBEdit6: TRzDBEdit;
    RzDBEdit7: TRzDBEdit;
    RzDBEdit8: TRzDBEdit;
    RzDBLookupComboBox1: TRzDBLookupComboBox;
    RzDBLookupComboBox2: TRzDBLookupComboBox;
    RzDBLookupComboBox3: TRzDBLookupComboBox;
    ManufacturerID: TDataSource;
    MedicineID: TDataSource;
    POMedicineDetailID: TDataSource;
    ProviderID: TDataSource;
    StockinorderID: TDataSource;
    RzDBDateTimeEdit1: TRzDBDateTimeEdit;
    RzDBDateTimeEdit2: TRzDBDateTimeEdit;
    RzPanel6: TRzPanel;
    RzDBLookupComboBox11: TRzDBLookupComboBox;
    RzLabel19: TRzLabel;
    RzLabel20: TRzLabel;
    RzDBLookupComboBox12: TRzDBLookupComboBox;
    RzDBLookupComboBox13: TRzDBLookupComboBox;
    RzLabel21: TRzLabel;
    RzLabel22: TRzLabel;
    RzDBLookupComboBox14: TRzDBLookupComboBox;
    RzDBLookupComboBox15: TRzDBLookupComboBox;
    RzLabel23: TRzLabel;
    RzLabel24: TRzLabel;
    RzDBLookupComboBox16: TRzDBLookupComboBox;
    RzBitBtn3: TRzBitBtn;
    RzBitBtn4: TRzBitBtn;
    RzLabel6: TRzLabel;
    RzDBLookupComboBox4: TRzDBLookupComboBox;
    RzBitBtn1: TRzBitBtn;
    procedure RzBitBtn1Click(Sender: TObject);
    procedure RzBitBtn3Click(Sender: TObject);
    procedure RzBitBtn4Click(Sender: TObject);
  private
    MedicineIDModel: TCloneDataModel;
    POMedicineDetailIDModel: TCloneDataModel;
    StockinorderIDModel: TCloneDataModel;
    ManufacturerIDModel: TCloneDataModel;
    ProviderIDModel: TCloneDataModel;
  protected
    procedure InitModel; override;
  public
    function GetCaption: string; override;
  end;

implementation

uses UMADSIOMedicineDetail, UMADStockinorder, Factory, UPrimaryDataModel,
UMADManufacturer, UMADProvider, UMADMedicine,
  UVMADGPOMedicineDetail, UDialogDataItemsView,
  UMADPOMedicineDetailNotCheckIn, UVMADGMedicine, UVADGProvider, UVADGManufacturer,
  UDataView;

{$R *.dfm}

{ TVADISIOMedicineDetail }

function TVADISIOMedicineDetail.GetCaption: string;
begin
  Result := '入库单明细';
end;

procedure TVADISIOMedicineDetail.InitModel;
begin
  inherited;
  MedicineIDModel := TCloneDataModel.Create(Self);
  TPrimaryDataModel(MedicineFactory.GetModel).Clone(MedicineIDModel);
  MedicineID.DataSet := MedicineIDModel.GetDataSet;

  ManufacturerIDModel := TCloneDataModel.Create(Self);
  TPrimaryDataModel(ManufacturerFactory.GetModel).Clone(ManufacturerIDModel);
  ManufacturerID.DataSet := ManufacturerIDModel.GetDataSet;

  POMedicineDetailIDModel := TCloneDataModel.Create(Self);
  TPrimaryDataModel(POMedicineDetailFactory.GetModel).Clone(POMedicineDetailIDModel);
  POMedicineDetailID.DataSet := POMedicineDetailIDModel.GetDataSet;

  ProviderIDModel := TCloneDataModel.Create(Self);
  TPrimaryDataModel(ProviderFactory.GetModel).Clone(ProviderIDModel);
  ProviderID.DataSet := ProviderIDModel.GetDataSet;

  StockinorderIDModel := TCloneDataModel.Create(Self);
  TPrimaryDataModel(StockinorderFactory.GetModel).Clone(StockinorderIDModel);
  StockinorderID.DataSet := StockinorderIDModel.GetDataSet;
end;

procedure TVADISIOMedicineDetail.RzBitBtn1Click(Sender: TObject);
var
  Dialog: TDialogDataItemsView;
begin
  GetDataModel.GetDataSet.Edit;
  Dialog := TDialogDataItemsView.Create(Self, TDataItemsView(TVMADGPOMedicineDetail.Create(Self, POMedicineDetailNotCheckInFactory)));
  if Dialog.ShowModal = mrOK then
    GetDataModel.GetDataSet.FieldByName('POMedicineDetailID').ASInteger := IIntegerKey(Dialog.GetKey).GetKey;
  Dialog.Free;
end;



procedure TVADISIOMedicineDetail.RzBitBtn3Click(Sender: TObject);
var
  Dialog : TDialogDataItemsView;
begin
  GetDataModel.GetDataSet.Edit;
  Dialog := TDialogDataItemsView.Create(Self,TDataItemsView(TVADGProvider.Create(Self,ProviderFactory)));
  if Dialog.ShowModal = mrOk then
    GetDataModel.GetDataSet.FieldByName('ProviderID').AsInteger := IIntegerKey(Dialog.GetKey).GetKey;
  Dialog.Free;
end;

procedure TVADISIOMedicineDetail.RzBitBtn4Click(Sender: TObject);
var
  Dialog : TDialogDataItemsView;
begin
  GetDataModel.GetDataSet.Edit;
  Dialog := TDialogDataItemsView.Create(Self,TDataItemsView(TVADGManufacturer.Create(Self, ManufacturerFactory)));
  if Dialog.ShowModal = mrOk then
    GetDataModel.GetDataSet.FieldByName('MANUFACTURERID').AsInteger := IIntegerKey(Dialog.GetKey).GetKey;
  Dialog.Free;
end;

end.