uvadipurchaseorder.pas

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

unit UVADIPURChaseOrder;

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, RzLabel, DBCtrls, RzDBCmbo, RzDBEdit,
  RzRadChk, RzDBChk, Mask, RzEdit, UCloneDataModel,
  UPrimaryDataModel, Factory, UView, UControllerView, UPagesView,
  UAdapterDataPagesView, MyTools, RzTabs, UVMADGPOMaterialDetail,
  UVMADGPOMedicineDetail;

type
  TVADIPURChaseOrder = class(TAdapterDataItemView)
    PurchaseMethod: TDataSource;
    RzLabel2: TRzLabel;
    RzLabel3: TRzLabel;
    RzLabel8: TRzLabel;
    RzLabel11: TRzLabel;
    RzLabel12: TRzLabel;
    RzLabel15: TRzLabel;
    RzDBEdit1: TRzDBEdit;
    RzDBEdit2: TRzDBEdit;
    RzDBEdit3: TRzDBEdit;
    RzDBEdit4: TRzDBEdit;
    RzDBLookupComboBox4: TRzDBLookupComboBox;
    RzDBDateTimeEdit5: TRzDBDateTimeEdit;
    PagesView: TAdapterDataPagesView;
  private
    PurchaseMethodModel: TCloneDataModel;
    POMaterialDetailView: TVMADGPOMaterialDetail;
    POMedicineDetailView: TVMADGPOMedicineDetail;
  public
    procedure InitModel; override;
    procedure InitView; override;
  public
    function GetCaption: string; override;
    procedure Save(Parameters: IParameters); override;
  end;

implementation

uses UMADPurchaseOrder, UMADPurchaseMethod, UQueryDataModel;

{$R *.dfm}

{ TVADIPURChaseOrder }

function TVADIPURChaseOrder.GetCaption: string;
begin
  Result := '采购单修改编辑';
end;

procedure TVADIPURChaseOrder.InitModel;
begin
  inherited;
  PurchaseMethodModel := TCloneDataModel.Create(Self);
  TPrimaryDataModel(PurchaseMethodFactory.GetModel).Clone(PurchaseMethodModel);
  PurchaseMethod.DataSet := PurchaseMethodModel.GetDataSet;
end;

procedure TVADIPURChaseOrder.InitView;
var
  Page: TRzTabSheet;
  Key: IKey;
begin
  inherited;
  Page := PagesView.NewPage;
  POMaterialDetailView := TVMADGPOMaterialDetail.Create(Page,POMaterialDetailFactory);
  PagesView.BandView(Page, POMaterialDetailView);
  Key := GetDataModel.GetKey;
  if not Assigned(Key) then ShowMessage('lkj')
  else ShowMessage('llll');
  TQueryDataModel(POMaterialDetailView.GetDataModel).Query(Key);

  Page := PagesView.NewPage;
  POMedicineDetailView := TVMADGPOMedicineDetail.Create(Page,POMedicineDetailFactory);
  PagesView.BandView(Page, POMedicineDetailView);
  Key := GetDataModel.GetKey;
  TQueryDataModel(POMedicineDetailView.GetDataModel).Query(Key);
end;

procedure TVADIPURChaseOrder.Save(Parameters: IParameters);
begin
  inherited;
  POMaterialDetailView.Save(nil);
  POMedicineDetailView.Save(nil);
end;

end.