图书馆管理系统详细设计(共17页).doc

《图书馆管理系统详细设计(共17页).doc》由会员分享，可在线阅读，更多相关《图书馆管理系统详细设计(共17页).doc（17页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、精选优质文档-倾情为你奉上实 验 报 告课程名称 软 件 工 程 实验项目名称 图书管理系统详细设计1 实验学生班级 05计算机科学与技术（控制技术） 实验学生姓名 鞠久勤 学生所属院部 信息技术学院 同组学生姓名 肖静、何南、候芬、陈青、朱纪超 实验时间 2008年12月8日、2008年12月15日 实验地点 B407 实验成绩评定 指导教师签字 年 月 日 一、实验目的和要求对系统进行详细的设计,严格按照规格说明书的要求,完成图书管理系统的登录图书管理系统、图书管理、系统管理三个部分，其中图书管理又分为图书类别管理、图书信息管理，可对图书的类别和图书的信息进行添加、修改、删除、查询操作。二

2、、实验主要仪器和设备PC机，Microsoft Visual Basic 6.0三、实验原理在本次的系统开发中主要完成以下三个部分的详细设计，其主要内容如下：1、登录图书管理系统由管理员或读者用自己的用户名和密码登录系统。2、图书管理（1）、图书类别管理单击“图书管理”菜单下的“图书类别管理”，进入图书类别管理，再单击子菜单可以添加、修改、删除“图书类别”。（2）、图书信息管理单击“图书管理”菜单下的“图书信息管理”，进入图书信息管理，再单击子菜单可以添加、修改、删除、查询“图书信息”。3、系统管理（1）、添加管理员单击“系统管理”菜单下的子菜单“添加管理员”添加系统管理员（2）、修改密码单击

3、“系统管理”菜单下的子菜单“修改密码”即可修改密码。（3）、退出系统单击“系统管理”菜单下的“退出系统”，即可成功退出系统。四、实验方法与步骤1、登录系统用户通过自己的用户名和密码登录系统。登录界面如图1。图1系统默认的用户名和密码如图2所示：图2登录窗体中的确定按键其主要程序如下：Dim sql As StringDim rs_login As New ADODB.RecordsetIf Trim(txtuser.Text) = Then 判断输入的用户名是否为空MsgBox 没有这个用户, vbOKOnly + vbExclamation, txtuser.SetFocusElsesql

4、= select * from 系统管理 where 用户名= & txtuser.Text & rs_login.Open sql, conn, adOpenKeyset, adLockPessimisticIf rs_login.EOF = True ThenMsgBox 没有这个用户, vbOKOnly + vbExclamation, txtuser.SetFocusElse 检验密码是否正确If Trim(rs_login.Fields(1) = Trim(txtpwd.Text) ThenuserID = txtuser.Textuserpow = rs_login.Fields(

5、2)rs_login.CloseUnload MeForm1.ShowElseMsgBox 密码不正确, vbOKOnly + vbExclamation, txtpwd.SetFocusEnd IfEnd IfEnd Ifcnt = cnt + 1If cnt = 3 ThenUnload MeEnd IfExit Sub系统功能说明：用于验证用户是否为管理员或本图书馆读者，以防资料外泄，如果是的则进入系统，否则提示错误。2.图书管理（1）、图书类别管理添加图书类别单击“图书类别管理”菜单，进入“添加图书类别”菜单如图3图3系统操作员可以根据实际情况填写“图书类别”、“图书编号”，然后点击“

6、确定”按钮即可。已经存在的图书类别如图4所示： 图4图书类别窗体中的确定按键其主要程序如下：Dim rs_bookstyle As New ADODB.RecordsetDim sql As StringIf Trim(Text1.Text) = ThenMsgBox 图书种类不能为空, vbOKOnly + vbExclamation, Text1.SetFocusExit SubEnd IfIf Trim(Text2.Text) = ThenMsgBox 种类编号不能为空, vbOKOnly + vbExclamation, Text2.SetFocusExit SubEnd Ifsql

7、= select * from 图书类别 where 类别名称= & Text1.Text & rs_bookstyle.Open sql, conn, adOpenKeyset, adLockPessimisticIf rs_bookstyle.EOF Thenrs_bookstyle.AddNewrs_bookstyle.Fields(0) = Trim(Text1.Text)rs_bookstyle.Fields(1) = Trim(Text2.Text)rs_bookstyle.UpdateMsgBox 添加图书类别成功！, vbOKOnly, rs_bookstyle.CloseEl

8、seMsgBox 读者类别重复！, vbOKOnly + vbExclamation, Text1.SetFocusText1.Text = rs_bookstyle.CloseExit SubEnd If系统功能说明：当图书馆有新类别图书进馆时，由管理员通过此系统进入图4界面，添加新的图书类别，以便将新书添加到此类别中。修改图书类别单击“图书类别管理”菜单，进入“修改图书类别”子菜单进入图5界面：图5修改图书类别窗体中的修改类别按键其主要程序如下：Dim answer As StringOn Error GoTo cmdmodifycmddel.Enabled = Falsecmdmodif

9、y.Enabled = Falsecmdupdate.Enabled = Truecmdcancel.Enabled = TrueDataGrid1.AllowUpdate = Truecmdmodify:If Err.Number 0 ThenMsgBox Err.DescriptionEnd If系统功能说明：当图书类别有错时，由管理员进入图5界面，单击修改类别按钮进入修改类别界面，修改原图书类别即可。删除图书类别单击“图书类别管理”菜单，进入“删除图书类别”子菜单进入图6界面,在删除类别按键中的程序如下：Dim answer As StringOn Error GoTo delerror

10、answer = MsgBox(确定要删除吗？, vbYesNo, )If answer = vbYes ThenDataGrid1.AllowDelete = Truers_reader.Deleters_reader.UpdateDataGrid1.RefreshMsgBox 成功删除！, vbOKOnly + vbExclamation, DataGrid1.AllowDelete = FalseElseExit SubEnd Ifdelerror:If Err.Number 0 ThenMsgBox Err.DescriptionEnd If系统功能说明：当图书馆中无此类图书时，则需删

11、除此类别，管理员进入图五界面，单击删除类别进入删除类别界面，清除所需删除类别即可。(2)图书信息管理添加图书信息单击“图书信息管理”菜单进入“添加图书信息”子菜单进入图6界面： 图6系统操作员可以根据实际情况填写相应内容后点击“确定”即可,在确定按键中实现的主要程序如下：sql = select * from 书籍信息 where 书籍编号= & Text1.Text & rs_addbook.Open sql, conn, adOpenKeyset, adLockPessimisticIf rs_addbook.EOF Thenrs_addbook.AddNewrs_addbook.Fiel

12、ds(0) = Trim(Text1.Text)rs_addbook.Fields(1) = Trim(Text2.Text)rs_addbook.Fields(2) = Trim(Combo1.Text)rs_addbook.Fields(3) = Trim(Text3.Text)rs_addbook.Fields(4) = Trim(Text4.Text)rs_addbook.Fields(5) = Trim(Text5.Text)rs_addbook.Fields(6) = Trim(Text6.Text)rs_addbook.Fields(7) = 否rs_addbook.Update

13、MsgBox 添加书籍信息成功！, vbOKOnly, rs_addbook.CloseElseMsgBox 图书编号重复！, vbOKOnly + vbExclamation, Text1.SetFocusText1.Text = rs_addbook.CloseExit SubEnd If系统功能说明：为新进馆的图书登记，以便查找和借阅。修改图书信息单击“图书信息管理”菜单进入“修改图书信息”子菜单进入图7界面：图7系统操作员可以“修改图书信息”,在修改信息按键中实现的主要程序如下：Dim answer As StringOn Error GoTo cmdmodifycmddel.Enab

14、led = Falsecmdmodify.Enabled = Falsecmdupdate.Enabled = Truecmdcancel.Enabled = TrueDataGrid1.AllowUpdate = Truecmdmodify:If Err.Number 0 ThenMsgBox Err.DescriptionEnd If系统功能说明：当图书信息有误时，进入此系统界面7，单击修改信息按钮，进入修改信息界面，修改信息即可。删除图书信息单击“图书信息管理”菜单进入“删除图书信息”子菜单进入图8界面,在删除信息按键中实现的主要程序如下：Dim answer As StringOn E

15、rror GoTo delerroranswer = MsgBox(确定要删除吗？, vbYesNo, )If answer = vbYes ThenDataGrid1.AllowDelete = Truers_book.Deleters_book.UpdateDataGrid1.RefreshMsgBox 成功删除！, vbOKOnly + vbExclamation, DataGrid1.AllowDelete = FalseElseExit SubEnd Ifdelerror:If Err.Number 0 ThenMsgBox Err.DescriptionEnd If系统功能说明：当

16、某图书已不在图书馆时，需删除此图书信息，进入此系统界面7，单击删除信息按钮，进入删除信息界面，删除信息即可。查询图书信息单击“图书信息管理”菜单进入“查询图书信息”子菜单进入图8界面：图8系统操作员可以输入想要查询的书的相关信息，然后单击“确定”，即可在下框中出现相关书籍的信息,在确定中主要实现的程序如下：Dim rs_findbook As New ADODB.RecordsetDim sql As StringIf Check1.Value = vbChecked Thensql = 书名= & Trim(Text1.Text & ) & End IfIf Check2.Value = v

17、bChecked ThenIf Trim(sql) = Thensql = 类别= & Trim(Combo1.Text & ) & Elsesql = sql & and 书名= & Trim(Combo1.Text & ) & End IfEnd IfIf Check3.Value = vbChecked ThenIf Trim(sql) = Thensql = 作者= & Trim(Text2.Text & ) & Elsesql = sql & and 作者= & Trim(Text2.Text & ) & End IfEnd IfIf Check4.Value = vbChecked

18、 ThenIf Trim(sql) = Thensql = 出版社= & Trim(Text3.Text & ) & Elsesql = sql & and 出版社= & Trim(Text3.Text & ) & End IfEnd IfIf Check5.Value = vbChecked ThenIf Trim(sql) = Thensql = 书籍编号= & Trim(Text4.Text & ) & Elsesql = sql & and 书籍编号= & Trim(Text4.Text & ) & End IfEnd IfIf Trim(sql) = ThenMsgBox 请选择查询

19、方式！, vbOKOnly + vbExclamationExit SubEnd Ifsql = select * from 书籍信息 where & sqlrs_findbook.CursorLocation = adUseClientrs_findbook.Open sql, conn, adOpenKeyset, adLockPessimisticDataGrid1.AllowAddNew = FalseDataGrid1.AllowDelete = FalseDataGrid1.AllowUpdate = FalseSet DataGrid1.DataSource = rs_findb

20、ookrs_findbook.Close若想要借阅这本书，则“选中”这本书后点击“借这本书”，出现该书的相关信息，如图9所示： 图9然后选择“读者编号”及“读者姓名”，点击“确定”即可,在确定按键中主要实现的程序如下：Dim rs_borrowbook As New ADODB.RecordsetDim sql As Stringsql = select * from 读者信息 where 读者编号= & Combo1.Text & rs_borrowbook.Open sql, conn, adOpenKeyset, adLockPessimisticleibie = rs_borrowbo

21、ok.Fields(3)shumu = rs_borrowbook.Fields(8)rs_borrowbook.Closesql = select * from 读者类别 where 种类名称= & leibie & rs_borrowbook.Open sql, conn, adOpenKeyset, adLockPessimisticqixian = rs_borrowbook.Fields(2)maxnum = rs_borrowbook.Fields(1)rs_borrowbook.CloseIf shumu = maxnum ThenMsgBox 该读者借书数额已满！, vbOKO

22、nly + vbExclamationExit SubEnd Ifsql = select * from 借阅信息rs_borrowbook.Open sql, conn, adOpenKeyset, adLockPessimisticrs_borrowbook.AddNewrs_borrowbook.Fields(1) = Combo1.Textrs_borrowbook.Fields(2) = Combo2.Textrs_borrowbook.Fields(3) = Label8.Captionrs_borrowbook.Fields(4) = Label9.Captionrs_borro

23、wbook.Fields(5) = Daters_borrowbook.Fields(6) = DateAdd(Ww, qixian, Date)rs_borrowbook.Updaters_borrowbook.Closesql = select * from 书籍信息 where 书籍编号= & book_num & rs_borrowbook.Open sql, conn, adOpenKeyset, adLockPessimisticrs_borrowbook.Fields(7) = 是rs_borrowbook.Updaters_borrowbook.Closesql = selec

24、t * from 读者信息 where 读者编号= & Combo1.Text & rs_borrowbook.Open sql, conn, adOpenKeyset, adLockPessimisticrs_borrowbook.Fields(8) = rs_borrowbook.Fields(8) + 1rs_borrowbook.Updaters_borrowbook.CloseMsgBox 本书借阅成功！, vbOKOnly + vbExclamationUnload Me系统功能说明：用于管理员和读者查阅图书，只需进入界面8，输入查询图书名称等信息，单击查询即可在下方显示图书信息，

25、若读者想借阅此书，则点击借这本书按钮，即可进入借阅界面9，输入读者信息即可。3、系统管理添加管理员进入“系统管理”菜单后，单击“添加管理员”子菜单进入图10界面： 图10输入确定的信息后即可增加一个新的用户。在确定按键中主要程序如下：Dim sql As StringDim rs_add As New ADODB.RecordsetIf Trim(Text1.Text) = ThenMsgBox 用户名不能为空, vbOKOnly + vbExclamation, Exit SubText1.SetFocusElsesql = select * from 系统管理rs_add.Open sql

26、, conn, adOpenKeyset, adLockPessimisticWhile (rs_add.EOF = False)If Trim(rs_add.Fields(0) = Trim(Text1.Text) ThenMsgBox 已有这个用户, vbOKOnly + vbExclamation, Text1.SetFocusText1.Text = Text2.Text = Text3.Text = Combo1.Text = Exit SubElsers_add.MoveNextEnd IfWendIf Trim(Text2.Text) Trim(Text3.Text) ThenM

27、sgBox 两次密码不一致, vbOKOnly + vbExclamation, Text2.SetFocusText2.Text = Text3.Text = Exit SubElseIf Trim(Combo1.Text) system And Trim(Combo1.Text) guest ThenMsgBox 请选择正确的用户权限, vbOKOnly + vbExclamation, Combo1.SetFocusCombo1.Text = Exit SubElsers_add.AddNewrs_add.Fields(0) = Text1.Textrs_add.Fields(1) =

28、Text2.Textrs_add.Fields(2) = Combo1.Textrs_add.Updaters_add.CloseMsgBox 添加用户成功, vbOKOnly + vbExclamation, Unload MeEnd IfEnd If系统功能说明：为新来的管理员，设置信息，以便其能访问此系统。修改密码进入“系统管理”菜单后，单击“修改密码”子菜单进入图11界面：图11用户可在该界面中更改密码,在确定按键中主要程序如下：Dim rs_chang As New ADODB.RecordsetDim sql As StringIf Trim(Text1.Text) Trim(Te

29、xt2.Text) ThenMsgBox 密码不一致！, vbOKOnly + vbExclamation, Text1.SetFocusText1.Text = Text2.Text = Elsesql = select * from 系统管理 where 用户名= & userID & rs_chang.Open sql, conn, adOpenKeyset, adLockPessimisticrs_chang.Fields(1) = Text1.Textrs_chang.Updaters_chang.CloseMsgBox 密码修改成功, vbOKOnly + vbExclamatio

30、n, Unload MeEnd If系统功能说明：为管理员修改密码。退出系统进入“系统管理”菜单后，单击“退出系统”子菜单即可退出系统,其主要程序如下：End系统功能说明：退出系统管理系统，回到主界面。五、实验原始记录导教师签字： 六、实验记录处理（计算过程与结果、数据曲线、图表等）七、实验结果分析在规格说明书的要求下,我所做的三部分都能够按要求完成实现具体的功能,其结果完全符合实验要求,达到了实验的目的。八、实验结论此图书管理系统的详细设计1部分，完全符合用户的要求，也充分考虑了实现的可行性，主要涉及图书管理系统的登录图书管理系统、图书管理和系统管理。其中只要输入用户名和密码即可进入该系统，

31、而图书管理的图书类别管理主要由管理员进行添加、修改和删除类别，管理员只需直接输入新的类别名即可，简单且易于操作。图书管理的图书信息管理，主要用于管理员添加、修改、删除图书信息和读者对图书信息的查询、对图书的借阅。操作同样简单，只需输入图书名及相关信息即可。最后就是系统管理系统了，主要用于管理员内部信息的设置。总的来说，系统所实现的每个功能都按照了规格说明书正确的实现了,加入了数据库的应用,使数据的存储更可靠更便于管理。九、实验分析（误差、现象、思考题等）此次试验结果完全符合规格说明书和用户的要求，实验很成功，每一步都是按照要求来完成的，每一个子系统的功能都很详细，都切合实际，可以说是一个精品。

32、整个实验过程还是满艰辛的，问题也不少。首先因为长时间没有编程了，对于语言的语法，结构、函数等都变的很生疏，所以出现了不少语法错误。比如：（1）下拉控件的使用，开始不知道如何在其中添加选项，如何选中某一选项。（2）表单控件的使用，不知如何在其中显示信息。（3）Msgbox函数的参数格式错误（4）if.else等格式的错误。这些语言上的错误开始时把我脑子都搅和大了，但我还是静下心来，把以前的书拿出来，复习了一遍，再加上同组同学的帮忙，终于都修改过来了。再一个问题就是具体需求的设计框架，到底该怎么设计。比如：在设计图书类别管理时，我觉得应该先把所有可能的类别都写进去，类别编号从字母A开始依次往下，比

33、较方便。但同组中有人说，把所有类别全写进去浪费空间，有人说类别编号应该按照类别的英文简称来写，以便查找。最后在大家的商量下，我就做出了以上的方案，结果证实还是很不错的。最后就是些小问题了，我很快就解决了。实验的时间虽然很漫长，但我确觉得过的很快，因为每一分钟都是在认真做的。通过本次实验我不但学到了许多软件工程设计方面的知识，还很好的复习了一下编程语言，更重要的是知道了团队合作的快乐。任何一个工程的完成都是要靠一个团队的，实验中，我们互相争论，互相帮助，结下了深厚的友谊。让本来不苟交际的我变的擅于交流，擅于合作，具备一定的团队合作能力。总的来说，此次实验让我学到了很多东西，不仅是学习上的，还有工作上的，受益匪浅。专心-专注-专业