main.~pas

一个简单的DELPHI的图书管理系统,具有一般图书管理系统的基本功能!-

unit Main;

interface

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

type
  TMainForm = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    E1: TMenuItem;
 
    procedure E1Click(Sender: TObject);

    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 N20Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N24Click(Sender: TObject);
    procedure N11Click(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,about, login,
  password, setuser;

{$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.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.N1.Enabled:=false;
             mainform.N7.Enabled:=false;
             end;
end;

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

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

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

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

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

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

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

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

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



end.