facef.pas

图书管理系统：包括借书、还书、查询、添加、统计等功能。

unit faceF;

interface

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

type
  TMain = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    CoolBar1: TCoolBar;
    Panel1: TPanel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Panel2: TPanel;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    Image1: TImage;
    N12: TMenuItem;
    N13: TMenuItem;
    SpeedButton8: TSpeedButton;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    XPManifest1: TXPManifest;
    SpeedButton9: TSpeedButton;
    procedure N1Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure SpeedButton9Click(Sender: TObject);
   



    private
    { Private declarations }
  public
    { Public declarations }
    Formcap:string;
    function Isexist(caption: string): bool;

  end;

var
  Main: TMain;

implementation

{$R *.dfm}
uses dataconnect,            //数据连接子模块
     readermanF,             //读者类型管理子模块
     readerinfoF,            //读者基本信息子模块
     bookinfoF,              //图书基本信息子模块
     bookmanF,               //图书信息管理子模块
     addnewbookF,            //新增图书子模块
     lendbookF,              //图书借阅子模块
     bookbackF,              // 图书归还子模块
     delaybookF,             //判断图书是否过期子模块
     fineF,                  //图书过期罚金子模块
     inheritF,               //各窗体继承模板
     selectF;                //搜索图书子模块
//**********状态栏显示星期***********
function Load_Week(const Dtime: TDateTime): string;
const
  dstr: array[1..7] of string = ('星期日', '星期一', '星期二', '星期三', '星期四', '星期五', '星期六');
begin
  result := dstr[DayOfWeek(dtime)];
end;

//*************使用Isexist函数，判断各子窗体是否已经存在*********
function TMain.Isexist(caption: string): bool;
var
i:integer;
begin
 for i:=0 to Main.MDIChildCount do
  begin
       // 通过Caption属性判断子窗体是否已经存在
    if Main.MDIChildren[i].Caption=caption then
     begin
       //子窗体已存在，返回Bool=true;
      SendMessage(mdichildren[i].Handle, WM_SYSCOMMAND, SC_Maximize, 0);
      mdichildren[i].Enabled:=true;
      mdichildren[i].Show;
      mdichildren[i].SetFocus;
      result:=true;
      break;
     end
     else
     //子窗体不存在，返回Bool=false，并创建相应子窗体
      result:=false;
  end
end;
 //************打开连接数据库窗体************
procedure TMain.N1Click(Sender: TObject);
begin
setdata.Show;
end;
//打开读者类别设置窗体
procedure TMain.N3Click(Sender: TObject);
Var
 newform:Treaderman;
begin
 if Isexist('读者身份')=false then
  begin
   newform:=Treaderman.Create(application);
   newform.Caption:='读者身份';
  end;

end;
                //*********打开读者信息管理窗口**********
procedure TMain.N4Click(Sender: TObject);
Var
 newform:Treaderinfo;
begin
 if Isexist('读者信息')=false then
  begin
   newform:=Treaderinfo.Create(application);
   newform.Caption:='读者信息';
  end;

end;

 //**********打开新增图书窗口 ************
procedure TMain.N6Click(Sender: TObject);
Var
 newform:Taddnewbook;
begin
 if Isexist('新增图书')=false then
  begin
   newform:=Taddnewbook.Create(application);
   newform.Caption:='新增图书';
  end;

end;
//******打开图书信息窗口 *******
procedure TMain.N7Click(Sender: TObject);
Var
 newform:Tbookinfo;
begin
 if Isexist('图书信息')=false then
  begin
   newform:=Tbookinfo.Create(application);
   newform.Caption:='图书信息';
  end;

end;
 //*************打开图书信息管理窗口******
procedure TMain.N8Click(Sender: TObject);
Var
 newform:Tbookman;
begin
 if Isexist('信息管理')=false then
  begin
   newform:=Tbookman.Create(application);
   newform.Caption:='信息管理';
  end;
end;

//*************打开图书借阅窗口************
procedure TMain.N10Click(Sender: TObject);
Var
 newform:Tlendbook;
begin
 if Isexist('图书借阅')=false then
  begin
   newform:=Tlendbook.Create(application);
   newform.Caption:='图书借阅';
  end;
end;


//**********打开图书归还窗体***********
procedure TMain.N11Click(Sender: TObject);
var
 newform:Tbookback;
begin
  if Isexist('图书归还')=false then
   begin
    newform:=Tbookback.Create(application);
    newform.Caption:='图书归还';
   end;
end;
//**********查询图书是否过期名单窗口***********
procedure TMain.N13Click(Sender: TObject);
var
 newform:Tdelaybook;
begin
  if Isexist('是否过期')=false then
   begin
    newform:=Tdelaybook.Create(application);
    newform.Caption:='是否过期';
   end;
end;

//************打开图书过期罚金窗口********
procedure TMain.N14Click(Sender: TObject);
var
 newform:Tfine;
begin
  if Isexist('过期罚金')=false then
   begin
    newform:=Tfine.Create(application);
    newform.Caption:='过期罚金';
   end;
end;
 //***********退出系统************
procedure TMain.N15Click(Sender: TObject);
begin
showmessage('delphi7.0+sql2000图书信息管理系统');
end;


procedure TMain.N16Click(Sender: TObject);
   begin
close;
   end;

//  *************8读者身份窗口快捷方式 **********8
procedure TMain.SpeedButton1Click(Sender: TObject);
begin
N3Click(Sender);
end;
 //************读者信息管理窗口快捷方式**************
procedure TMain.SpeedButton2Click(Sender: TObject);
begin
N4Click(Sender);
end;
 //***********8新增图书窗口快捷方式************8
procedure TMain.SpeedButton3Click(Sender: TObject);
begin
N6Click(Sender);
end;
 //***********图书信息管理窗口快捷方式*********
procedure TMain.SpeedButton4Click(Sender: TObject);
begin
N8Click(Sender);
end;
 //***********图书借阅窗口快捷方式**********
procedure TMain.SpeedButton5Click(Sender: TObject);
begin
N10Click(Sender);
end;
  //************图书归还窗口快捷方式************
procedure TMain.SpeedButton6Click(Sender: TObject);
begin
N11Click(Sender);
end;
   //********图书是否过期快捷方式*****
procedure TMain.SpeedButton7Click(Sender: TObject);
begin
N13Click(Sender);
end;
  //*******过期罚金快捷方式*******
procedure TMain.SpeedButton8Click(Sender: TObject);
begin
N14Click(Sender);
end;
 //************退出系统快捷方式***********
procedure TMain.SpeedButton9Click(Sender: TObject);
begin
N16Click(Sender);
end;


end.