vb图书管理系统vb+access

目  录
第一章  概述 1
1.1开发背景 1
1.2管理信息系统产生的背景 1
1.3系统功能要求的分析 2
第二章  开发环境及实现技术介绍 3
2.1开发环境 3
2.2开发工具简介 3
第三章  图书管理系统的设计和实现 5
3.1系统的设计 5
3.1.1概要设计 5
3.1.2详细设计 7
3.2系统的实现 9
3.2.1主界面的设计与实现 12
3.2.2图书管理模块的设计与实现 15
3.2.3读者管理模块的设计与实现 19
3.2.4图书借阅管理模块的实现 22
3.2.5系统管理模块的设计与实现 25
第四章  图书管理系统的运行说明 40
4.1运行环境 40
致   谢 42
参考文献 43 [资料来源：http://THINK58.com]

第一章  概述
1.1开发背景
在图书管理系统用计算机管理图书是一种计算机应用技术的创新,在计算机还未普及之前图书管理都是由图书管理人员手工记帐的方式来操作的.现在一般的图书馆都是采用计算机作为工具的实用的计算机图书管理程序来帮助图书馆管理员进行更有效的图书管理。
1.2图书管理系统产生的背景
图书管理系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备,易使用等特点。
    经过分析,我们使用 MICROSOFT公司的 VISUAL BASIC开发工具,利用其提供的各种面向对象的开发工具,尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象,首先在短时间内建立系统应用原型,然后,对初始原型系统进行需求迭代,不断修正和改进,直到形成用户满意的可行系统。

[资料来源：www.THINK58.com]

                       

1.3 系统功能要求的分析 think58好，好think58 [版权所有：http://think58.com]

图书管理系统主要服务与图书管理人员,包含的功能模块主要有: 内容来自think58 [资料来源：www.THINK58.com]

一. 图书管理:图书类别管理,图书信息管理
二. 读者管理:读者管理,读者信息管理.
三. 图书借阅管理:借书管理,还书管理.
四. 系统管理:添加管理员,修改密码,退出系统

内容来自think58 [资料来源：www.THINK58.com]

[版权所有：http://think58.com]

第二章  开发环境及实现技术介绍
2.1开发环境
硬件平台
CPU Intel P4 1.5G
主板 Intel 850芯片组的GA-8TX-C
内存 2×128M的三星Rambus内存
硬盘 Seagate Barracuda 7200.7 80G
显卡 Unika 小妖G9800
显示器 美格770PF，17寸纯平显示器
软件环境
操作系统 Microsoft WindowsXP简体中文专业版＋SP1
办公软件 Microsoft Office 2003
显卡驱动 nVIDIA ForceWare驱动56.72版For Win2000/XP think58.com

2.2 开发软件介绍

copyright think58 [资料来源：www.THINK58.com]

[资料来源：THINK58.com]

本系统所采用的编程语言为visual basic 6.0与 微软的 access作为操作数据库.
现分别对其简单介绍:
Visual Basic 6.0是Micrsoft公司出品的开发工具，Visual Basic是一种可视化的，面向对象的Windows开发语言，它具有易用，通用和开发效率高的特点。随着微软对它不断地改进以及计算机本身性能的提高，使得Visual Basic越来越适合一般的应用程序开发。正如Bill Gate所说，世界上绝大多数的Windows应用程序是用Visual Basic编写的。在众多的开发工具中，我们为什么要选择Visual Basic6.0呢？因为VB具有众多其它开发工具所没有的优点！具体介绍如下：
    开发的高效
 语言的高效
 编译的高效
 执行的高效
 维护的高效
基于以上理由，我们毫不忧郁的选择了VB6.0做为我们的开发工具！！

think58 [资料来源：www.THINK58.com]

[来源：http://www.think58.com]

主要的控件及其基本属性，事件简介
 命令按钮类的控件：
1) Caption属性：用来显示在控件上的标题。
2) Enable属性：控制控件的激活状态灰色或可用。
3) Appearance属性：值为1时,则以3D效果显示该控件,0则不然。
4) Backcolor属性：用来改变在按钮上显示图像的背景色。
5) Cancel属性：该属性决定按钮是否为一个”取消”按钮。
6) Default属性:决定哪一个命令按钮控件是窗体的缺省命令按钮.
7) Font属性:控制各种文字字体类型.
8) Left,top,height,width属性:设定控件的位置与大小.
9) Style,picture属性:决定按钮的显示方式是否为图像形式出现.
10) Visible属性:确定控件运行时是否为可见.
11) Index属性:当控件为一控件数组时,此属性值为该控件在数组的下标值.
12) DownPicture属性：设置/返回一个对图片的引用，该图片在按钮被单击处于压下状态时显示。
13) DisabledPicture属性：设置/返回一个对图片的引用，该图片在控件无效时显示在控件中。
14) MaskColor属性：设置/返回一个在按钮的图片中作为“掩码“的的颜色
15) Picture属性：设置返回commandButton控件中要显示的图片。 本文来自think58

 命令按钮类的事件：
1） 单击事件――Click事件
（1） 触发与适用
此事件是在一个命令按钮对象上按下然后释放一个鼠标按钮时发生。命令按钮的Click事件仅对当单击鼠标时发生。
（2） 事件处理过程
按钮单击事件的处理过程为：
 Private Sub object-Click（Index As Integer）
其中Object为引发该事件的对象名称。如果是命令按钮的控件是数组，则需要使用Index参数标识该控件。 [资料来源：www.THINK58.com]

2） 获得焦点――GotFocus事件
（1） 触发与适用 
当命令按钮获得焦点产生该事件，获得焦点可以通过诸如Tab切换或单击对象之类的用户动作，或在代码中用SetFocus方法改变焦点来实现。
（2） 事件处理过程
命令按钮GotFoucs事件处理过程为：
Private Sub Object-GotFocus（Index As Integer）
3） LostFocus事件：当一个对象失去焦点时发生
4） KeyDown事件：当命令按钮具有焦点时按下一个键时发生
5） KeyUp事件：当命令按钮具有焦点时释放一个键时发生。
6） KeyPress事件：当用户按下或松开一个ANSI键时发生。
7） MouseDown事件：当在命令按钮上按下鼠标按钮时发生。
8） MouseMove事件：当命令按钮上移动鼠标时发生。
9） MouseUp事件：当在命令按钮上释放鼠标按钮时发生。 本文来自think58 [来源：http://www.think58.com]

   

copyright think58 [版权所有：http://think58.com]

[资料来源：http://think58.com]

 标签框类的控件类的控件：
1) Caption属性：在应用程序界面上加入说明。
2) Autosize属性：决定控件是否自动改变大小以显示其全部内容。
3) Backstyle属性：用以指示标签是否透明.
4) Bordstyle属性:用以设定控件是否有边框。
 文本框类的控件：
1) Text属性：通过像text属性赋值的方法来改变该属性的值。
2) Maxlength属性：该属性设定在文本框控件中能够输入的最大字符数。
3) Multline属性：该属性设定text字符串中是否接受换行符。
4) Scrollbars属性：该属性决定是否为文本框加滚动条。
5) Passwordchar属性：该属性设定输入文本的特殊显示字符,在设计密码程序时非常有用。
6) Change事件属性：文本框的内容发生改变时,相应的控件之间发生相应的改变,具有即时性。
7) Keypress：事件由用户在文本框控件中按任意键触发。
8) Alignment属性：设定控件中的文本对其方式
9) Appearance属性：设定一个对象在运行时是否可以3D效果显示。
10) BackColor属性：设置返回背景色
11) BorderStyle属性：设置对象的边框样式
12) DataField属性：设定数据使用者将被绑定到的字段名

copyright think58 [资料来源：www.THINK58.com]

13) DataFormat属性：设定DataFormat对象，用于数据绑定
14) DataMember属性：从数据供应程序提供的几个数据成员中返回/设定一个特定的数据成员
15) DataSource属性：设定控件绑定的一个数据源
16) DragIcon属性：设定图标，它将在拖放操作中作为指针显示
17) DragMode模式：设定一个值，确定在拖放操作中所用方式
18) Enabled属性：设置/返回运行时TextBox是否相应用户事件
19) Font属性：设置/返回字体属性
20) ForeColor属性：设置/返回文本的前景色
21) Height属性：设置/返回TextBox的高度
22) IMEMode属性：设置/返回数值用来确定输入方法编辑器的状态
23) Index属性：设置/返回唯一的标识控件数组中该控件的编号
24) Left属性：设置/返回TextBox控件的水平位置
25) Locked属性：设置/返回TextBox中文本是否可编辑
26) LinkItem属性：设置/返回DDE与另一个应用程序会话时，传给接受端的数据
27) MaxLength属性：设置/返回一个值，指定在TextBox控件中能够输入的字符最大值
28) MouseIcon属性：设置/返回自定义鼠标的图标
29) Top属性：设置/返回TextBox控件的垂直位置 内容来自think58 [资料来源：http://THINK58.com]
30) Tag属性：存储过程所需的附加数据
 文本框类的事件：
1） Change事件：当改变文本框内容时发生
2） Click事件：鼠标单击控件时发生
3） DblClick事件：用鼠标左键双击控件时发生
4） DragDrop事件：在一个完整的拖放动作完成或使用Drag方法，并将其Action参数设置为2时发生
5） DragOver事件：在拖放操作正在进行时发生
6） GotFocus事件：当一个命令按钮获得焦点时发生
7） LinkClose事件：当一个DDE对话结束时发生
8） LinkError事件：当一个DDE对话框过程中出现错误时，该事件发生
9） KeyDown事件：当命令按钮具有焦点时按下一个键时发生
10） Validate事件：在焦点转换到另一个控件之前发生，此时该控件的Causes Validation 属性值设置为True
        think58

[来源：http://think58.com]

 单选按钮类的控件：
1) Caption属性：显示在控件上的文本,是单选按钮的标题。
2) Alignment属性：决定单选按钮的标题在控件上的位置。
3) Enable属性：该控件为灰色时为false,表示运行时不可用。
4) Index属性：属性值表示为单选按钮组成的控件中某个按钮的索引值。
5) Tabindex属性：建立控件时,vb自动为其分配一个tabindex值,利用tab键可以在控件之间切换焦点。
6) Value属性：反映控件状态的属性,返回true表示已选择了该按钮。
7) Appearance 属性：设置/返回一个对象在运行时是否以3D效果显示。
8) BackColor 属性：设置/返回背景色。
9) Container 属性：设置/返回Form上的控件属性。
10) DataField 属性：设置/返回数据使用者将被绑定到的字段名。
11) DataFormat 属性：设置/返回DataFormat对象，一个绑定对象将附加到它。
12) DisabledPicture 属性：设置/返回一个对图像的引用，该图片在控件无效时显示在控件中。
13) DownPicture 属性：设置/返回一个对图片的引用，该图片在控件单击下处于压下状态时显示。
14) DragMode 属性：设置/返回一个值，确定在拖放操作中所用的方式。

[资料来源：www.THINK58.com]

15) Font 属性：设置/返回字体属性。
16) FontBold 属性：设置/返回字体粗体样式。
17) FontItalic 属性：设置/返回字体斜体样式。
18) FontStrikethru 属性：设置/返回字体删除线样式。
19) FontUnderLine 属性：设置/返回字体下划线样式。
20) FontName 属性：设置/返回控件中显示文本所用的字体大小。
21) FontSize 属性：设置/返回控件中显示文本所用的字体大小
22) Height 属性：设置/返回控件的高度。
23) MaskColor 属性：设置/返回一个在控件的图片中作为掩码的颜色。
24) MousePointer 属性：设置/返回一个值，该值指示在运行时当鼠标移动到对象上时显示的指针类型。
 单选按钮类的常用事件：
1） Click 事件：鼠标单击控件时发生。
2） DbClick事件： 当在一个对象上按下和释放鼠标按钮并再次按下和释放按钮时，该事件发生。
3） DragDrop事件：在一个完整的拖放动作或使用Drag方法，并将其Action参数设置位2时，该事件发生。
4） DragOver事件： 在拖放操作正在进行时发生。
5） GotFocus事件： 当获的对象焦点时发生。
6） LostFocus事件：当对象失去焦点时发生。 think58.com

[资料来源：http://THINK58.com]

7） KeyDown事件：当控件具有焦点时按下一个键时发生。
8） KeyUp事件： 当控件具有焦点时释放一个键时发生。
9） KeyPress事件：当用户按下或释放ANSI一个键时发生。
10） MouseDown事件：当在控件上按下鼠标键时发生。
11） MouseMove事件：在控件上移动鼠标时发生。
12） MouseUp事件：在控件上释放鼠标时发生。 think58 [资料来源：THINK58.com]

 复选按钮类的控件：
1) Caption属性：缺省为check1…。
2) Index属性:该属性值为复选框控件数组的下标.
3) Value属性:value为0表空白,为1表勾号,为2表示灰色勾号.
4) Container属性：Form控件上的容器。
5) DataChangeed属性：设置/返回一个值，指出被绑定的控件中的数据已经被某进程修改。
6) DataField属性：设置或返回数据使用者将被绑定到的字段名。
7) DataFormat 属性：设置或返回DataFormat对象，用于数据绑定。
8) Datasource属性：设置或返回控件绑定的一个数据源。
9) DisabledPicture属性：设置或返回一个对图片的引用，该图片在控件无效时显示在控件中。
10) DownPicture 属性：设置或返回一个对图片的引用，该图片在控件被单击处于压下状态时显示。
11) DragIcon属性：设置或返回图标，它将在拖放操作中做为指针显示。
12) DragMode属性：设置返回一个值，确定在拖放操作中所用方式。
13) Font属性：设置或返回字体的属性。
14) Name属性：设置或返回控件的标识名。
15) Value属性：设置或返回控件的状态。
 复选按钮类的控件的基本事件：

本文来自think58

1） Click事件：鼠标单击控件时发生。
2） DragDrop事件：在一个完整的拖放动作完成或使用Drag方法，并将其Action参数设置为2时发生。
3） DragOver事件：在拖放操作正在进行时发生。
4） GotFocus事件：在对象获的焦点时发生。，
5） OLECompleteDrag事件：当源部件被放到目标时发生，并通知源部件拖放操作被执行或取消。
6） OLEDragDrag事件：当源部件决定放操作能发生，却源部件被放到目标部件时，此事件发生。

think58.com

[资料来源：http://THINK58.com]

[资料来源：http://www.THINK58.com]

 框架类的控件：
1) List属性：列表框控件的表项是使用数组的方式保存,数组的每一个元素存储列表控件的一个表项
1) Listcount属性:控件列表部分项目的个数。
2) Mutselect属性:可以设置列表框为单选或允许多选属性.
3) Selectd属性:标示一个数组,数组各元素为:
4) Selected(0),selected(1)…

本文来自think58

[资料来源：http://THINK58.com]

 滚动条类的控件：
1) Value属性：滚动条上滑块所在位置由value值所决定。
2) Max和min属性：对value值的最大,最小进行限制。
3) Largechange属性：用户点击滚动条与键头之间的区域时,value的改变量。
4) OnClick事件：用来添加按钮的单击事件所执行的程序代码。
 定时器类类的控件：
1) Interval属性：表示定时的时间间隔,以毫秒为单位。
2) Enable属性:为true时(缺省值),激活定时器开始计时;为false时处于休眠状态. think58.com [来源：http://think58.com]

3.2 系统的设计与实现
3.2.1 系统的主界面的设计与实现
 
主界面代码:
Private Sub add_admin_Click()
frmadduser.Show
End Sub [版权所有：http://think58.com]

Private Sub add_back_book_Click()
frmbackbookinfo.Show
End Sub

本文来自think58 [资料来源：http://think58.com]

[资料来源：http://www.THINK58.com]

Private Sub add_book_info_Click()
frmaddbookinfo.Show
End Sub

本文来自think58

[资料来源：http://THINK58.com]

Private Sub add_book_style_Click()
frmaddbookstyle.Show
End Sub 本文来自think58

Private Sub add_lend_book_Click()
frmfindbook.Show
End Sub 内容来自think58

[资料来源：THINK58.com]

Private Sub add_reader_info_Click()
frmaddreaderinfo.Show
End Sub

think58.com

[来源：http://think58.com]

Private Sub add_reader_style_Click()
frmaddreaderstyle.Show
End Sub

copyright think58

Private Sub change_pwd_Click()
frmchangepwd.Show
End Sub

本文来自think58

[版权所有：http://think58.com]

Private Sub del_book_info_Click()
frmmodifybookinfo.Show
End Sub think58

Private Sub del_book_style_Click()
frmmodifybookstyle.Show
End Sub [资料来源：http://www.THINK58.com]

Private Sub del_reader_info_Click()
frmreaderinfo.Show
End Sub [资料来源：http://www.THINK58.com]

Private Sub del_reader_style_Click()
frmmodifyreaderstyle.Show
End Sub think58.com

[版权所有：http://think58.com]

Private Sub exit_sys_Click()
End
End Sub 本文来自think58

[来源：http://www.think58.com]

Private Sub find_book_info_Click()
frmfindbook.Show
End Sub think58.com [资料来源：http://think58.com]

Private Sub find_lend_book_Click()
frmfindborrowinfo.Show
End Sub think58.com

[资料来源：http://think58.com]

Private Sub find_reader_info_Click()
frmfindreader.Show
End Sub

think58

[资料来源：http://www.THINK58.com]

[资料来源：THINK58.com]

Private Sub modify_book_info_Click()
frmmodifybookinfo.Show
End Sub think58好，好think58 [资料来源：www.THINK58.com]