main.pas

图书管理系统delphi.rar是用delphi编写的管理系统,清析的讲述了图书管的全部运行流程.对delphi有了解的人可以通过对这个管理系统的学习进一步得到提高.

unit Main;

interface

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

type
  TMainForm = class(TForm)
    Image1: TImage;
    ToolBar1: TToolBar;
    ToolBar2: TToolBar;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn9: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N24: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N23: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N24Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
  private
    { Private declarations }
  public
    Logined:Boolean;
    { Public declarations }
  end;

var
  MainForm: TMainForm;
  MyPath:String;

const
  MyPassW='123456';

implementation

uses Book, Reader, Lend, InfoQuery, guanyixitong, about2, bangzhu, denglu,
  xiugaimima, yonghushezhi;

{$R *.dfm}

procedure TMainForm.FormCreate(Sender: TObject);
begin
  MyPath:=ExtractFilePath(ParamStr(0));
  ShortDateFormat:='yyyy/mm/dd';
end;

procedure TMainForm.BitBtn1Click(Sender: TObject);
begin
  BookForm.Show;
end;

procedure TMainForm.BitBtn2Click(Sender: TObject);
begin
  ReaderForm.Show;
end;

procedure TMainForm.BitBtn3Click(Sender: TObject);
begin
  LendForm.Show;
end;

procedure TMainForm.BitBtn4Click(Sender: TObject);
begin
if messagedlg('真的要注销系统吗？',mtconfirmation,[mbYes,mbNo],0)=mryes
then
begin
             mainform.toolbar1.Visible:=false;
             mainform.toolbar2.Visible:=false;
             mainform.N1.Enabled:=false;
             mainform.N7.Enabled:=false;

end;
end;

procedure TMainForm.BitBtn5Click(Sender: TObject);
begin
  QueryForm.Show;
end;

procedure TMainForm.N2Click(Sender: TObject);
begin
BookForm.Show;
end;

procedure TMainForm.N3Click(Sender: TObject);
begin
ReaderForm.Show;
end;

procedure TMainForm.N4Click(Sender: TObject);
begin
 LendForm.Show;
end;

procedure TMainForm.N6Click(Sender: TObject);
begin
if messagedlg('真的要注销系统吗？',mtconfirmation,[mbYes,mbNo],0)=mryes
then
begin
             mainform.toolbar1.Visible:=false;
             mainform.toolbar2.Visible:=false;
             mainform.N1.Enabled:=false;
             mainform.N7.Enabled:=false;

             end;
end;

procedure TMainForm.N8Click(Sender: TObject);
begin
 QueryForm.Show;
end;

procedure TMainForm.N9Click(Sender: TObject);
begin
  QueryForm.Show;
end;

procedure TMainForm.N10Click(Sender: TObject);
begin
 QueryForm.Show;
end;

procedure TMainForm.N12Click(Sender: TObject);
begin

if messagedlg('真的要注销系统吗？',mtconfirmation,[mbYes,mbNo],0)=mryes
then
begin
            mainform.toolbar1.Visible:=false;
             mainform.toolbar2.Visible:=false;

             mainform.N1.Enabled:=false;
             mainform.N7.Enabled:=false;

             end;
end;

procedure TMainForm.N14Click(Sender: TObject);
begin
AboutForm.Show;
end;

procedure TMainForm.N16Click(Sender: TObject);
begin
WomenForm.show
end;

procedure TMainForm.N18Click(Sender: TObject);
begin
HelpFrom.show;
end;

procedure TMainForm.N20Click(Sender: TObject);
begin
dengluFrom.show;
end;

procedure TMainForm.N22Click(Sender: TObject);
begin
if messagedlg('真的要退出系统吗？',mtconfirmation,[mbYes,mbNo],0)=mryes then Close;
end;

procedure TMainForm.N5Click(Sender: TObject);
begin
yonghushezhiform.show;
end;

procedure TMainForm.N24Click(Sender: TObject);
begin
if messagedlg('真的要注销系统吗？',mtconfirmation,[mbYes,mbNo],0)=mryes
then
begin
            mainform.toolbar1.Visible:=false;
             mainform.toolbar2.Visible:=false;

             mainform.N1.Enabled:=false;
             mainform.N7.Enabled:=false;

             end;
end;

procedure TMainForm.N11Click(Sender: TObject);
begin
xiugaiform.show;
end;

procedure TMainForm.N23Click(Sender: TObject);
begin
if messagedlg('真的要注销系统吗？',mtconfirmation,[mbYes,mbNo],0)=mryes
then
begin
            mainform.toolbar1.Visible:=false;
             mainform.toolbar2.Visible:=false;

             mainform.N1.Enabled:=false;
             mainform.N7.Enabled:=false;

             end;
end;

end.