图书馆系统的实现功能和实现步骤.docx
《图书馆系统的实现功能和实现步骤.docx》由会员分享,可在线阅读,更多相关《图书馆系统的实现功能和实现步骤.docx(32页珍藏版)》请在冰豆网上搜索。
![图书馆系统的实现功能和实现步骤.docx](https://file1.bdocx.com/fileroot1/2023-1/28/60bbbb6d-27d5-4c20-b205-6e358da933a4/60bbbb6d-27d5-4c20-b205-6e358da933a41.gif)
图书馆系统的实现功能和实现步骤
图书馆管理系统
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。
ADOQ