browse_users.pas

该是一个比较好的图书馆系统,是现在大学生软件课程设计的好模板

unit browse_users;

interface

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

type
  Tbrowse_user = class(TForm)
    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;
    BitBtn1: TBitBtn;
    Image1: TImage;
    procedure N2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
   // procedure Button1Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  browse_user: Tbrowse_user;

implementation
uses borrow_history,about_inf,account_information,login,seek_book,search_self,end_warn,user_lost;

{$R *.dfm}

procedure Tbrowse_user.N2Click(Sender: TObject);
begin
close;
end;

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


procedure Tbrowse_user.N5Click(Sender: TObject);
begin
seekbook.Visible:=true;
end;

procedure Tbrowse_user.N4Click(Sender: TObject);
begin
searchself.Visible:=true;
end;

procedure Tbrowse_user.N6Click(Sender: TObject);
begin
endwarn.show;
end;

procedure Tbrowse_user.N11Click(Sender: TObject);
begin
userlost.Visible:=true;
end;

procedure Tbrowse_user.N9Click(Sender: TObject);
begin
about.Visible:=true;
end;

procedure Tbrowse_user.N12Click(Sender: TObject);
begin
borrowhistory.show;
end;

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

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

end.