图书管理系统—免费计算机毕业设计论文

图书管理系统—免费计算机毕业设计论文内容摘要：

下一阶段设计工作可用的形式信息，必须对需求信息做分析整理的工作。 （ 2）需求信息的评审通过 3具体数据表设计 系统一共五张表：表 Administrator 表 book 表 book_history 表 BS 表 第 9 页 共 24 页 Student 表 Administratorc 设计如下图： 表 1 Administrators设计 列名 数据类型 长度 允许为空 ID int 4 F Name varchar 10 F Password varchar 10 T 表 Book 设计如下图： 表 2 Book设计 表 book_history 设计如下表 : 表 3 book_history设计 列名 数据类型 长度 允许为空 ID int 4 F name varchar 50 F Anchor varchar 20 F Publisher varchar 50 F price int 4 F PublishDate datetime 8 F flag int 4 T 列名 数据类型 长度 允许为空 ID int 4 F StudentsSID int 4 F BookID int 4 F BookName varchar 80 F BookBeginDate datetime 8 F BookGuihuanDate datetime 8 F EndDate datetime 8 T 第 10 页 共 24 页 表 BS设计如下图 : 表 4 BS设计 列名 数据类型 长度 允许为空 SID int 4 F ID int 4 F BeginDate datetime 8 T RemainDays int 4 T 表 student 设计如下图 表 5 student 设计 表 4 图书管理系统应用程序设计 登 录 窗体模块组成 1登 录 窗口 2数据库连接定义窗口 3读者增加 4学生借书与查询历史窗口 5书籍借阅历史 6主窗口 7读者选择 8增加书籍 9书籍选择 10 管理员增加 列名 数据类型 长度 允许为空 SID Int 4 F Sno Varchar 15 F SName Varchar 10 F Sex Varchar 2 F MaxNumber Int 4 F MaxDays Int 4 F RemainNumber Int 4 T 第 11 页 共 24 页 各窗体介绍 在窗体 中定义了数据库的连接，每次读完数据库都将数据库连接关闭，在每次需要用到数据库的时候打开连接就可以了，以免以后每次用到数据库都要重新定义连接。 其定义如下 Public constr As String = User ID=sa。 Password=。 database=homework。 server=(local) Public mycon As New SqlConnection(constr) Public my As SqlCommand Public myda As SqlDataAdapter 1 登 录 窗口 图 2登录 窗口界面 其登录 按钮代码为： If = Or = Then (用户名或密码不能为空 , 提醒 , , ) 此句的作用是判断用户名或者密码是否为空 Dim sqlstr As String = select Count(*) from Administrator Where Name=39。 amp。 amp。 39。 and Password=39。 amp。 amp。 39。 Dim my As New SqlCommand(sqlstr, mycon) If 1 Then Else ( 恭 喜 你 登 录 成功 !, 提醒 , 第 12 页 共 24 页 , ) End If () 其作用 是当用户名 或密码不为空时，将用户名与密码在数据库中进行比对。 比对成功就登录 成功 其中在管理员登录 窗口上姓名一栏已经读入了数据库中现存的管理员用户名，省去了 要管理员输入用户名这一步。 如果姓名一栏没有显示出名字就说明管理员中就没有此管理员（虽然可以自己输入，但是肯定是错误的用户名）。 在登录窗口中可以分别出来是用户名错误还是用户名正确密码错误，以便管理员更正用户名或者密码来更加方便的登录系统。 2登录 成功后的主窗口实现 图 3登录 成功后的主窗口界面 在此 窗口中的代码很简单：就只是菜单能在响应单击事件后能弹出窗口一般格式如下（以弹出 BookAdd 为例） Dim ps As New BookAdd = () 登录成功后就会弹出上面所示的窗口，同时登录窗口退出在窗口顶上注明了登录 人的身份。 以及一些基本信息（如：姓名 ,状态 ,身份 ）。 在主界面上分为：管理员管理 ,书籍管理 ,读者管理 ,查询管理，帮助。 在管理员管理 ,书籍管理 ,读者管 理 ,查询管理菜单下都有其子菜单，以实现具体的工作，点击就可以弹出相应的菜单执行相应的操作。 其中帮组菜单没有子菜单，点击帮助菜单后就会弹出帮助文档（为 .html 文档）在管理员菜单下的子菜单为：管理员维护，增加管理员。 在书籍管理菜单下的子菜单为：新增书籍管理，书籍借阅管理，书籍信息维护。 在读者管理菜单下的子菜单为： 读者信息增加，读者信息维护，借阅历史查看。 在查询管理菜单的子菜单为：书籍信息查询，读者信息查询。 第 13 页 共 24 页 3管理员信息维护 图 4管理员信息维护界面 在进入主界面以后就可以通过（管理员管 理 管理员信息维护）进入管理员信息维护界面 在管理员信息维护界面可以修改密码 并且在修改密码的时候要求输入原密码进行身份认证，以免被恶意篡改。 更改完成后就点击上面所示窗口的“更新”按钮就可以就新信息写如数据库。 首先判断用户名与密码是否为空，新输入的密码是否两次输入不一样 If CheckData() = False Then (用户名或密码不能为空 , 提醒 , , ) () Exit Sub End If If Then (新密码确认不一致 !, 提醒 , , ) () Exit Sub End If 如果以上条件都满足，就进入读取数据库，将数据与输入的信息进行比较，通过比较后的结果给出提示。 4管理员增加窗口 在此窗口中通过输入用户名来确定一个用户，并且输入一个密码来进行身份 第 14 页 共 24 页 验证。 同样，完成后点击窗口中的“增加”按钮就可以完成管理员增加 管理员增加窗口设计比较简单，仅需输入新用户名，密码，以及一次密码确认就可以增加一个管理员。 密码确认的目的是为了防止在新增加管理员的时候误输入密码避免以后的麻烦。 图 10管理员增加界面 图 5管理员增加 仍然 和上面一样，先检查是否输入为空或者是否两次输入密码不一样。 如果满足条件就可以进行下面的工作了 Try If = Then () End If sqlstr = insert into Administrator values(39。 amp。 amp。 39。 ,39。 amp。 amp。 39。 ) my2 = New SqlCommand(sqlstr, mycon) () (增加成功 !, 提醒 , , ) () Catch ex As Exception () End Try 5新增书籍窗口实现如下 ： 第 15 页 共 24 页 此窗口的功能就是录入新的图书信息，在录入图书信息时需要录入的信息有 ：书籍名称，作者，出版社，书籍定价，出版日期 图 6新增书籍窗口界面 在此窗口中可以进行新增书籍的操作 所有项必须全部添加 添加完成后通过点击“增加”按钮来完成新增书籍 “增加”按钮的事件代码 If CheckData() = False Then Exit Sub End If Try If = Then () End If Dim ID As Integer ID = GetHeightID() Dim ID1 As New SqlParameter(@ID1, , 4) = ID + 1 Dim sqlstr As String = insert into Book values(@ID1,39。 amp。 amp。 39。 ,39。 amp。 amp。 39。 ,39。 amp。 amp。 39。 ,39。 amp。 amp。 39。 ,39。 amp。 amp。 39。 ,1) 第 16 页 共 24 页 Dim my As New SqlCommand(sqlstr, mycon) (ID1) () (恭喜你，保存成功。 , 提醒 , , ) Call ClearData() () Catch ex As Exception () End Try 6图书信息维护实现如下 图 7图书信息维护界面 在此窗口中可以修改图书自身信息 如果在录入过程中输入错误书籍信息。 就可以通过这里进行补救。 对图书信息的作者，出版社，定价，出版日期进行修改修改完成后还是通过“更新”按钮来确认修改信息 “更新”按钮主要代码： If = Then () End If Dim ID2 As New SqlParameter(@ID2, , 4) = ID1 Dim sqlstr As String = update Book set Name=39。 amp。 amp。 39。 ,Anchor=39。 amp。 amp。 39。 ,Publisher=39。 amp。 amp。 39。 ,Price=39。 amp。 amp。 39。 ,PublishDate=39。 amp。 第 17 页 共 24 页 amp。 39。 Where ID=@ID2 and Flag=39。 039。 Dim my As New SqlCommand(sqlstr, mycon) (ID2) () (更新成功。 , 恭喜 , , ) () 7读者增加窗口实现如下： 图 8读者增加窗口界面 在此窗口中管理员可以受动输入读者信息来增加读者 新增读者中包含的项目如下： 学号 姓名 性别 最大借阅册数 最大借阅天数 在“增加”按钮中的主要代码为： If IsCheckSno() = False Then (你输入的学号不正确 ,请重新输入 , 提醒 , , ) = Exit Sub End If。