uvadgstockinorderapprove.pas

Delphi6开发的HIS程序

unit UVADGStockInOrderApprove;

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, cxCheckBox,
  cxDBLookupComboBox, MyTools, UView, UControllerView, UPagesView,
  UAdapterDataPagesView, UVMADGSIOMedicineDetailHistory, UQueryDataModel, RzTabs,
  cxCurrencyEdit, RzButton, StdCtrls, RzLabel;

type
  TVADGStockInOrderApprove = class(TAdapterDataGridView)
    CreateBy: TDataSource;
    UpdateBy: TDataSource;
    ApproveBy: TDataSource;
    CheckInMethodId: TDataSource;
    GridDBTableViewSTOCKINORDERID: TcxGridDBColumn;
    GridDBTableViewCHECKINDATE: TcxGridDBColumn;
    GridDBTableViewTOTAL: TcxGridDBColumn;
    GridDBTableViewMEMO: TcxGridDBColumn;
    GridDBTableViewISAPPROVE: TcxGridDBColumn;
    GridDBTableViewAPPROVEDATE: TcxGridDBColumn;
    GridDBTableViewCREATED: TcxGridDBColumn;
    GridDBTableViewUPDATED: TcxGridDBColumn;
    GridDBTableViewCHECKINMETHODID: TcxGridDBColumn;
    GridDBTableViewAPPROVEBY: TcxGridDBColumn;
    GridDBTableViewCREATEBY: TcxGridDBColumn;
    GridDBTableViewUPDATEBY: TcxGridDBColumn;
    PagesView: TAdapterDataPagesView;
    Splitter1: TSplitter;
    RzPanel3: TRzPanel;
    RzBitBtn1: TRzBitBtn;
    RzPanel4: TRzPanel;
    procedure GridDBTableViewCellClick(Sender: TcxCustomGridTableView;
      ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
      AShift: TShiftState; var AHandled: Boolean);
    procedure RzBitBtn1Click(Sender: TObject);
  private
    CreateByModel: TCloneDataModel;
    UpdateByModel: TCloneDataModel;
    ApproveByModel: TCloneDataModel;
    CheckInMethodModel: TCloneDataModel;
    SIOMedicineDetailView : TVMADGSIOMedicineDetailHistory;
  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
  UMADStockinorder, UMADEmployee, UMADCheckInMethod;

{$R *.dfm}

{ TVADGStockInOrderApprove }

procedure TVADGStockInOrderApprove.Append(Parameters: IParameters);
begin
end;

procedure TVADGStockInOrderApprove.Delete(Parameters: IParameters);
begin
end;

function TVADGStockInOrderApprove.GetCaption: string;
begin
  Result := '入库单审核';
end;

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

  CheckInMethodModel:= GetCloneDataModel(TPrimaryDataModel(CheckInMethodFactory.GetModel));
  CheckInMethodId.DataSet := CheckInMethodModel.GetDataSet;
end;

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

procedure TVADGStockInOrderApprove.InitView;
var
  Page: TRzTabSheet;
  Key: IKey;
begin
  inherited;
  Page := PagesView.NewPage;
  SIOMedicineDetailView := TVMADGSIOMedicineDetailHistory.Create(Page,SIOMedicineDetailFactory);
  PagesView.BandView(Page,SIOMedicineDetailView);
  Key := GetDataModel.GetKey;
  TQueryDataModel(SIOMedicineDetailView.GetDataModel).Query(Key);
end;



procedure TVADGStockInOrderApprove.Save(Parameters: IParameters);
begin
end;

procedure TVADGStockInOrderApprove.RzBitBtn1Click(Sender: TObject);
begin
  inherited;
  TMADStockInOrder(GetDataModel).CheckIn(nil);
  GetDataModel.GetDataSet.Refresh;
end;

end.