• 400.46 KB
  • 2022-04-22 13:44:27 发布

学校图书管理系统的设计毕业论文.doc

  • 32页
  • 当前文档由用户上传发布,收益归属用户
  1. 1、本文档共5页,可阅读全部内容。
  2. 2、本文档内容版权归属内容提供方,所产生的收益全部归内容提供方所有。如果您对本文有版权争议,可选择认领,认领后既往收益都归您。
  3. 3、本文档由用户上传,本站不保证质量和数量令人满意,可能有诸多瑕疵,付费之前,请仔细先通过免费阅读内容等途径辨别内容交易风险。如存在严重挂羊头卖狗肉之情形,可联系本站下载客服投诉处理。
  4. 文档侵权举报电话:19940600175。
'学校图书管理系统的设计毕业论文目录1概述11.1开发背景11.2图书管理系统产生的背景11.3系统功能要求的分析12开发软件及实现技术介绍32.1开发软件介绍32.2数据库连接方式选择102.3关系数据库介绍:113图书管理系统的设计与实现123.1系统的设计123.1.1系统的概要设计123.1.2系统的详细设计123.2系统的设计与实现143.2.1系统的主界面的设计与实现143.2.2图书管理模块的设计与实现183.2.3读者管理模块的设计与实现213.2.4图书借阅管理模块的设计与实现253.2.5系统管理模块的设计与实现26结论29致谢30参考文献31 1概述1.1开发背景学校图书馆管理系统用计算机管理图书是一种计算机应用技术的创新,在计算机还未普及之前图书管理都是由图书管理人员手工记帐的方式来操作的.现在一般的图书馆都是采用计算机作为工具,运用计算机图书管理程序来帮助图书馆管理员进行更有效的图书管理。1.2图书管理系统产生的背景图书管理系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备,易使用等特点。经过分析,我们使用MICROSOFT公司的VISUALBASIC开发工具,利用其提供的各种面向对象的开发工具,尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象,首先在短时间内建立系统应用原型,然后,对初始原型系统进行需求迭代,不断修正和改进,直到形成用户满意的可行系统。1.3系统功能要求的分析图书管理系统主要服务与图书管理人员,包含的功能模块主要有:30 图书管理:图书类别管理,图书信息管理1)读者管理:读者管理,读者信息管理.2)图书借阅管理:借书管理,还书管理.3)系统管理:添加管理员,修改密码,退出系统30 2开发软件及实现技术介绍2.1开发软件介绍本系统所采用的编程语言为visualbasic6.0与微软的access作为操作数据库.现分别对其简单介绍:VisualBasic6.0是Micrsoft公司出品的开发工具,VisualBasic是一种可视化的,面向对象的Windows开发语言,它具有易用,通用和开发效率高的特点。随着微软对它不断地改进以及计算机本身性能的提高,使得VisualBasic越来越适合一般的应用程序开发。正如BillGate所说,世界上绝大多数的Windows应用程序是用VisualBasic编写的。在众多的开发工具中,我们为什么要选择VisualBasic6.0呢?因为VB具有众多其它开发工具所没有的优点!具体介绍如下:1)开发的高效2)语言的高效3)编译的高效4)执行的高效5)维护的高效基于以上理由,我们毫不犹豫的选择了VB6.0做为我们的开发工具!!主要的控件及其基本属性,事件简介命令按钮类的控件:1)Caption属性:用来显示在控件上的标题。2)Enable属性:控制控件的激活状态灰色或可用。3)Appearance属性:值为1时,则以3D效果显示该控件,0则不然。4)Backcolor属性:用来改变在按钮上显示图像的背景色。5)Cancel属性:该属性决定按钮是否为一个”取消”按钮。6)Default属性:决定哪一个命令按钮控件是窗体的缺省命令按钮.7)Font属性:控制各种文字字体类型.8)Left,top,height,width属性:设定控件的位置与大小.30 1)Style,picture属性:决定按钮的显示方式是否为图像形式出现.2)Visible属性:确定控件运行时是否为可见.3)Index属性:当控件为一控件数组时,此属性值为该控件在数组的下标值.4)DownPicture属性:设置/返回一个对图片的引用,该图片在按钮被单击处于压下状态时显示。5)DisabledPicture属性:设置/返回一个对图片的引用,该图片在控件无效时显示在控件中。6)MaskColor属性:设置/返回一个在按钮的图片中作为“掩码“的的颜色7)Picture属性:设置返回commandButton控件中要显示的图片。u命令按钮类的事件:1)单击事件――Click事件(1)触发与适用此事件是在一个命令按钮对象上按下然后释放一个鼠标按钮时发生。命令按钮的Click事件仅对当单击鼠标时发生。(2)事件处理过程按钮单击事件的处理过程为:PrivateSubobject-Click(IndexAsInteger)其中Object为引发该事件的对象名称。如果是命令按钮的控件是数组,则需要使用Index参数标识该控件。2)获得焦点――GotFocus事件(1)触发与适用当命令按钮获得焦点产生该事件,获得焦点可以通过诸如Tab切换或单击对象之类的用户动作,或在代码中用SetFocus方法改变焦点来实现。(2)事件处理过程命令按钮GotFoucs事件处理过程为:PrivateSubObject-GotFocus(IndexAsInteger)3)LostFocus事件:当一个对象失去焦点时发生4)KeyDown事件:当命令按钮具有焦点时按下一个键时发生30 1)KeyUp事件:当命令按钮具有焦点时释放一个键时发生。2)KeyPress事件:当用户按下或松开一个ANSI键时发生。3)MouseDown事件:当在命令按钮上按下鼠标按钮时发生。4)MouseMove事件:当命令按钮上移动鼠标时发生。5)MouseUp事件:当在命令按钮上释放鼠标按钮时发生。u标签框类的控件类的控件:1)Caption属性:在应用程序界面上加入说明。2)Autosize属性:决定控件是否自动改变大小以显示其全部内容。3)Backstyle属性:用以指示标签是否透明.4)Bordstyle属性:用以设定控件是否有边框。u文本框类的控件: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属性:设定数据使用者将被绑定到的字段名13)DataFormat属性:设定DataFormat对象,用于数据绑定14)DataMember属性:从数据供应程序提供的几个数据成员中返回/设定一个特定的数据成员15)DataSource属性:设定控件绑定的一个数据源30 1)DragIcon属性:设定图标,它将在拖放操作中作为指针显示2)DragMode模式:设定一个值,确定在拖放操作中所用方式3)Enabled属性:设置/返回运行时TextBox是否相应用户事件4)Font属性:设置/返回字体属性5)ForeColor属性:设置/返回文本的前景色6)Height属性:设置/返回TextBox的高度7)IMEMode属性:设置/返回数值用来确定输入方法编辑器的状态8)Index属性:设置/返回唯一的标识控件数组中该控件的编号9)Left属性:设置/返回TextBox控件的水平位置10)Locked属性:设置/返回TextBox中文本是否可编辑11)LinkItem属性:设置/返回DDE与另一个应用程序会话时,传给接受端的数据12)MaxLength属性:设置/返回一个值,指定在TextBox控件中能够输入的字符最大值13)MouseIcon属性:设置/返回自定义鼠标的图标14)Top属性:设置/返回TextBox控件的垂直位置15)Tag属性:存储过程所需的附加数据u文本框类的事件:1)Change事件:当改变文本框内容时发生2)Click事件:鼠标单击控件时发生3)DblClick事件:用鼠标左键双击控件时发生4)DragDrop事件:在一个完整的拖放动作完成或使用Drag方法,并将其Action参数设置为2时发生5)DragOver事件:在拖放操作正在进行时发生6)GotFocus事件:当一个命令按钮获得焦点时发生7)LinkClose事件:当一个DDE对话结束时发生8)LinkError事件:当一个DDE对话框过程中出现错误时,该事件发生9)KeyDown事件:当命令按钮具有焦点时按下一个键时发生10)30 Validate事件:在焦点转换到另一个控件之前发生,此时该控件的CausesValidation属性值设置为Trueu单选按钮类的控件: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属性:设置/返回一个值,确定在拖放操作中所用的方式。15)Font属性:设置/返回字体属性。16)FontBold属性:设置/返回字体粗体样式。17)FontItalic属性:设置/返回字体斜体样式。18)FontStrikethru属性:设置/返回字体删除线样式。19)FontUnderLine属性:设置/返回字体下划线样式。20)FontName属性:设置/返回控件中显示文本所用的字体大小。21)FontSize属性:设置/返回控件中显示文本所用的字体大小22)Height属性:设置/返回控件的高度。23)MaskColor属性:设置/返回一个在控件的图片中作为掩码的颜色。30 1)MousePointer属性:设置/返回一个值,该值指示在运行时当鼠标移动到对象上时显示的指针类型。u单选按钮类的常用事件:1)Click事件:鼠标单击控件时发生。2)DbClick事件:当在一个对象上按下和释放鼠标按钮并再次按下和释放按钮时,该事件发生。3)DragDrop事件:在一个完整的拖放动作或使用Drag方法,并将其Action参数设置位2时,该事件发生。4)DragOver事件:在拖放操作正在进行时发生。5)GotFocus事件:当获的对象焦点时发生。6)LostFocus事件:当对象失去焦点时发生。7)KeyDown事件:当控件具有焦点时按下一个键时发生。8)KeyUp事件:当控件具有焦点时释放一个键时发生。9)KeyPress事件:当用户按下或释放ANSI一个键时发生。10)MouseDown事件:当在控件上按下鼠标键时发生。11)MouseMove事件:在控件上移动鼠标时发生。12)MouseUp事件:在控件上释放鼠标时发生。u复选按钮类的控件: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属性:设置或返回一个对图片的引用,该图片在控件无效时显示在控件中。30 1)DownPicture属性:设置或返回一个对图片的引用,该图片在控件被单击处于压下状态时显示。2)DragIcon属性:设置或返回图标,它将在拖放操作中做为指针显示。3)DragMode属性:设置返回一个值,确定在拖放操作中所用方式。4)Font属性:设置或返回字体的属性。5)Name属性:设置或返回控件的标识名。6)Value属性:设置或返回控件的状态。u复选按钮类的控件的基本事件:1)Click事件:鼠标单击控件时发生。2)DragDrop事件:在一个完整的拖放动作完成或使用Drag方法,并将其Action参数设置为2时发生。3)DragOver事件:在拖放操作正在进行时发生。4)GotFocus事件:在对象获的焦点时发生。,5)OLECompleteDrag事件:当源部件被放到目标时发生,并通知源部件拖放操作被执行或取消。6)OLEDragDrag事件:当源部件决定放操作能发生,却源部件被放到目标部件时,此事件发生。u框架类的控件:1)List属性:列表框控件的表项是使用数组的方式保存,数组的每一个元素存储列表控件的一个表项2)Listcount属性:控件列表部分项目的个数。3)Mutselect属性:可以设置列表框为单选或允许多选属性.4)Selectd属性:标示一个数组,数组各元素为:5)Selected(0),selected(1)…u滚动条类的控件:1)Value属性:滚动条上滑块所在位置由value值所决定。2)Max和min属性:对value值的最大,最小进行限制。3)L30 argechange属性:用户点击滚动条与键头之间的区域时,value的改变量。1)OnClick事件:用来添加按钮的单击事件所执行的程序代码。u定时器类类的控件:1)Interval属性:表示定时的时间间隔,以毫秒为单位。2)Enable属性:为true时(缺省值),激活定时器开始计时;为false时处于休眠状态.2.2数据库连接方式选择Visualbasic6.0连接数据库的主要方式以下几种方式:一是:用data控件进行数据库链接,二是利用adodc(ADODataControl)进行数据库链接。三是:利用DataEnvironment进行数据库链接.四是利用ADO(ActiveXDataObjects)进行编程:现在我们来大致对这几种技术应用介绍:1)用data控件进行数据库链接.第一步:给窗体添加一个Data控件。第二步:用Access建立一个名为Pad的数据库,在库中建立一个表Myset,给表添加四个字段:backcolor(数据),forecolor(文本),fontname(文本),fontsize(文本)。注意:请将库文件存入程序所在目录。如果你的机器没安装有Access,可通过VB建库。2)利用adodc(ADODataControl)进行数据库链接:使用adodata控件访问数据库可以完全不用编写代码,只需要通过简单的设置和操作其属性就可以实现与数据库的连接,通过绑定数据感知控件,就能提供一个访问数据库的界面,用来实现对数据库的浏览,贴加,删除,修改等操作。3)利用DAO对数据库进行操纵:在visualbasic中提供了两种与jet数据引擎接口的方法:data控件与数据访问对象(DAO)DAO是databaseobject的英文缩写,要访问数据库一方面数据库要提供访问接口,另一方面要在编程环境中有对数据库的支持。DAO模型是设计关系数据库系统结构的对象类的集合.他们提供了管理关系型数据库系统所需要的全部操作属性和方法,这其中包括建立数据库,定义表,字段和建立表间关系,定位和查询数据库等。30 2.3关系数据库介绍:关系数据库是目前各类数据库中最重要、最流行的数据库,他应用数学方法来处理数据库数据,是目前使用最广泛的数据库系统。20世纪70年代以后开发的数据库管理系统产品几乎都是基于关系的。在数据库发展的历史上,最重要的成就就是关系模型。关系数据库系统与非关系数据库系统的区别是:关系系统只有“表“这一种数据结构;而非关系数据库系统还有其他数据结构,对这些数据结构有其他的操作。结构化查询语言SQL(StructuredQueryLanguage)是一种介于关系代数与关系演算之间的语言,其功能包括查询、操纵、定义和控制四个方面,是一个通用的、功能极强的关系数据库语言。目前已成为关系数据库的标准语言 Microsoft Access介绍:使用 Microsoft Access,可以在单一的数据库文件中管理所有的信息。在这个文件中,用户可以将自己的数据分别保存在各自独立的存储空间中,这些空间称作表;可以使用联机窗体来查看、添加及更新表中的数据;使用查询来查找并检索所要的数据;也可以使用报表以特定的版面布置来分析及打印数据。如果要保存数据,请为每一种类型的信息创建一个表。如果要从查询、窗体或报表中的多个表中将数据合并在一起,就要定义各个表之间的关系。如果要搜索并检索符合指定条件的数据,包括来自多个表中的数据,就要创建查询。查询的同时也可以更新或删除多条记录,并对数据执行内嵌或自定义的计算。如果要简单地直接在某个表中查看、输入及更改数据,请创建一个窗体。在打开一个窗体时,Microsoft Access 将从一个或多个表中检索数据,并使用用户在“窗体向导”选择的版面布局或所创建的版面布局,将窗体显示在屏幕上。如果要分析数据或将数据以特定的方式打印出来,请创建一个报表。例如,可以打印一份将数据分组并计算数据总和的报表,也可以打印另一份带有各种数据格式的打印邮件标签的报表。30 3图书管理系统的设计与实现3.1系统的设计3.1.1系统的概要设计该系统考虑将整个系统分解成如下模块:主界面图书管理图书信息管理读者类别管理读者信息管理图书借阅管理借书管理还书管理系统管理登录图书类别管理读者管理3.1.2系统的详细设计1)读者类别表图130 读者信息表:图21)借阅信息表:图330 1)书籍信息表:图42)图书类别表:图53)系统管理表:图63.2系统的设计与实现3.2.1系统的主界面的设计与实现30 图7主界面代码:PrivateSubadd_admin_Click()frmadduser.ShowEndSubPrivateSubadd_back_book_Click()frmbackbookinfo.ShowEndSubPrivateSubadd_book_info_Click()frmaddbookinfo.Show30 EndSubPrivateSubadd_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.ShowEndSub30 PrivateSubdel_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()30 frmmodifybookstyle.ShowEndSubPrivateSubmodify_reader_info_Click()frmreaderinfo.ShowEndSubPrivateSubmodify_reader_style_Click()frmmodifyreaderstyle.ShowEndSub3.2.2图书管理模块的设计与实现图书管理模块主要由:图书类别管理,图书信息管理.图书类别管理又分别由以下几个界面构成:1)添加图书类别图8添加图书类别代码:PrivateSubCommand1_Click()Dimrs_bookstyleAsNewADODB.RecordsetDimsqlAsStringIfTrim(Text1.Text)=""Then30 MsgBox"图书种类不能为空",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.CloseExitSubEndIfEndSub30 修改图书类别:图9修改图书类别代码:PrivateSubForm_Load()DimsqlAsStringOnErrorGoToloaderrorsql="select*from图书类别"rs_reader.CursorLocation=adUseClientrs_reader.Opensql,conn,adOpenKeyset,adLockPessimistic"打开数据库cmdupdate.Enabled=False"设定datagrid控件属性30 DataGrid1.AllowAddNew=False"不可增加DataGrid1.AllowDelete=False"不可删除DataGrid1.AllowUpdate=FalseIfuserpow="guest"Then"权限相关Frame2.Enabled=FalseEndIfSetDataGrid1.DataSource=rs_readerExitSubloaderror:MsgBoxErr.DescriptionEndSub3.2.3读者管理模块的设计与实现1)添加读者类别界面:图10添加读者类别代码:PrivateSubCommand1_Click()DimsqlAsStringIfTrim(Text1.Text)=""ThenMsgBox"读者种类不能为空",vbOKOnly+vbExclamation,""30 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.Close30 ElseMsgBox"读者类别重复!",vbOKOnly+vbExclamation,""Text1.SetFocusText1.Text=""rs_readerstyle.CloseExitSubEndIfEndSub1)查询读者信息图11代码分析:PrivateSubCommand1_Click()Dimrs_findreaderAsNewADODB.RecordsetDimsqlAsString30 IfCheck1.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.CloseEndSub30 3.2.4图书借阅管理模块的设计与实现图12代码实现: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,adLockPessimistic30 DataGrid1.AllowAddNew=FalseDataGrid1.AllowDelete=FalseDataGrid1.AllowUpdate=FalseSetDataGrid1.DataSource=rs_findEndSub3.2.5系统管理模块的设计与实现图13代码:PrivateSubCommand1_Click()DimsqlAsStringDimrs_addAsNewADODB.RecordsetIfTrim(Text1.Text)=""ThenMsgBox"用户名不能为空",vbOKOnly+vbExclamation,""ExitSubText1.SetFocusElsesql="select*from系统管理"rs_add.Opensql,conn,adOpenKeyset,adLockPessimisticWhile(rs_add.EOF=False)IfTrim(rs_add.Fields(0))=Trim(Text1.Text)Then30 MsgBox"已有这个用户",vbOKOnly+vbExclamation,""Text1.SetFocusText1.Text=""Text2.Text=""Text3.Text=""Combo1.Text=""ExitSubElsers_add.MoveNextEndIfWendIfTrim(Text2.Text)<>Trim(Text3.Text)ThenMsgBox"两次密码不一致",vbOKOnly+vbExclamation,""Text2.SetFocusText2.Text=""Text3.Text=""ExitSubElseIfTrim(Combo1.Text)<>"system"AndTrim(Combo1.Text)<>"guest"ThenMsgBox"请选择正确的用户权限",vbOKOnly+vbExclamation,""Combo1.SetFocusCombo1.Text=""ExitSubElsers_add.AddNewrs_add.Fields(0)=Text1.Textrs_add.Fields(1)=Text2.Textrs_add.Fields(2)=Combo1.Textrs_add.Update30 rs_add.CloseMsgBox"添加用户成功",vbOKOnly+vbExclamation,""UnloadMeEndIfEndIfEndSub30 结论经过几个月的设计和开发,学校图书管理系统基本开发完毕。其功能基本符合用户需求。但是该系统还有许多不尽如人意的地方,在今后有待进一步改善。通过这次毕业设计真切地体会到毕业设计的目的并不止于自己单纯任务的完成,而在于学习新的知识并掌握具体的方法,如何具体使用和具体应用你所学所用的语言。从而获得一种本领:就是融会贯通各种语言。回首整个开发设计过程,我学到了很多书本上学不到的东西。比如以前开发软件的时候,一般做的就是编码工作,实现比较简单的功能。但是这次毕业设计,我要负责图书管理系统的整个开发过程,包括系统可行性分析、系统需求分析、系统概要设计、系统详细设计等方面的工作。在每个设计阶段我都能学到一些新知识,对我的动手能力提高很大。在整个毕业设计过程中,我基本上完成了图书管理系统各个模块的功能,达到了毕业设计的要求。页面设计还有进一步改善的地方,我会在今后的学习工作中着重加强这方面的锻炼。在以后的工作中,还会遇到很多类似的情况,此次毕业设计为我以后的工作积累了很多宝贵的经验。这几个月中,从接到设计课题到具体设计再到完成系统开发,是一个不断地遇到问题与解决问题的过程。其中包括:分析各种需求、完善各种功能、增加必要环节、对各部分及整体进行检测与维护。当然仍存在许多问题不能解决地尽善尽美,还需不断地继续与探索。在结束设计的同时也感到了劳动的艰辛与劳动成果的来之不易,明白了毕业设计是给自己提供了一个锻炼、升华、提高、完善的机会。30 致谢为期三年的大学本科的学习生活即将结束,在此,感谢我的家人,是他们的支持和鼓励使我有了三年美好的大学时光。我要感谢所有曾经教导过我的老师和关心过我的同学,感谢他们在我学习成长过程中所给予我的帮助。这次毕业设计能成功完成,要特别感谢我的指导老师王云良老师,感谢王老师对我的作品提出的建议和指导。在整个设计阶段,王老师在我有困难的时候细心为我指导,给了我很大的帮助。在论文完成之际,谨向我尊敬的导师表示诚挚的谢意,感谢王老师对我的关心和帮助。在整个系统的开发过程中,同学和朋友给了我很大的帮助。感谢给予我帮助的同学和朋友们,他们在我的整个设计过程中给我提供了大量的技术指导和实践机会。衷心的感谢!30 参考文献1)陈明.软件工程学教程.科技出版社,20022)萨师煊,王珊.数据库系统概论.第三版.高等教育出版社,20003)飞思科技产品研发中心.visualbasic6.0数据库应用开发.电子工业出版社,20034)飞思科技产品研发中心.visualbasic6.0开发者手册.电子工业出版社,20025)申旻.visualbasic6.0高手突破.清华大学出版社,2002,3026)SteveTeixeira,XaviverPacheco著,龙劲松,王瑜,谢尚书译.visualbasic6.0开发人员指南.机械工业出版社.20037)乔林.参透Delphi/Kylix.中国铁道出版社.20038)李维.Inside深入核心VCL架构剖析.电子工业出版社.20049)张立科编写组.WindowsAPI函数参考手册.人民邮电出版社.200210)严蔚敏,吴伟民.数据结构.第二版.清华大学出版社.200111)王珍玲。实用软件工程教程高等教育出版社200430'