main.pas

来自「图书馆管理系统设计用delphi开发的系统」· PAS 代码 · 共 181 行

unit main;

interface

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

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    k_longin: TMenuItem;
    N5: TMenuItem;
    k_exit: TMenuItem;
    N2: TMenuItem;
    k_new: TMenuItem;
    k_arrange: TMenuItem;
    N11: TMenuItem;
    k_reg: TMenuItem;
    k_infomgr: TMenuItem;
    N3: TMenuItem;
    k_query: TMenuItem;
    N4: TMenuItem;
    k_about: TMenuItem;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    BitBtn2: TBitBtn;
    ToolButton2: TToolButton;
    BitBtn1: TBitBtn;
    ToolBar2: TToolBar;
    BitBtn3: TBitBtn;
    ToolButton3: TToolButton;
    BitBtn8: TBitBtn;
    ToolButton1: TToolButton;
    BitBtn7: TBitBtn;
    ToolButton5: TToolButton;
    BitBtn6: TBitBtn;
    ToolButton4: TToolButton;
    BitBtn5: TBitBtn;
    ToolButton6: TToolButton;
    BitBtn9: TBitBtn;
    ToolButton7: TToolButton;
    BitBtn4: TBitBtn;
    Image1: TImage;
    N6: TMenuItem;
    N7: TMenuItem;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn9Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure k_longinClick(Sender: TObject);
    procedure k_exitClick(Sender: TObject);
    procedure k_newClick(Sender: TObject);
    procedure k_arrangeClick(Sender: TObject);
    procedure k_queryClick(Sender: TObject);
    procedure k_regClick(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure k_infomgrClick(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure k_aboutClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses exit, newbook, deletebook, findbook, inserdreader, deletereader, updatereader, guanli,
  Unit3,  aboutUnit5;

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
form2.show;
end;

procedure TForm1.BitBtn3Click(Sender: TObject);
begin
newbookform3.show;
end;

procedure TForm1.BitBtn8Click(Sender: TObject);
begin
 deletebookform4.show;
end;

procedure TForm1.BitBtn7Click(Sender: TObject);
begin
findbookform5.show;
end;

procedure TForm1.BitBtn6Click(Sender: TObject);
begin
readerform6.show;
end;

procedure TForm1.BitBtn5Click(Sender: TObject);
begin
deletereaderform7.show;
end;

procedure TForm1.BitBtn9Click(Sender: TObject);
begin
  updateform8.show;
end;

procedure TForm1.BitBtn4Click(Sender: TObject);
begin
guanliform9.show;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
form1.Hide;
form3.show;
end;

procedure TForm1.k_longinClick(Sender: TObject);
begin
form1.Hide;
form3.show;
end;

procedure TForm1.k_exitClick(Sender: TObject);
begin
form2.show;
end;

procedure TForm1.k_newClick(Sender: TObject);
begin
newbookform3.show;
end;

procedure TForm1.k_arrangeClick(Sender: TObject);
begin
 deletebookform4.show;
end;

procedure TForm1.k_queryClick(Sender: TObject);
begin
findbookform5.show;
end;

procedure TForm1.k_regClick(Sender: TObject);
begin
guanliform9.show;
end;

procedure TForm1.N7Click(Sender: TObject);
begin
deletereaderform7.show;
end;

procedure TForm1.k_infomgrClick(Sender: TObject);
begin
readerform6.show;
end;

procedure TForm1.N6Click(Sender: TObject);
begin
updateform8.show;
end;

procedure TForm1.k_aboutClick(Sender: TObject);
begin
about.show;
end;

end.