数据库课程设计-学校图书馆管理系统的设计与实现

《数据库课程设计-学校图书馆管理系统的设计与实现》由会员分享，可在线阅读，更多相关《数据库课程设计-学校图书馆管理系统的设计与实现（16页珍藏版）》请在金锄头文库上搜索。

1、合肥工业大学 05 级地理信息系统专业 2 班数据库课程设计（学号：）1数据库课程设计指导教师 专 业 班 级 学 号 姓 名 合肥工业大学 05 级地理信息系统专业 2 班数据库课程设计（学号：）2学校图书馆管理系统的设计与实现1 引言大学校园的的图书馆是大学生们汲取知识，自我培养的最佳之处，我们要努力为大学生创造良好的学习环境，珍惜大学生的时间，以最优，最快的方式为大学生提供服务。我们的目标就是要让每个大学生都能爱上我们的图书馆，自由自在的畅游在书的海洋中。人工手工操作不仅效率低，错误率高，工作人员还会因为繁杂的重复劳动而心情变坏，不仅更加降低了工作效率，而且对学生的态度会明显下降，严重影

2、响整个图书馆的环境。所以我们有必要建立这个图书馆管理系统。这个图书馆管理系统功能并不复杂，操作比较简单，对象主要分为两类，一类是管理员，一类是读者。管理员可以将读者的信息注册进入图书馆数据库中，对图书馆内的藏书也可以登记入库，实行统一管理。同时借书，读者自己在电脑中便可完成借书的手续，无须再经过图书管理员的操作，这样大大节省了管理员的工作量，而且工作的效率要比管理员集中操作快很多。对于这个系统，没有给读者修改自己个人信息的权利，统一由管理员登记入库，所以读者如果发现自己的数据库信息有误，无法自己进行修改，需要执有效证件去管理员那修改。同时，未保障读者的信息隐私，我们未提供给读者查询其他读者信息

3、的功能，只有管理员可以查看，修改等。这个图书馆系统比较简单，界面一般，虽说还算比较友好，但是还不算吸引人。一些在程序编辑中存在的小错误还未得到完全的修改，可能在某种未知的操作过程会出现程序的中断或是系统的崩溃。这次的系统开发由于时间比较仓促，实现的功能比较简单，还有许多错误，还需要以后继续修改，完善。选择开发工具为 VB6.0+SQL Server2000。2 需求分析图书信息包括：图书序号、书名、类别、出版社、作者、状态。读者信息包括：读者证号、读者姓名、读者性别、联系方式、已借书数。实体之间的联系：读者借阅图书。图书中序号为主键，读者中读者证号为主键，借阅关系中读者证号，图书序号，借阅时间

4、为主键。合肥工业大学 05 级地理信息系统专业 2 班数据库课程设计（学号：）3E-R 图：3、数据库逻辑设计表 1：读者信息表结构字段名 字段类型 字段长度 允许空置读者证号（主键） 字符型 10 字节 否姓名 字符型 10 字节 否性别 字符型 10 字节 否联系方式 字符型 10 字节 是图 书读 者借 阅借阅日期应还日期读者证号 读者姓名 读者性别 已借书数图书序号 书 名 类 别 出 版 社 作 者读者证号状态图书序号联系方式1N合肥工业大学 05 级地理信息系统专业 2 班数据库课程设计（学号：）4已借书数 数值型 4 字节 是表 2：图书信息表结构字段名 字段类型 字段长度 允许

5、空置图书序号（主键） 数值型 10 字节 否书名 字符型 10 字节 否类别 字符型 10 字节 是出版社 字符型 10 字节 是作者 字符型 10 字节 是状态 逻辑型 1 字节 否表 3：借阅信息表结构字段名 字段类型 字段长度 允许空置读者证号（主键） 字符型 10 字节 否图书序号（主键） 字符型 10 字节 否借阅时间（主键） 日期型 8 字节 否应还时间 日期型 8 字节 是表 4：用户登入帐号表结构字段名 字段类型 字段长度 允许空置用户帐号（主键） 字符型 10 字节 否密码 字符型 10 字节 否类型 逻辑型 1 字节 否4、系统功能设计系统的主要功能包括：(1) 读者注册管

6、理；(2) 图书入库管理；(3) 图书查询读者信息查询；(4) 图书借阅归还管理(5) 帮助 ；(6) 系统退出。合肥工业大学 05 级地理信息系统专业 2 班数据库课程设计（学号：）55、程序设计信息查询信息查询最主要的是正确与数据库相链接，并使用正确的 SQL 语句实现，复杂情况下可能会出现多级查询，要十分注意。更新程序的设计多表操作是数据库中比较难的开发专题，它涉及到数据库中的关系操作的基本方法问题。例如本系统中要从建立的三个基本数据表中，借书还书，就要涉及到这三个数据表，读者表，借阅表，图书表，为了解决这个问题，我采用了多 SQL 语句加以实现。数据库添加，删除数据在添加数据数据时要注

7、意，数据库中字段的类型，长度，是否允许为空置，应对应输入，都则无法将数据添加进数据库中；在删除数据时，要注意表表之间的关系，比如要删除一本书，不仅要在图书表中删除，同时还要考虑，那本书在借阅表中数否有记录，删除时不应引起数据库的异常。系统登入（验证）管理员登入 读者登入主窗体 主窗体读者信息管理图书信息管理图书信息查询帮助 退出系统个人信息查询借书 还书添加修改删除合肥工业大学 05 级地理信息系统专业 2 班数据库课程设计（学号：）66、结束语本学期对 VB 编程和数据库的实践微乎其微，原来的记忆，经验都淡忘了许多。刚拿到这个课程设计时，当时感觉和上学期我们做的数据库大实验差不多，所以想不能

8、停留在原地了，应该要有所进步，在选择编程软件和数据库软件时，踌躇了好一阵，在图书馆里也查找了很多资料，虽然最后自己感觉时间比较紧，来不及再重新学门新的编程环境或是换个数据库软件，最后还是选择了 VB 编程和 SQL-Server2000 来做这个课程设计，但是在图书馆中的踌躇经历也是一段知识积累的过程。再图书馆中，我看到了用 C#编程环境来实现数据库链接的，看了 VB+ASP 等开发的。同时也考虑过使用GIS 组件 MO 开发，但是还是因为只剩下这一周不到了的时间了，所以实在有些来不及，最终选择了自己比较熟悉的 VB+SQL-Server。这次课程设计，我收获颇丰，首先是把原来淡忘的知识重新温

9、故了一遍，很多知识直接做一点也想不起来了，但是只要稍微看下提示，或是书中的范例，那些语法，方法大都都又跃然纸上，要是没有这个课程设计，说不定再过半年什么的，我们就把原来的知识都忘得干干净净的了。这次我做的是图书管理系统，由于时间原因，没有把系统设计得很详细，很周到，很复杂，但系统的主要功能我都实现了，界面自我感觉还算友好，只是没有太多的测试，其中还有些错误没有修正，对一些特殊操作可能会出现程序调试错误。由于时间实在不容许，没能一个一个仔细的修正。总之，这次课程设计使我们学会了在短期时间内的系统开发，我感觉这种开发首先应该全神贯注，抓紧时间，其次应该先对系统中的主要功能加以认真实现，对细枝末节尽

10、量完善，避免由于这些小错误而出现的系统崩溃等现象。7、参考文献1.SQL Server 2000 应用系统开发教程清华大学出版社 李春葆 主编 2005 年版2.Visual Basic 管理信息系统完整项目实例剖析 人民邮电出版社 2005 年版3.Visual Basic 程序设计标准教程 上海科学普及出版社 袁福庆 主编 2007 年版4.数据库技术 安徽大学出版社 五国凤 主编 2004 版8、附录合肥工业大学 05 级地理信息系统专业 2 班数据库课程设计（学号：）7管理员登入合肥工业大学 05 级地理信息系统专业 2 班数据库课程设计（学号：）8图书信息管理系统：合肥工业大学 05

11、 级地理信息系统专业 2 班数据库课程设计（学号：）9读者身份登入合肥工业大学 05 级地理信息系统专业 2 班数据库课程设计（学号：）10合肥工业大学 05 级地理信息系统专业 2 班数据库课程设计（学号：）11部分关键代码如下所附：登入窗体Dim cn As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim str, Msgtext As String Private Sub cmd_exit_Click()EndEnd Sub Private Sub cmd_login_Click()Static count1 As Integer

12、Static intCount2 As IntegerSet cn = New ADODB.ConnectionIf cn.State = 1 Then cn.Closecn.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=dbKCSJcn.Opencn.CursorLocation = adUseClient合肥工业大学 05 级地理信息系统专业 2 班数据库课程设计（学号：）12Set rs = New ADODB.Reco

13、rdsetSQL = select * from Administrators where ID = & Val(Trim(txt_id.Text) & If rs.State = 1 Then rs.CloseSet rs = ExecuteSQL(SQL, Msgtext)If rs.EOF = True ThenMsgBox 没有这个用户，请重新输入用户名! & vbCrLf & 你最多有三次机会！, vbOKOnly + vbExclamation, 警告txt_id.SetFocustxt_id.SelStart = 0txt_id.SelLength = Len(Trim(txt_

14、id.Text)count1 = count1 + 1If count1 3 Thencount1 = 0Me.HideEnd IfElseIf Trim(rs.Fields(1) = Trim(txt_pass.Text) ThenIf rs.Fields(2) = True ThenMsgBox 欢迎你以管理员身份登陆！, 64, 欢迎frm_main.Menu_BoRe.Enabled = Falsefrm_main.Toolbar_main.Buttons.Item(3).Enabled = Falsefrm_main.Menu_ReaderQu.Enabled = Falsefrm_

15、main.Toolbar_main.Buttons.Item(5).Enabled = Falsefrm_main.Toolbar_main.Buttons.Item(6).Enabled = Falsefrm_BookQuBo.CmdBorrow.Enabled = FalseMe.Hidefrm_main.ShowElseMsgBox 欢迎你以用户身份登陆！, 64, 欢迎frm_main.Menu_InfOp.Enabled = Falsefrm_main.Toolbar_main.Buttons.Item(1).Enabled = Falsefrm_main.Toolbar_main.Buttons.Item(2).Enabled = FalseMe.Hidefrm_main.ShowDim strS As Strings = Frm_login.txt_id.TextEnd IfElseMsgBox 输入密码不正确，请重新输入！ & vbCrLf & 你最多有三次机会！, vbOKOnly + vbExclamation, 警告txt_pass.