数据库优秀课程设计图书综合管理系统.docx

数据库大作业信息科学和工程学院12月图书信息管理系统姓 名：汤江波班 级：电气T1501学 号：指导老师：韩华目录1.绪论41.1 背景介绍41.2 开发背景选择及介绍42.需求分析52.1 系统需求52.2 功效需求53.概念设计阶段43.1 实体E-R图64.逻辑结构设计阶段64.1 E-R图转换为关系模型64.2 数据字典65数据库实施和维护75.1 创建数据库、数据表76.应用程序设计86.1 图书管理员管理处理86.2 图书查询126.3 用户登录176.4 背景设置227. 心得体会248.参考文件241.绪论1.1 背景介绍伴随社会发展，大家对于知识需求也在不停地增加。书籍作为大家获取并增加知识关键路径，使得图书馆在大家生活中占有了一定位置。不过近几年来，伴随书量不停增加，造成了书库空间极度不足，图书挤压，管理不善。这些全部直接影响了读者对图书馆藏书充足利用。这时图书馆就尤其需要开发一套书刊租借管理系统，经过该系统来提升图书馆管理效率，从而降低管理方面工作流和成本。一个现代化图书馆在正常运行中总是面对大量读者信息，书籍信息和二者相互作用产生借书信息，还书信息。面对图书馆数以万计图书，纷繁复杂读者信息，频繁更替借还书信息，传统直接方法不仅管理出现漏洞，造成损失。所以有一个智能化、系统化、信息化图书管理系统十分关键。充足利用计算机功效实现对读者管理、书籍管理，借阅管理等自动化控制，将会使图书馆工作大大减弱。方便友好图形界面、简便操作、完善数据库管理。将会使得图书馆系统极大程度应用于现代化图书管理中。1.2 开发背景选择及介绍1.2.1 SQL Server R2介绍SQL是英文（Structured Query Language）缩写，意思为结构化查询语言。SQL语言关键功效就是同多种数据库建立联络，进行沟通。SQL被作为关系型数据库管理系统标准语言。SQL语句能够用来实施多种多样操作，比如更新数据库中数据，从数据库中提取数据等。现在，绝大多数流行关系型数据库管理系统，如Oracle, Sybase, Microsoft SQL Server, Access等全部采取了SQL语言标准。SQL语言有以下多个优点：1. 非过程化语言SQL是一个非过程化语言，因为它一次处理一个统计，对数据提供自动导航。SQL允许用户在高层数据结构上工作，而不对单个统计进行操作，可操作统计集，全部SQL 语句接收集合作为输入，返回集合作为输出。SQL集合特征许可一条SQL语句结果作为另一条SQL语句输入。SQL不要求用户指定对数据存放方法， 这种特征使用户更易集中精力于要得到结果；全部SQL语句使用查询优化器，它是RDBMS一部分，由它决定对指定数据存取最快速度手段，查询优化器知道存在什么索引，在哪儿使用索引适宜，而用户则从不需要知道表是否有索引、有什么类型索引。2. 统一语言 SQL可用于全部用户DB活动模型，包含系统管理员、数据库管理员、 应用程序员、决议支持系统人员及很多其它类型终端用户。基础SQL 命令只需极少时间就能学会，最高级命令在几天内便可掌握。3. 全部关系数据库公共语言 因为全部关键关系数据库管理系统全部支持SQL语言，用户可将使用SQL技能从一个RDBMS(关系数据库管理系统)转到另一个，全部用SQL编写程序全部是能够移植。1.2.2 VB6.0介绍VB 就是 Visual Basic 意思，是一个常见编程开发工具。它基础是编程语言Basic ，Visual Basic 简单点来说就是微软为了愈加好让大家学习编程，应用上 Basic 开发语言一套工具，简称就是 VB。VB 面世使原本极其复杂困难编程、软件开发工作变得简单。VB 是 Basic 语言软件开发者首选编译器，是学习 Basic 语言编程必需要接触而且是常常接触一款整合型技术编译器。2.需求分析2.1 系统需求图书管理系统关键功效是用于查询各项图书基础信息（包含图书编号、书名、作者、价格等），用户对图书借阅，归还和修改用户密码等操作。用户图书信息管理系统 借阅信息 罚款管理员 修改密码 用户信息 借书 还书游客 图书信息 图书查询图1-1 图书信息管理系统需求分析2.2 功效需求1. 系统管理。系统管理功效是在该系统运行结束后，用户经过选择“系统管理”-“退出”命令能正常退出系统，回到Windows环境。2. 管理员登录。管理员能够方便进行图书管理，用户管理。图书管理包含图书信息查询，添加，修改，删除。用户管理包含用户信息添查询，添加，修改和删除。3. 背景设置。设置背景和背景音乐。这是一个辅助功效，目标是让操作者能在一个轻松、愉快环境下使用图书管理系统。4. 图书查询。未注册用户读者也能够浏览全部图书信息，不过无法借阅。5. 帮助。相关中显示相关图书管理系统信息。6. 用户登录。用户经过卡号和密码进行登录。登录后用户可进行图书借阅，归还，超期罚款，修改密码和借阅信息查询等操作。3. 概念设计阶段 3.1实体E-R图3.1.1 管理员实体E-R图 账户 密码管理员3.1.2系统E-R图4.逻辑结构设计阶段4.1 E-R图转换为关系模型 图书信息（编号，书名，作者，价格，出版社，类型，库存）读者（卡号，姓名，性别，类型，登录密码，罚款，借书数量，余额，等级，单位）借阅（编号，卡号，借书时间，还书时间）管理员（账户，密码）4.2 数据字典 表4-2-1 图书信息表表中列名数据种类及长度可否为空编号char(10)Not null书名nchar(20)Not null作者nchar(20)Not null价格float Null出版社nchar(20)Null类型nchar(20)Not null库存intNot null 表4-2-2 用户表表中列名数据种类及长度可否为空卡号char(10)Not null姓名nchar(10)null性别nchar(10)null类型nchar(10)Null登录密码varchar(10)null罚款floatnull借书数量intnull余额floatnull等级nchar(20)null单位nchar(10)null表4-2-3 借阅表表中列名数据种类及长度可否为空编号char(10)Not null卡号char(10)Not null借书时间datetimeNot null还书时间datetimenull表4-2-4 管理员表表中列名数据种类及长度可否为空账户nchar(10)Not null密码nchar(10)Not null5.数据库实施和维护5.1 创建数据库，数据表5.1.1 创建book数据库5.1.2 创建图书信息表5.1.3 创建用户表5.1.4 创建借阅表5.1.5 创建管理员表6. 应用程序设计 6.1 图书管理员管理处理6.1.1 管理员处理步骤图开始 管理员登录 否 判定密码 管理员界面 是选择操作图书管理用户管理 退出结束6.1.2 管理员处理功效实现 6.1.2.1 管理员登录输入管理员账户和密码，按登录键登录，或按 Enter 键快捷登陆，返回键返回 Public try As Integer 登录次数Private Sub Command1_Click() If Text1 = Then MsgBox 请输入管理员账户, , 登录 Text1.SetFocus Exit Sub End If If Text2 = Then MsgBox 请输入密码, , 登录 Text2.SetFocus Exit Sub End If sqlstr = select * from 管理员 where 账户= & Trim(Text1) & and 密码= & Trim(Text2) & Adodc1.RecordSource = sqlstr Adodc1.Refresh With Adodc1.Recordset If Not .EOF Then guanliyuan.Show Unload Me Else MsgBox 账户或密码输入错误，请重新输入。, vbOKOnly + vbExclamation, 警告 Text1 = Text2 = Text1.SetFocus try = try + 1 If try 2 Then MsgBox 三次输入错误,系统将关闭, , 登录 End Else Exit Sub End If Exit Sub End If End WithEnd SubPrivate Sub text2_keypress(keyascii As Integer)If keyascii = 13 ThenCommand1_ClickEnd IfEnd SubPrivate Sub Command2_Click() Unload MeEnd Sub 6.1.2.2 管理员页面管理员界面有对图书和用户添加，查询，修改，删除操作。Private Sub books_add_Click()addbook.ShowEnd SubPrivate Sub books_dq_Click()bookmodify.ShowEnd SubPrivate Sub books_qur_Click()chaxun.ShowEnd SubPrivate Sub Command1_Click()Unload MeEnd SubPrivate Sub users_add_Click()adduser.ShowEnd SubPrivate Sub users_dq_Click()usersmodify.ShowEnd SubPrivate Sub users_qur_Click()chaxun1.ShowEnd Sub 6.1.2.3 添加图书/用户对图书添加操作和对用户添加操作实质是相同，只是表现形式不一样，这里以对图书添加为例。当全部信息全部输入后，实施添加操作，则会显示添加完成。假如信息不完整，则会显示请输入完整信息，同时将鼠标键入空信息栏。注意：编号设置为主键，故不能添加相同编号信息6.1.2.4 修改，删除图书/用户对图书修改，删除操作和对用户操作实质是相同，只是表现形式不一样，这里以对图书修改和删除操作为例。首先，你能够经过图书编号对图书信息查询，然后改动你所需要改动信息。对图书删除只需按删除按钮即可删除 6.2 图书查询6.2.1 图书查询步骤图开始 图书查询选择操作作者查询类型查询编号查询书名查询 退出结束6.2.2 图书查询功效实现管理员中图书查询操作和此相同，如将二者合一，同时，对图书查询操作和对用户操作实质是相同，只是表现形式不一样，故不再反复对用户查询操作。在查询操作中，能够选择按编号，书名，作者和类型四种方法查询，能够选择自己输入也可下拉菜单查询，查询结果显示在下方Option Explicit 在模块等级中使用，强制显式申明模块中全部变量。Public sqlstr As String窗体载入时初始化4个组合框，经过ADO数据控件获取各数据统计表Private Sub Form_Load() initbh initsm initzz initlxEnd Sub在组合框cbobh列表中列出全部编号Sub initbh() Adodc1.RecordSource = select 编号 from 图书信息 Adodc1.Refresh While Not Adodc1.Recordset.EOF cbobh.AddItem Adodc1.Recordset.Fields(编号) Adodc1.Recordset.MoveNext WendEnd Sub在组合框cbosm列表中列出全部书名Sub initsm() dodc1.RecordSource = select 书名 from 图书信息 Adodc1.Refresh While Not Adodc1.Recordset.EOF cbosm.AddItem Adodc1.Recordset.Fields(书名) Adodc1.Recordset.MoveNext Wend End Sub在组合框cbozz列表中列出全部作者Sub initzz() Adodc1.RecordSource = select 作者 from 图书信息 Adodc1.Refresh While Not Adodc1.Recordset.EOF cbozz.AddItem Adodc1.Recordset.Fields(作者) Adodc1.Recordset.MoveNext WendEnd Sub在组合框cbolx列表中列出全部类型Sub initlx() Adodc1.RecordSource = select distinct 类型 from 图书信息 Adodc1.Refresh While Not Adodc1.Recordset.EOF cbolx.AddItem Adodc1.Recordset.Fields(类型) Adodc1.Recordset.MoveNext WendEnd Sub选择Private Sub cbobh_click() Option1.Value = TrueEnd SubPrivate Sub cbosm_click() Option2.Value = TrueEnd SubPrivate Sub cbozz_click() Option3.Value = TrueEnd SubPrivate Sub cbolx_click() Option4.Value = TrueEnd Sub查询Private Sub Command1_Click() querybooks 调用querybooks子过程End Sub依据选择条件查询图书信息Sub querybooks() sqlstr = select 编号,书名,作者,价格,出版社,类型,库存 _ & from 图书信息 _ & where If Option1.Value = True Then sqlstr = sqlstr & 编号= & Trim(cbobh.Text) & End If If Option2.Value = True Then sqlstr = sqlstr & 书名= & Trim(cbosm.Text) & End If If Option3.Value = True Then sqlstr = sqlstr & 作者= & Trim(cbozz.Text) & End If If Option4.Value = True Then sqlstr = sqlstr & 类型= & Trim(cbolx.Text) & End If sqlstr = sqlstr & order by 编号 Adodc1.RecordSource = sqlstr Adodc1.Refresh If Adodc1.Recordset.RecordCount = 0 Then MsgBox 没有查找到满足条件数据！, vbExclamation, 提醒 Else Set DataGrid1.DataSource = Adodc1 DataGrid1.Columns(0).Width = 1000 DataGrid1.Columns(1).Width = DataGrid1.Columns(2).Width = 1000 DataGrid1.Columns(3).Width = 1000 DataGrid1.Columns(4).Width = 1300 DataGrid1.Columns(5).Width = 1000 DataGrid1.Columns(6).Width = 1000 DataGrid1.Refresh End If Label2.Caption = 共查询到 & Adodc1.Recordset.RecordCount & 条统计End SubPrivate Sub Command2_Click()Unload MeEnd Sub 6.3 用户登录6.3.1 用户登录步骤图开始 用户登录判定密码 否 用户功效界面 功效选择退出登录我要借书超期罚款修改密码我要还书借阅信息结束6.3.2 用户登录功效实现6.3.2.1 我要借书用户能够经过选择书编号进行借阅，借阅以后会在借阅表中产生借阅信息。依据用户不一样，借书数量不一样，老师为10本，学生为5本，当库存不足时会显示库存不足，这时借阅会失败。6.3.2.2我要还书用户能够经过选择书编号进行还书，还书以后会在借阅表中产生还书信息6.3.2.3 借阅信息将借阅表中信息显示出来6.3.2.4 超期罚款当借阅时间超出要求时间（老师为90天，学生为60天），便会产生超期罚款，超期时间，天天罚款0.1元6.3.2.5 修改密码用户可在此进行密码修改，当新密码和确定密码不相同时，确定按钮则会变成不能够状态，且确定密码右侧会有“两次密码不一样，请确定密码”提醒，只有当新密码和确定密码相同时，确定按钮才会变成可用状态Private Sub Command1_Click() If Text1 = Then MsgBox 请输入账户, , 登录 Text1.SetFocus Exit Sub End If If Text2 = Then MsgBox 请输入密码, , 登录 Text2.SetFocus Exit Sub End If If Text3 = Then MsgBox 请输入新密码, , 登录 Text3.SetFocus Exit Sub End If sqlstr = select * from 用户 where 卡号= & Trim(Text1) & and 登录密码= & Trim(Text2) & Adodc1.RecordSource = sqlstr Adodc1.Refresh With Adodc1.Recordset If Not .EOF Then .Fields(登录密码) = Trim(Text4) .Update MsgBox 密码修改成功! Text1 = Text2 = Text3 = Text4 = Unload Me Else MsgBox 账户或密码输入错误，请重新输入。, vbOKOnly + vbExclamation, 警告 Text1 = Text2 = Text3 = Text4 = Text1.SetFocus Exit Sub End If End WithEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Text4_Change() Command1.Enabled = False If Trim(Text4) = Trim(Text3) Then Label5.Caption = 两次密码相同 Command1.Enabled = True Else Label5.Caption = 两次密码不一样，请确定密码 Exit Sub End IfEnd SubPrivate Sub text4_keypress(keyascii As Integer)If keyascii = 13 ThenCommand1_ClickEnd IfEnd Sub6.4 背景设置Private Sub Form_Load()窗体居中显示 Me.Light(0).Enabled = True Me.Light(1).Enabled = False Me.Music(0).Enabled = True Me.Music(1).Enabled = False准备播放音乐 IsMusicOn = False WindowsMediaPlayer1.URL = App.Path & /bg.mp3 歌曲位置 WindowsMediaPlayer1.uiMode = mini 播放器界面模式 WindowsMediaPlayer1.settings.volume = 100 音量，0-100 WindowsMediaPlayer1.settings.playCount = 100 播放次数 WindowsMediaPlayer1.Controls.stop MsgBox 欢迎使用中南大学图书馆管理系统End SubPrivate Sub Form_Unload(Cancel As Integer)退出时检验并关闭音乐 If IsMusicOn = True Then WindowsMediaPlayer1.Controls.stop End IfEnd SubPrivate Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)End Sub背景图片控制Private Sub Light_Click(Index As Integer) Light(Index).Enabled = False If Index = 0 Then 打开背景图片 Image1.Visible = True Light(1).Enabled = True End If If Index = 1 Then 关闭背景图片 Image1.Visible = False Light(0).Enabled = True End IfEnd Sub背景音乐控制Private Sub Music_Click(Index As Integer) Music(Index).Enabled = False If Index = 0 Then 打开背景音乐 IsMusicOn = True WindowsMediaPlayer1.Controls.play 播放 Music(1).Enabled = True End If If Index = 1 Then 关闭背景音乐 IsMusicOn = False WindowsMediaPlayer1.Controls.stop 关闭 Music(0).Enabled = True End IfEnd Sub7.心得体会1. 这次课程设计使我熟悉了系统设计整体步骤。系统设计大致可分为需求分析、概念设计、逻辑设计、物理设计、功效实现及调试测试六大步骤。其中，让我感慨最深是需求分析阶段，在这两个阶段，必需对所要设计系统有总体构思和了解，知道自己要做什么，要实现什么，而且要实际进行相关调查，不能凭想象或自己了解，这么会在后续工作中碰到很多问题。还有功效实现阶段，在此阶段，我们经过所学知识，和利用书本和网上资料，将理论付诸实践，将设计出来虚构东西变成实实在在一个程序，必需知道怎样高效利用身边资源。2. 这次课程设计加深了我对数据库系统概论相关知识和SQL Server R2和VB6.0相关功效了解。比如对建立基础表，对控件使用还有对SQL语言和VB语言利用等，全部比以前愈加熟练。并在处理碰到多种问题过程中，学到了很多新知识。3. 当然，在实习过程中也存在部分问题。因为需求分析阶段工作完成不是很充足，在后面设计过程中，前后时常会出现矛盾，不一致现象，所以要反复修改前面结果，造成整个工作进行不是很顺利。4. 我们做任何事，不管是课程设计还是其它部分事，全部会碰到部分困难，在这时候，千万不能有退却想法，一定要迎难而上，只要你坚持做下去，困难终会被克服，这是此次课程设计给我最大致会。8.参考文件 1 王小玲 安剑奇，数据库技术和应用（SQL Server ）；中国水利水电出版社2 王小玲 安剑奇，数据库技术和应用（SQL Server ）实践教程；中国水利水电出版社