main.pas

图书馆管理系统代码deiphi

unit Main;

interface

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

type
    TMainForm = class(TForm)
        MainMenu: TMainMenu;
        menuSystem: TMenuItem;
        menuSLogin: TMenuItem;
        menuSQuit: TMenuItem;
        menuSReader: TMenuItem;
        menuSRight: TMenuItem;
        menuBook: TMenuItem;
        menuBIn: TMenuItem;
        menuBClass: TMenuItem;
        menuBModify: TMenuItem;
        menuBLend: TMenuItem;
        menuBSearch: TMenuItem;
        ImageBackgroud: TImage;
        btnBookLend: TSpeedButton;
        btnBookIn: TSpeedButton;
        btnBookModify: TSpeedButton;
        btnBookSearch: TSpeedButton;
        btnBookClass: TSpeedButton;
        btnLogin: TSpeedButton;
        btnRightSetting: TSpeedButton;
        btnReaderSetting: TSpeedButton;
        btnQuit: TSpeedButton;
        procedure menuSLoginClick(Sender: TObject);
        procedure FormClose(Sender: TObject; var Action: TCloseAction);
        procedure menuSRightClick(Sender: TObject);
        procedure menuSQuitClick(Sender: TObject);
        procedure menuSReaderClick(Sender: TObject);
        procedure btnLoginClick(Sender: TObject);
        procedure btnRightSettingClick(Sender: TObject);
        procedure btnReaderSettingClick(Sender: TObject);
        procedure btnQuitClick(Sender: TObject);
        procedure menuBClassClick(Sender: TObject);
        procedure btnBookClassClick(Sender: TObject);
        procedure menuBInClick(Sender: TObject);
        procedure btnBookInClick(Sender: TObject);
        procedure menuBModifyClick(Sender: TObject);
        procedure btnBookModifyClick(Sender: TObject);
        procedure menuBLendClick(Sender: TObject);
        procedure btnBookLendClick(Sender: TObject);
        procedure menuBSearchClick(Sender: TObject);
        procedure btnBookSearchClick(Sender: TObject);
        procedure FormCreate(Sender: TObject);
    end;

var
    MainForm: TMainForm;

implementation

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

{$r *.dfm}

procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin

end;

//登陆主操作界面
procedure TMainForm.btnLoginClick(Sender: TObject);
begin
    if menuSLogin.Enabled then
        menuSLoginClick(Sender) ;
end;

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

//权限设置
procedure TMainForm.btnRightSettingClick(Sender: TObject);
begin
    if menuSRight.Enabled then
        menuSRightClick(Sender);
end;

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

//退出系统
procedure TMainForm.btnQuitClick(Sender: TObject);
begin
    if menuSQuit.Enabled then
        menuSQuitClick(Sender);
end;

procedure TMainForm.menuSQuitClick(Sender: TObject);
begin
    close;
end;

//读者设置
procedure TMainForm.btnReaderSettingClick(Sender: TObject);
begin
    if menuSReader.Enabled then
        menuSReaderClick(Sender);
end;

procedure TMainForm.menuSReaderClick(Sender: TObject);
begin
    if frmReaderSetting=nil then
        frmReaderSetting:=TfrmReaderSetting.create(frmReaderSetting);
    frmReaderSetting.ShowModal;
end;

//设置书籍类别
procedure TMainForm.menuBClassClick(Sender: TObject);
begin
    if frmBookClassSetting=nil then
        frmBookClassSetting:=TfrmBookClassSetting.create(frmBookClassSetting);
    frmBookClassSetting.ShowModal;
end;

procedure TMainForm.btnBookClassClick(Sender: TObject);
begin
    if menuBClass.Enabled then
        menuBClassClick(Sender);
end;

//新书入库
procedure TMainForm.menuBInClick(Sender: TObject);
begin
    if frmBookIn=nil then
        frmBookIn:=TfrmBookIn.create(frmBookIn);
    frmBookIn.ShowModal;
end;

procedure TMainForm.btnBookInClick(Sender: TObject);
begin
    if menuBIn.Enabled then
        menuBInClick(Sender);
end;

//图书信息修改
procedure TMainForm.menuBModifyClick(Sender: TObject);
begin
    if frmBookModify=nil then
        frmBookModify:=TfrmBookModify.create(frmBookModify);
    frmBookModify.ShowModal;
end;

procedure TMainForm.btnBookModifyClick(Sender: TObject);
begin
    if menuBModify.Enabled then
        menuBModifyClick(Sender);
end;

//图书借还管理
procedure TMainForm.menuBLendClick(Sender: TObject);
begin
    if frmBookLend=nil then
        frmBookLend:=TfrmBookLend.create(frmBookLend);
    frmBookLend.ShowModal;
end;

procedure TMainForm.btnBookLendClick(Sender: TObject);
begin
    if menuBLend.Enabled then
        menuBLendClick(Sender);
end;

//图书查询
procedure TMainForm.menuBSearchClick(Sender: TObject);
begin
    if frmBookSearch=nil then
        frmBookSearch:=TfrmBookSearch.create(frmBookSearch);
    frmBookSearch.ShowModal;
end;

procedure TMainForm.btnBookSearchClick(Sender: TObject);
begin
    if menuBSearch.Enabled then
        menuBSearchClick(Sender);
end;


procedure TMainForm.FormCreate(Sender: TObject);
begin
    if frmLogin = nil then
        frmLogin := TfrmLogin.Create(nil);
    frmLogin.ShowModal;
    //if frmLogin.ShowModal = mrCancel then
    //    Application.Terminate;
end;

end.