mainunit.pas

图书馆管理系统,非常有用,希望给你带来帮助

unit MainUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ImgList, XPMenu, ComCtrls, ToolWin,shellApi;

type
  TMainForm = class(TForm)
    MainMenu1: TMainMenu;
    G1: TMenuItem;
    T11: TMenuItem;
    T12: TMenuItem;
    T13: TMenuItem;
    T14: TMenuItem;
    G2: TMenuItem;
    T21: TMenuItem;
    T22: TMenuItem;
    T23: TMenuItem;
    T24: TMenuItem;
    T25: TMenuItem;
    G3: TMenuItem;
    T31: TMenuItem;
    T32: TMenuItem;
    T33: TMenuItem;
    T34: TMenuItem;
    T35: TMenuItem;
    T36: TMenuItem;
    G4: TMenuItem;
    T41: TMenuItem;
    T43: TMenuItem;
    T44: TMenuItem;
    T45: TMenuItem;
    T42: TMenuItem;
    G5: TMenuItem;
    T51: TMenuItem;
    T52: TMenuItem;
    T53: TMenuItem;
    XPMenu1: TXPMenu;
    ImageList1: TImageList;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    ToolButton12: TToolButton;
    ToolButton13: TToolButton;
    ToolButton14: TToolButton;
    ToolButton15: TToolButton;
    ToolButton16: TToolButton;
    ToolButton17: TToolButton;
    ToolButton18: TToolButton;
    ToolButton19: TToolButton;
    ToolButton20: TToolButton;
    ToolButton21: TToolButton;
    ToolButton22: TToolButton;
    ToolButton23: TToolButton;
    ToolButton24: TToolButton;
    T37: TMenuItem;
    ToolButton25: TToolButton;
    procedure T11Click(Sender: TObject);
    procedure T12Click(Sender: TObject);
    procedure T14Click(Sender: TObject);
    procedure T21Click(Sender: TObject);
    procedure T22Click(Sender: TObject);
    procedure T24Click(Sender: TObject);
    procedure T25Click(Sender: TObject);
    procedure T31Click(Sender: TObject);
    procedure T32Click(Sender: TObject);
    procedure T34Click(Sender: TObject);
    procedure T35Click(Sender: TObject);
    procedure T36Click(Sender: TObject);
    procedure T37Click(Sender: TObject);
    procedure T41Click(Sender: TObject);
    procedure T43Click(Sender: TObject);
    procedure T44Click(Sender: TObject);
    procedure T45Click(Sender: TObject);
    procedure T51Click(Sender: TObject);
    procedure T52Click(Sender: TObject);
    procedure T53Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
    procedure WMNCpaint(var Msg:TWMNCPaint); message WM_NCPAINT;
  public
    { Public declarations }
    constructor Create(Aowner:TComponent);override;
  end;

var
  MainForm: TMainForm;

implementation
uses DMUnit,OtherInfoUnit,Share,AboutUnit,LogUnit,ReadUnit,UserUnit,BuyUnit,
     BookQueryUnit,PassUnit, LoginUnit,ShowUnit,LendUnit,ReturnUnit;

{$R *.dfm}

procedure TMainForm.WMNCpaint(var Msg: TWMNCPaint);
begin
  inherited;
  Draw(MainForm);
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
  top:=0;
  left:=0;
  width:=screen.Width;
end;

constructor TMainForm.Create(Aowner: TComponent);
begin
  inherited Create(Aowner);
  
  top:=0;
  left:=0;
  width:=screen.Width;

  curusername:='';
  OpenForm(TLoginForm,LoginForm,MainForm,True);

  if curusername='' then
    application.Terminate
  else
    OpenForm(TShowForm,ShowForm);
end;

procedure TMainForm.T11Click(Sender: TObject);
begin
  OpenForm(TPassForm,PassForm,MainForm,True);
end;

procedure TMainForm.T12Click(Sender: TObject);
begin
  CloseAllForm;
  curusername:='';
  OpenForm(TLoginForm,LoginForm,MainForm,True);
end;

procedure TMainForm.T14Click(Sender: TObject);
begin
  Application.Terminate;
end;

procedure TMainForm.T21Click(Sender: TObject);
begin
  OpenForm(TLendForm,LendForm);
end;

procedure TMainForm.T22Click(Sender: TObject);
begin
  OpenForm(TReturnForm,ReturnForm);
end;

procedure TMainForm.T24Click(Sender: TObject);
begin
  OpenForm(TBuyForm,BuyForm);
end;

procedure TMainForm.T25Click(Sender: TObject);
begin
  OpenForm(TBookQueryForm,BookQueryForm);
end;

procedure TMainForm.T31Click(Sender: TObject);
begin
  OpenForm(TReadForm,ReadForm);
end;

procedure TMainForm.T32Click(Sender: TObject);
begin
  OpenForm(TUserForm,UserForm);
end;

procedure TMainForm.T34Click(Sender: TObject);
begin
  OpenForm(TOtherInfoForm,OtherInfoForm);
  Otherinfoform.PageControl1.ActivePageIndex:=0;
end;

procedure TMainForm.T35Click(Sender: TObject);
begin
  OpenForm(TOtherInfoForm,OtherInfoForm);
  Otherinfoform.PageControl1.ActivePageIndex:=1;
end;

procedure TMainForm.T36Click(Sender: TObject);
begin
  OpenForm(TOtherInfoForm,OtherInfoForm);
  Otherinfoform.PageControl1.ActivePageIndex:=2;
end;

procedure TMainForm.T37Click(Sender: TObject);
begin
  OpenForm(TOtherInfoForm,OtherInfoForm);
  Otherinfoform.PageControl1.ActivePageIndex:=3;
end;

procedure TMainForm.T41Click(Sender: TObject);
begin
  OpenForm(TLogForm,LogForm);
  LogForm.PageControl1.ActivePageIndex:=1;
end;

procedure TMainForm.T43Click(Sender: TObject);
begin
  OpenForm(TLogForm,LogForm);
  LogForm.PageControl1.ActivePageIndex:=0;
end;

procedure TMainForm.T44Click(Sender: TObject);
begin
  OpenForm(TLogForm,LogForm);
  LogForm.PageControl1.ActivePageIndex:=2;
end;

procedure TMainForm.T45Click(Sender: TObject);
begin
  OpenForm(TLogForm,LogForm);
  LogForm.PageControl1.ActivePageIndex:=3;
end;

procedure TMainForm.T51Click(Sender: TObject);
begin
  ShowMessage('请看help.chm文件！^_^');
end;

procedure TMainForm.T52Click(Sender: TObject);
begin
  OpenForm(TAboutForm,AboutForm,MainForm,True);
end;

procedure TMainForm.T53Click(Sender: TObject);
begin
  ShellExecute(handle,nil,pchar('mailto:[e-mail]'),nil,nil,sw_shownormal);
end;

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

end.