mainu.pas

图书管理系统

unit MainU;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, Menus, ToolWin, ExtCtrls, jpeg, StdCtrls, Buttons,
  ImgList,dbgrids;
type
  TMainF = class(TForm)
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    MainMenu1: TMainMenu;
    BookManagerMenu: TMenuItem;
    OperateMenu: TMenuItem;
    ExitMenu: TMenuItem;
    ImageList1: TImageList;
    CoolBar2: TCoolBar;
    ToolBar2: TToolBar;
    ModifyPassTB: TToolButton;
    BookInTB: TToolButton;

    ReturnLoginTB: TToolButton;
    LendBookTB: TToolButton;
    HuanBookTB: TToolButton;
    ReaderTB: TToolButton;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    ModifyPassMenu: TMenuItem;
    ReturnLoginMenu: TMenuItem;
    ReaderMenu: TMenuItem;
    QueryMenu: TMenuItem;
    ReaderQueryMenu: TMenuItem;
    BookQueryMenu: TMenuItem;
    HelpMenu: TMenuItem;
    NewReaderTB: TToolButton;
    BookQueryTB: TToolButton;
    ReaderQueryTB: TToolButton;
    UserQueryTB: TToolButton;
    UserManagerTB: TToolButton;
    AboutTB: TToolButton;
    N16: TMenuItem;
    N17: TMenuItem;
    LendBookMenu: TMenuItem;
    HuanBookMenu: TMenuItem;
    NewReaderMenu: TMenuItem;
    AboutMenu: TMenuItem;
    BookInMenu: TMenuItem;
    LendBookManagerMenu: TMenuItem;
    StockBookMenu: TMenuItem;
    UserMenu: TMenuItem;
    UserManagerMenu: TMenuItem;
    UserQueryMenu: TMenuItem;
    ToolButton29: TToolButton;
    ToolButton30: TToolButton;
    ToolButton31: TToolButton;
    ToolButton2: TToolButton;
    ExitTB: TToolButton;
    StockBookTB: TToolButton;  procedure ExitMenuClick(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure ReaderMenuClick(Sender: TObject);
    procedure NewReaderMenuClick(Sender: TObject);
    procedure LendBookMenuClick(Sender: TObject);
    procedure HuanBookMenuClick(Sender: TObject);
    procedure AboutMenuClick(Sender: TObject);
    procedure BookInMenuClick(Sender: TObject);
    procedure StockBookMenuClick(Sender: TObject);
    procedure UserManagerMenuClick(Sender: TObject);
    procedure ModifyPassMenuClick(Sender: TObject);
    procedure ReturnLoginMenuClick(Sender: TObject);
    procedure BookQueryMenuClick(Sender: TObject);
    procedure ReaderQueryMenuClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure UserQueryMenuClick(Sender: TObject);
  private
    { Private declarations }
    procedure WMNCPaint(var Msg : TWMNCPaint); message WM_NCPAINT;
  public
    { Public declarations }
    constructor Create(Aowner:TComponent);override;
  end;

var
  MainF: TMainF;


implementation

uses LogU,BookInU,StrUtils,ReaderU,NewReaderU,
     LendBookU, HuanBookU,ShareU,AboutU, StockBookU, UserManagerU,
     ModifyPasswordU,ShadowU, BookQueryU, ReaderQueryU, DataModule,
     UserQueryU;

{$R *.dfm}

procedure TMainF.WMNCPaint(var Msg: TWMNCPaint);
begin
  inherited;
  draw(Mainf); //ShareU
end;


constructor TMainF.Create(Aowner:TComponent);
begin
    inherited create(aowner);
    Mainf.Update;
    mainf.Show;
    CurUser:='';

    OpenForm(TLogF,LogF,MainF,true);  //打开登陆窗体

    if CurUser='' then
    begin
       application.Terminate;  //退出
    end
    else
    begin
      CurState:=true;  //登陆
    end;
end;

procedure TMainF.ExitMenuClick(Sender: TObject);
begin
if MessageDlg('确认退出图书管理系统吗？',
    mtConfirmation, [mbYes, mbNo], 0) = mrYes then
    application.Terminate;
end;

procedure TMainF.FormResize(Sender: TObject);
begin
    Mainf.Height:=84;
    Mainf.Width:=screen.Width;
    Coolbar1.Width:=Mainf.Width;
    Toolbar1.Width:=Coolbar1.Width;
    Coolbar2.Width:=Mainf.Width;
    Toolbar2.Width:=Coolbar1.Width;
end;

procedure TMainF.ReaderMenuClick(Sender: TObject);
begin
    OpenForm(TReaderF,ReaderF);
end;

procedure TMainF.NewReaderMenuClick(Sender: TObject);
begin
    OpenForm(TNewReaderF,NewReaderF);
end;

procedure TMainF.LendBookMenuClick(Sender: TObject);
begin
    OpenForm(TLendBookF,LendBookF);
end;

procedure TMainF.HuanBookMenuClick(Sender: TObject);
begin
    OpenForm(THuanBookF,HuanBookF);
end;

procedure TMainF.AboutMenuClick(Sender: TObject);
begin
    OpenForm(TAboutF,AboutF,MainF,true);
end;

procedure TMainF.BookInMenuClick(Sender: TObject);
begin
     OpenForm(TBOOKinF,BookInF);
end;

procedure TMainF.StockBookMenuClick(Sender: TObject);
begin
     OpenForm(TStockBookF,StockBookF);
end;

procedure TMainF.UserManagerMenuClick(Sender: TObject);
begin
    OpenForm(TUserManagerF,UserManagerF);
end;

procedure TMainF.ModifyPassMenuClick(Sender: TObject);
begin
    OpenForm(TModifyPasswordF,ModifyPasswordF,MainF,true);
end;

procedure TMainF.ReturnLoginMenuClick(Sender: TObject);
begin
    OpenForm(TLogF,LogF,MainF,true);
end;

procedure TMainF.BookQueryMenuClick(Sender: TObject);
begin
     OpenForm(TBookQueryF,BookQueryF);
end;

procedure TMainF.ReaderQueryMenuClick(Sender: TObject);
begin
     OpenForm(TReaderQueryF,ReaderQueryF);
end;

procedure TMainF.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if MessageDlg('确认退出图书管理系统吗？',mtConfirmation, [mbYes, mbNo], 0) = mrYes then
  begin
    if curuser<>'' then
       dm.SaveUserLongin(curuser,false);
    application.Terminate;
  end
  else
    action:=caNone;
end;

procedure TMainF.UserQueryMenuClick(Sender: TObject);
begin
    OpenForm(TUserQueryF,UserQueryF);
end;

end.