mainunit.pas

通用高校管理系统包括科研人员,科研项目,获奖项目,参加人员等模块

unit MainUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, Menus, ComCtrls, ToolWin, jpeg, ExtCtrls;

type
  TForm2 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    StatusBar1: TStatusBar;
    SpeedButton1: TSpeedButton;
    Image1: TImage;
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure ToolButton8Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

uses SplashUnit, GLUnit;

{$R *.dfm}

procedure TForm2.SpeedButton1Click(Sender: TObject);
begin
close;
Form1.close;
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
StatusBar1.Panels[2].Text:='20'+datetostr(Date);
end;

procedure TForm2.ToolButton1Click(Sender: TObject);
begin
Form3.show;
Form3.PageControl1.TabIndex:=0;

end;

procedure TForm2.ToolButton2Click(Sender: TObject);
begin
Form3.show;
Form3.PageControl1.TabIndex:=1;
end;

procedure TForm2.N2Click(Sender: TObject);
begin
Form3.show;
Form3.PageControl1.TabIndex:=0;
end;

procedure TForm2.N4Click(Sender: TObject);
begin
Form3.show;
Form3.PageControl1.TabIndex:=1;
end;

procedure TForm2.N6Click(Sender: TObject);
begin
Form3.show;
Form3.PageControl1.TabIndex:=2;
end;

procedure TForm2.ToolButton3Click(Sender: TObject);
begin
Form3.show;
Form3.PageControl1.TabIndex:=2;
end;

procedure TForm2.ToolButton4Click(Sender: TObject);
begin
Form3.show;
Form3.PageControl1.TabIndex:=3;
end;

procedure TForm2.N8Click(Sender: TObject);
begin
Form3.show;
Form3.PageControl1.TabIndex:=3;
end;

procedure TForm2.ToolButton5Click(Sender: TObject);
begin
Form3.show;
Form3.PageControl1.TabIndex:=4;
end;

procedure TForm2.N10Click(Sender: TObject);
begin
Form3.show;
Form3.PageControl1.TabIndex:=4;
end;

procedure TForm2.ToolButton6Click(Sender: TObject);
begin
Form3.show;
Form3.PageControl1.TabIndex:=5;
end;

procedure TForm2.N12Click(Sender: TObject);
begin
Form3.show;
Form3.PageControl1.TabIndex:=5;
end;

procedure TForm2.ToolButton7Click(Sender: TObject);
begin
Form3.show;
Form3.PageControl1.TabIndex:=6;
end;

procedure TForm2.N14Click(Sender: TObject);
begin
Form3.show;
Form3.PageControl1.TabIndex:=7;
end;

procedure TForm2.ToolButton8Click(Sender: TObject);
begin
Form3.show;
Form3.PageControl1.TabIndex:=7;
end;

procedure TForm2.N16Click(Sender: TObject);
begin
Form3.show;
Form3.PageControl1.TabIndex:=7;
end;

end.