unit2.pas

用delphi和SQLServer开发的人力资源管理信息系统

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, jpeg, ExtCtrls, Menus;

type
  TForm2 = class(TForm)
    MainMenu1: TMainMenu;
    N3: TMenuItem;
    N2: TMenuItem;
    N9: TMenuItem;
    N4: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N5: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N6: TMenuItem;
    N14: TMenuItem;
    N8: TMenuItem;
    N7: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N1: TMenuItem;
    Image1: TImage;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label1: TLabel;
    Label6: TLabel;
    procedure N2Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation
   uses unit1,unit4,unit5,unit6,unit7,unit8,unit9,unit10,unit11,unit12,unit13,unit14;
{$R *.dfm}

procedure TForm2.N2Click(Sender: TObject);
begin
   form5.Show;
end;

procedure TForm2.N9Click(Sender: TObject);
begin
   form4.Show;
end;

procedure TForm2.N10Click(Sender: TObject);
begin
   form6.Show;
end;

procedure TForm2.N11Click(Sender: TObject);
begin
   form7.Show;
end;

procedure TForm2.N12Click(Sender: TObject);
begin
   form8.Show;
end;

procedure TForm2.N13Click(Sender: TObject);
begin
   form9.Show;
end;

procedure TForm2.N14Click(Sender: TObject);
begin
   form10.Show;
end;

procedure TForm2.N8Click(Sender: TObject);
begin
   form11.Show;
end;

procedure TForm2.N15Click(Sender: TObject);
begin
   form12.Show;
end;

procedure TForm2.N16Click(Sender: TObject);
begin
   form13.Show;
end;

procedure TForm2.N17Click(Sender: TObject);
begin
   form14.Show;
end;

procedure TForm2.N1Click(Sender: TObject);
begin
   form2.Close;
   form1.Close;
end;

end.