uvadgstockoutorderdetail.pas

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

unit UVADGStockOutOrderDetail;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, UAdapterDataGridView, cxStyles, cxCustomData, cxGraphics,
  cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, dxPSGlbl, dxPSUtl,
  dxPSEngn, dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider,
  dxPSFillPatterns, dxPSEdgePatterns, dxPSCore, RzCommon, cxGridLevel,
  cxClasses, cxControls, cxGridCustomView, cxGridCustomTableView,
  cxGridTableView, cxGridDBTableView, cxGrid, jpeg, RzBckgnd, ExtCtrls,
  RzPanel, UCloneDataModel,UMADStockoutorder, Factory, UMADEmployee, UPrimaryDataModel,
  UMADCheckOutMethod, UDataView, UVADIStockOutOrder, UMADDepartment, UMADSectionOffice,
  cxCheckBox, cxDBLookupComboBox, UView, UControllerView, UPagesView, RzTabS, MyTools, UQueryDataModel,
  UAdapterDataPagesView, UVADGSOOMedicineDetail, cxCurrencyEdit;

type
  TVADGStockOutOrderDetail = class(TAdapterDataGridView)
    CreateBy: TDataSource;
    UpdateBy: TDataSource;
    ApproveBy: TDataSource;
    CheckOutMethodId: TDataSource;
    SectionOffice: TDataSource;
    Department: TDataSource;
    GridDBTableViewSTOCKOUTORDERID: TcxGridDBColumn;
    GridDBTableViewST: TcxGridDBColumn;
    GridDBTableViewTOTAL: TcxGridDBColumn;
    GridDBTableViewMEMO: TcxGridDBColumn;
    GridDBTableViewISAPPROVE: TcxGridDBColumn;
    GridDBTableViewAPPROVEDATE: TcxGridDBColumn;
    GridDBTableViewCHECKOUTDATE: TcxGridDBColumn;
    GridDBTableViewCREATED: TcxGridDBColumn;
    GridDBTableViewUPDATED: TcxGridDBColumn;
    GridDBTableViewUPDATEBY: TcxGridDBColumn;
    GridDBTableViewCHECKOUTMETHODID: TcxGridDBColumn;
    GridDBTableViewAPPROVEBY: TcxGridDBColumn;
    GridDBTableViewDEPARTMENTID: TcxGridDBColumn;
    GridDBTableViewSECTIONOFFICEID: TcxGridDBColumn;
    GridDBTableViewCREATEBY: TcxGridDBColumn;
    PagesView: TAdapterDataPagesView;
    Splitter1: TSplitter;
    procedure GridDBTableViewCellClick(Sender: TcxCustomGridTableView;
      ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
      AShift: TShiftState; var AHandled: Boolean);
 private
    CreateByModel: TCloneDataModel;
    UpdateByModel: TCloneDataModel;
    ApproveByModel: TCloneDataModel;
    CheckOutMethodModel: TCloneDataModel;
    SectionOfficeModel: TCloneDataModel;
    DepartmentModel: TCloneDataModel;
    SOOMedicineDetailView: TVADGSOOMedicineDetail;
  protected
    procedure InitModel; override;
    procedure InitView; override;
  public
    function GetCaption: string; override;
    procedure Append(Parameters: IParameters); override;
    procedure Delete(Parameters: IParameters); override;
    procedure Save(Parameters: IParameters); override;
  end;

implementation

uses
  UAdapterDataView;

{$R *.dfm}

{ TVADGStockOutOrderDetail }

function TVADGStockOutOrderDetail.GetCaption: string;
begin
  Result := '药品出库单明细';
end;

procedure TVADGStockOutOrderDetail.InitModel;
begin
  inherited;
  CreateByModel := GetCloneDataModel(TPrimaryDataModel(EmployeeFactory.GetModel));
  CreateBy.DataSet := CreateByModel.GetDataSet;

  UpdateByModel := GetCloneDataModel(TPrimaryDataModel(EmployeeFactory.GetModel));
  UpdateBy.DataSet := UpdateByModel.GetDataSet;

  ApproveBYModel := GetCloneDataModel(TPrimaryDataModel(EmployeeFactory.GetModel));
  ApproveBy.DataSet := ApproveByModel.GetDataSet;

  CheckOutMethodModel := GetCloneDataModel(TPrimaryDataModel(CheckOutMethodFactory.GetModel));
  CheckOutMethodId.DataSet := CheckOutMethodModel.GetDataSet;

  SectionOfficeModel := GetCloneDataModel(TPrimaryDataModel(SectionOfficeFactory.GetModel));
  SectionOffice.DataSet := SectionOfficeModel.GetDataSet;

  DepartmentModel := GetCloneDataModel(TPrimaryDataModel(DepartmentFactory.GetModel));
  Department.DataSet := DepartmentModel.GetDataSet;
end;

procedure TVADGStockOutOrderDetail.InitView;
var
  Page: TRzTabSheet;
  Key: IKey;
begin
  inherited;
  Page := PagesView.NewPage;
  SOOMedicineDetailView := TVADGSOOMedicineDetail.Create(Page,SOOMedicineDetailFactory);
  PagesView.BandView(Page, SOOMedicineDetailView);
  Key := GetDataModel.GetKey;
  TQueryDataModel(SOOMedicineDetailView.GetDataModel).Query(Key);
end;


procedure TVADGStockOutOrderDetail.Append(Parameters: IParameters);
begin
  TAdapterDataView(PagesView.GetActiveView).Append(Parameters);
end;

procedure TVADGStockOutOrderDetail.Delete(Parameters: IParameters);
begin
  TAdapterDataView(PagesView.GetActiveView).Delete(Parameters);
end;

procedure TVADGStockOutOrderDetail.Save(Parameters: IParameters);
begin
  TAdapterDataView(PagesView.GetActiveView).Save(Parameters);
end;

procedure TVADGStockOutOrderDetail.GridDBTableViewCellClick(
  Sender: TcxCustomGridTableView;
  ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
  AShift: TShiftState; var AHandled: Boolean);
begin
  inherited;
  TQueryDataModel(SOOMedicineDetailView.GetDataModel).Query(GetKey);
end;

end.