umain.pas

图书管系统

unit uMain;

interface

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

type
  TfrmMain = class(TForm)
    MainMenu1: TMainMenu;
    ToolBar1: TToolBar;
    bntReader: TSpeedButton;
    bntBookStore: TSpeedButton;
    bntBook: TSpeedButton;
    bntBookInfo: TSpeedButton;
    bntUser: TSpeedButton;
    bntQuit: TSpeedButton;
    Panel1: TPanel;
    N1: TMenuItem;
    menuRLogin: TMenuItem;
    menuUser: TMenuItem;
    N4: TMenuItem;
    menuQuit: TMenuItem;
    N2: TMenuItem;
    menuBookSeach: TMenuItem;
    menuBookLend: TMenuItem;
    N6: TMenuItem;
    menuBookIn: TMenuItem;
    menuBookModify: TMenuItem;
    menuBookClass: TMenuItem;
    N10: TMenuItem;
    menuReader: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure bntUserClick(Sender: TObject);
    procedure bntBookInfoClick(Sender: TObject);
    procedure menuBookModifyClick(Sender: TObject);
    procedure menuBookClassClick(Sender: TObject);
    procedure menuBookInClick(Sender: TObject);
    procedure bntBookClick(Sender: TObject);
    procedure bntReaderClick(Sender: TObject);
    procedure bntBookStoreClick(Sender: TObject);
    procedure bntQuitClick(Sender: TObject);
    procedure menuRLoginClick(Sender: TObject);
    procedure menuUserClick(Sender: TObject);
    procedure menuQuitClick(Sender: TObject);
    procedure menuBookSeachClick(Sender: TObject);
    procedure menuBookLendClick(Sender: TObject);
    procedure menuReaderClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmMain: TfrmMain;

implementation

uses uLogin, uRightsSetting, uBookSearch, uBookModify, uBookClassSetting,
  uBookIn, uBookLend, uReader;

{$R *.dfm}

procedure TfrmMain.FormCreate(Sender: TObject);
begin
    if frmLogin = nil then
        frmLogin := TfrmLogin.Create(nil);
    frmLogin.ShowModal;
end;

procedure TfrmMain.bntUserClick(Sender: TObject);
begin
   if frmRightSetting = nil then
        frmRightSetting := TfrmRightSetting.Create(nil);
   frmRightSetting.ShowModal ;
end;

procedure TfrmMain.bntBookInfoClick(Sender: TObject);
begin

  if frmBookSearch = nil then
        frmBookSearch := TfrmBookSearch.Create(nil);
   frmBookSearch.ShowModal ;
end;

procedure TfrmMain.menuBookModifyClick(Sender: TObject);
begin
    bntBookStoreClick(Sender);

end;

procedure TfrmMain.menuBookClassClick(Sender: TObject);
begin

if frmBookClassSetting = nil then
        frmBookClassSetting := TfrmBookClassSetting.Create(nil);
   frmBookClassSetting.ShowModal ;
end;

procedure TfrmMain.menuBookInClick(Sender: TObject);
begin

if frmBookIn = nil then
        frmBookIn := TfrmBookIn.Create(nil);
   frmBookIn.ShowModal ;
end;

procedure TfrmMain.bntBookClick(Sender: TObject);
begin

if frmBookLend = nil then
        frmBookLend := TfrmBookLend.Create(nil);
   frmBookLend.ShowModal ;
end;

procedure TfrmMain.bntReaderClick(Sender: TObject);
begin

if frmReaderSetting = nil then
        frmReaderSetting := TfrmReaderSetting.Create(nil);
   frmReaderSetting.ShowModal ;
end;

procedure TfrmMain.bntBookStoreClick(Sender: TObject);
begin
  if frmBookModify = nil then
        frmBookModify := TfrmBookModify.Create(nil);
   frmBookModify.ShowModal ;
end;

procedure TfrmMain.bntQuitClick(Sender: TObject);
begin
  close;
end;

procedure TfrmMain.menuRLoginClick(Sender: TObject);
begin
    if frmLogin = nil then
        frmLogin := TfrmLogin.Create(nil);
    frmLogin.ShowModal;
end;

procedure TfrmMain.menuUserClick(Sender: TObject);
begin
    bntUserClick(Sender);
end;

procedure TfrmMain.menuQuitClick(Sender: TObject);
begin
        close;
end;

procedure TfrmMain.menuBookSeachClick(Sender: TObject);
begin
 bntBookInfoClick(Sender);
end;

procedure TfrmMain.menuBookLendClick(Sender: TObject);
begin
    bntBookClick(Sender);
end;

procedure TfrmMain.menuReaderClick(Sender: TObject);
begin
   bntReaderClick(Sender);
end;

end.