uvadisiomedicinedetailhistory.pas

Delphi6开发的HIS程序

unit UVADISIOMedicineDetailHistory;

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

type
  TVADISIOMedicineDetailHistory = class(TAdapterDataItemView)
    RzLabel1: TRzLabel;
    RzLabel2: TRzLabel;
    RzLabel3: TRzLabel;
    RzLabel4: TRzLabel;
    RzLabel6: 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;
    RzDBLookupComboBox4: TRzDBLookupComboBox;
    RzDBDateTimeEdit1: TRzDBDateTimeEdit;
    RzDBDateTimeEdit2: TRzDBDateTimeEdit;
    ProviderID: TDataSource;
    POMedicineDetailID: TDataSource;
    StockinorderID: TDataSource;
    ManufacturerID: TDataSource;
    MedicineID: TDataSource;
    RzDBLookupComboBox17: TRzDBLookupComboBox;
    RzLabel25: TRzLabel;
    RzLabel20: TRzLabel;
    RzLabel21: TRzLabel;
    RzLabel22: TRzLabel;
    RzLabel23: TRzLabel;
    RzLabel5: TRzLabel;
    RzDBLookupComboBox12: TRzDBLookupComboBox;
    RzDBLookupComboBox13: TRzDBLookupComboBox;
    RzDBLookupComboBox14: TRzDBLookupComboBox;
    RzDBLookupComboBox15: TRzDBLookupComboBox;
    RzDBLookupComboBox5: TRzDBLookupComboBox;
    RzLabel14: TRzLabel;
    RzLabel15: TRzLabel;
    RzLabel16: TRzLabel;
    RzLabel18: TRzLabel;
    RzDBLookupComboBox6: TRzDBLookupComboBox;
    RzDBLookupComboBox7: TRzDBLookupComboBox;
    RzDBLookupComboBox8: TRzDBLookupComboBox;
    RzDBLookupComboBox10: TRzDBLookupComboBox;
  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,UMADManufacturer, UMADProvider, UMADMedicine;
{$R *.dfm}

{ TVADISIOMedicineDetailHistory }

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

procedure TVADISIOMedicineDetailHistory.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.