uvadipomedicinedetailro.pas

Delphi6开发的HIS程序

unit UVADIPOMedicineDetailRO;

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

type
  TVADIPOMedicineDetailRO = class(TAdapterDataItemView)
    Medicine: TDataSource;
    PURChaseOrder: TDataSource;
    Provider: TDataSource;
    RzLabel1: TRzLabel;
    RzLabel2: TRzLabel;
    RzLabel3: TRzLabel;
    RzLabel5: TRzLabel;
    RzLabel6: TRzLabel;
    RzLabel8: TRzLabel;
    RzLabel7: TRzLabel;
    RzLabel4: TRzLabel;
    RzDBEdit1: TRzDBEdit;
    RzDBEdit2: TRzDBEdit;
    RzDBEdit3: TRzDBEdit;
    RzDBEdit4: TRzDBEdit;
    RzDBEdit5: TRzDBEdit;
    RzDBLookupComboBox2: TRzDBLookupComboBox;
    RzDBLookupComboBox3: TRzDBLookupComboBox;
    RzDBEdit6: TRzDBEdit;
    RzPanel5: TRzPanel;
    RzLabel9: TRzLabel;
    RzLabel10: TRzLabel;
    RzLabel11: TRzLabel;
    RzLabel12: TRzLabel;
    RzLabel13: TRzLabel;
    RzLabel14: TRzLabel;
    RzDBLookupComboBox1: TRzDBLookupComboBox;
    RzDBLookupComboBox4: TRzDBLookupComboBox;
    RzDBLookupComboBox5: TRzDBLookupComboBox;
    RzDBLookupComboBox6: TRzDBLookupComboBox;
    RzDBLookupComboBox7: TRzDBLookupComboBox;
    RzDBLookupComboBox8: TRzDBLookupComboBox;
    RzLabel15: TRzLabel;
    RzDBEdit7: TRzDBEdit;
  private
    MedicineModel: TCloneDataModel;
    PURChaseOrderModel: TCloneDataModel;
    ProviderModel: TCloneDataModel;
  protected
    procedure InitModel; override;
  public
    function GetCaption: string; override;
  end;

implementation
uses UMADPOMedicineDetail, UMADMedicine, UMADPURChaseOrder, UMADProvider;
{$R *.dfm}

{ TVADIPOMedicineDetailRO }

function TVADIPOMedicineDetailRO.GetCaption: string;
begin
  Result:= '采购单明细察看';
end;

procedure TVADIPOMedicineDetailRO.InitModel;
begin
  inherited;
  MedicineModel := TCloneDataModel.Create(Self);
  TPrimaryDataModel(MedicineFactory.GetModel).Clone(MedicineModel);
  Medicine.DataSet := MedicineModel.GetDataSet;

  PURChaseOrderModel := TCloneDataModel.Create(Self);
  TPrimaryDataModel(PURChaseOrderFactory.GetModel).Clone(PURChaseOrderModel);
  PURChaseOrder.DataSet := PURChaseOrderModel.GetDataSet;

  ProviderModel := TCloneDataModel.Create(Self);
  TPrimaryDataModel(ProviderFactory.GetModel).Clone(ProviderModel);
  Provider.DataSet := ProviderModel.GetDataSet;
end;

end.