图书管理系统的设计

...wd......wd......wd...图书管理系统的设计在图书管理系统用计算机管理图书是一种计算机应用技术的创新,在计算机还未普及之前图书管理都是由图书管理人员手工记帐的方式来操作的.现在一般的图书馆都是采用计算机作为工具的实用的计算机图书管理程序来帮助图书馆管理员进展更有效的图书管理。图书管理系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的建设和维护以及前端应用程序的开发两个方面。对于前者要求建设起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备,易使用等特点。关键字:图书，面向对象，软件工程目录第一章概述 11.1开发背景 11.2管理信息系统产生的背景 11.3系统功能要求的分析 2第二章开发环境及实现技术介绍 32.1开发环境 32.2开发工具简介 3第三章图书管理系统的设计和实现 53.1系统的设计 53.1.1概要设计 53.1.2详细设计 73.2系统的实现 93.2.1主界面的设计与实现 123.2.2图书管理模块的设计与实现 153.2.3读者管理模块的设计与实现 193.2.4图书借阅管理模块的实现 223.2.5系统管理模块的设计与实现 25第四章图书管理系统的运行说明 404.1运行环境 40第一章概述1.1开发背景在图书管理系统用计算机管理图书是一种计算机应用技术的创新,在计算机还未普及之前图书管理都是由图书管理人员手工记帐的方式来操作的.现在一般的图书馆都是采用计算机作为工具的实用的计算机图书管理程序来帮助图书馆管理员进展更有效的图书管理。1.2图书管理系统产生的背景图书管理系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的建设和维护以及前端应用程序的开发两个方面。对于前者要求建设起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备,易使用等特点。

经过分析,我们使用MICROSOFT公司的VISUALBASIC开发工具,利用其提供的各种面向对象的开发工具,尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象,首先在短时间内建设系统应用原型,然后,对初始原型系统进展需求迭代,不断修正和改良,直到形成用户满意的可行系统。1.3系统功能要求的分析图书管理系统主要服务与图书管理人员,包含的功能模块主要有:图书管理:图书类别管理,图书信息管理读者管理:读者管理,读者信息管理.图书借阅管理:借书管理,还书管理.系统管理:添加管理员,修改密码,退出系统第二章开发环境及实现技术介绍2.1开发环境硬件平台CPUIntelP41.5G主板Intel850芯片组的GA-8TX-C内存2×128M的三星Rambus内存硬盘SeagateBarracuda7200.780G显卡Unika小妖G9800显示器美格770PF，17寸纯平显示器软件环境操作系统MicrosoftWindowsXP简体中文专业版＋SP1办公软件MicrosoftOffice2003显卡驱动nVIDIAForceWare驱动56.72版ForWin2000/XP2.2开发软件介绍本系统所采用的编程语言为visualbasic6.0与微软的access作为操作数据库.现分别对其简单介绍:VisualBasic6.0是Micrsoft公司出品的开发工具，VisualBasic是一种可视化的，面向对象的Windows开发语言，它具有易用，通用和开发效率高的特点。随着微软对它不断地改良以及计算机本身性能的提高，使得VisualBasic越来越适合一般的应用程序开发。正如BillGate所说，世界上绝大多数的Windows应用程序是用VisualBasic编写的。在众多的开发工具中，我们为什么要选择VisualBasic6.0呢因为VB具有众多其它开发工具所没有的优点！具体介绍如下：开发的高效语言的高效编译的高效执行的高效维护的高效基于以上理由，我们毫不忧郁的选择了VB6.0做为我们的开发工具！！主要的控件及其基本属性，事件简介命令按钮类的控件：Caption属性：用来显示在控件上的标题。Enable属性：控制控件的激活状态灰色或可用。Appearance属性：值为1时,则以3D效果显示该控件,0则不然。Backcolor属性：用来改变在按钮上显示图像的背风光。Cancel属性：该属性决定按钮是否为一个〞取消〞按钮。Default属性:决定哪一个命令按钮控件是窗体的缺省命令按钮.Font属性:控制各种文字字体类型.Left,top,height,width属性:设定控件的位置与大小.Style,picture属性:决定按钮的显示方式是否为图像形式出现.Visible属性:确定控件运行时是否为可见.Index属性:当控件为一控件数组时,此属性值为该控件在数组的下标值.DownPicture属性：设置/返回一个对图片的引用，该图片在按钮被单击处于压下状态时显示。DisabledPicture属性：设置/返回一个对图片的引用，该图片在控件无效时显示在控件中。MaskColor属性：设置/返回一个在按钮的图片中作为“掩码“的的颜色Picture属性：设置返回commandButton控件中要显示的图片。命令按钮类的事件：单击事件――Click事件触发与适用此事件是在一个命令按钮对象上按下然后释放一个鼠标按钮时发生。命令按钮的Click事件仅对当单击鼠标时发生。事件处理过程按钮单击事件的处理过程为：PrivateSubobject-Click〔IndexAsInteger〕其中Object为引发该事件的对象名称。如果是命令按钮的控件是数组，则需要使用Index参数标识该控件。获得焦点――GotFocus事件触发与适用当命令按钮获得焦点产生该事件，获得焦点可以通过诸如Tab切换或单击对象之类的用户动作，或在代码中用SetFocus方法改变焦点来实现。事件处理过程命令按钮GotFoucs事件处理过程为：PrivateSubObject-GotFocus〔IndexAsInteger〕LostFocus事件：当一个对象失去焦点时发生KeyDown事件：当命令按钮具有焦点时按下一个键时发生KeyUp事件：当命令按钮具有焦点时释放一个键时发生。KeyPress事件：当用户按下或松开一个ANSI键时发生。MouseDown事件：当在命令按钮上按下鼠标按钮时发生。MouseMove事件：当命令按钮上移动鼠标时发生。MouseUp事件：当在命令按钮上释放鼠标按钮时发生。标签框类的控件类的控件：Caption属性：在应用程序界面上参加说明。Autosize属性：决定控件是否自动改变大小以显示其全部内容。Backstyle属性：用以指示标签是否透明.Bordstyle属性:用以设定控件是否有边框。文本框类的控件：Text属性：通过像text属性赋值的方法来改变该属性的值。Maxlength属性：该属性设定在文本框控件中能够输入的最大字符数。Multline属性：该属性设定text字符串中是否承受换行符。Scrollbars属性：该属性决定是否为文本框加滚动条。Passwordchar属性：该属性设定输入文本的特殊显示字符,在设计密码程序时非常有用。Change事件属性：文本框的内容发生改变时,相应的控件之间发生相应的改变,具有即时性。Keypress：事件由用户在文本框控件中按任意键触发。Alignment属性：设定控件中的文本对其方式Appearance属性：设定一个对象在运行时是否可以3D效果显示。BackColor属性：设置返回背风光BorderStyle属性：设置对象的边框样式DataField属性：设定数据使用者将被绑定到的字段名DataFormat属性：设定DataFormat对象，用于数据绑定DataMember属性：从数据供给程序提供的几个数据成员中返回/设定一个特定的数据成员DataSource属性：设定控件绑定的一个数据源DragIcon属性：设定图标，它将在拖放操作中作为指针显示DragMode模式：设定一个值，确定在拖放操作中所用方式Enabled属性：设置/返回运行时TextBox是否相应用户事件Font属性：设置/返回字体属性ForeColor属性：设置/返回文本的前风光Height属性：设置/返回TextBox的高度IMEMode属性：设置/返回数值用来确定输入方法编辑器的状态Index属性：设置/返回唯一的标识控件数组中该控件的编号Left属性：设置/返回TextBox控件的水平位置Locked属性：设置/返回TextBox中文本是否可编辑LinkItem属性：设置/返回DDE与另一个应用程序会话时，传给承受端的数据MaxLength属性：设置/返回一个值，指定在TextBox控件中能够输入的字符最大值MouseIcon属性：设置/返回自定义鼠标的图标Top属性：设置/返回TextBox控件的垂直位置Tag属性：存储过程所需的附加数据文本框类的事件：Change事件：当改变文本框内容时发生Click事件：鼠标单击控件时发生DblClick事件：用鼠标左键双击控件时发生DragDrop事件：在一个完整的拖放动作完成或使用Drag方法，并将其Action参数设置为2时发生DragOver事件：在拖放操作正在进展时发生GotFocus事件：当一个命令按钮获得焦点时发生LinkClose事件：当一个DDE对话完毕时发生LinkError事件：当一个DDE对话框过程中出现错误时，该事件发生KeyDown事件：当命令按钮具有焦点时按下一个键时发生Validate事件：在焦点转换到另一个控件之前发生，此时该控件的CausesValidation属性值设置为True单项选择按钮类的控件：Caption属性：显示在控件上的文本,是单项选择按钮的标题。Alignment属性：决定单项选择按钮的标题在控件上的位置。Enable属性：该控件为灰色时为false,表示运行时不可用。Index属性：属性值表示为单项选择按钮组成的控件中某个按钮的索引值。Tabindex属性：建设控件时,vb自动为其分配一个tabindex值,利用tab键可以在控件之间切换焦点。Value属性：反映控件状态的属性,返回true表示已选择了该按钮。Appearance属性：设置/返回一个对象在运行时是否以3D效果显示。BackColor属性：设置/返回背风光。Container属性：设置/返回Form上的控件属性。DataField属性：设置/返回数据使用者将被绑定到的字段名。DataFormat属性：设置/返回DataFormat对象，一个绑定对象将附加到它。DisabledPicture属性：设置/返回一个对图像的引用，该图片在控件无效时显示在控件中。DownPicture属性：设置/返回一个对图片的引用，该图片在控件单击下处于压下状态时显示。DragMode属性：设置/返回一个值，确定在拖放操作中所用的方式。Font属性：设置/返回字体属性。FontBold属性：设置/返回字体粗体样式。FontItalic属性：设置/返回字体斜体样式。FontStrikethru属性：设置/返回字体删除线样式。FontUnderLine属性：设置/返回字体下划线样式。FontName属性：设置/返回控件中显示文本所用的字体大小。FontSize属性：设置/返回控件中显示文本所用的字体大小Height属性：设置/返回控件的高度。MaskColor属性：设置/返回一个在控件的图片中作为掩码的颜色。MousePointer属性：设置/返回一个值，该值指示在运行时当鼠标移动到对象上时显示的指针类型。单项选择按钮类的常用事件：Click事件：鼠标单击控件时发生。DbClick事件：当在一个对象上按下和释放鼠标按钮并再次按下和释放按钮时，该事件发生。DragDrop事件：在一个完整的拖放动作或使用Drag方法，并将其Action参数设置位2时，该事件发生。DragOver事件：在拖放操作正在进展时发生。GotFocus事件：当获的对象焦点时发生。LostFocus事件：当对象失去焦点时发生。KeyDown事件：当控件具有焦点时按下一个键时发生。KeyUp事件：当控件具有焦点时释放一个键时发生。KeyPress事件：当用户按下或释放ANSI一个键时发生。MouseDown事件：当在控件上按下鼠标键时发生。MouseMove事件：在控件上移动鼠标时发生。MouseUp事件：在控件上释放鼠标时发生。复选按钮类的控件：Caption属性：缺省为check1…。Index属性:该属性值为复选框控件数组的下标.Value属性:value为0表空白,为1表勾号,为2表示灰色勾号.Container属性：Form控件上的容器。DataChangeed属性：设置/返回一个值，指出被绑定的控件中的数据已经被某进程修改。DataField属性：设置或返回数据使用者将被绑定到的字段名。DataFormat属性：设置或返回DataFormat对象，用于数据绑定。Datasource属性：设置或返回控件绑定的一个数据源。DisabledPicture属性：设置或返回一个对图片的引用，该图片在控件无效时显示在控件中。DownPicture属性：设置或返回一个对图片的引用，该图片在控件被单击处于压下状态时显示。DragIcon属性：设置或返回图标，它将在拖放操作中做为指针显示。DragMode属性：设置返回一个值，确定在拖放操作中所用方式。Font属性：设置或返回字体的属性。Name属性：设置或返回控件的标识名。Value属性：设置或返回控件的状态。复选按钮类的控件的基本领件：Click事件：鼠标单击控件时发生。DragDrop事件：在一个完整的拖放动作完成或使用Drag方法，并将其Action参数设置为2时发生。DragOver事件：在拖放操作正在进展时发生。GotFocus事件：在对象获的焦点时发生。，OLECompleteDrag事件：当源部件被放到目标时发生，并通知源部件拖放操作被执行或取消。OLEDragDrag事件：当源部件决定放操作能发生，却源部件被放到目标部件时，此事件发生。框架类的控件：1)List属性：列表框控件的表项是使用数组的方式保存,数组的每一个元素存储列表控件的一个表项Listcount属性:控件列表局部工程的个数。Mutselect属性:可以设置列表框为单项选择或允许多项选择属性.Selectd属性:标示一个数组,数组各元素为:Selected(0),selected(1)…滚动条类的控件：Value属性：滚动条上滑块所在位置由value值所决定。Max和min属性：对value值的最大,最小进展限制。Largechange属性：用户点击滚动条与键头之间的区域时,value的改变量。4)OnClick事件：用来添加按钮的单击事件所执行的程序代码。定时器类类的控件：Interval属性：表示定时的时间间隔,以毫秒为单位。Enable属性:为true时(缺省值),激活定时器开场计时;为false时处于休眠状态.数据库连接方式选择Visualbasic6.0连接数据库的主要方式以下几种方式：一是：用data控件进展数据库链接，二是利用adodc〔ADODataControl)进展数据库链接。三是:利用DataEnvironment进展数据库链接.四是利用ADO(ActiveXDataObjects)进展编程:现在我们来大致对这几种技术应用介绍：用data控件进展数据库链接.第一步：给窗体添加一个Data控件。第二步：用Access建设一个名为Pad的数据库，在库中建设一个表Myset，给表添加四个字段：backcolor〔数据〕，forecolor(文本〕，fontname(文本〕,fontsize〔文本〕。注意：请将库文件存入程序所在目录。如果你的机器没安装有Access，可通过VB建库。利用adodc〔ADODataControl)进展数据库链接：使用adodata控件访问数据库可以完全不用编写代码,只需要通过简单的设置和操作其属性就可以实现与数据库的连接,通过绑定数据感知控件,就能提供一个访问数据库的界面,用来实现对数据库的浏览,贴加,删除,修改等操作.利用DAO对数据库进展操纵:在visualbasic中提供了两种与jet数据引擎接口的方法:data控件与数据访问对象(DAO)DAO是databaseobject的英文缩写,要访问数据库一方面数据库要提供访问接口,另一方面要在编程环境中有对数据库的支持.DAO模型是设计关系数据库系统构造的对象类的集合.他们提供了管理关系型数据库系统所需要的全部操作属性和方法,这其中包括建设数据库,定义表,字段和建设表间关系,定位和查询数据库等.关系数据库介绍:关系数据库是目前各类数据库中最重要、最流行的数据库，他应用数学方法来处理数据库数据，是目前使用最广泛的数据库系统。20世纪70年代以后开发的数据库管理系统产品几乎都是基于关系的。在数据库开展的历史上，最重要的成就就是关系模型。关系数据库系统与非关系数据库系统的区别是：关系系统只有“表“这一种数据构造；而非关系数据库系统还有其他数据构造，对这些数据构造有其他的操作。构造化查询语言SQL〔StructuredQueryLanguage〕是一种介于关系代数与关系演算之间的语言，其功能包括查询、操纵、定义和控制四个方面，是一个通用的、功能极强的关系数据库语言。目前已成为关系数据库的标准语言Microsoft

Access介绍:使用

Microsoft

Access，可以在单一的数据库文件中管理所有的信息。在这个文件中，用户可以将自己的数据分别保存在各自独立的存储空间中，这些空间称作表；可以使用联机窗体来查看、添加及更新表中的数据；使用查询来查找并检索所要的数据；也可以使用报表以特定的版面布置来分析及打印数据。

如果要保存数据，请为每一种类型的信息创立一个表。如果要从查询、窗体或报表中的多个表中将数据合并在一起，就要定义各个表之间的关系。

如果要搜索并检索符合指定条件的数据，包括来自多个表中的数据，就要创立查询。查询的同时也可以更新或删除多条记录，并对数据执行内嵌或自定义的计算。

如果要简单地直接在某个表中查看、输入及更改数据，请创立一个窗体。在翻开一个窗体时，Microsoft

Access

将从一个或多个表中检索数据，并使用用户在“窗体向导〞选择的版面布局或所创立的版面布局，将窗体显示在屏幕上。

如果要分析数据或将数据以特定的方式打印出来，请创立一个报表。例如，可以打印一份将数据分组并计算数据总和的报表，也可以打印另一份带有各种数据格式的打印邮件标签的报表。第三章图书管理系统的设计与实现3.1系统的设计3.1.1系统的概要设计该系统考虑将整个系统分解成如下模块:主界面主界面图书管理图书信息管理读者类别管理读者信息管理图书借阅管理借书管理还书管理系统管理登录图书类别管理读者管理3.1.2系统的详细设计1.读者类别表2.读者信息表:3.借阅信息表:4.书籍信息表:5.图书类别表:6.系统管理表:3.2系统的设计与实现3.2.1系统的主界面的设计与实现主界面代码:PrivateSubadd_admin_Click()frmadduser.ShowEndSubPrivateSubadd_back_book_Click()frmbackbookinfo.ShowEndSubPrivateSubadd_book_info_Click()frmaddbookinfo.ShowEndSubPrivateSubadd_book_style_Click()frmaddbookstyle.ShowEndSubPrivateSubadd_lend_book_Click()frmfindbook.ShowEndSubPrivateSubadd_reader_info_Click()frmaddreaderinfo.ShowEndSubPrivateSubadd_reader_style_Click()frmaddreaderstyle.ShowEndSubPrivateSubchange_pwd_Click()frmchangepwd.ShowEndSubPrivateSubdel_book_info_Click()frmmodifybookinfo.ShowEndSubPrivateSubdel_book_style_Click()frmmodifybookstyle.ShowEndSubPrivateSubdel_reader_info_Click()frmreaderinfo.ShowEndSubPrivateSubdel_reader_style_Click()frmmodifyreaderstyle.ShowEndSubPrivateSubexit_sys_Click()EndEndSubPrivateSubfind_book_info_Click()frmfindbook.ShowEndSubPrivateSubfind_lend_book_Click()frmfindborrowinfo.ShowEndSubPrivateSubfind_reader_info_Click()frmfindreader.ShowEndSubPrivateSubmodify_book_info_Click()frmmodifybookinfo.ShowEndSubPrivateSubmodify_book_style_Click()frmmodifybookstyle.ShowEndSubPrivateSubmodify_reader_info_Click()frmreaderinfo.ShowEndSubPrivateSubmodify_reader_style_Click()frmmodifyreaderstyle.ShowEndSub3.2.2图书管理模块的设计与实现图书管理模块主要由:图书类别管理,图书信息管理.图书类别管理又分别由以下几个界面构成:添加图书类别添加图书类别代码:PrivateSubCommand1_Click()Dimrs_bookstyleAsNewADODB.RecordsetDimsqlAsStringIfTrim(Text1.Text)=""ThenMsgBox"图书种类不能为空",vbOKOnly+vbExclamation,""Text1.SetFocusExitSubEndIfIfTrim(Text2.Text)=""ThenMsgBox"种类编号不能为空",vbOKOnly+vbExclamation,""Text2.SetFocusExitSubEndIfsql="select*from图书类别where类别名称='"&Text1.Text&"'"rs_bookstyle.Opensql,conn,adOpenKeyset,adLockPessimisticIfrs_bookstyle.EOFThenrs_bookstyle.AddNewrs_bookstyle.Fields(0)=Trim(Text1.Text)rs_bookstyle.Fields(1)=Trim(Text2.Text)rs_bookstyle.UpdateMsgBox"添加图书类别成功！",vbOKOnly,""rs_bookstyle.CloseElseMsgBox"读者类别重复！",vbOKOnly+vbExclamation,""Text1.SetFocusText1.Text=""rs_bookstyle.CloseExitSubEndIfEndSub修改图书类别:修改图书类别代码:PrivateSubForm_Load()DimsqlAsStringOnErrorGoToloaderrorsql="select*from图书类别"rs_reader.CursorLocation=adUseClientrs_reader.Opensql,conn,adOpenKeyset,adLockPessimistic'翻开数据库cmdupdate.Enabled=False'设定datagrid控件属性DataGrid1.AllowAddNew=False'不可增加DataGrid1.AllowDelete=False'不可删除DataGrid1.AllowUpdate=FalseIfuserpow="guest"Then'权限相关Frame2.Enabled=FalseEndIfSetDataGrid1.DataSource=rs_readerExitSubloaderror:MsgBoxErr.DescriptionEndSub3.2.3读者管理模块的设计与实现1.添加读者类别界面:PrivateSubCommand1_Click()DimsqlAsStringIfTrim(Text1.Text)=""ThenMsgBox"读者种类不能为空",vbOKOnly+vbExclamation,""Text1.SetFocusExitSubEndIfIfTrim(Text2.Text)=""ThenMsgBox"借书数量不能为空",vbOKOnly+vbExclamation,""Text2.SetFocusExitSubEndIfIfTrim(Text3.Text)=""ThenMsgBox"借书期限不能为空",vbOKOnly+vbExclamation,""Text3.SetFocusExitSubEndIfIfTrim(Text4.Text)=""ThenMsgBox"有限期限不能为空",vbOKOnly+vbExclamation,""Text4.SetFocusExitSubEndIfsql="select*from读者类别where种类名称='"&Text1.Text&"'"rs_readerstyle.Opensql,conn,adOpenKeyset,adLockPessimisticIfrs_readerstyle.EOFThenrs_readerstyle.AddNewrs_readerstyle.Fields(0)=Trim(Text1.Text)rs_readerstyle.Fields(1)=CInt(Text2.Text)rs_readerstyle.Fields(2)=CInt(Text3.Text)rs_readerstyle.Fields(3)=CInt(Text4.Text)rs_readerstyle.UpdateMsgBox"添加读者类别成功！",vbOKOnly,""rs_readerstyle.CloseElseMsgBox"读者类别重复！",vbOKOnly+vbExclamation,""Text1.SetFocusText1.Text=""rs_readerstyle.CloseExitSubEndIfEndSub查询读者信息代码分析:PrivateSubCommand1_Click()Dimrs_findreaderAsNewADODB.RecordsetDimsqlAsStringIfCheck1.Value=vbCheckedThensql="读者编号='"&Trim(Text1.Text&"")&"'"EndIfIfCheck2.Value=vbCheckedThenIfTrim(sql)=""Thensql="读者姓名='"&Trim(Text2.Text&"")&"'"Elsesql=sql&"and读者姓名='"&Trim(Text2.Text&"")&"'"EndIfEndIfIfCheck3.Value=vbCheckedThenIfTrim(sql)=""Thensql="读者类别='"&Trim(Combo1.Text&"")&"'"Elsesql=sql&"and读者类别='"&Trim(Combo1.Text&"")&"'"EndIfEndIfsql="select*from读者信息where"&sqlrs_findreader.CursorLocation=adUseClientrs_findreader.Opensql,conn,adOpenKeyset,adLockPessimisticDataGrid1.AllowAddNew=FalseDataGrid1.AllowDelete=FalseDataGrid1.AllowUpdate=FalseSetDataGrid1.DataSource=rs_findreader'rs_findreader.CloseEndSub图书借阅管理模块的设计与实现代码实现:PrivateSubCommand1_Click()DimsqlAsStringDimrs_findAsNewADODB.RecordsetIfOption1.Value=TrueThensql="select*from书籍信息where是否被借出='是'"EndIfIfOption2.Value=TrueThensql="select*from书籍信息where是否被借出='否'"EndIfIfOption3.Value=TrueThensql="select*from借阅信息where读者姓名='"&Text1.Text&"'"EndIfrs_find.CursorLocation=adUseClientrs_find.Opensql,conn,adOpenKeyset,adLockPessimisticDataGrid1.AllowAddNew=FalseDataGrid1.AllowDelete=FalseDataGrid1.AllowUpdate=FalseSetDataGrid1.DataSource=rs_findEndSub3.2.5系统管理模块的设计与实现PrivateSubCommand1_Cl