数据库课程设计(图书馆管理系统)

一、 系统分析

系统开发总的设计目标是实现图书管理的系统化、规范化和自动化，实现对图书资料的集中统一的管理。本系统主要实现对图书馆信息的管理，主要功能为管理有关读者，书籍，借阅和管理者的信息等。本系统结构分为学生信息管理模块，图书信息管理模块，借阅信息管理模块，管理者信息管理模块。学生信息管理部分有三个方面的功能，可以浏览读者的信息，可以对读者信息进行维护。图书信息管理可以浏览书籍的信息，可以对书籍信息进行维护。借阅信息管理可以显示当前数据库中书籍借阅情况，可以对借阅信息进行维护。管理者信息管理可以显示数据库中管理者的情况，可以对管理者信息进行维护。可见，本系统并不复杂，主要解决的问题是利用关键字对数据库进行查询。

1、需求分析：

随着图书馆规模的不断扩大，图书数量也相应的增加，有关图书的各种信息量也成倍增加，面对着庞大的信息量，传统的人工方式管理会导致图书馆管理上的混乱，人力与物力过多浪费，图书馆管理费用的增加，从而使图书馆的负担过重，影响整个图书馆的运作和控制管理，因此，必须制定一套合理、有效，规范和实用的图书管理系统，对图书资料进行集中统一的管理。图书管理工作面对大量的可模块化处理的信息，是当今信息革命的一个重要阵地。我们小组开发图书管理信息系统就是采用现代化的信息管理方式代替手工管理方式，提高图书管理工作效率，作到信息的规范管理，科学统计和快速查询，让图书馆更好的为学校，社会服务。

2、功能分析：

根据图书管理的日常活动的分析，本系统提供了借书卡这以特色功能，借书者需要办理借书卡才能借书。且本系统只有管理员才能使用，管理员有权限办理和注销借书卡，管理借还书的功能。故管理员大致有三大权限：

A． 添加权限：管理员对借书卡、借书、还书、书籍信息等资料的添加。 B． 删除权限：管理员对借书卡、借书、还书、书籍信息等资料的删除。 C． 修改权限：管理员对借书卡、借书、还书、书籍信息等资料的修改。

二、系统设计

本系统使用Visual Basic6.0作为开发语言，将数据存储到Access数据库。使用ADO连接数据库。通过对传统资源进行数字化或对现有数字资源进行归并整理，采用实用的数据库技术构建服务平台。根据项目目标可以得到以下的各部分结构图：

a． 管理员信息系统结构图如下：

b． 借书卡管理系统结构图如下：

c．借/还书系统与库存管理系统结构图如下：

d.E-R图

三、个人负责部分

1、标准模块的实现

标准模块是应用程序内其它模块访问的过程和声明的容器。它们可以包含变量、常数、类型、外部过程和全局过程的全局（在整个应用程序范围内有效的）。声明或模块级声明。 详细代码：

'Modele1

'定义全局常量

Public Const ConnectString As String = "DSN=Lib;UID=sa;PWD=sa" '数据源：lib 用户名：sa 密码：sa

'初始化系统登录界面 Sub Main()

'系统开始，首先进入登录界面

Dim fLogin As New FrmLogin '定义登录窗口对象 fLogin.Show vbModal '显示模态窗体 If Not fLogin.OK Then

'Login Failed so exit app End End If

Unload fLogin

'用户身份验证成功后，进入主界面 FrmMain.Show End Sub

该模块实现初始化登录界面，调用FrmLogin登录窗口，在验证成够后返回fLogin.OK的值为true，调用FrmMain窗口，进入主界面。定义全局常量：'数据源：lib 用户名：sa 密码：

sa

2、类模块 在 Visual Basic 中类模块是面向对象编程的基础。可在类模块中编写代码建立新对象。这些新对象可以包含自定义的属性和方法。实际上，窗体正是这样一种类模块，在其上可安放控件、可显示窗体窗口。 详细代码： 'BookDate

Public Function getDate() As String

Dim nowDate As Date Dim tday As Integer Dim tmonth As Integer Dim tyear As Integer Dim tmpDate As String nowDate = Date

tday = Day(nowDate) tmonth = Month(nowDate) tyear = Year(nowDate)

tmpDate = CStr(tday)+ "/" + CStr(tmonth) + "/" + CStr(tyear) getDate = tmpDate End Function

调用getDate()函数可以获得时间：年/月/日

/

'BuildComboList

Public Function getList(ByVal sql As String, Combo As ComboBox) As ComboBox

Dim myDbOper As New DbOperation Dim rst As ADODB.Recordset '建立连接

myDbOper.DB_Connect

Set rst = myDbOper.querySQL(sql) If Not rst.EOF Then With rst

Do While Not .EOF

Combo.AddItem .Fields(0) .MoveNext Loop End With

Combo.ListIndex = 0 End If rst.Close '关闭连接

myDbOper.DB_DisConnect Set getList = Combo End Function

Public Function getIdByName(ByVal sql As String) As String

Dim myDbOper As New DbOperation Dim rst As ADODB.Recordset Dim tmpId As String '建立连接

myDbOper.DB_Connect

Set rst = myDbOper.querySQL(sql) If Not rst.EOF Then

tmpId = rst.Fields(0) End If rst.Close '关闭连接

myDbOper.DB_DisConnect getIdByName = tmpId End Function

getList()调用函数DB_Connect建立连接

'DbOperation

'声明一个连接,，用于数据库连接 Dim conn As ADODB.Connection '声明一个数据集对象

Dim rst As ADODB.Recordset Public Sub DB_Connect() '建立连接

Set conn = New ADODB.Connection

conn.Open ConnectString '模块中定义的全局常量 End Sub

Public Function querySQL(ByVal sql As String) As ADODB.Recordset '返回ADODB.Recordset对象 sql该参数用传值方式传送 '执行查询

Set rst = New ADODB.Recordset

rst.Open Trim$(sql), conn, adOpenKeyset, adLockOptimistic '打开记录集 'rst.MoveLast 'get RecordCount Set querySQL = rst

End Function

Public Sub executeSQL(ByVal sql As String) '执行sql语句

conn.Execute (sql) End Sub

Public Sub DB_DisConnect()

'关闭连接 conn.Close '释放连接

Set conn = Nothing End Sub

该类模块里的函数实现： DB_Connect()建立连接

querySQL(ByVal sql As String)传递数值，打开记录集 executeSQL(ByVal sql As String)传递查询语句 DB_DisConnect()关闭和释放连接

2、实现界面功能（例：管理员信息）

详细代码（功能实现：看注释）： '添加功能

Private Sub cmdAdd_Click() '“添加”调用添加界面FrmAddManager FrmAddManager.Show 1

End Sub

'添加管理员界面功能（FrmAddManager窗口中的程序）

'返回按钮功能

Private Sub cmdExit_Click() Me.Hide End Sub

'提交按钮功能

Private Sub cmdSubmit_Click() '检验数据的有效 …… 此处隐藏：6610字，全部文档内容请下载后查看。喜欢就下载吧 ……