unit_main.pas

图书管理系统。可以实现简单的图书管理

unit Unit_main;

interface

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

type
  TForm2 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Timer1: TTimer;
    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;
    ToolBar1: TToolBar;
    ImageList1: TImageList;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    N27: TMenuItem;
    procedure Timer1Timer(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure N4Click(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure N24Click(Sender: TObject);
    procedure N27Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;
  i:integer;
implementation

uses bookinsert, bookdelete, bookupdate, Unit12_jydj, Unit_readadd,
  Unit_shenfen, booksearch, Unit_readupdate;


{$R *.dfm}

procedure TForm2.Timer1Timer(Sender: TObject);
begin
 if (label1.Left+label1.width>0)and (i=0) then
begin
    label1.left:=label1.left-10 ;
    if label1.left+label1.width<0 then
     begin
     label1.left:=label1.left+10 ;
     i:=1;
     end ;

end ;
 if  (label1.Left+label1.width>0)and (i=1) then
      label1.left:=label1.left+10 ;
     if label1.left>form2.width then
     begin
        label1.left:=label1.left-10;
        i:=0;
     end;
end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
//form1.close;
end;

procedure TForm2.N4Click(Sender: TObject);
begin
form2.close;
//form1.Show;
end;

procedure TForm2.ToolButton7Click(Sender: TObject);

begin
 form2.Close;


  
end;


procedure TForm2.ToolButton1Click(Sender: TObject);
begin
  form3.show;
  
end;

procedure TForm2.N5Click(Sender: TObject);
begin
form3.show;
end;

procedure TForm2.N7Click(Sender: TObject);
begin
  Form4.show;
end;

procedure TForm2.ToolButton2Click(Sender: TObject);
begin
form4.show;
end;

procedure TForm2.ToolButton3Click(Sender: TObject);
begin
 form5.show;
end;

procedure TForm2.N6Click(Sender: TObject);
begin
 form6.show;
end;

procedure TForm2.N17Click(Sender: TObject);
begin
//form8.show;
end;

procedure TForm2.N18Click(Sender: TObject);
begin
 //form9.show;
end;

procedure TForm2.N19Click(Sender: TObject);
begin
  // form10.combobox1.clear;
 // form10.show;
end;

procedure TForm2.N20Click(Sender: TObject);
begin
//form11.show;
end;

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

procedure TForm2.N13Click(Sender: TObject);
begin
form12.show;
form12.bitbtn1.visible:=true;
form12.bitbtn3.visible:=false;
end;

procedure TForm2.N14Click(Sender: TObject);
begin
form12.show;
form12.bitbtn1.visible:=false;
form12.bitbtn3.visible:=true;
end;

procedure TForm2.N10Click(Sender: TObject);
begin
//form13.show;
end;

procedure TForm2.N15Click(Sender: TObject);
begin
//form14.show;
end;

procedure TForm2.N9Click(Sender: TObject);
begin
readeradd.show;
end;

procedure TForm2.N22Click(Sender: TObject);
begin
//form17.show;
end;

procedure TForm2.N23Click(Sender: TObject);
begin
//form18.show;
end;

procedure TForm2.N24Click(Sender: TObject);
begin
//form19.show;
end;

procedure TForm2.N27Click(Sender: TObject);
begin
 shenfen1.show;
end;

procedure TForm2.N11Click(Sender: TObject);
begin
readupdate.show;
end;

end.