navigatefrm.pas

考勤管理是企业内部管理的重要环节和基础

unit navigatefrm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls, Buttons, ComCtrls;

type
  TNavigateForm = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    Panel5: TPanel;
    Image1: TImage;
    Image3: TImage;
    Image4: TImage;
    Image5: TImage;
    Panel6: TPanel;
    Panel8: TPanel;
    Panel9: TPanel;
    Panel7: TPanel;
    Panel10: TPanel;
    Panel11: TPanel;
    Panel12: TPanel;
    Panel13: TPanel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    TabSheet5: TTabSheet;
    TabSheet6: TTabSheet;
    TabSheet7: TTabSheet;
    TabSheet8: TTabSheet;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton8: TSpeedButton;
    procedure FormCreate(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Panel7Click(Sender: TObject);
    procedure Panel8Click(Sender: TObject);
    procedure Panel9Click(Sender: TObject);
    procedure Panel10Click(Sender: TObject);
    procedure Panel11Click(Sender: TObject);
    procedure Panel12Click(Sender: TObject);
    procedure Panel13Click(Sender: TObject);
    procedure Panel6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  NavigateForm: TNavigateForm;

implementation

uses SiBoFrm;

{$R *.DFM}

procedure TNavigateForm.FormCreate(Sender: TObject);
begin
  Left:=0;
  Top:=0;
  Height:=SiBoform.ClientHeight-SiBoform.CoolBar2.Height-BorderWidth*2-2;
  Width:=SiBoform.ClientWidth-BorderWidth*2-2;
end;

procedure TNavigateForm.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
  SiBoForm.mminavigation.Checked:=not SiBoform.mminavigation.Checked;
end;

procedure TNavigateForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  action:=caFree;
end;

procedure TNavigateForm.Panel7Click(Sender: TObject);
begin
  if Panel7.align=alBottom then begin
    Panel7.align:=alTop;
    PageControl1.ActivePage:=TabSheet2;
  end else begin
    PageControl1.ActivePage:=TabSheet1;
    Panel13.align:=alBottom;
    Panel12.align:=alBottom;
    Panel11.align:=alBottom;
    Panel10.align:=alBottom;
    Panel9.align:=alBottom;
    Panel8.align:=alBottom;
    Panel7.align:=alBottom;
  end;
end;

procedure TNavigateForm.Panel8Click(Sender: TObject);
begin
  if Panel8.align=alBottom then begin
    Panel7.align:=alTop;
    Panel8.align:=alTop;
    PageControl1.ActivePage:=TabSheet3;
  end else begin
    PageControl1.ActivePage:=TabSheet2;
    Panel13.align:=alBottom;
    Panel12.align:=alBottom;
    Panel11.align:=alBottom;
    Panel10.align:=alBottom;
    Panel9.align:=alBottom;
    Panel8.align:=alBottom;
  end;
end;

procedure TNavigateForm.Panel9Click(Sender: TObject);
begin
  if Panel9.align=alBottom then begin
    Panel7.align:=alTop;
    Panel8.align:=alTop;
    Panel9.align:=alTop;
    PageControl1.ActivePage:=TabSheet4;
  end else begin
    PageControl1.ActivePage:=TabSheet3;
    Panel13.align:=alBottom;
    Panel12.align:=alBottom;
    Panel11.align:=alBottom;
    Panel10.align:=alBottom;
    Panel9.align:=alBottom;
  end;
end;

procedure TNavigateForm.Panel10Click(Sender: TObject);
begin
  if Panel10.align=alBottom then begin
    Panel7.align:=alTop;
    Panel8.align:=alTop;
    Panel9.align:=alTop;
    Panel10.align:=alTop;
  end else begin
    Panel13.align:=alBottom;
    Panel12.align:=alBottom;
    Panel11.align:=alBottom;
    Panel10.align:=alBottom;
  end;
end;

procedure TNavigateForm.Panel11Click(Sender: TObject);
begin
  if Panel11.align=alBottom then begin
    Panel7.align:=alTop;
    Panel8.align:=alTop;
    Panel9.align:=alTop;
    Panel10.align:=alTop;
    Panel11.align:=alTop;
  end else begin
    Panel13.align:=alBottom;
    Panel12.align:=alBottom;
    Panel11.align:=alBottom;
  end;
end;

procedure TNavigateForm.Panel12Click(Sender: TObject);
begin
  if Panel12.align=alBottom then begin
    Panel7.align:=alTop;
    Panel8.align:=alTop;
    Panel9.align:=alTop;
    Panel10.align:=alTop;
    Panel11.align:=alTop;
    Panel12.align:=alTop;
  end else begin
    Panel13.align:=alBottom;
    Panel12.align:=alBottom;
  end;
end;

procedure TNavigateForm.Panel13Click(Sender: TObject);
begin
  if Panel13.align=alBottom then begin
    Panel7.align:=alTop;
    Panel8.align:=alTop;
    Panel9.align:=alTop;
    Panel10.align:=alTop;
    Panel11.align:=alTop;
    Panel12.align:=alTop;
    Panel13.align:=alTop;
  end else begin
    Panel13.align:=alBottom;
  end;
end;

procedure TNavigateForm.Panel6Click(Sender: TObject);
begin
    PageControl1.ActivePage:=TabSheet1;
    Panel13.align:=alBottom;
    Panel12.align:=alBottom;
    Panel11.align:=alBottom;
    Panel10.align:=alBottom;
    Panel9.align:=alBottom;
    Panel8.align:=alBottom;
    Panel7.align:=alBottom;
end;

end.