计算机图书管理系统Word文档格式.docx
《计算机图书管理系统Word文档格式.docx》由会员分享，可在线阅读，更多相关《计算机图书管理系统Word文档格式.docx（44页珍藏版）》请在冰豆网上搜索。
查阅迅速、安全性高、可靠性高、存储量大、保密性好、成本低等。
计算机图书管理系统能够单一定向计算机图书方面，具有实用，精简功能等效率，这些优点能够极大地提高图书馆管理的效率,也是企业、学校的科学化、正规化管理,与世界接轨的重要条件。
因此，开发这样一套管理软件是很有必要.本案例开发的是“计算机图书管理系统”.
一、数据库设计（mdb）
（一）数据的概念
办公软件Office套件中，最为广大用户熟悉的是Word和Excel，因为它们功能强大且方便易用，更因为它们不仅可用于办公，还可用于个人写作和家庭记帐理财等。
同为Office套件中一部分的Access，虽然有着同样强大的功能，但使用的人却相对少些，不像Word和Excel那样广泛。
事实上，真正用过Access的用户，对其强大功能和灵活应用均称赞有加。
Access数据库管理系统是MicrosoftOffice套件的重要组成部分，适用于小型商务活动，用以存贮和管理商务活动所需要的数据。
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）
模块的功能与宏类似，但它定义的操作比宏更精细和复杂，用户可以根据自己的需要编写程序。
模块使用VisualBasic编程
（二）计算机管图书管理系统数据库
计算机管理系统图书管理系统数据库模式定义了数据库的结构、表、关系、域和业务规则。
数据库模式是一种设计，数据库和应用正是建立在此基础上的。
域是一列可能拥有的值的集合。
必须为每一个表的每一列确定域。
除了数据的物理必填字段外，还需要确定是否有些域对表来说是唯一的。
计算机管理系统图书管理系统数据库模式的最后一个要素是业务规则，它是对需要反映在数据库和数据库应用程序中的业务活动的允许空字符串。
业务规则是模式的一个重要部分，因为他们指定了无论什么数据变化到达DBMS引擎，允许的数据值必须满足的允许空字符串。
不管无效的数据变化请求是来自窗体的用户、查询/修改请求还是应用程序DBMS都应该拒绝。
遗憾的是，不同的DBMS产品用不同的方法实施业务规则。
在某些情况下，DBMS产品不具备实施必要业务规则的能力，必须以代码形式把它们编入应用程序
（三）利用DATA控件访问数据库
该软件是利用ACCESS数据库，操作方便，简单。
在ACCESS数据库中不需要创建数据连接，因为它是VB中默认的数据库形式。
这里的数据库采用Access，用ADO作为连接数据对象。
以归纳为以下几步：
1.建立Access数据库
启动Access，建立一个空的数据库ComputerBookmanage，如图8所示。
使用程序设计器建立系统需要的表
图书表:
读者表
用户表
还书表:
借书表:
用户表:
2、连接数据
在VisualBasic环境下，选择“工程”→“引用”命令，在随后出现的对话框中选择“MicrosoftActiveXDataObjects2.0Library”，然后单击“确定”按钮，如图:
3.0引用ADO连接数据库
在程序设计的公共模块中，先定义ADO连接对象。
语句如下:
PublicconnAsNewADODB.Connection'
标记连接对象然后在子程序中，用如下的语句即可打开数据库:
DimconnectionstringAsString
connectionstring="
provider=Microsoft.Jet.oledb.4.0;
"
&
_
datasource=ComputerBookmanage.mdb"
conn.Openconnectionstring
4.0设置ODBC
VB的ADO对象是通过ODBC来访问数据库，所以还要建立ODBC数据引擎接口。
打开
控制面板中的“管理工具”→“数据源”（ODBC），出现如图所示的对话框。
图17ODBC对话框
单击“添加”按钮，出现“创建新数据源”对话框，如图18所示。
5.0创建新数据源”对话框
选择MicrosoftAccessDriver（*.mdb），单击“完成”按钮，出现如图19所示对话框。
设置连接数据源
在“数据源名”文本框中添加一个名字，单击“确定”按钮完成系统默认连接设置。
然后在ODBC对话框中单击“确定”按钮完成ODBC设置。
（四）MDB数据流程图以及数据表
1.基本表：
[书籍]book
字段
类型
字段大小
必填字段
允许空字符串
管理人员
文本
50
否
是
图书编号
12
图书名称
16
作者
8
出版社
20
库存量
数字
小数
入库时间
日期/时间
自动
无
2.基本表：
[用户表]user_table
登录名
密码
身份
权限
1
3.基本表：
[读者表]
读者姓名
主键
读者编号
性别
2
读者类别
工作单位
家庭地址
电话号码
登记日期
已借书数量
4.基本表：
[职工信息]worker
工号
姓名
电话
13
住址
5.基本表：
[借阅信息]reader
序号
自动编号（长整型）
250
借阅时间
长日期
ADO中的数据对象通常保存的是查询结果。
RecordSet是ADO中最复杂的对象，有许多属性和方法。
RecordSet保存的是一行行的记录，并标有一个当前记录。
以下是创建方法：
可以直接利用DATA控件直接绑定，在DATA控件的属性中的RECORDSOURCE对数据表进行连接。
SetRecordSet=DB.Openrecordset（sqtStr）
这条语句创建并打开了对象RecordSet，其中db是先前创建的链接对象，sqtStr是一个字串，代表一条标准的SQL语句。
例如：
sqlStr=“SELECT*FROMtable1”SetRecordSet=DB.Openrecordset（sqtStr），执行后，对象RecordSet中就保存了表table1中的所有记录。
二、计算机图书管理系统数据
（一）数据库与VB的连接
当数据设置好后就应用VB当中去，步骤:
新建一个模块命名“Database“在Database
添加代码,数据库与VB的连接代码（由于代码很长见光盘code目录下“database.txt”）
（二）关闭数据对象和链接对象
在使用了ADO对象之后要关闭它，因为它使用了一定的服务器资源。
通过调用方法close实现关闭，然后再释放它。
RecordSet.close
SetRecordSet=Nothing
/关闭创建的数据对象
mConn.close
SetmConn=Nothing
/关闭创建的链接对象
（三）显示数据库中的内容
利用MSFLEGRID控件来显示数据库中的内容，可以直接通过DATA控件来实现操作，也可以利用代码来完成相关的操作。
sql="
select*frombookwhere图书信息='
Text1（0）.Text&
"
'
Ifsql<
>
Then
Setrs=db.OpenRecordset（sql）
（四）计算机图书管理系统数据流程图
三、开发图书管理系统2008
（一）开发计算机图书管理系统的目的
计算机图书馆管理系统是我国大部分院校或其它部门不可缺少的部分,书籍是人类精神食粮，尤其对一些学校，图书馆来说，非常重要。
图书馆管理系统能够为用户实现借阅图书、期刊、试卷合订本等，随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。
这些优点能够极大地提高图书馆管理的效率,也是企业、学校的科学化、正规化管理,与世界接轨的重要条件，因此，开发这样一套管理软件是很有必要。
（二）开发计算机图书管理系统的思路
单从这一方面，开发图书管理系统需要从以下几个构思方面着手。
1.遐想
遐想。
即大胆地思维想象，在脑海形成一个框架，怎样去开发，如何去开发，开发有什么好处即影响。
开发会遇到什么问题，怎样去解决.
2.绘图
即将遐想的，用图象勾画出来，呈现模拟系统的功能.
3．准备材料
准备事先制作好材料。
如软件中所需要的图片。
代码，软件图标（Ico）页面图片（bmp,jpg）.
4.开发
“粮草好了，就动兵马”意思是现实开发系统（如新建窗体，模块等）.
四、计算机图书管理系统模块设计
（一）界面设计规范以及流程图（详细见页面）
主界面：
菜单栏、工具条、工作区（本系统采用SSTab页框）、状态栏等。
（二）系统窗体汇总
窗体名称
窗体类型
简要说明
FrmLogIn
启动窗体
系统登陆
Form1
MDI主窗体
系统主窗体
Form2
模式窗体
图书信息录入
Form3
MDI子窗体
职工信息录入
Form4
借书管理
Form5
还书管理
Form6
使用帮助
Frm_sys_set
账号管理
frmAbout
关于软件
frmMsg
友情提示
名称
模块说明
Database
数据类型
数据连接
xp_canvas
窗体
窗体移动
Xpcmdbutton
按钮
个性按钮
Xphelp
系统
系统帮助
Xptopbuttons
最大化，最小化，关闭
xpcmdbutton1
借书
Xpcmdbutton2
还书
Xpcmdbutton3
图书录入
Xpcmdbutton4
职工录入
Xpcmdbutton5
图书查询
Xpcmdbutton6
借阅查询
……..
…………
……………
（三）主窗体界面设计
主界面的设计采用标准无标题主窗口样式，自上而下依次为：
所有系统用户拥有相似的主界面。
主界面包含基本的或共享的功能，如书目浏览与检索，基本统计等。
代码见code目录下:
main.txt
主界面如代码所示：
OptionExplicit
定义查询字段的窗体级变量
定义查询的字段窗体变量
DimsfieldAsString'
查询的关键词
DimseachtextAsString
'
查询函数定义
1、桉书号查询则采用具体查询办法
2、按书名查询则采用模糊查询办法
Functionopen_seach（table_nameAsString,sfieldAsString,seachtextAsString）AsInteger
DimsqlstrAsString
DimstrAsString
建立数据库连接
Setcon=NewADODB.Connection
Setrst=NewADODB.Recordset
con.CursorLocation=adUseClient
sqlstr="
Provider=Microsoft.Jet.OLEDB.4.0;
+"
DataSource="
+App.Path+"
\data\ComputerBookmanage.mdb"
;
PersistSecurityInfo=False"
con.Opensqlstr
查询办法选择
IfOption1.Value=TrueThen
str="
select*from"
table_name&
where"
sfield&
='
seachtext&
Else
like'
Trim（"
%"
Text1.Text&
%"
）&
EndIf
IfOption3.Value=TrueThen
rst.Openstr,con,adOpenDynamic,adLockOptimistic
rst.Requery
Ifrst.RecordCount>
0Then
open_seach=1'
返回一个值1,代表有查询结果
open_seach=0'
返回一个值0,代表没有查询结果
EndFunction
PrivateSubCheck4_Click（）
选择查询的字段
SelectCaseTabStrip1.SelectedItem
Case"
图书信息浏览"
:
sfield="
[出版社]"
EndSelect
EndSub
PrivateSubCommand1_Click（）
Ifrst.BOF=TrueThen
frmMsg.Show
frmMsg.info.Visible=True
frmMsg.Text1.Text="
已经到达第一条记录了！
ExitSub
Else
rst.MovePrevious
EndIf
PrivateSubCommand2_Click（）'
后一记录
Ifrst.EOF=TrueThen
已经到达最后一条记录了！
rst.MoveNext
PrivateSubDataGrid2_Click（）
Callconnect_db
open_connection（"
book"
）'
连接book表
tablename="
Ifprivilege=1Then'
如果只是普通用户,无法查询员工信息
frmMsg.Show
frmMsg.error.Visible=True
对不起，您没有查阅的权限！
ExitSub
open_connection（"
worker"
连接worker表
record"
连接record表
SetDataGrid1.DataSource=rst
EndSub
PrivateSubCommand4_Click（）
DimretAsInteger
IfCommand4.Caption="
查询"
Command4.Caption="
确定"
IfOption1.Value=FalseAndOption2.Value=FalseAndOption3.Value=FalseAndOption4.Value=FalseThen
frmMsg.notice.Visible=True
请选择查询项!
IfText1.Text="
请输入查询内容！
Text1.SetFocus
seachtext=Trim（Text1.Text）
ret=open_seach（tablename,sfield,seachtext）
Ifret=0Then
对不起，没有你要的记录!
Option1.Value=False
Option2.Value=False
Text1.Text="
rst.Close
Setrst=Nothing
Command1.Enabled=False'
上一条,下一条按钮为灰
Command2.Enabled=False
Command1.Enabled=True
Command2.Enabled=True
升级会员 