uvadipurchaseorder.pas

Software Requirements1. Delphi 6 SP22. Oracle 8i R33. Raize 3.0.94. ExpressQuantumGrid 4.505. Expres

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.