uvagdepartmentstockout.pas

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

unit UVAGDepartMentStockOut;

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, UPrimaryDataModel, Factory, cxCurrencyEdit,
  cxCheckBox, cxDBLookupComboBox;

type
  TVADGDepartMentStockOut = class(TAdapterDataGridView)
    Dose: TDataSource;
    MedicineCatalog: TDataSource;
    Units: TDataSource;
    UseMethod: TDataSource;
    GridDBTableViewPSTOCKOUTORDERID: TcxGridDBColumn;
    GridDBTableViewTOTAL: TcxGridDBColumn;
    GridDBTableViewTAXRATE: TcxGridDBColumn;
    GridDBTableViewAMOUNT: TcxGridDBColumn;
    GridDBTableViewISACTIVE: TcxGridDBColumn;
    GridDBTableViewISVALID: TcxGridDBColumn;
    GridDBTableViewISAPPROVE: TcxGridDBColumn;
    GridDBTableViewAPPROVEDATE: TcxGridDBColumn;
    GridDBTableViewCREATED: TcxGridDBColumn;
    GridDBTableViewUPDATED: TcxGridDBColumn;
    GridDBTableViewCHECKOUTDATE: TcxGridDBColumn;
    GridDBTableViewPSTOCKMEDICINEID: TcxGridDBColumn;
    GridDBTableViewCREATEBY: TcxGridDBColumn;
    GridDBTableViewUPDATEBY: TcxGridDBColumn;
    GridDBTableViewAPPROVEBY: TcxGridDBColumn;
    GridDBTableViewPRICE: TcxGridDBColumn;
    GridDBTableViewDEPARTMENTID: TcxGridDBColumn;
    GridDBTableViewM_MEDICINEID: TcxGridDBColumn;
    GridDBTableViewM_CODE: TcxGridDBColumn;
    GridDBTableViewM_TOPQTY: TcxGridDBColumn;
    GridDBTableViewM_DOWNQTY: TcxGridDBColumn;
    GridDBTableViewM_MEMO: TcxGridDBColumn;
    GridDBTableViewM_ALAIS: TcxGridDBColumn;
    GridDBTableViewM_MODEL: TcxGridDBColumn;
    GridDBTableViewM_PINYIN: TcxGridDBColumn;
    GridDBTableViewM_CAPTION: TcxGridDBColumn;
    GridDBTableViewM_DOSEID: TcxGridDBColumn;
    GridDBTableViewM_UNITSID: TcxGridDBColumn;
    GridDBTableViewM_USEMETHODID: TcxGridDBColumn;
    GridDBTableViewM_MEDICINECATALOGID: TcxGridDBColumn;
    GridDBTableViewM_MINUNITSID: TcxGridDBColumn;
    GridDBTableViewM_PACKAMOUNT: TcxGridDBColumn;
  private
    MedicineCatalogModel : TCloneDataModel;
    UseMethodModel : TCloneDataModel;
    DoseModel : TCloneDataModel;
    UnitsModel : TCloneDataModel;
  protected
    procedure InitModel; override;
  public
    function GetCaption: string; override;
  end;

implementation

uses
  UMADMedicineCatalog, UMADUseMethod, UMADDose, UMADUnits, UMADDepartMentStockOut,
  UDataView;
{$R *.dfm}




{ TVADGDepartMentStockOut }

function TVADGDepartMentStockOut.GetCaption: string;
begin
  Result := '部门药品出库';
end;

procedure TVADGDepartMentStockOut.InitModel;
begin
  inherited;
  MedicineCatalogModel := GetCloneDataModel(TPrimaryDataModel(MedicineCatalogFactory.GetModel));
  MedicineCatalog.DataSet := MedicineCatalogModel.GetDataSet;

  DoseModel := GetCloneDataModel(TPrimaryDataModel(DoseFactory.GetModel));
  Dose.DataSet := DoseModel.GetDataSet;

  UseMethodModel := GetCloneDataModel(TPrimaryDataModel(UseMethodFactory.GetModel));
  UseMethod.DataSet := UseMethodModel.GetDataSet;

  MedicineCatalogModel := GetCloneDataModel(TPrimaryDataModel(MedicineCatalogFactory.GetModel));
  MedicineCatalog.DataSet := MedicineCatalogModel.GetDataSet;
end;

end.