unit1.pas

这个是我自主研发的图书管理系统的应用

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Image1: TImage;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N9: TMenuItem;
    N13: TMenuItem;
    Login1: TMenuItem;
    procedure N7Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure Login1Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
  username1:string;
implementation

{$R *.dfm}
uses unit2,unit3,unit4,unit5,unit6,unit7,unit8,unit9,unit10,unit12;

procedure TForm1.N7Click(Sender: TObject);
begin
  Application.Terminate;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   N1.Enabled:=false;
   N8.Enabled:=false;
   N10.Enabled:=false;
end;
procedure TForm1.N2Click(Sender: TObject);
begin
  animatewindow(handle,1000,aw_hide or aw_center);
  form1.Hide;
  Application.CreateForm(Tform3,form3);
  animatewindow(form3.handle,1000,aw_Activate or aw_center);
  form3.Show;
end;
procedure TForm1.N3Click(Sender: TObject);
begin
  animatewindow(handle,1000,aw_hide or aw_center);
  form1.Hide;
  Application.CreateForm(Tform4,form4);
  animatewindow(form4.handle,1000,aw_Activate or aw_center);
  form4.Show;
end;
procedure TForm1.N4Click(Sender: TObject);
begin
   animatewindow(handle,1000,aw_hide or aw_center);
  form1.Hide;
  Application.CreateForm(Tform5,form5);
  animatewindow(form5.handle,1000,aw_Activate or aw_center);
  form5.Show;
end;
procedure TForm1.N5Click(Sender: TObject);
begin
   animatewindow(handle,1000,aw_hide or aw_center);
  form1.Hide;
  Application.CreateForm(Tform6,form6);
  animatewindow(form6.handle,1000,aw_Activate or aw_center);
  form6.Show;
end;
procedure TForm1.N8Click(Sender: TObject);
begin
  animatewindow(handle,1000,aw_hide or aw_center);
  form1.Hide;
  Application.CreateForm(Tform7,form7);
  animatewindow(form7.handle,1000,aw_Activate or aw_center);
  form7.Show;
end;
procedure TForm1.N11Click(Sender: TObject);
begin
  animatewindow(handle,1000,aw_hide or aw_center);
  form1.Hide;
  Application.CreateForm(Tform8,form8);
  animatewindow(form8.handle,1000,aw_Activate or aw_center);
  form8.Show;
end;
procedure TForm1.N12Click(Sender: TObject);
begin
  animatewindow(handle,1000,aw_hide or aw_center);
  form1.Hide;
  Application.CreateForm(Tform9,form9);
  animatewindow(form9.handle,1000,aw_Activate or aw_center);
  form9.Show;
  end;
procedure TForm1.N9Click(Sender: TObject);
begin
  animatewindow(handle,1000,aw_hide or aw_center);
  form1.Hide;
  Application.CreateForm(Tform10,form10);
  animatewindow(form10.handle,1000,aw_Activate or aw_center);
  form10.Show;
end;
procedure TForm1.Login1Click(Sender: TObject);
begin
form2.ShowModal;
end;
procedure TForm1.N13Click(Sender: TObject);
begin
form1.Hide;
form11.show;
end;

end.