图书馆信息管理系统 数据库课程设计VB SQLWord格式.docx

1、（3） 图书入库信息 （图书编号、库存量、单价、入库日期）（4） 图书出库信息（借书证号、书名、借阅日期、还书日期）（5） 图书库存信息 （图书编号、书名、库存量、单价）（6） 读者罚款信息（借书证号、书名、处罚日期、超期天数、罚款金额）（7）系统信息（用户名、密码）1.2 系统结构总图根据功能画出图书馆信息管理系统结构图，如图1.1所示。图1.1图书馆信息管理系统的总体结构2 数据库设计2.1 需求分析面对大量繁杂的图书信息管理、分类、查询与借还工作，迫切需要通过计算机来帮助解决，减少图书馆管理人员的工作量。随着办公自动化的深入及普及和网络技术的不断发展，图书馆信息管理系统越来越被社会所需要

2、，本图书馆信息管理系统具有界面友好、使用方便等优点。1、图书信息查询。当需要从数据库中查找满足查询条件的图书时，可以使用该功能。选择查询条件填入对应的功能，点击“查询”完成查询操作。2、借阅管理。借阅管理分为借阅和归还两部分。点击“借阅”单选按钮，这时扫入图书相关信息就可以借阅了。3、注册新用户。注册新用户是用来注册能使用该软件的用户名和密码。当注册完用户之后，退出该软件重新进入，会要求选择用户名和密码，此时如果不能正确输入密码，则不能进入该软件。2.2 E-R模型图书馆信息管理系统E-R图，如图2.1所示。图2.1 图书馆信息管理系统E-R图2.3 关系模型一个实体型转换为一个关系模式1。实

3、体的属性就是关系的属性，实体的码就是关系的码。根据E-R图向关系模型转换的原则，把图2.2中的E-R图转换为关系模型。（1）图书信息 （图书编号、书名、作者、版次、出版社、出版日期、类别、借阅次数、借阅状态）图2.2 图书信息关系模型图（2）读者信息 （借书证号、姓名、性别、年龄、单位、联系电话、读者类别、是否超期）图2.3 读者信息关系模型图（3）图书入库信息 （图书编号、库存量、单价、入库日期）图2.4 图书入库信息关系模型图（4）图书出库信息（借书证号、书名、借阅日期、还书日期）图2.5 图书出库信息关系模型图（5）图书库存信息 （图书编号、书名、库存量、单价）图2.6 图书库存信息关系

4、模型图（6）读者罚款信息（借书证号、书名、处罚日期、超期天数、罚款金额）图2.7 读者罚款信息关系模型图2.4 表结构设计本系统需在SQL Server中建立七个表，分别为图书信息，读者信息，图书入库信息、图书出库信息、图书库存信息、读者借书信息和系统信息。（1）图书信息表的结构与基本数据：表结构：图2.8图书信息表结构 基本数据如下：图2.9 图书信息数据（2）读者信息表的结构与基本数据：图2.10 读者信息表结构图2.11 读者信息基础数据（3）图书入库信息表的结构与基本数据：图2.12 图书入库表结构图2.13 图书入库基础数据（4）图书出库信息表的结构与基本数据：图2.14 图书出库表

5、结构图2.15 图书出库基础数据（5）图书库存信息表的结构与基本数据：图2.16 图书库存表结构图2.17 图书库存基础数据（6）读者借书信息表的结构与基本数据：图2.18 读者借书表结构图2.19 读者借书基础数据（7）系统信息表的结构与基本数据：图2.20 系统信息表结构图2.21系统信息基础数据3 系统各功能模块的详细设计本图书馆信息管理系统共包括11个窗体，分别为欢迎，登录，注册新用户，图书信息浏览，读者信息浏览，图书出库信息，图书入库信息，图书信息查询，读者信息查询，图书库存信息查询和主窗体。其中主窗体为MDI窗体2。下面介绍各个窗体的设计语句及实现功能。3.1 封面封面，如图3.1

6、所示，标题为“欢迎进入图书馆管理系统”，点击“进入系统”按钮，就可以关闭本窗体并打开登录窗体。图3.1 封面封面代码如下：Private Sub Command1_Click（）登录窗体.ShowUnload MeEnd SubPrivate Sub Timer1_Timer（）Static n As Integer n = n + 1If n 15 Then n = 0End IfLabel1.ForeColor = QBColor（n）3.2 登录登录，如图3.2所示，若已经有账号，只需输入正确的用户名和密码，点击“登陆”按钮就可以打开MDI主窗体，如图3.4所示；若没有账号，点击“注册”

7、按钮，就可以打开注册新用户窗体，如图3.5所示。图3.2 登录登录代码如下：注册用户.ShowPrivate Sub Command2_Click（）Dim micount As IntegerDim str As Stringstr = select 密码 from 系统信息 where 用户名 = & Text1.Text & Adodc1.RecordSource = strAdodc1.RefreshIf Adodc1.Recordset.EOF = True ThenMsgBox 用户名错误,请重新输入, vbExlamation, 警告Text1.Text = Text2.Text

8、 = Text1.SetFocusElseIf Trim（Adodc1.Recordset.Fields（密码） = Trim（Text2.Text） ThenMDIForm1.Show MsgBox 密码错误，请重新输入Text2.SetFocusmicount = micount + 1If micount = 3 Then Unload MePrivate Sub Command3_Click（）封面.Show3.3 主菜单主窗体，如图3.3所示，设计为MDI窗体，含有主菜单：系统管理、数据管理、数据查询。系统管理菜单包含注册新用户菜单和退出菜单。数据管理包含图书出库管理菜单，图书入库管

9、理菜单， 读者罚款管理菜单和读者信息管理菜单。数据查询包含查询图书信息菜单，查询图书库存信息菜单和查询读者信息菜单。图3.3 主窗体主菜单代码如下：Private Sub 图书信息浏览_Click（）图书信息浏览.ShowPrivate Sub mFExit_Click（）Private Sub 查询读者信息_Click（）读者信息查询.ShowPrivate Sub 查询图书库存信息_Click（）图书库存信息查询.ShowPrivate Sub 查询图书信息_Click（）图书信息查询.ShowPrivate Sub 读者罚款管理_Click（）读者罚款.ShowPrivate Sub 图

10、书出库信息_Click（）图书出库.ShowPrivate Sub 读者信息管理_Click（）读者信息.ShowPrivate Sub 新用户注册_Click（）Private Sub 图书信息查询_Click（）Private Sub 读者信息查询_Click（）Private Sub 图书入库信息_Click（）图书入库.Show3.4 注册新用户注册新用户窗体可用于添加新的用户名和密码。可以通过单击“注册新用户”菜单，打开对话框；也可以在登录窗体，点击“注册”按钮，进行注册。若输入正确，则将新的用户名和密码保存到“系统信息”表中，并提示“注册完成”，关闭本窗体，如图3.4所示。图3.4

11、 注册成功注册新用户代码如下：Dim str1 As Stringstr1 = select * from 系统信息Adodc1.RecordSource = str1If Text3.Text Text2.Text Then密码不相同，请重新输入！Text3.Text = Adodc1.Recordset.AddNewAdodc1.Recordset.Fields（用户名） = Text1） = Text2Adodc1.Recordset.Update注册完成！3.5 读者信息管理读者信息管理窗体用于浏览和录入读者信息4。该窗体以文本框显示当前记录，用按钮首记录、末记录、前移、后移，控制记录

12、指针的移动；用一个标签Label显示：当前记录号/记录总数；单击返回按钮，可以关闭本窗体，返回主窗体。可以对记录进行添加、确认、删除、取消操作，如图3.5所示。其余信息管理窗体与代码均与此类似，不作说明。图3.5 读者信息浏览窗体读者信息代码如下：Private Sub cmdadd_Click（）cmdadd.Enabled = Falsecmddel.Enabled = Falsecmdok.Enabled = TruecmdCancel.Enabled = TrueLabel5.Caption = 记录： Adodc1.Recordset.AbsolutePosition &/ Adod

13、c1.Recordset.RecordCountPrivate Sub cmdCancel_Click（）Private Sub cmddel_Click（）x = MsgBox（确实要删除当前记录吗？, vbYesNo + vbQuestion）If x = vbYes ThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveNextAdodc1.Recordset.MoveLastPrivate Sub cmdfirst_Click（）Adodc1.Recordset.MoveFirstcmdfirst.Enabled = Falsecmdpre.E

14、nabled = Falsecmdnext.Enabled = Truecmdlast.Enabled = TruePrivate Sub cmdlast_Click（）cmdfirst.Enabled = Truecmdpre.Enabled = Truecmdnext.Enabled = Falsecmdlast.Enabled = FalsePrivate Sub cmdnext_Click（）Private Sub cmdok_Click（）cmdadd.Enabled = Truecmddel.Enabled = Truecmdok.Enabled = FalsecmdCancel.

15、Enabled = FalsePrivate Sub cmdpre_Click（）Adodc1.Recordset.MovePreviousIf Adodc1.Recordset.BOF = True ThenPrivate Sub Form_Load（）3.6 图书库存信息查询图书库存信息查询窗体可以满足按各种条件的查找5，这些条件放在组合列表框Combo中,供用户选择。在文本框中输入要查询的内容，如图3.6所示，单击查询按钮，查询结果用网格控件显示如3.7所示。其余查询窗体与代码均与此类似，不作另行说明。图3.6 图书库存信息查询窗体图3.7 查询结果图书库存信息查询代码如下： Selec

16、t * From 图书库存 str = str & Where 图书库存. Combo1.Text & Like Text1 &% Adodc1.RecordSource = str Adodc1.RefreshCombo1.AddItem 图书编号书名库存量单价Combo1.Text = Private Sub DataGrid1_Click（）图书名Text6.Text = 总结通过这次数据库课程设计，我学会了如何利用Microsoft SQL Server2005软件建立相关信息的数据库，并通过Microsoft Visual Basic 6.0实现对相关信息的查询，将所学知识都运用到实

17、践中去，增加了我对数据库的兴趣，让我能更清楚地了解到数据库在现实生活中为我们带来的极大便利，方便我们将所需要的信息进行规划和管理，将信息集中管理也为我们查询我们所需要的信息带来了简易的途经。但是，这个图书馆信息管理系统并不是很完善，还有需改进之处。最后，感谢数据库课程设计老师对我耐心的教导和帮助，为我解决了许多在课堂上没弄懂的问题，让我对数据库有了更进一步的认识和了解。今后我会更加努力学习数据库的相关知识，相信能为我以后带来很大的帮助。参考文献1 王珊.数据库系统简明教程.北京：高等教育出版社.2004,92 赛奎春.Visual Basic信息系统开发实例精选.北京 ：高等教育出版社.2004，93 刘韬,何旭洪.Visual BASIC数据库系统开发实例导航.北京：人民邮电出版社.2002，104 张海潘.软件工程导论.北京：清华大学出版社.1999,19（2）;1381435 闫宏印.VB程序设计.北京：电子工业出版社.2002;120