uvadgdepartmentback.pas

Software Requirements1. Delphi 6 SP22. Oracle 8i R33. Raize 3.0.94. ExpressQuantumGrid 4.505. Expres

unit UVADGDepartmentBack;

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, UView, UControllerView, UPagesView, UAdapterDataPagesView,
  RzTabS, UQueryDataModel, MyTools, Factory, UVAGDepartMentStockOut;

type
  TVADGDepartmentBack = class(TAdapterDataGridView)
    GridDBTableViewDEPARTMENTID: TcxGridDBColumn;
    GridDBTableViewCAPTION: TcxGridDBColumn;
    Splitter1: TSplitter;
    PagesView: TAdapterDataPagesView;
    procedure GridDBTableViewCellClick(Sender: TcxCustomGridTableView;
      ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
      AShift: TShiftState; var AHandled: Boolean);
  private
    DepartMentStockOutView : TVADGDepartMentStockOut;
  protected
    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 UMADDepartment;
{$R *.dfm}

procedure TVADGDepartmentBack.Append(Parameters: IParameters);
begin
//
end;

procedure TVADGDepartmentBack.Delete(Parameters: IParameters);
begin
//
end;

function TVADGDepartmentBack.GetCaption: string;
begin
  Result := '部门退药';
end;

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

procedure TVADGDepartmentBack.InitView;
var
  Page: TRzTabSheet;
  Key: IKey;
begin
  inherited;
  Page := PagesView.NewPage;
  DepartMentStockOutView := TVADGDepartMentStockOut.Create(Page, DepartMentStockOutBackFactory);
  PagesView.BandView(Page,DepartMentStockOutView);
  Key := GetDataModel.GetKey;
  TQueryDataModel(DepartMentStockOutView.GetDataModel).Query(Key);
end;

procedure TVADGDepartmentBack.Save(Parameters: IParameters);
begin
  DepartMentStockOutView.Save(Parameters);
end;

end.