数据库系统课程设计(1)

数据库系统课程设计——图书馆管理系统学院：万方科技学院专业班级：12级通信工程1班姓名：学号：目录第一节相关技术介绍 (3)第二节需求分析 (3)数据字典 (3)1）数据库内含下列表 (3)2）数据库表详细设计 (4)3）安全性和完整性要求 (5)第三节概念结构设计 (6)E-R图 (6)第四节逻辑结构设计 (6)系统总体设计 (6)第五节数据库物理设计 (8)第六节数据库实施 (10)第七节参考文献 (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 操作系统：Microsoft XP SP2测试用帐号及密码：学生帐号：3264学生密码：888888管理员帐号：admin管理员密码：admin下面子系统是有本人编写的:●管理员管理系统●图书管理●超时管理第二节需求分析数据字典数据库名：library.mdb1）数据库内含下列表admininfo （管理员资料）board （公告记录）bookinfo （图书资料）class （学生班级资料）classify （图书分类资料）landinfo （图书借阅登记资料）libraryinfo （图书馆基本配置记录）studentinfo （学生资料）2）数据库表详细设计admininfo，管理员资料记录表bookinfo，图书资料记录class，学生班级资料记录landinfo，图书借阅登记资料记录libraryinfo，图书馆基本配置记录3）安全性和完整性要求本程序实现学生与图书馆管理员的界面分离模式，同时实现管理员对学生有全面的资料管理功能。

有多个图书、学生、系统的动态管理功能，如：图书的查询、添加、删除、修改与及学生的详细资料的查询、添加、删除、修改等等多样、动态的管理。

同时可以放权给非最高级管理员查询、添加、删除、修改的能力，实现密码修改。

第三节概念结构设计E-R图第四节逻辑结构设计系统总体设计包括两大系统：一、学生图书借阅系统图书借阅，归还，续借系统，修改登陆密码系统二、管理员系统包括：1）管理员管理系统：添加、删除管理员，系统设有一个最高管理员拥有最高管理权限，修改管理员密码、登陆名2）图书管理（1）图书管理系统：查询、添加、删除、修改图书资料，可选择是否显示图书（2）图书分类管理系统：图书分类添加、修改、删除管理3）教务管理（1）学生班级管理系统：学生班级添加、修改、删除管理（2）学生信息管理系统：查询、添加、删除、修改学生资料4）超时管理图书借阅超时管理系统：列出学生超时借阅图书资料，锁定选定的学生，禁止锁定的学生再借阅，列出已锁定的学生名，可解除选定的学生，允许学生再借阅5）系统配置（1）图书馆基本配置设置系统：是否开放图书借阅，可设置可借出数量、借阅时间、续借次数、公告刷新时间，可重置为默认数据，修改配置方案（2）公告管理系统：公告列表，添加、修改、删除公告6）数据管理（1）管理员数据管理系统：浏览管理员详细资料（包括登陆次数，最后登陆时间，是否最高管理员）（2）学生数据管理系统：查询浏览学生详细资料（包括借阅次数，登陆次数，最后登陆时间）（3）图书借阅管理系统：可按书名、借阅学生查询借阅数据，全显示已、没归还图书借阅数据信息，可清除已归还借阅信息。

登陆界面与系统详细设计流程图：学生借阅图书登记系统流程图：个人信息修改密码系统流程图：第五节数据库物理设计数据的存放位置：与程序同一任何文件夹。

程序中连接数据库语句：Dim fileName As String = "library.mdb"Function getpath() '返回数据库完整路径Return Path.GetFullPath(fileName) '返回数据库完整路径End FunctionDim sqlstr As String'SQL语句标记Dim objDS As DataSet '数据在内存中的缓存Public cmd As OleDbCommandBuilderDim 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 DataSetds = New DataSetds.Clear()'实例化一个数据集对象Tryconn.Open()'打开数据库连接ADOcmd = New OleDbDataAdapter(sqlstr, conn)'将数据库的数据映射到数据适配器ADOcmd.Fill(ds)'填充数据集的数据conn.Close()'关闭数据连接，这一点很重要CatchMsgBox("错误号：" & Err.Number & "错误描述：" & Err.Description)End TryReturn dsds = NothingEnd Function数据更新公共函数：Public Function UpdateData(ByVal sqlstr As String) As BooleanTrymyCmd = New OleDbCommand(sqlstr, conn)'要对数据源执行的 SQL 语句或存储过程。

conn.Open()'打开数据库连接myCmd.ExecuteNonQuery()'执行SQLconn.Close()'关闭数据库连接CatchMsgBox("错误号：" & Err.Number & "错误描述：" & Err.Description)Return FalseEnd TryReturn TrueEnd Function第六节数据库实施数据库连接建立与及连接：Public cmd As OleDbCommandBuilderDim 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 ThenIf objDS.Tables(0).Rows(0)("lpassword").ToString = tbpassword.Text Then'比较输入密码和数据库的密码Dim main As New win_mainloginid = 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 项目开发实践。

北京：中国铁道出版社，2003黄明，梁旭，曹利超。

Visual 信息系统设计与开发实例。

北京：机械工业出版社，2005 敬保恩，王保学，时春雨，Visual 实例入门。

北京：海洋出版社，中国青年出版社，2001。