uadapterdatapagesview.pas

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

unit UAdapterDataPagesView;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, UPagesView, RzCommon, RzTabs, jpeg, RzBckgnd, ExtCtrls, RzPanel,
  RzButton,
  UAdapterDataItemsView, RzStatus;

type
  TAdapterDataPagesView = class(TPagesView)
    BtnAppendRecord: TRzBitBtn;
    BtnDeleteRecord: TRzBitBtn;
    BtnCancelRecord: TRzBitBtn;
    BtnSaveRecord: TRzBitBtn;
    BtnSaveToFile: TRzBitBtn;
    procedure BtnAppendRecordClick(Sender: TObject);
    procedure BtnDeleteRecordClick(Sender: TObject);
    procedure BtnCancelRecordClick(Sender: TObject);
    procedure BtnSaveRecordClick(Sender: TObject);
    procedure BtnSaveToFileClick(Sender: TObject);
  private
    function GetAdapterDataItemsView: TAdapterDataItemsView;
  public
    { Public declarations }
  end;

implementation

uses
  UView,UDataView;

{$R *.dfm}

procedure TAdapterDataPagesView.BtnAppendRecordClick(Sender: TObject);
var
  View: TAdapterDataItemsView;
begin
  View := GetAdapterDataItemsView;
  if Assigned(View) then View.Append(nil);
end;

function TAdapterDataPagesView.GetAdapterDataItemsView: TAdapterDataItemsView;
var
  View: TView;
begin
  View := GetActiveView;
  if Assigned(View) then Result := TAdapterDataItemsView(GetActiveView)
  else Result := nil;
end;

procedure TAdapterDataPagesView.BtnDeleteRecordClick(Sender: TObject);
var
  View: TAdapterDataItemsView;
begin
  View := GetAdapterDataItemsView;
  if Assigned(View) then View.Delete(nil);
end;

procedure TAdapterDataPagesView.BtnCancelRecordClick(Sender: TObject);
var
  View: TAdapterDataItemsView;
begin
  View := GetAdapterDataItemsView;
  if Assigned(View) then View.Cancel(nil);
end;

procedure TAdapterDataPagesView.BtnSaveRecordClick(Sender: TObject);
var
  View: TAdapterDataItemsView;
begin
  View := GetAdapterDataItemsView;
  if Assigned(View) then View.Save(nil);
end;

procedure TAdapterDataPagesView.BtnSaveToFileClick(Sender: TObject);
var
  View: TView;
begin
  View := GetActiveView;
  if Assigned(View) then
    if View is TDataView then
      TDataView(View).Print;
end;

end.