unit1.pas

该系统是学生人事管理系统

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ImgList, ComCtrls, ToolWin, ExtCtrls, StdActns, ActnList,
  WinSkinData, jpeg, StdCtrls;

type
  TForm1 = class(TForm)
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton6: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    P1: TMenuItem;
    N16: TMenuItem;
    F1: TMenuItem;
    SOL1: TMenuItem;
    W1: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    H1: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N17: TMenuItem;
    ActionList1: TActionList;
    WindowTileHorizontal1: TWindowTileHorizontal;
    WindowTileVertical1: TWindowTileVertical;
    WindowArrange1: TWindowArrange;
    N18: TMenuItem;
    StatusBar1: TStatusBar;
    ToolButton7: TToolButton;
    ImageList1: TImageList;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    ToolButton12: TToolButton;
    ToolButton13: TToolButton;
    WindowClose1: TWindowClose;
    ToolButton14: TToolButton;
    ToolButton15: TToolButton;
    Timer1: TTimer;
    ToolButton16: TToolButton;
    Image1: TImage;
    procedure N8Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure SOL1Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton15Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ToolButton16Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure N14Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
  private

    { Private declarations }
  public

    { Public declarations }
  end;

var
  Form1: TForm1;

implementation



uses Unit2, Unit4, Unit5, report, find, SQL, Unit13, Unit14, guanyu, Unit15,
  donglu, Unit3, Unit16, qidong;

{$R *.dfm}

procedure TForm1.N8Click(Sender: TObject);
var
zi1:tform4;
begin
 zi1:=tform4.Create(Application);
end;

procedure TForm1.N9Click(Sender: TObject);
var
zi1:tform12;
begin
 zi1:=tform12.Create(Application);
end;

procedure TForm1.N16Click(Sender: TObject);
begin
form6.QuickRep1.Preview;
end;

procedure TForm1.N15Click(Sender: TObject);
var
zi1:tform7;
begin
 zi1:=tform7.Create(Application);
end;

procedure TForm1.SOL1Click(Sender: TObject);
var
zi:tform8;
begin
zi:=tform8.Create(Application); 
end;

procedure TForm1.N6Click(Sender: TObject);
var
zi1:tform2;
begin
 zi1:=tform2.Create(Application);
end;

procedure TForm1.N17Click(Sender: TObject);
var
zi1:tform7;
begin
 zi1:=tform7.Create(Application);
end;

procedure TForm1.N18Click(Sender: TObject);

var
zi1:tform14;
begin
 zi1:=tform14.Create(Application);
end;

procedure TForm1.N13Click(Sender: TObject);
var
zi1:tform13;
begin
 zi1:=tform13.Create(Application);

end;

procedure TForm1.ToolButton1Click(Sender: TObject);
var
zi1:tform2;
begin
 zi1:=tform2.Create(Application);

end;

procedure TForm1.ToolButton2Click(Sender: TObject);
var
zi1:tform4;
begin
 zi1:=tform4.Create(Application);

end;

procedure TForm1.ToolButton6Click(Sender: TObject);
begin
form6.QuickRep1.Preview;
end;

procedure TForm1.ToolButton4Click(Sender: TObject);
var
zi1:tform14;
begin
 zi1:=tform14.Create(Application);

end;

procedure TForm1.ToolButton5Click(Sender: TObject);
var
zi1:tform13;
begin
 zi1:=tform13.Create(Application);

end;

procedure TForm1.ToolButton3Click(Sender: TObject);
begin
close;
end;

procedure TForm1.ToolButton15Click(Sender: TObject);
var
zi1:tform15;
begin
 zi1:=tform15.Create(Application);

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
statusbar1.Panels[2].Text:=timetostr(time);
 { with datamodule3.ADOTable3 do
     begin
      open;
      first;
    end; }
end;

procedure TForm1.ToolButton16Click(Sender: TObject);
var
zi1:tform10;
begin
 zi1:=tform10.Create(Application);
end;

procedure TForm1.N4Click(Sender: TObject);
begin
close;
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if MessageBox(Handle, '确定要退出本系统吗？', '退出提示',
                MB_YESNO or MB_ICONINFORMATION) = IDYes then
    CanClose := True
  else
    CanClose := False;
end;

procedure TForm1.N14Click(Sender: TObject);
var
zi1:tform16;
begin
 zi1:=tform16.Create(Application);

end;

procedure TForm1.N2Click(Sender: TObject);
var
zi1:tform10;
begin
 zi1:=tform10.Create(Application);

end;

end.