图书馆管理系统的实现功能和实现步骤.docx

图书馆管理系统的实现功能和实现步骤.docx

《图书馆管理系统的实现功能和实现步骤.docx》由会员分享，可在线阅读，更多相关《图书馆管理系统的实现功能和实现步骤.docx（36页珍藏版）》请在冰豆网上搜索。

图书馆管理系统的实现功能和实现步骤

图书馆管理系统

1.信息描述

图书馆中有各种类型的图书，图书信息包括：

图书编号、图书名称、作者、出版社、种类、价格、出版时间等；读者信息包括：

姓名、性别、单位、出生日期等。

2.预计功能描述

1.基础数据维护。

2.图书的插入。

（数量>1）

3.图书的删除和修改。

4.图书查询。

5.图书借阅和归还。

（可以查询图书当前被谁借走及剩余数量。

每人能同时最多能借5本书，超过5本不能再借阅。

）

6.读者查询。

可以查询读者目前已借的图书信息及借阅时间和归还时间

7.权限设置。

8.帮助等。

3.功能的实现

3.1主界面设置

主界面中仅有一个MainMenu控件，如图所示：

在“管理员登录”中输入以下代码：

procedureTMain.AdLoginClick（Sender:

TObject）;

begin

FrmLogin.Caption:

='管理员登陆';//把登陆界面标题改为“管理员登陆”

FrmLogin.ShowModal;//显示登陆界面

end;

在“用户登录”中输入以下代码：

procedureTMain.CoLoginClick（Sender:

TObject）;

begin

FrmLogin.Caption:

='用户登陆';//把登陆界面标题改为“用户登录”

FrmLogin.ShowModal;//显示登陆界面

end;

在“退出”中输入以下代码（为简便起见，下文中未注明的“退出”和“取消”按钮和此操作相同，不予以再次注明）：

procedureTMain.ExitClick（Sender:

TObject）;

begin

close;

end;

3.2登录界面的设置

登录界面的主要控件：

2个Lable、2个Edit、2个BitButton、ADOQuery、DataSourse。

如图：

在确定按钮中输入以下代码：

procedureTFrmLogin.BtnOKClick（Sender:

TObject）;

Var

CmdStr:

String;//CmdStr存放查询语句

UsrType:

integer;//UsrType存放用户类型

begin

ADOQryUser.SQL.Clear;

CmdStr:

='select*From用户（管理员）Where用户名='+QuotedStr（EdtUserName.Text）+'and口令='+QuotedStr（EdtPass.Text）;

AdoQryUser.SQL.Add（CmdStr）;

AdoQryUser.Open;

ifAdoQryUser.RecordCount<>0then//确认该用户存在

begin

UsrType:

=ADOQryUser.FieldList[2].AsInteger;

ifUsrType=0then//0为普通用户

ifFrmLogin.Caption='管理员登陆'then//如果用户点了管理员登陆，提醒其换登陆

begin

messagedlg（'此账号不是管理员，请使用用户登录',mtinformation,[mbyes,mbno],0）;

close;

end

//登陆成功

else

begin

FrmWork.Caption:

='用户使用';//主界面标题改为“用户使用”

FrmWork.BkManage.Enabled:

=false;//图书管理按钮不可用

FrmWork.BkRdManage.Enabled:

=false;//用户管理按钮不可用

FrmWork.BkBorL.Enabled:

=False;//图书借阅及归还按钮不可用

FrmWork.BkReader.Enabled:

=true;//读者服务按钮可用

FrmWork.BkSearch.Enabled:

=true;//图书查询按钮可用

FrmWork.BkExit.Enabled:

=true;//退出登录按钮可用

FrmWork.ShowModal;//显示主界面

end

elseifUsrType=1then//1为普通管理员

ifFrmLogin.Caption='用户登录'then

begin

messagedlg（'此账号不是用户，请使用管理员登录',mtinformation,[mbyes,mbno],0）;

close;

end

else

begin

FrmWork.Caption:

='管理员使用';

FrmWork.BkManage.Enabled:

=true;//普通管理员可以使用图书管理

FrmWork.BkRdManage.Enabled:

=false;

FrmWork.BkBorL.Enabled:

=true;//普通管理员可以使用图书借阅及归还

FrmWork.BkReader.Enabled:

=true;

FrmWork.BkSearch.Enabled:

=true;

FrmWork.BkExit.Enabled:

=true;

FrmWork.ShowModal;

end

else//其他的是顶级管理员

ifFrmLogin.Caption='用户登录'then

begin

messagedlg（'此账号不是用户，请使用管理员登录',mtinformation,[mbyes,mbno],0）;

close;

end

else

begin

FrmWork.Caption:

='管理员使用';

FrmWork.BkManage.Enabled:

=true;

FrmWork.BkRdManage.Enabled:

=true;//顶级管理员可以使用用户管理

FrmWork.BkBorL.Enabled:

=true;

FrmWork.BkReader.Enabled:

=true;

FrmWork.BkSearch.Enabled:

=true;

FrmWork.BkExit.Enabled:

=true;

FrmWork.ShowModal;

end

end

else

if（messagedlg（'输入的用户名和口令不对！

是否要重输？

',mtinformation,[mbyes,mbno],0）<>mryes）then

Close;

end;

3.3工作主界面

工作主界面的主要控件为：

6个Button、2个Lable。

如图：

此界面的主要代码如下：

procedureTFrmWork.BkExitClick（Sender:

TObject）;

begin

close;

end;

procedureTFrmWork.BkSearchClick（Sender:

TObject）;

begin

FrmBkSearch.ShowModal;//显示图书查询界面

end;

procedureTFrmWork.BkRdManageClick（Sender:

TObject）;

begin

FrmRdManage.ShowModal;//显示用户管理界面

end;

procedureTFrmWork.BkManageClick（Sender:

TObject）;

begin

FrmBkManage.ShowModal;//显示图书管理界面

end;

procedureTFrmWork.BkReaderClick（Sender:

TObject）;

begin

FrmReader.ShowModal;//显示读者服务界面

end;

procedureTFrmWork.BkBorLClick（Sender:

TObject）;

begin

FrmBkBandL.showModal;//显示图书借阅和归还界面

end;

3.4图书查询界面

图书查询界面的主要控件为：

Lable、DBEdit、Button、BitButton、RadioGroup、DBGrid、DataSourse和ADOQurey。

如图：

选择查询条件的代码为：

procedureTFrmBkSearch.rdgClick（Sender:

TObject）;//查询条件的改变

begin

ADOQryCondtion.Close;

ADOQryConDtion.SQL.Clear;

Caserdg.ItemIndexof

0:

begin

ADOQryCondtion.SQL.Add（'select图书名称from图书'）;

DBEditBook.DataField:

='图书名称';

end;

1:

begin

ADOQryCondtion.SQL.Add（'select作者from图书'）;

DBEditBook.DataField:

='作者';

end;

2:

begin

ADOQryCondtion.SQL.Add（'select出版社from图书'）;

DBEditBook.DataField:

='出版社';

end;

3:

begin

ADOQryCondtion.SQL.Add（'select种类from图书'）;

DBEditBook.DataField:

='种类';

end;

4:

begin

ADOQryCondtion.SQL.Add（'select*from图书'）;

ADOQryCondtion.Active:

=true;

end;

end;

ADOQryCondtion.Active:

=true;

end;

点击搜索的代码为：

procedureTFrmBkSearch.Button1Click（Sender:

TObject）;//确认查询

varCID:

String;//CID中存放查询语句

begin

ADOQryXx.Close;

ADOQryXx.SQL.Clear;

caserdg.ItemIndexof

0:

CID:

='select*from图书where图书名称LIKE'+QuotedStr（'%'+DBEditBook.Text+'%'）;

1:

CID:

='select*from图书where作者LIKE'+QuotedStr（'%'+DBEditBook.Text+'%'）;

2:

CID:

='select*from图书where出版社LIKE'+QuotedStr（'%'+DBEditBook.Text+'%'）;

3:

CID:

='select*from图书where种类LIKE'+QuotedStr（'%'+DBEditBook.Text+'%'）;

4:

CID:

='select*from图书';

end;

ADOQryXx.SQL.Add（CID）;//写入SQL语句

ADOQryXx.Active:

=true;//显示查询结果

end;

3.5读者服务界面

读者服务界面的主要控件为：

DataSourse、ADOQuery、Edit、Table、PageControl、bitbutton、DBGrid等。

1.用户信息查询：

此TabSheet的OnShow事件代码为：

procedureTFrmReader.TabSheet1Show（Sender:

TObject）;//实现了用户信息查询

var

chazhao:

String;//保存查询语句

leixin:

integer;//保存用户类型

begin

ADOQryJieshu.Close;

ADOQryJieshu.SQL.Clear;

chazhao:

='select*From用户（管理员）Where用户名='+QuotedStr（FrmLogin.EdtUserName.Text）+'and口令='+QuotedStr（FrmLogin.EdtPass.Text）;

ADOQryJieshu.SQL.Add（chazhao）;

ADOQryJieshu.Open;

//显示各种查询到的信息

Edit1.text:

=ADOQryJieshu.FieldList[3].AsString;

Edit2.text:

=ADOQryJieshu.FieldList[4].AsString;

Edit3.text:

=ADOQryJieshu.FieldList[6].AsString;

Edit4.text:

=ADOQryJieshu.FieldList[5].AsString;

Edit8.Text:

=ADOQryJieshu.FieldList[7].AsString;

leixin:

=ADOQryJieshu.FieldList[2].AsInteger;

caseleixinof

0:

Edit9.Text:

='普通用户';

1:

Edit9.Text:

='管理员';

2:

Edit9.Text:

='顶级管理员';

end;

end;

2.图书借阅查询

此TabSheet的OnShow事件代码为：

procedureTFrmReader.TabSheet2Show（Sender:

TObject）;//实现该用户所借书籍的显示

var

chaxun:

String;

begin

ADOQuery1.Close;

ADOQuery1.SQL.Clear;

chaxun:

='select*From借书Where用户名='+QuotedStr（FrmLogin.EdtUserName.Text）;

ADOQuery1.SQL.Add（chaxun）;

ADOQuery1.Open;

ADOQuery1.Active:

=true;

end;

3.密码修改

点击确认修改按钮的代码是：

procedureTFrmReader.BitBtn2Click（Sender:

TObject）;//实现密码的修改

var

xiugai:

String;//保存修改语句

begin

ADOQuery1.Close;

ADOQuery1.SQL.Clear;

ifEdit5.Text<>FrmLogin.EdtPass.Textthen//确认原密码正确

messagedlg（'原密码错误，请重输',mtinformation,[mbyes,mbno],0）

else

ifEdit6.Text<>Edit7.Textthen//确保两次输入密码相同

messagedlg（'确认密码和新密码不匹配，请重输',mtinformation,[mbyes,mbno],0）

//修改密码

else

begin

xiugai:

='Update用户（管理员）set口令=:

口令where用户名='+QuotedStr（FrmLogin.EdtUserName.Text）;

ADOQuery1.SQL.text:

=xiugai;

ADOQuery1.Parameters.ParamByName（'口令'）.Value:

=trim（Edit6.Text）;

ADOQuery1.ExecSQL;

end;

Edit5.Text:

='';

Edit6.Text:

='';

Edit7.Text:

='';

end;

3.6图书借阅和归还界面

图书借阅和归还界面主要控件为：

PageControl、DataSource、ADOQuery、Button、Edit、DBGrid等。

1.图书借阅

修改用户名时的代码为：

procedureTFrmBkBandL.Edit1Change（Sender:

TObject）;//当用户更改时，即时显示该用户借阅的书籍

var

chaxun:

String;

begin

ADOQuery1.close;

ADOQuery1.sql.clear;

chaxun:

='select*from借书where用户名='+quotedstr（Edit1.Text）;

ADOQuery1.sql.Add（chaxun）;

ADOQuery1.open;

ADOQuery1.ACtive:

=true;

end;

点击确认借阅按钮的代码为：

procedureTFrmBkBandL.Button1Click（Sender:

TObject）;//按此按钮确认借书

var

chaxun:

String;//保存查询语句

YH:

String;//保存用户姓名

TS:

String;//保存图书名称

YHSL:

Integer;//保存用户现在的借阅数量

TSSL:

Integer;//保存图书的现有数量

begin

ifedit1.text=''then

begin

showmessage（'用户名不能为空，请重输！

'）;

edit1.SetFocus;

end

elseifedit2.Text=''then

begin

showmessage（'图书编号不能为空，请重输！

'）;

edit2.SetFocus;

end

//以上确保用户名和图书编号均不为空

else

begin

ADOQuery1.close;

ADOQuery1.sql.Clear;

chaxun:

='select*from用户（管理员）where用户名='+quotedstr（edit1.Text）;

ADOQuery1.sql.Add（chaxun）;

ADOQuery1.open;

YHSL:

=ADOQuery1.FieldList[7].ASInteger;

if（ADOQuery1.recordcount=0）then//确保用户存在

begin

showmessage（'该用户不存在，请重输！

'）;

edit1.SetFocus;

end

elseif（YHSL>=5）then//确保该用户借书量未满

begin

showmessage（'该用户书籍已借满，请重输！

'）;

edit1.SetFocus;

end

else

begin

ADOQuery1.close;

ADOQuery1.sql.Clear;

chaxun:

='select*from图书where图书编号='+quotedstr（edit2.Text）;

ADOQuery1.sql.Add（chaxun）;

ADOQuery1.open;

TSSL:

=ADOQuery1.FieldList[7].ASInteger;

if（ADOQuery1.recordcount=0）then//确保该图书在库中

begin

showmessage（'该图书不存在，请重输！

'）;

edit2.SetFocus;

end

elseif（TSSL<=0）then//确保该图书还有存货

begin

showmessage（'该书籍库存已尽，请重输！

'）;

edit2.SetFocus;

end

//以下为借书步骤

else

begin

ADOQuery1.close;

ADOQuery1.sql.Clear;

chaxun:

='select*from图书where图书编号='+quotedstr（edit2.Text）;

ADOQuery1.sql.Add（chaxun）;

ADOQuery1.open;

TS:

=ADOQuery1.FieldList[1].ASString;//提取该编号的图书名称

ADOQuery1.close;

ADOQuery1.sql.Clear;

chaxun:

='select*from用户（管理员）where用户名='+quotedstr（edit1.Text）;

ADOQuery1.sql.Add（chaxun）;

ADOQuery1.open;

YH:

=ADOQuery1.FieldList[3].ASString;//提取该用户的姓名

//以下是借书步骤

ADOQuery1.close;

ADOQuery1.sql.Clear;

ADOQuery1.sql.Text:

='insertinto借书（用户名,图书编号,用户姓名,图书名称,借书日期,应还日期）values（:

用户名,:

图书编号,:

用户姓名,:

图书名称,:

借书日期,:

应还日期）';

ADOQuery1.PArameters.ParamByName（'用户名'）.Value:

=trim（Edit1.Text）;//设置用户名

ADOQuery1.PArameters.ParamByName（'图书编号'）.Value:

=trim（Edit2.Text）;//设置图书编号

ADOQuery1.PArameters.ParamByName（'用户姓名'）.Value:

=trim（YH）;//设置用户姓名为YH

ADOQuery1.PArameters.ParamByName（'图书名称'）.Value:

=trim（TS）;//设置图书名称为TS

ADOQuery1.PArameters.ParamByName（'借书日期'）.Value:

=Datetostr（date（））;//设置结束日期为当前日期

ADOQuery1.PArameters.ParamByName（'应还日期'）.Value:

=Datetostr（date（）+30）;//设置应还日期为一个月后

ADOQuery1.ExecSQl;//执行SQL语句，到此“借书”表中插入了一条记录

//更新“图书”表，把刚借走的图书的现有数量减1

ADOQuery1.close;

ADOQuery1.sql.clear;

ADOQuery1.sql.Text:

='update图书set现有数量=:

现有数量where图书编号='+quotedstr（Edit2.Text）;

ADOQuery1.PArameters.ParamByName（'现有数量'）.Value:

=TSSL-1;

ADOQuery1.ExecSQl;

//更新“用户（管理员）”表，把刚借书的用户的借书数量加1

ADOQuery1.close;

ADOQuery1.sql.clear;

ADOQuery1.sql.Text:

='update用户（管理员）set已借图书=:

已借图书where用户名='+quotedstr（Edit1.Text）;

ADOQuery1.PArameters.ParamByName（'已借图书'）.Value:

=YHSL+1;