uvadgdepartmentlist.pas

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

unit UVADGDepartmentList;

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
  TVADGDepartmentList = 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}

{ TVADGDepartmentList }

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

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

function TVADGDepartmentList.GetCaption: String;
begin
  Result := '部门列表';
end;

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

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

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

end.