图书馆管理系统 详细设计4Word文档下载推荐.docx

图书馆管理系统 详细设计4Word文档下载推荐.docx

《图书馆管理系统 详细设计4Word文档下载推荐.docx》由会员分享，可在线阅读，更多相关《图书馆管理系统 详细设计4Word文档下载推荐.docx（19页珍藏版）》请在冰豆网上搜索。

单击“读者管理”菜单下的“读者信息管理”，再单击该菜单的子菜单，可以添加、修改、删除、查询读者信息。

3、图书借阅管理

（1）、借书管理

单击“图书借阅管理”菜单下的“借书管理”，再单击该菜单下的子菜单，可以添加、查询借书信息。

（2）、还书管理

单击“图书借阅管理”菜单下的“还书管理”，再单击该菜单下的子菜单，可以添加还书信息。

四、实验方法与步骤

1.系统主界面（如图1）

图1

其主要实现方法是采用菜单编辑器来完成下拉菜单的设计,主界面的程序比较简单,主要完成的功能是对各自功能窗体的调用,这边就不具体描述了。

◆添加读者类别

单击“添加读者类别”子菜单进入图2界面：

图2

系统操作者根据读者具体情况填写相关信息,添加读者类别窗体中的确定按键其主要程序如下：

sql="

select*from读者类别where种类名称='

"

&

Text1.Text&

"

'

rs_readerstyle.Opensql,conn,adOpenKeyset,adLockPessimistic

Ifrs_readerstyle.EOFThen

rs_readerstyle.AddNew

rs_readerstyle.Fields（0）=Trim（Text1.Text）

rs_readerstyle.Fields

（1）=CInt（Text2.Text）

rs_readerstyle.Fields

（2）=CInt（Text3.Text）

rs_readerstyle.Fields（3）=CInt（Text4.Text）

rs_readerstyle.Update

MsgBox"

添加读者类别成功！

vbOKOnly,"

rs_readerstyle.Close

Else

读者类别重复！

vbOKOnly+vbExclamation,"

Text1.SetFocus

Text1.Text="

ExitSub

EndIf

系统已有的读者类别如图3所示：

图3

◆修改读者类别

单击“修改读者类别”子菜单进入图4界面：

图4

系统操作者可以进行“修改类别”的操作。

读者类别窗体的修改类别按键中程序如下：

DimanswerAsString

OnErrorGoTocmdmodify

cmddel.Enabled=False

cmdmodify.Enabled=False

cmdupdate.Enabled=True

cmdcancel.Enabled=True

DataGrid1.AllowUpdate=True

cmdmodify:

IfErr.Number<

>

0Then

MsgBoxErr.Description

读者类别窗体的更新按键中程序如下：

IfNotIsNull（DataGrid1.Bookmark）Then

rs_reader.Update

cmdmodify.Enabled=True

cmddel.Enabled=True

cmdcancel.Enabled=False

cmdupdate.Enabled=False

DataGrid1.AllowUpdate=False

修改成功！

◆删除读者类别

系统操作者可以进行“删除类别”的操作。

读者类别窗体中的删除类别按键其程序如下：

OnErrorGoTodelerror

answer=MsgBox（"

确定要删除吗？

vbYesNo,"

）

Ifanswer=vbYesThen

DataGrid1.AllowDelete=True

rs_reader.Delete

DataGrid1.Refresh

成功删除！

DataGrid1.AllowDelete=False

delerror:

（2）读者信息管理

◆添加读者信息

单击“添加读者信息”子菜单进入图5界面：

图5

其中，“读者类别”可以从图6类别中选择

图6

系统操作者根据读者具体情况填写相关信息,添加读者信息窗体中的确定按键其主要程序如下：

select*from读者信息where读者编号='

Text2.Text&

rs_addreader.Opensql,conn,adOpenKeyset,adLockPessimistic

Ifrs_addreader.EOFThen

rs_addreader.AddNew

rs_addreader.Fields（0）=Trim（Text1.Text）

rs_addreader.Fields

（1）=Trim（Text2.Text）

rs_addreader.Fields

（2）=Trim（Combo2.Text）

rs_addreader.Fields（3）=Trim（Combo1.Text）

rs_addreader.Fields（4）=Trim（Text3.Text）

rs_addreader.Fields（5）=Trim（Text4.Text）

rs_addreader.Fields（6）=Trim（Text5.Text）

rs_addreader.Fields（7）=CDate（Text6.Text）

rs_addreader.Update

添加读者信息成功！

rs_addreader.Close

读者编号重复！

◆修改读者信息

单击“修改读者类别”子菜单进入图7界面：

图7

系统操作员可以进行“修改信息”，读者信息管理窗体中的修改信息按键其主要程序如下：

读者信息管理窗体中的更新按键其主要程序如下：

◆删除信息

系统操作员可以进行“删除信息”，读者信息管理窗体中的修改信息按键其主要程序如下：

◆查询读者信息

单击“修改读者类别”子菜单进入图8界面：

图8

查询读者信息窗体中的确定按键其主要程序如下：

Dimrs_findreaderAsNewADODB.Recordset

DimsqlAsString

IfCheck1.Value=vbCheckedThen

sql="

读者编号='

Trim（Text1.Text&

）&

IfCheck2.Value=vbCheckedThen

IfTrim（sql）="

Then

读者姓名='

Trim（Text2.Text&

Else

sql=sql&

and读者姓名='

EndIf

IfCheck3.Value=vbCheckedThen

读者类别='

Trim（Combo1.Text&

and读者类别='

select*from读者信息where"

sql

rs_findreader.CursorLocation=adUseClient

rs_findreader.Opensql,conn,adOpenKeyset,adLockPessimistic

DataGrid1.AllowAddNew=False

DataGrid1.AllowDelete=False

DataGrid1.AllowUpdate=False

SetDataGrid1.DataSource=rs_findreader

rs_findreader.Close

然后可以选择“读者姓名”并输入相应信息后点击“确定”按钮，即可出现该读者的相关信息。

如图9所示：

图9

（1）、借书管理。

◆添加借书信息

在“借书管理”菜单中单击“添加借书信息”后进入图10界面：

图10

添加借书信息窗体中的确定按键中的程序如下：

Dimrs_findbookAsNewADODB.Recordset

书名='

类别='

and书名='

作者='

and作者='

IfCheck4.Value=vbCheckedThen

出版社='

Trim（Text3.Text&

and出版社='

IfCheck5.Value=vbCheckedThen

书籍编号='

Trim（Text4.Text&

and书籍编号='

IfTrim（sql）="

请选择查询方式！

vbOKOnly+vbExclamation

select*from书籍信息where"

rs_findbook.CursorLocation=adUseClient

rs_findbook.Opensql,conn,adOpenKeyset,adLockPessimistic

SetDataGrid1.DataSource=rs_findbook

rs_findbook.Close

◆查询借书信息

在“借书管理”菜单中单击“查询借书信息”后进入图11界面：

图11

可以选中“查询已借出信息”然后点击“开始查询”，可以查看已经借出图书的信息。

如下图12所示：

图12

查询借书信息窗体中的开始查询按键中的程序如下：

Dimrs_findAsNewADODB.Recordset

IfOption1.Value=TrueThen

select*from书籍信息where是否被借出='

是'

IfOption2.Value=TrueThen

否'

IfOption3.Value=TrueThen

select*from借阅信息where读者姓名='

rs_find.CursorLocation=adUseClient

rs_find.Opensql,conn,adOpenKeyset,adLockPessimistic

DataGrid1.AllowAddNew=False

SetDataGrid1.DataSource=rs_find

◆添加还书信息

单击“添加还书信息”即可进入图13界面：

图13

选择相应的信息即可查询相关的还书信息,还书窗体中的两个查询按键程序大同小异,其按键中的程序如下：

Dimrs_readerAsNewADODB.Recordset

findform=True

Combo2.Text&

rs_reader.CursorLocation=adUseClient

rs_reader.Opensql,conn,adOpenKeyset,adLockPessimistic

SetDataGrid1.DataSource=rs_reader

还书窗体中的还书按键中的程序如下：

Dimbook_numAsString

Dimreader_numAsString

Dimrs_backAsNewADODB.Recordset

book_num=DataGrid1.Columns（3）.CellValue（DataGrid1.Bookmark）

reader_num=DataGrid1.Columns

（1）.CellValue（DataGrid1.Bookmark）

确定要还这本书吗？

select*from借阅信息where书籍编号='

book_num&

rs_back.CursorLocation=adUseClient

rs_back.Opensql,conn,adOpenKeyset,adLockPessimistic

rs_back.Delete

rs_back.Update

rs_back.Close

select*from书籍信息where书籍编号='

rs_back.Fields（7）="

否"

reader_num&

rs_back.Fields（8）=rs_back.Fields（8）-1

Iffindform=TrueThen

Command1_Click

Command2_Click

五、实验原始记录

导教师签字：

六、实验记录处理（计算过程与结果、数据曲线、图表等）

七、实验结果分析

在规格说明书的要求下,我所做的三部分都能够按要求完成实现具体的功能,其结果完全符合实验要求,达到了实验的目的。

八、实验结论

通过对数据库的应用，完成了这次软件的详细设计，也进一步证实了数据库的应用是非常重要的广泛的，也让我深刻的体会到应该多了解一些数据库的应用方向，学习更多流行的数据库开发语言。

九、实验分析（误差、现象、思考题等）

一次的实验一次的收获，这次的实验我所分配的任务是详细设计，对具体实现这一部分我很了解，在自己的努力之下顺利完成了。

这次的实验成功的完成，我很是开心，自己做出来了的东西就有一种亲切感，在每每遇到难题的时候，在睡觉前都在想如何解决问题，通过自己反复思考，最终都很好的解决了问题，就像探险一样，很艰难，但成功后那种快乐大概只有成功的人才能体会。

在这次的设计过程中，考虑过用哪一种数据库的开发方式更为快速合理有效，在进过同组搭档的讨论之后，选择了Access作为数据库的开发应用，其实现简单高效，在对数据库的操作方面花了一段时间去学习应用，通过自己的努力，很快就熟练撑握了，因为以前做过一些软件的开发，所以这次的软件最终成功很有信心。

数据库的应用在之前没有做过，对自己也是一次挑战，成功做出来了，对自己的能力有了很大的肯定，对自己的人生未来有了坚定的信心，相信自己在计算机行业有所作为，所有成就。

在实验报告中，有一些代码没有提出来，不表示不重要，其非主要程序功能，但我还想在这里描述一点没有写上实验报告的程序，在许多窗口中都有应用，那就是当用户输入一个错误信息时，所做出的结果，在程序中并没有提出来，这是非常重要的，一开始开发的时候没有考虑到，其运行后的结果没不是自