uvadipurchaseorder.pas

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

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.