数据库系统课程设计-图书管理系统.doc

数据库系统课程设计 图书管理系统 作者： 日期：15 个人收集整理 勿做商业用途一相关技术介绍本程序使用ACCESS+VB 。NET结合编写的.Access是Office办公套件中一个极为重要的组成部分而Visual Basic 。NET（简称VB 。NET）是四个。NET语言之一，Microsoft提供用以构建最新的。NET组件、应用程序和服务。这是继Visual Basic 6（简称VB 6）之后最新版的语言，并且它是历史上划时代的一次跳跃。现在，VB .NET是真正面向对象的语言。程序编写环境：数据管理系统：Microsoft Office ACCESS程序编写平台：Microsoft Vieual Basic。NET操作系统：Microsoft XP SP2测试用帐号及密码：学生帐号：3264学生密码：888888管理员帐号:admin管理员密码：admin下面子系统是有本人编写的：l 管理员管理系统l 图书管理l 超时管理第二节需求分析数据字典数据库名：library。mdb1）数据库内含下列表admininfo （管理员资料)board （公告记录）bookinfo （图书资料)class （学生班级资料)classify （图书分类资料）landinfo （图书借阅登记资料）libraryinfo （图书馆基本配置记录）studentinfo （学生资料）2)数据库表详细设计admininfo，管理员资料记录表字段名称数据类型说明长度id自动编号管理员标识号长整型adminname文本登陆名10lpassword文本登陆密码10logins数字登陆次数长整型lastlogin日期/时间上次登陆时间tiptop数字是否最高管理员，是:1,否：0字节board,公告资料记录表字段名称数据类型说明长度id自动编号公告标识号长整型content文本公告内容60admin数字发表公告管理员ID长整型addtime日期/时间公告发表时间,默认：now（）bookinfo，图书资料记录字段名称数据类型说明长度id自动编号图书标识号长整型name文本图书名20classify数字图书分类整型author文本图书作者20bookconcern文本图书出版社25addtime日期/时间进馆时间，默认：now（)amount数字图书数量整型remain数字剩余数量整型loandegree数字借出次数长整型display数字是否显示，是：0,否：1字节class，学生班级资料记录字段名称数据类型说明长度id自动编号班级标识号长整型name文本班级名20classify，图书分类资料字段名称数据类型说明长度id自动编号分类标识号长整型name文本分类名10landinfo，图书借阅登记资料记录字段名称数据类型说明长度id自动编号借出图书标识号长整型bookid数字借出的图书标识号长整型studentid数字借书的学生标识号长整型landtime日期/时间借出时间，默认：Now(）returntime日期/时间实际还书的时间shouldreturntime日期/时间应该还书的时间hadreturn数字标识是否已经归还,是:1，否：0字节canreland数字续借次数长整型libraryinfo，图书馆基本配置记录字段名称数据类型说明长度canland数字是否可借出图书，是:1，否：0字节canlandnum数字可以借出图书的数量 默认：0整型canlanddays数字图书可以借阅时间 默认：60天整型canreland数字可以续借的次数 默认:5次整型boardreflash数字公告刷新时间 默认时间为6000毫秒长整型studentinfo，学生资料记录字段名称数据类型说明长度id自动编号学生标识号长整型name文本学生名5lpassword文本学生登陆密码10learnid文本学生学号12class数字班级标识号整型phone文本联系电话11lands数字借阅次数长整型logins数字登陆次数长整型lastlogin日期/时间最后登陆时间islock数字是否超时锁定是:1否：0字节3）安全性和完整性要求本程序实现学生与图书馆管理员的界面分离模式，同时实现管理员对学生有全面的资料管理功能。有多个图书、学生、系统的动态管理功能，如:图书的查询、添加、删除、修改与及学生的详细资料的查询、添加、删除、修改等等多样、动态的管理。同时可以放权给非最高级管理员查询、添加、删除、修改的能力，实现密码修改.第三节概念结构设计ER图学生管理管理员nn管理图书nn借阅nn管理班级属于nnnn第四节逻辑结构设计系统总体设计包括两大系统：一、学生图书借阅系统图书借阅，归还，续借系统，修改登陆密码系统二、管理员系统包括：1）管理员管理系统：添加、删除管理员，系统设有一个最高管理员拥有最高管理权限,修改管理员密码、登陆名2）图书管理（1)图书管理系统：查询、添加、删除、修改图书资料,可选择是否显示图书(2）图书分类管理系统:图书分类添加、修改、删除管理3）教务管理（1）学生班级管理系统：学生班级添加、修改、删除管理（2）学生信息管理系统：查询、添加、删除、修改学生资料4）超时管理图书借阅超时管理系统：列出学生超时借阅图书资料,锁定选定的学生,禁止锁定的学生再借阅，列出已锁定的学生名，可解除选定的学生,允许学生再借阅5）系统配置（1）图书馆基本配置设置系统：是否开放图书借阅，可设置可借出数量、借阅时间、续借次数、公告刷新时间,可重置为默认数据,修改配置方案(2）公告管理系统：公告列表，添加、修改、删除公告6）数据管理学生数据管理系统：查询浏览学生详细资料（3）图书借阅管理系统：可按书名、借阅学生查询借阅数据，全显示已、没归还图书借阅数据信息，可清除已归还借阅信息。登陆界面与系统详细设计流程图：界面输入学生输入框是否为空管理员输入框是否为空为空为空警告框学号、密码是否有错帐号、密码是否有错有错有错没有错误，隐藏登陆界面，打开学生借阅界面没有错误，隐藏登陆界面，打开管理员管理界面学生借阅图书登记系统流程图：是否有选择图书学生是否被锁定是否开放借阅图书是否已借阅图书是否有剩余添加数据入表landinfo更新表studentinfo更新表bookinfo重新读取学生借阅图书信息警告框个人信息修改密码系统流程图：三个输入框是否为空原密码是否正确新密码与确定密码是否一致更新数据库警告框第五节数据库物理设计数据的存放位置:与程序同一任何文件夹.程序中连接数据库语句： Dim fileName As String = ”library。mdb” Function getpath（) 返回数据库完整路径 Return Path.GetFullPath（fileName) 返回数据库完整路径 End Function Dim sqlstr As String SQL语句标记 Dim objDS As DataSet 数据在内存中的缓存 Public cmd As OleDbCommandBuilder Dim connstring As String = Provider=Microsoft.Jet。OLEDB.4。0;Data Source= & getpath（） ” Public conn As OleDbConnection = New OleDbConnection(connstring）数据读取公共函数: Public Function GetData(ByVal sqlstr As String） As DataSet ds = New DataSet ds.Clear（） 实例化一个数据集对象 Try conn.Open（) 打开数据库连接 ADOcmd = New OleDbDataAdapter(sqlstr， conn） 将数据库的数据映射到数据适配器 ADOcmd。Fill(ds） 填充数据集的数据 conn。Close（) 关闭数据连接，这一点很重要 Catch MsgBox（”错误号：” Err。Number ”错误描述：” & Err.Description） End Try Return ds ds = Nothing End Function数据更新公共函数： Public Function UpdateData（ByVal sqlstr As String） As Boolean Try myCmd = New OleDbCommand（sqlstr, conn) 要对数据源执行的 SQL 语句或存储过程。 conn.Open() 打开数据库连接 myCmd。ExecuteNonQuery(） 执行SQL conn.Close（） 关闭数据库连接 Catch MsgBox（”错误号:” Err.Number ”错误描述： Err.Description） Return False End Try Return True End Function第六节 数据库实施数据库连接建立与及连接： Public cmd As OleDbCommandBuilder Dim connstring As String = Provider=Microsoft。Jet。OLEDB。4.0;Data Source=” getpath（） ” Public conn As OleDbConnection = New OleDbConnection（connstring） 定义一个数据连接对象，并初始化数据库对象的SQL脚本文件 Dim sqlstr As String SQL语句标记 Dim objDS As DataSet 数据在内存中的缓存 sqlstr = SELECT id，lpassword FROM studentinfo WHERE learnid=” filter（Trim（tbname。Text)。ToString） objDS = GetData（sqlstr） If objDS.Tables（0)。Rows.Count 0 Then If objDS。Tables(0)。Rows(0)(”lpassword).ToString = tbpassword。Text Then 比较输入密码和数据库的密码 Dim main As New win_main loginid = objDS。Tables（0）.Rows(0)（”id) sqlstr = ”update studentinfo set logins=logins+1，lastlogin=now（) where id=” filter(Trim（loginid）。ToString） ” objDS = GetData(sqlstr） 主要用户界面的设计:登陆界面:学生借阅图书界面个人信息修改密码系统界面：管理员界面与系统详细设计界面：我负责的部分第七节 参考文献萨师煊，王珊。数据库系统概论（第三版）。北京：高等教育出版社，2000黄志超，李婷婷。Visual Basic。NET项目开发实践。北京:中国铁道出版社,2003黄明,梁旭，曹利超。Visual Basic。NET信息系统设计与开发实例。北京：机械工业出版社，2005敬保恩，王保学，时春雨,Visual Basic.NET实例入门。北京:海洋出版社，中国青年出版社，2001