uvadisiomedicinedetailclean.pas

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

unit UVADISIOMedicineDetailClean;

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, UCloneDataModel, UDataItemsView, MyTools, RzDBEdit,
  DBCtrls, RzDBCmbo, StdCtrls, Mask, RzEdit, RzLabel, cxControls,
  cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxDropDownEdit, cxCalendar,
  cxDBEdit;

type
  TVADISIOMedicineDetailClean = 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;
    RzDBLookupComboBox2: TRzDBLookupComboBox;
    RzDBLookupComboBox3: TRzDBLookupComboBox;
    RzDBDateTimeEdit1: TRzDBDateTimeEdit;
    RzDBDateTimeEdit2: TRzDBDateTimeEdit;
    RzBitBtn2: TRzBitBtn;
    RzBitBtn3: TRzBitBtn;
    RzBitBtn4: TRzBitBtn;
    ProviderID: TDataSource;
    POMedicineDetailID: TDataSource;
    StockinorderID: TDataSource;
    ManufacturerID: TDataSource;
    MedicineID: TDataSource;
    DataSource1: TDataSource;
    RzDBLookupComboBox1: TRzDBLookupComboBox;
    RzLabel14: TRzLabel;
    RzLabel15: TRzLabel;
    RzLabel16: TRzLabel;
    RzLabel17: TRzLabel;
    RzLabel18: TRzLabel;
    RzDBLookupComboBox6: TRzDBLookupComboBox;
    RzDBLookupComboBox7: TRzDBLookupComboBox;
    RzDBLookupComboBox8: TRzDBLookupComboBox;
    RzDBLookupComboBox9: TRzDBLookupComboBox;
    RzDBLookupComboBox10: TRzDBLookupComboBox;
    procedure RzBitBtn3Click(Sender: TObject);
    procedure RzBitBtn4Click(Sender: TObject);
    procedure RzBitBtn2Click(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
  UMADSIOMedicineDetailClean, UMADStockinorder, Factory, UPrimaryDataModel,
  UMADManufacturer, UMADProvider, UMADMedicine,
  UVMADGPOMedicineDetail, UDialogDataItemsView,
  UMADPOMedicineDetailNotCheckIn, UVMADGMedicine, UVADGProvider, UVADGManufacturer,
  UDataView;
{$R *.dfm}

procedure TVADISIOMedicineDetailClean.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 TVADISIOMedicineDetailClean.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;

procedure TVADISIOMedicineDetailClean.RzBitBtn2Click(Sender: TObject);
var
  Dialog: TDialogDataItemsView;
begin
  GetDataModel.GetDataSet.Edit;
  Dialog := TDialogDataItemsView.Create(Self, TDataItemsView(TVMADGMedicine.Create(Self, MedicineFactory)));
  if Dialog.ShowModal = mrOK then
    GetDataModel.GetDataSet.FieldByName('MedicineID').ASInteger := IIntegerKey(Dialog.GetKey).GetKey;
  Dialog.Free;
end;

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

procedure TVADISIOMedicineDetailClean.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;

end.