browse.pas

来自「该是一个比较好的图书馆系统,是现在大学生软件课程设计的好模板」· PAS 代码 · 共 157 行

unit browse;

interface

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

type
  Tbrowser = class(TForm)
    MainMenu1: TMainMenu;
    file1: TMenuItem;
    close1: TMenuItem;
    N1: TMenuItem;
    N2: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    BitBtn1: TBitBtn;
    Image1: TImage;
    N3: TMenuItem;
    N14: TMenuItem;
    N18: TMenuItem;
   // procedure Button1Click(Sender: TObject);
    procedure close1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure N2Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    { Private declarations }
  public
    { Public declarations }
  end;

var
  browser: Tbrowser;

implementation

uses new_manage,give_up,about_inf,account_information,login,seek_user,seek_book,end_data,borrow_return,card_lost,borrow_card,num_set,new_book,book_arrange;

{$R *.dfm}
procedure Tbrowser.close1Click(Sender: TObject);
begin
close;
end;



 
procedure Tbrowser.FormClose(Sender: TObject; var Action: TCloseAction);
begin
account_inf.show;
end;

procedure Tbrowser.N2Click(Sender: TObject);
begin
borrow.visible:=true;
end;

procedure Tbrowser.N16Click(Sender: TObject);
begin
cardlost.visible:=true;
end;



procedure Tbrowser.N4Click(Sender: TObject);
begin
borrowcard.visible:=true;
end;

procedure Tbrowser.N15Click(Sender: TObject);
begin
numset.Visible:=true;
end;

procedure Tbrowser.N6Click(Sender: TObject);
begin
newbook.Visible:=true;
end;

procedure Tbrowser.N7Click(Sender: TObject);
begin
bookarrange.Visible:=true;
end;

procedure Tbrowser.N9Click(Sender: TObject);
begin
seekuser.Visible:=true
end;

procedure Tbrowser.N10Click(Sender: TObject);
begin
seekbook.Visible:=true;
end;

procedure Tbrowser.N17Click(Sender: TObject);
begin
enddata.Visible:=true;
end;

procedure Tbrowser.N13Click(Sender: TObject);
begin
about.Visible:=true;
end;

procedure Tbrowser.BitBtn1Click(Sender: TObject);
begin
close;
end;

procedure Tbrowser.N3Click(Sender: TObject);
begin
giveup.show;
end;

procedure Tbrowser.N12Click(Sender: TObject);
var
curdir:string;
ravefile:string;
begin
getdir(0,curdir);
ravefile:=curdir+'\软件课程设计HELP.HLP';
application.HelpFile:=ravefile;
application.HelpJump('LIBRARY_CONTENT');

end;

procedure Tbrowser.N18Click(Sender: TObject);
begin
newmanage.Visible:=true;
end;

end.