main.pas

图书馆管理系统

unit Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ComCtrls, jpeg, ExtCtrls,addrtype,QStdCtrls;

type
  TfrmMain = class(TForm)
    StatusBar: TStatusBar;
    MainMenu: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    N27: TMenuItem;
    N28: TMenuItem;
    N29: TMenuItem;
    N30: TMenuItem;
    N31: TMenuItem;
    N32: TMenuItem;
    N33: TMenuItem;
    N34: TMenuItem;
    N35: TMenuItem;
    About1: TMenuItem;
    Image1: TImage;
    N36: TMenuItem;
    N38: TMenuItem;
    N39: TMenuItem;
    N40: TMenuItem;
    N41: TMenuItem;
    N42: TMenuItem;
    N43: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure N28Click(Sender: TObject);
    procedure N29Click(Sender: TObject);
    procedure N31Click(Sender: TObject);
    procedure N30Click(Sender: TObject);
    procedure N34Click(Sender: TObject);
    procedure N33Click(Sender: TObject);
    procedure N32Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N41Click(Sender: TObject);
    procedure N40Click(Sender: TObject);
    procedure N36Click(Sender: TObject);
    procedure N38Click(Sender: TObject);
    procedure N43Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N39Click(Sender: TObject);
    procedure N42Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmMain: TfrmMain;
implementation

uses Login, LendBook, LendList,LendSearch, ReturnSearch, ReturnList,
     ReturnBook, reader, Unit2, Unit1, Unit3, Unit5, Unit4, Unit7,readerpercent,
     locatereader, copy, Unit9,Unit12,Unit13, Unit14,Unit15;
{$R *.dfm}

procedure TfrmMain.FormCreate(Sender: TObject);
begin
    N1.Enabled :=False;
    N2.Enabled :=False;
    N3.Enabled :=False;
    N4.Enabled :=False;
    N35.Enabled :=False;
    N43.Enabled:=false;  //采单“黑名单”开始为不可用
    Image1.Height :=self.Height-69;
    Image1.Width :=self.Width -14;
    StatusBar.Panels[1].Text:=FormatDateTime('YYYY/MM/DD',Now);
    StatusBar.Panels[2].Text:=FormatDateTime('HH:MM:SS',Now);
end;

procedure TfrmMain.N28Click(Sender: TObject);
begin
    //添加借书信息
    application.CreateForm(TfrmLendBook,frmLendBook);
    frmMain.N28.Enabled :=False;
end;
procedure TfrmMain.N29Click(Sender: TObject);
begin
    //修改借书信息
    application.CreateForm(TfrmLendList,frmLendList);
    frmMain.N29.Enabled :=False;
    frmMain.N30.Enabled :=False;
end;

procedure TfrmMain.N31Click(Sender: TObject);
begin
    //查询借书信息
    application.CreateForm(TfrmLendSearch,frmLendSearch);
    frmMain.N31.Enabled :=False;
end;

procedure TfrmMain.N30Click(Sender: TObject);
begin
    //删除借书信息
    application.CreateForm(TfrmLendList,frmLendList);
    frmMain.N29.Enabled :=False;
    frmMain.N30.Enabled :=False;
end;

procedure TfrmMain.N34Click(Sender: TObject);
begin
    //查询还书信息
    application.CreateForm(TfrmReturnSearch,frmReturnSearch);
    frmMain.N34.Enabled :=False;
end;

procedure TfrmMain.N33Click(Sender: TObject);
begin
    //还书信息列表
    application.CreateForm(TfrmReturnList,frmReturnList);
    frmMain.N33.Enabled :=False;
end;

procedure TfrmMain.N32Click(Sender: TObject);
begin
    //添加还书信息
    application.CreateForm(TfrmReturnBook,frmReturnBook);
    frmMain.N32.Enabled :=False;
end;

procedure TfrmMain.N9Click(Sender: TObject);
begin   //添加读者类型
  AddReaderType.Show;
end;

procedure TfrmMain.N13Click(Sender: TObject);
begin   //添加读者
AddReader.show;
end;

procedure TfrmMain.N16Click(Sender: TObject);
begin   //查询读者
 frmlocatereader.show;
end;

procedure TfrmMain.N11Click(Sender: TObject);
begin   //删除读者类型
deletereadertype.show;
end;

procedure TfrmMain.N14Click(Sender: TObject);
begin   //修改读者信息
 findreader.Show;
end;

procedure TfrmMain.N15Click(Sender: TObject);
begin   //删除读者
deletereader.show;
end;

procedure TfrmMain.N10Click(Sender: TObject);
begin   //修改读者类型
findreadertype.show;
end;

procedure TfrmMain.N41Click(Sender: TObject);
begin   //联系读者
connectreader.show;
end;

procedure TfrmMain.N40Click(Sender: TObject);
begin   //显示读者比例图
  form10.show;
end;

procedure TfrmMain.N36Click(Sender: TObject);
begin
if messagedlg('是否生成报表？',mtInformation,[mbOK, mbCancel],0)=mrok then
begin   //生成读者信息报表
//readercopy.show;
readercopy.ADOQuery1.Active:=false;
readercopy.ADOQuery1.Active:=true;
readercopy.quickrep1.Preview;
//readercopy.Hide;
end;
end;

procedure TfrmMain.N38Click(Sender: TObject);
begin   //导出读者信息
  frmExportReaderinfo.Show;
end;

procedure TfrmMain.N43Click(Sender: TObject);
begin   //显示黑名单
  frmHeiMDan.ADOQuery1.Active:=false;
  frmHeiMDan.ADOQuery1.Active:=true;
  frmHeiMDan.quickrep1.Preview;
end;

procedure TfrmMain.N7Click(Sender: TObject);
begin
close;  //退出系统
end;

procedure TfrmMain.N39Click(Sender: TObject);
begin   //读者借阅分析
  frmBorrowAnalysis.ADOQuery1.Active:=false;
  frmBorrowAnalysis.ADOQuery1.Active:=true;
  frmBorrowAnalysis.Show;
end;

procedure TfrmMain.N42Click(Sender: TObject);
begin   //读者信用分析
  frmScore.ADOQuery3.Active:=false;
  frmScore.ADOQuery3.Active:=true;
  frmScore.quickrep1.Preview;
  frmMain.N43.Enabled:=true;  //读者信用分析之后才能显示黑名单
end;

end.