uvmadgstockoutorder.pas

Delphi6开发的HIS程序

unit UVMADGStockOutOrder;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, UMasterAdapterDataGridView, 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, UView, UCloneDataModel, cxDBLookupComboBox, cxCheckBox, UAdapterDataGridView,
  cxCurrencyEdit;

type
  TVMADGStockOutOrder = class(TAdapterDataGridView)
    CreateBy: TDataSource;
    ApproveBy: TDataSource;
    UpdateBy: 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;
  private
    CreateByModel: TCloneDataModel;
    UpdateByModel: TCloneDataModel;
    ApproveByModel: TCloneDataModel;
    CheckOutMethodModel: TCloneDataModel;
    SectionOfficeModel: TCloneDataModel;
    DepartmentModel: TCloneDataModel;
  protected
    procedure InitModel; override;
  public
    function GetCaption: string; override;
  end;

implementation

uses UMADStockoutorder, Factory, UMADEmployee, UPrimaryDataModel, UMADCheckOutMethod,
  UDataView, UVADIStockOutOrder, UMADDepartment, UMADSectionOffice;

{$R *.dfm}

{ TVMADGStockOutOrder }

function TVMADGStockOutOrder.GetCaption: string;
begin
  Result := '药品出库单概要';
end;


procedure TVMADGStockOutOrder.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;

end.