【最新版】计算机信息管理毕业论文70031495

前郭电视广播学校

学生毕业论文

标 题： 计算机图书管理系统

系 别 计 科 系

专 业 计 算 机 信 息 管 理

班 级

姓 名

学 号

指导教师 职称

2014

提 纲

一、数据库设计

（一） 数据库概念

（二）计算机图书管理系统数据库 （三） 利用data 控件访问数据库

二、计算机图书管理系统数据

年09月09日

（一） 数据库与VB的连接 （二） 关闭数据对象和连接对象 （三） 显示数据库的内容

（四） 计算机图书管理系统数据流程图

三 、计算机图书管理系统2008

（一） 开发计算机图书管理系统的目的 （二） 开发图书管理系统的思路

四、计算机图书管理系统模块设计

（一） 界面设计规范及流程图 （二） 系统窗体汇总 (三) 主页面设计

五、软件测试分析报告

（一） 软件信息

（二） 常见系统出错问题及解决

六、 结束语

计算机图书管理系统

【摘要】图书管理系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的建立和维护以

及前端应用程序的开发两个方面。经过分析,使用 Microsoft公司的 Visual Basic6.0为开发工具,利用其提供的各种面向对象的可视化开发平台作为开发工具，采用面向对象技术，图形化的应用开发环境，尤其是它有一个功能极其强大的集成环境提供级开发人员，使得开发人员可通过菜单、界面、图形浏览工具、对话框以及嵌入的各种生成器来轻松地完成各种复杂的操作。开发过程中不断修正和改进,直到形成用户满意的可行系统。本案例开发的是“计算机图书管理系统”.

关键字（Keywords）：信息管理系统（MIS）、数据库、Visual Basic6.0、、面向对象（Object）、计算机图书管理系统

图书馆管理系统是我国大部分院校或其它部门不可缺少的部分,书籍是人类精神食粮，尤其对一些学校，图书馆来说，非常重要。在软件开发中，以计算机图书为主，称“计算机图书管理系统”。 计算机图书管理系统能够为用户实现借阅图书、管理等，随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。作为计算机应用的

一部分,使用计算机对图书资源信息进行管理,具有着手工管理所无法比拟的优点.例如:查阅迅速、安全性高、可靠性高、存储量大、保密性好、成本低等。计算机图书管理系统能够单一定向计算机图书方面，具有实用，精简功能等效率，这些优点能够极大地提高图书馆管理的效率,也是企业、学校的科学化、正规化管理,与世界接轨的重要条件。因此，开发这样一套管理软件是很有必要. 本案例开发的是“计算机图书管理系统”.

一、 数据库设计( mdb ) （一） 数据的概念

办公软件Office套件中，最为广大用户熟悉的是Word和Excel，因为它们功能强大且方便易用，更因为它们不仅可用于办公，还可用于个人写作和家庭记帐理财等。同为Office套件中一部分的Access，虽然有着同样强大的功能，但使用的人却相对少些，不像Word和Excel那样广泛。事实上，真正用过Access的用户，对其强大功能和灵活应用均称赞有加。 Access 数据库管理系统是Microsoft Office 套件的重要组成部分，适用于小型商务活动，用以存贮和管理商务活动所需要的数据。Access不仅是一个数据库，而且它具有强大的数据管理功能，它可以方便地利用各种数据源，生成窗体（表单），查询，报表和应用程序等。 有结构的数据集合,它与一般的数据文件不同，(其中的数据是无结构的)是一串文字或数字流。数据库中的数据可以是文字、图象、声音等。

Access一种关系式数据库，关系式数据库由一系列表组成，表又由一系列行和列组成，每一

行是一个记录，每一列是一个字段，每个字段有一个字段名，字段名在一个表中不能重复。图1是一个“产品”表的例子。“产品”表由10个记录组成，一个记录占一行，每一个记录由产品ID、产品名称、库存量、订货量、单价和折扣率6个字段组成。“产品ID”是字段名，其下面的1，2等是字段的值。 表与表之间可以建立关系（或称关联，连接），以便查询相关联的信息。Access数据库以文件形式保存，文件的扩展名是MDB。

Access 数据库由六种对象组成，它们是表、查询、窗体、报表、宏和模块。 1. 表(Table)

表是数据库的基本对象，是创建其他5种对象的基础。表由记录组成，记录由字段组成，表用来存贮数据库的数据，故又称数据表。 2. 数据查询(Query)

查询可以按索引快速查找到需要的记录，按要求筛选记录并能连接若干个表的字段组成新表。 3. 数据窗体(Form)

窗体提供了一种方便的浏览、输入及更改数据的窗口。还可以创建子窗体显示相关联的表的内容。窗体也称表单。

4. 数据报表(Report)

报表的功能是将数据库中的数据分类汇总，然后打印出来，以便分析。 5. 数据宏(Macro)

宏相当于DOS中的批处理，用来自动执行一系列操作。Access列出了一些常用的操作供用户选择，使用起来十分方便。 6. 数据模块(Module)

模块的功能与宏类似，但它定义的操作比宏更精细和复杂，用户可以根据自己的需要编写程序。模块使用Visual Basic编程

（二）计算机管图书管理系统数据库

计算机管理系统图书管理系统数据库模式定义了数据库的结构、表、关系、域和业务规则。 数据库模式是一种设计，数据库和应用正是建立在此基础上的。域是一列可能拥有的值的集合。必须为每一个表的每一列确定域。除了数据的物理必填字段外，还需要确定是否有些域对表来说是唯一的。

计算机管理系统图书管理系统数据库模式的最后一个要素是业务规则，它是对需要反映在数据库和数据库应用程序中的业务活动的允许空字符串。业务规则是模式的一个重要部分，因为他们指定了无论什么数据变化到达DBMS引擎，允许的数据值必须满足的允许空字符串。不管无效的数据变化请求是来自窗体的用户、查询修改请求还是应用程序DBMS都应该拒绝。遗憾的是，不同的DBMS产品用不同的方法实施业务规则。在某些情况下，DBMS产品不具备实施必要业务规则的能力，必须以代码形式把它们编入应用程序 （三）利用DATA控件访问数据库

该软件是利用ACCESS数据库，操作方便，简单。在ACCESS数据库中不需要创建数据连接，因为它是VB中默认的数据库形式。这里的数据库采用Access，用ADO作为连接数据对象。 以归纳为以下几步： 1. 建立Access 数据库

启动Access，建立一个空的数据库ComputerBookmanage，如图8所示。 使用程序设计器建立系统需要的表

图书表: 读者表

用户

借书表: 用户表:

2、连接数据

在Visual Basic环境下，选择“工程”→“引用”命令，在随后出现的对话框中选择“Microsoft ActiveX Data Objects 2.0 Library”，然后单击“确定”按钮，如图:

3.0引用ADO连接数据库

在程序设计的公共模块中，先定义ADO连接对象。语句如下:

Public conn As New ADODB.Connection ' 标记连接对象然后在子程序中，用如下的语句即可打开数据库:

Dim connectionstring As String

connectionstring = \\conn.Open connectionstring

4.0 设置ODBC

VB的ADO对象是通过ODBC来访问数据库，所以还要建立ODBC数据引擎接口。打开 控制面板中的“管理工具”→“数据源”(ODBC)，出现如图所示的对话框。

图17 ODBC对话框

单击“添加”按钮，出现“创建新数据源”对话框，如图18所示。

5.0创建新数据源”对话框

选择Microsoft Access Driver(*.mdb)，单击“完成”按钮，出现如图19所示对话框。

设置连接数据源

在“数据源名”文本框中添加一个名字，单击“确定”按钮完成系统默认连接设置。然后在ODBC对

话框中单击“确定”按钮完成ODBC设置。 （四）MDB数据流程图以及数据表

1.基本表：[书籍 ] book 字段 管理人员 图书编号 图书名称 作者 出版社 库存量 入库时间 类型 文本 文本 文本 文本 文本 数字 日期时间 字段大小 50 12 16 8 20 小数 自动 必填字段 否 是 否 否 否 是 否

允许空字符串 是 否 是 是 是 是 无 2.基本表：[用户表 ] user_table 字段 登录名 密码 身份 权限 3.基本表：[读者表] 字段 读者姓名 读者编号 性别 读者类别 类型 文本 数字 文本 文本 字段大小 8 50 2 50 必填字段 是 是 否 否 允许空字符串 主键 否 是 是 类型 文本 文本 文本 数字 字段大小 16 16 50 1 必填字段 否 否 否 否 允许空字符串 是 是 是 是

工作单位 家庭地址 电话号码 登记日期 已借书数量 文本 文本 文本 日期时间 数字 50 50 50 自动 自动 否 否 自动 自动 自动 是 否 自动 自动 自动 4.基本表：[职工信息] worker 字段 管理人员 工号 姓名 性别 电话 住址 类型 文本 数字 文本 文本 数字 字段大小 50 50 8 2 13 必填字段 否 是 否 否 否 允许空字符串 是 否 是 是 是 5.基本表：[借阅信息] reader 字段 序号 工号 图书编号 借阅时间

ADO中的数据对象通常保存的是查询结果。Record Set是ADO中最复杂的对象，有许多属性和方法。Record Set保存的是一行行的记录，并标有一个当前记录。以下是创建方法：

可以直接利用DATA控件直接绑定，在DATA控件的属性中的RECORDSOURCE对数据表进行连接。 Set Record Set=DB.Openrecordset(sqtStr)

这条语句创建并打开了对象Record Set，其中db是先前创建的链接对象，sqtStr是一个字串，代表一条标准的SQL语句。例如： sqlStr=“SELECT * FROM table1”Set Record Set=DB.Openrecordset(sqtStr)，执行后，对象Record Set中就保存了表table1中的所有记录。 二、 计算机图书管理系统数据 （一） 数据库与VB的连接

当数据设置好后就应用VB当中去，步骤:新建一个模块命名“ Database “在Database

类型 自动编号（长整型） 文本 文本 日期时间 字段大小 250 250 必填字段 长日期 允许空字符串 主键

添加代码, 数据库与VB的连接代码(由于代码很长见光盘code目录下 “ database.txt”)

（二）关闭数据对象和链接对象

在使用了ADO对象之后要关闭它，因为它使用了一定的服务器资源。通过调用方法close实现关闭，然后再释放它。

Record Set.close Set Record Set=Nothing 关闭创建的数据对象 mConn.close Set mConn=Nothing 关闭创建的链接对象 （三）显示数据库中的内容

利用MSFLEGRID控件来显示数据库中的内容，可以直接通过DATA控件来实现操作，也可以利用代码来完成相关的操作。

sql = \图书信息 ='\ If sql <> \

Set rs = db.OpenRecordset(sql) （四）计算机图书管理系统数据流程图

三、开发图书管理系统2008

（一）开发计算机图书管理系统的目的

计算机图书馆管理系统是我国大部分院校或其它部门不可缺少的部分,书籍是人类精神食粮，尤其对一些学校，图书馆来说，非常重要。图书馆管理系统能够为用户实现借阅图书、期刊、试卷合订本等，随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。作为计算机应用的一部分,使用计算机对图书资源信息进行管理,具有着手工管理所无法比拟的优点.例如:查阅迅速、安全性高、可靠性高、存储量大、保密性好、成本低等。这些优点能够极大地提高图书馆管理的效率,也是企业、学校的科学化、正规化管理,与世界接轨的重要条件，因此，开发这样一套管理软件是很有必要。 （二）开发计算机图书管理系统的思路

单从这一方面，开发图书管理系统需要从以下几个构思方面着手。 1. 遐想

遐想。即大胆地思维想象，在脑海形成一个框架，怎样去开发，如何去开发，开发有什么好处即影响。开发会遇到什么问题，怎样去解决. 2. 绘图

即将遐想的，用图象勾画出来，呈现模拟系统的功能. 3．准备材料

准备事先制作好材料。如软件中所需要的图片。代码，软件图标（Ico）页面图片(bmp,jpg).

4. 开发

“粮草好了，就动兵马” 意思是现实开发系统（如新建窗体，模块等）. 四、计算机图书管理系统模块设计

（一）界面设计规范以及流程图(详细见页面)

主界面：菜单栏、工具条、工作区（本系统采用SSTab页框）、状态栏等。 （二）系统窗体汇总 窗体名称 FrmLogIn Form1 Form2 Form3 Form4 Form5 Form6 Frm_sys_set frmAbout frmMsg 名称 Database xp_canvas Xpcmdbutton Xphelp Xptopbuttons xpcmdbutton1 Xpcmdbutton2 Xpcmdbutton3 Xpcmdbutton4 Xpcmdbutton5 Xpcmdbutton6 …….. 窗体类型 启动窗体 MDI主窗体 模式窗体 MDI子窗体 模式窗体 模式窗体 模式窗体 模式窗体 模式窗体 MDI子窗体 类型 数据类型 窗体 按钮 系统 系统 按钮 按钮 按钮 按钮 按钮 按钮 ………… 简要说明 系统登陆 系统主窗体 图书信息录入 职工信息录入 借书管理 还书管理 使用帮助 账号管理 关于软件 友情提示 模块说明 数据连接 窗体移动 个性按钮 系统帮助 最大化，最小化，关闭 借书 还书 图书录入 职工录入 图书查询 借阅查询 ……………

（三）主窗体界面设计

主界面的设计采用标准无标题主窗口样式，自上而下依次为：菜单栏、工具条、工作区（本系统采用SSTab页框）、状态栏等。所有系统用户拥有相似的主界面。主界面包含基本的或共享的功能，如书目浏览与检索，基本统计等。代码见code目录下:main.txt 主界面如代码所示： Option Explicit

'定义查询字段的窗体级变量 '定义查询的字段窗体变量

Dim sfield As String '查询的关键词 Dim seachtext As String '查询函数定义

'1、桉书号查询则采用具体查询办法 '2、按书名查询则采用模糊查询办法

Function open_seach(table_name As String, sfield As String, seachtext As String) As Integer Dim sqlstr As String Dim str As String '建立数据库连接

Set con = New ADODB.Connection Set rst = New ADODB.Recordset con.CursorLocation = adUseClient

sqlstr = \\ con.Open sqlstr ' 查询办法选择

If Option1.Value = True Then

str = \ Else

str = \* from \& table_name & \where \& sfield & \like '\& Trim(\%\& Text1.Text & \ End If

If Option3.Value = True Then

str = \ Else

str = \* from \& table_name & \where \& sfield & \like '\& Trim(\%\& Text1.Text & \ End If

rst.Open str, con, adOpenDynamic, adLockOptimistic rst.Requery

If rst.RecordCount > 0 Then

open_seach = 1 '返回一个值1,代表有查询结果 Else

open_seach = 0 '返回一个值0,代表没有查询结果 End If End Function

Private Sub Check4_Click() '选择查询的字段

Select Case TabStrip1.SelectedItem Case \图书信息浏览\ sfield = \出版社]\End Select End Sub

Private Sub Command1_Click() If rst.BOF = True Then frmMsg.Show

frmMsg.info.Visible = True

frmMsg.Text1.Text = \已经到达第一条记录了！\Exit Sub Else

rst.MovePrevious End If End Sub

Private Sub Command2_Click() '后一记录

If rst.EOF = True Then frmMsg.Show

frmMsg.info.Visible = True

frmMsg.Text1.Text = \已经到达最后一条记录了！\Exit Sub Else

rst.MoveNext End If End Sub

Private Sub DataGrid2_Click() Call connect_db

open_connection (\连接book表 tablename = \

If privilege = 1 Then '如果只是普通用户,无法查询员工信息 frmMsg.Show

frmMsg.error.Visible = True

frmMsg.Text1.Text = \对不起，您没有查阅的权限！\ Exit Sub End If

open_connection (\连接worker表 tablename = \

open_connection (\连接record表 tablename = \

Set DataGrid1.DataSource = rst End Sub

Private Sub Command4_Click() Dim ret As Integer

If Command4.Caption = \查 询\ Command4.Caption = \确 定\Else

If Option1.Value = False And Option2.Value = False And Option3.Value = False And Option4.Value = False Then frmMsg.Show

frmMsg.notice.Visible = True frmMsg.Text1.Text = \请选择查询项!\ Exit Sub End If

If Text1.Text = \ frmMsg.Show

frmMsg.notice.Visible = True

frmMsg.Text1.Text = \请输入查询内容！\ Text1.SetFocus Exit Sub End If

seachtext = Trim(Text1.Text)

ret = open_seach(tablename, sfield, seachtext) If ret = 0 Then frmMsg.Show

frmMsg.error.Visible = True

frmMsg.Text1.Text = \对不起，没有你要的记录!\ Option1.Value = False Option2.Value = False Text1.Text = \ rst.Close

Set rst = Nothing

Set DataGrid1.DataSource = rst

Command1.Enabled = False '上一条,下一条按钮为灰 Command2.Enabled = False Command4.Caption = \查 询\ Exit Sub End If

Command1.Enabled = True Command2.Enabled = True Set DataGrid1.DataSource = rst Text1.Text = \ Option1.Value = False Option2.Value = False Command4.Caption = \查 询\End If End Sub

Private Sub DataGrid1_Click() Call connect_db

open_connection (\连接book表 tablename = \

If privilege = 1 Then '如果只是普通用户,无法查询员工信息 frmMsg.Show

frmMsg.error.Visible = True

frmMsg.Text1.Text = \对不起，您没有查阅的权限！\ Exit Sub End If

open_connection (\连接worker表 tablename = \

open_connection (\连接record表 tablename = \

Set DataGrid1.DataSource = rst End Sub

Private Sub Form_Load() Option1.Caption = \书号\Option2.Caption = \书名\Option3.Caption = \出版社\Option4.Caption = \作者\

Label2.Caption = frmLogin.Text1.Text

Timer1.Interval = 1000 tablename = \Call connect_db

open_connection (\Set DataGrid1.DataSource = rst

TabStrip1.Tabs.Item(1) = \图书信息浏览\TabStrip1.Tabs.Item(2) = \员工信息浏览\TabStrip1.Tabs.Item(3) = \图书借阅情况浏览\Text1.Text = \

open_connection (\Set DataGrid1.DataSource = rst frmLogin.Show End Sub

Private Sub Image1_Click() End Sub

Private Sub Option1_Click() Select Case TabStrip1.SelectedItem Case \图书信息浏览\ sfield = \图书编码]\ Case \员工信息浏览\ sfield = \工号]\ Case \图书借阅情况浏览\ sfield = \图书编码]\End Select End Sub

Private Sub Option2_Click() '选择查询的字段

Select Case TabStrip1.SelectedItem Case \图书信息浏览\ sfield = \图书名称]\ Case \员工信息浏览\

sfield = \姓名]\ Case \图书借阅情况浏览\ sfield = \工号]\End Select End Sub

Private Sub Option3_Click() '选择查询的字段

Select Case TabStrip1.SelectedItem Case \图书信息浏览\ sfield = \出版社]\End Select End Sub

Private Sub Option4_Click() '选择查询的字段

Select Case TabStrip1.SelectedItem Case \图书信息浏览\ sfield = \作者]\End Select End Sub

Private Sub Text2_Change() Text1.Text = Time End Sub

Private Sub TabStrip1_Click() Call connect_db

Select Case TabStrip1.SelectedItem Case \图书信息浏览\

open_connection (\ tablename = \ Option1.Caption = \书号\ Option2.Caption = \书名\ Set DataGrid1.DataSource = rst

连接book表

Case \员工信息浏览\

If privilege = 1 Then '如果只是普通用户,无法查询员工信息 frmMsg.Show

frmMsg.error.Visible = True

frmMsg.Text1.Text = \对不起，您没有查阅的权限！\ Exit Sub End If

open_connection (\ Option1.Caption = \工号\ Option2.Caption = \姓名\ tablename = \

Set DataGrid1.DataSource = rst Case \图书借阅情况浏览\

open_connection (\ Option1.Caption = \书号\ Option2.Caption = \工号\ tablename = \

Set DataGrid1.DataSource = rst End Select End Sub

Private Sub Timer1_Timer() Label3.Caption = Now End Sub

Private Sub xpcmdbutton1_Click() Form4.Show End Sub

Private Sub xpcmdbutton12_Click() Form6.Show End Sub

Private Sub xpcmdbutton13_Click() frmAbout.Show

连接worker表 连接record表

End Sub

Private Sub xpcmdbutton14_Click() Unload Me frmLogin.Show End Sub

Private Sub xpcmdbutton15_Click() open_connection \tablename = \

Set DataGrid1.DataSource = rst End Sub

Private Sub xpcmdbutton2_Click() Form5.Show End Sub

Private Sub xpcmdbutton3_Click() Form2.Show End Sub

Private Sub xpcmdbutton4_Click() Form3.Show End Sub

Private Sub xpcmdbutton5_Click() open_connection (\tablename = \

Set DataGrid1.DataSource = rst End Sub

Private Sub xpcmdbutton6_Click() open_connection (\tablename = \

Set DataGrid1.DataSource = rst End Sub

Private Sub xpcmdbutton7_Click() open_connection (\

tablename = \

Set DataGrid1.DataSource = rst End Sub

Private Sub xpcmdbutton8_Click() Frm_sys_set.Show End Sub

Private Sub xpmin_Click() Me.WindowState = 1 End Sub

Private Sub xpclose_Click() Unload Me frmLogin.Show End Sub

Private Sub xptopbuttons1_Click() Unload Me End Sub

Private Sub xptopbuttons2_Click() Me.WindowState = 1 End Sub 1. 用户登陆

该窗体主要完成用户管理登陆功能，也是进入系统的一个重要的门槛，该门槛是有权限限制，根据不同的用户帐号，功能也截然不同，这就是本系统的一个关键点。（默然读者帐号；reader 密码；008）代码见code目录下:login.txt

Private Sub Form_Load() '连接用户表 Call open_connection(\xpcmdbutton1.Caption = \登陆\xpcmdbutton2.Caption = \注销\End Sub

Private Sub Image1_Click() End Sub

Private Sub xpcmdbutton1_Click() '登录系统

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库【最新版】计算机信息管理毕业论文70031495在线全文阅读。