还剩69页未读,继续阅读
本资源只提供10页预览,全部文档请下载后查看!喜欢就下载吧,查找使用更方便
文本内容:
计算机系毕业论文图书馆管理系统的设计与实现学生:指导教师:学科、专业:计算机信息管理一班日期:摘要图书管理系统是采用VisualBasic
6.0__的一个数据库管理系统__本系统的基本步骤需求分析、系统概念设计、系统逻辑和物理设计、系统实现和维护在系统分析中先后用数据字典、数据流程、系统的功能结构图、ER图分析了系统所需的各种数据在系统的设计过程中我们采用了模块__设计法比较详细的展现了各个模块的功能在库和表的设计当中我们力求层次清晰,设计简单实用在系统具体实行阶段中,我画出了各个窗体并给出了相应的__和代码,以实现各个窗体的作用关键词数据库 SQL语言 VisualBasic
6.0 图书 图书管理AbstractLibrary__nagementsystemisdevelopedusingVisualBasic
6.0adatabase__nagementsystem.Developmentofthesystemsbasicsteps:needs____ysiscon__ptdesignsystemlogicandphysicaldesignsystemimplementationand__intenan__.____ysisinthesystemhasadatadictionarydataflowthesystemfunctionblockdiagramERdiagramofthesystemrequiredavarietyofdata.Inthesystemdesignpro__ssweusethemoduleindependentdesignmethodshowinginmoredetailthefunctionofeachmodule.Tableinthelibraryanddesignswestrivetolevelofclaritythedesignis______andpractical.Specificimplementationphaseinthesystemwecarefullymeticulousplotofeachformandthecorrespondingeventandcodetoachievetheroleofeachform.Keywords:DatabaseSQLLanguageVisualBasic
6.0booklibrary__nagement目录TOC\o1-3\h\z\u摘要I绪言--Abstract……………………………………………………………………………….--第1章概述--
1.1__背景--
1.2__目的--
1.3功能概述--第2章需求分析--
2.1图书管理现状--
2.2数据流程图--图书管管理系统基本信息流程--读者信息管理基本信息流程图--借书管理基本信息流程图--还书管理基本信息流程图--第3章详细设计--
3.1数据库的设计--图书信息表--事务信息表--读者信息表--
3.2功能模块的实现--
3.3登录模块--第4章调试与分析--
4.1--
4.2--结束语--致谢____绪言当今时代是飞速发展的的信息时代在各行各业中离不开信息处理,这正是计算机被广泛应用于信息管理系统的原因计算机的最大好处在于利用它能够进行信息管理使用计算机进行信息控制,不仅提高了工作效率,而且大大的提高了其安全性尤其对于复杂的信息管理,计算机能够充分发挥它的优越性计算机进行信息管理与信息管理系统的__密切相关,系统的__是系统管理的前提本系统就是为了管理好图书馆信息而设计的图书馆作为一种信息资源的集散地,图书和用户借阅资料繁多,包含很多的信息数据的管理,现今,有很多的图书馆都是初步开始使用,甚至尚未使用计算机进行信息管理我认为有必要建立一个图书管理系统,使图书管理工作规范化,系统化,程序化,避免图书管理的随意性,提高信息处理的速度和准确性,能够及时,准确,有效的查询和修改图书情况第1章概述
1.1__背景随着我国的经济的发展,大量的人才是社会发展的强大推动力,正因为如此__也越来越重视教育随着一系列措施的实施,我国的教育现状大为改观,学生的入学率大大提高,同时也有很多的学校建立了起来为了给同学们增加课外知识,大部分的学校都考虑到要建立图书馆从但是手工化的管理方式,显然成了学校正常工作中为了使学校的图书馆更好的服务与广大的老师和学生,提升对图书管理的信息化,编写了本图书管理系统
1.2__目的针对各大中专院校的图书管理现状,设计出适合一般学校的计算机辅助图书管理系统实现对图书基本信息、读者基本信息进行计算机辅助管理,完成借书和还书有关信息的记录、修改、查询、删除等一系列任务的计算机管理与实现.
1.3功能概述该系统界面完好,操作简便,能完成添加图书信息,修改图书信息,查询图书信息,添加读者类别,修改读者类别,查询读者信息,修改读者信息,添加删除___等一系列图书管理功能,__本系统的总体任务是实现图书管理的系统化和自动化,帮助管理人员更好更高效地完成图书管理工作本着实用性和介绍性的原则,整个系统由五大模块组成,每个大的模块又包括三至四个小的模块
一、 图书管理部分包括图书信息管理和类别管理,其功能是实现对各部分数据内容进行添加、修改、查询等操作
二、 借阅管理部分包括借书管理和还书管理,其功能是实现对各部分数据内容的添加和查询等操作
三、 读者管理部分包括读者信息管理和读者类别管理,其功能是实现对各部分数据内容的添加和修改等操作
四、 系统管理部分包括修改系统用户__和增加新用户两项功能
五、 帮助部分显示关于信息系统具有高效、易操作、易维护等特点,并且系统结构清晰、界面友好,功能较为齐全,能有效地协助管理人员进行图书管工作如果想真正把它用到图书馆的图书自动化管理中,还需要读者对该系统进行一步的完善工作第2章需求分析需求分析阶段确定的系统逻辑模型是以后设计和实现目标系统的基础,因此必须准确完整地体现用户的要求
2.1图书管理现状随着计算机技术的飞速发展,其应用方面已渗透到社会生活的各个领域它已经成为我们学习和工作的得力助手在学校,尤其是在一些高校,图书是学校的一项重要资源,图书的管理也是学校的一项常规性的重要工作而__以来,学生图书管理都是依赖人工进行的现今,有很多的学校都已经开始使用计算机进行图书信息管理,并且起得良好的效果近年来我校招生情况越来越好,所以图书管理工作越来越繁重,但由于种种原因,管理人员并没有增加,因此原有的人工管理工作已不能适应现行的工作需要同时,陈旧的人工管理也不利于__计算机应用为使图书管理工作科学化、规范化,就必须采用计算机辅助管理
2.2数据流程图数据流程图(DataFlowDFD)是描述实际业务管理系统工作流程的一种图形表示法它描绘系统的逻辑模型图,其中没有任何具体的物理元素,只是描绘信息在系统中流动和处理的情况因为数据流程图是逻辑系统的图形表示,即使不是专业的计算机技术人员也容易理解,所以是极好的通信工具此外,设计数据流程图只需考虑系统必须完成的基本逻辑功能,完全不需要考虑如何具体地实现这些功能,所以它也是软件设计的很好的出发点《图书管理系统》主要是为了对图书、读者基本信息等进行计算机管理下面就是功能模块的流程分析图书管管理系统基本信息流程流程分析图书基本信息的流动首先是以图书编号为流动方向的依据,来达到添加、修改、记录、删除图书记录为了数据的一致性,进行这些操作的同时,也对数据库中的记录进行检查,检查是否有重复的记录如有则不能进行添加读者信息管理基本信息流程图流程图分析读者基本信息的流动首先是以读者的编号为依据,来达到添加、修改、查询、删除读者信息的记录同时,也对数据库中的读者信息表的编号进行检查借书管理基本信息流程图流程图分析借书管理基本信息的流动首先是以借阅编号为流动方向的依据,来达到添加、查询借书记录为了数据的一致性,进行这些操作的同时,也对数据库中的记录进行检查,检查是否有重复的记录如没有则可进行添加还书管理基本信息流程图流程图分析借阅管理部分是实现对各部分数据内容的添加和查询操作,在借阅信息中包括图书编号、读者编号,系统对借书日期进行自动添加并通过添加功能来达到借阅信息表的数据的更新,通过查询功能可使___很快地了解借阅信息,从而避免书籍的丢失现象产生通过上面对各个模块流程的分析,那么我们就不难对整个系统的大致流程有一个全面的认识设计时采用了常用的自顶向下的瀑布式结构化设计方法这样系统做起来后就便于用户操作综合上面各个模块的分析,其总体流程图如图启动界面 登录连接数据库,验证_____进入主画面数据管理记录浏览借还操作系统设置帮助显示关于信息读者借阅借阅归还添加删除记录记录书籍书籍______添修删加改除第3章详细设计
3.1数据库的设计图书信息表图3-1图书信息表字段名数据类型说明图书编号文本主键,字段大小4书名文本字段大小10类别文本字段大小10__货币类型无出版社文本字段大小40入库日期日期/时间无是否借出文本字段大小4事务信息表图3-2事务信息表字段名数据类型说明借阅编号自动编号无读者编号文本字段大小50图书编号文本字段大小50归还日期日期/时间无出借日期日期/时间无读者信息表图3-3读者信息表字段名数据类型说明读者姓名文本字段大小10读者编号文本主键,字段大小4年龄数字无家庭住址文本字段大小
103.2功能模块的实现在打开数据表之前应该先打开数据库,系统中创建了一个模块,该模块的作用是连接数据库以及数据库中数据的提取,因为系统需要频繁的使用数据库中的数据,建立模块可以使程序简单化,模块的代码如下PubliccnAsADODB.Connection定义连接以及取记录的对象PublicrstAsADODB.RecordsetPublicFunctionCnToDBAsBooleanOnErrorGoToDebug设定错误机制,当连接错误时转到DebugSetcn=NewADODB.ConnectionWithcn设定访问数据库的参数,对象SQL-server.ConnectionString=provider=sqloledb;uid=sa;pwd=;server=..ConnectionTimeout=
5.CursorLocation=adUseClient.Open.DefaultDatabase=booksysEndWithCnToDB=TrueExitFunctionDebug:当出错时,取消连接数据库Setcon=NothingCnToDB=FalseEndFunctionPublicFunctionQueryDataByValstrSqlAsStringAsBooleanOnErrorGoToDebugIfCnToDB=TrueThen当连接到数据库后才能取得记录Setrst=NewADODB.RecordsetWithrst定义取记录的参数.Sour__=strSql.ActiveConnection=cn.CursorLocation=adUseClient.CursorType=adOpenDynamic.LockType=adLockOptimistic.OpenEndWithQueryData=TrueEndIfExitFunctionDebug:Setrst=NothingQueryData=FalseEndFunctionPublicFunctiongetRSByRefrstAsADODB.RecordsetByValstrSqlAsStringAsBooleanOnErrorGoTorsErrSetrst=NewADODB.RecordsetWithrst.Sour__=strSql.ActiveConnection=cn.CursorLocation=adUseClient.CursorType=adOpenDynamic.LockType=adLockOptimistic.OpenEndWithIfrst.StateThengetRS=TrueExitFunctionEndIfrsErr:getRS=FalseMsgBoxErr.NumberErr.DescriptionvbCritical+vbOKOnly错误信息EndFunction
3.3登录模块图3-4系统登录界面如果使用系统就必须先登录到系统,用户使用登录模块登录系统单击“登录”按钮的处理代码如下stringstr_name;stringstr_password;stringstr_sql;//获取用户输入的登录用户名和__//查询相应的用户名和__的SQL语句str_sql=selectReaderNameReaderLevelreaderIDfromtb_ReaderwhereLibraryCardID=+str_name+andReaderpwd=+str_password+;OleDbDataReaderdr=ms.Datareaderstr_sql;ifdr.Read==true{//session变量记录用户名Session[user]=dr[ReaderName].ToString.Trim;//session变量记录___级别Session[userlevel]=dr[ReaderLevel].ToString.Trim;//Session变量记录读者的ID号Session[userID]=dr[readerID].ToString.Trim;//Session变量记录读者的借阅证号Session[userCardID]=str_name;//session变量记录读者的__Session[userPwd]=str_password;///////////////////////ms.Close;//返回跳转的目的页stringstrweb=Login__nager.UserLevelSession[userlevel].ToString;Response.Writescriptlanguage=j__ascriptalert登录成功!即将跳转!;location=+strweb+/script;}else{ms.Close;}}图3-5登录成功提示登录的用户先弹出提示登录成功并按用户级别自动跳转到相应的功能页面,判断用户级别的代码在业务逻辑层,代码如下switchstrLevel{case系统___:strLevel=a_UserReg.aspx;break;case图书___:strLevel=BookBorrow.aspx;break;default:strLevel=ReaderQuery.aspx;break;}returnstrLevel;系统主窗体的实现图3-6其代码如下PrivatersAsADODB.RecordsetPrivaters1AsADODB.RecordsetPrivaters2AsADODB.RecordsetPrivatestrSqlAsStringPrivateSubCom__nd1_Clickborrow.ShowEndSubPrivateSubCom__nd2_Clickreback.ShowEndSubPrivateSubCom__nd4_ClickText
2.Text=IfCnToDB=FalseThenMsgBox网络未响应!出现此情况可能是与服务器没有物理连接或数据库不在指向的服务器上!vbCritical+vbOKOnlyConnectingErrorEndIfOnErrorGoTofmerrIfQueryDataselect*frombook=TrueThenSetDataGrid
1.DataSour__=rstElseMsgBox查询失败!EndIfExitSubfmerr:Ifrst.BOF=TrueAndrst.EOF=TrueThenMsgBox没有任何记录!EndIfEndSubPrivateSubCom__nd5_Clickdelbook.ShowEndSubPrivateSubI__ge1_ClickDimstrFAsString搜索按钮strF=select*frombookwherebooknamelike%Text
2.Text%IfQueryDatastrFThenSetDataGrid
1.DataSour__=rstEndIfEndSubPrivateSubMDIForm_LoadText
2.Text=IfCnToDB=FalseThenMsgBox网络未响应!出现此情况可能是与服务器没有物理连接或数据库不在指向的服务器上!vbCritical+vbOKOnlyConnectingErrorEndIfOnErrorGoTofmerrIfQueryDataselect*frombook=TrueThenSetDataGrid
1.DataSour__=rstElseMsgBox查询失败!EndIfExitSubfmerr:Ifrst.BOF=TrueAndrst.EOF=TrueThenMsgBox没有任何记录!EndIfEndSubPrivateSubmun_add_data_recstu_Clickaddreader.ShowEndSubPrivateSubmun_borr_giv_Clickreback.ShowEndSubPrivateSubmun_borr_ow_Clickborrow.ShowEndSubPrivateSubmun_data_add_recbook_Clickaddbook.ShowEndSubPrivateSubmun_del_book_Clickdelbook.ShowEndSubPrivateSubmun_del_stu_Clickdelreader.ShowEndSubPrivateSubmun_exp_borrow_Clickbooktran.ShowEndSubPrivateSubmun_exp_stu_Clickreader.ShowEndSubPrivateSubmun_help_about_Clickabout.ShowEndSubPrivateSubmun_rework_book_Clickreworkbook.ShowEndSubPrivateSubmun_rework_stu_Clickreworkreader.ShowEndSubPrivateSubmun_sys_admin_Clickadd__nge.ShowEndSubPrivateSubmun_sys_sys_Clickdel__nge.ShowEndSub数据管理的实现当单击数据管理-添加-书籍记录菜单时,窗体如下代码如下PrivateSubCom__nd1_ClickUnloadMeEndSubPrivateSubCom__nd2_ClickOnErrorGoTonoreIfMsgBox确实要添加吗?vbYesNo+vbQuestion提示=vbYesThenCallupDrst.UpdateMsgBox添加成功EndIfExitSubnore:MsgBox图书编号重复或者输入错误!vbOKOnly+vbCritical提示EndSubPrivateSubForm_LoadText
1.Text=Text
2.Text=Text
3.Text=Text
4.Text=Text
5.Text=Text
6.Text=OnErrorGoTofmerrIfQueryDataselect*frombook=TrueThenElseMsgBox查询失败!EndIfExitSubfmerr:Ifrst.BOF=TrueAndrst.EOF=TrueThenMsgBox没有任何记录!EndIfEndSubPrivateSubupDrst.AddNewrst.Fields
0.Value=Text
1.Textrst.Fields
1.Value=Text
2.Textrst.Fields
2.Value=Text
3.Textrst.Fields
3.Value=Text
4.Textrst.Fields
4.Value=Text
7.Textrst.Fields
5.Value=Text
6.Textrst.Fields
6.Value=Text
5.Textrst.UpdateEndSub添加读者的窗体代码如下PrivateSubCom__nd1_ClickOnErrorGoToerrorIfMsgBox确实要添加吗?vbYesNo+vbQuestion提示=vbYesThenCallupD1rst.UpdateMsgBox添加成功EndIfExitSuberror:MsgBox读者编号重复或者输入错误!vbOKOnly+vbCritical提示EndSubPrivateSubCom__nd2_ClickUnloadMeEndSubPrivateSubForm_LoadText
1.Text=Text
2.Text=Text
3.Text=Text
4.Text=Text
5.Text=OnErrorGoTofmerrIfQueryDataselect*fromreader=TrueThenElseMsgBox查询失败!EndIfExitSubfmerr:Ifrst.BOF=TrueAndrst.EOF=TrueThenMsgBox没有任何记录!EndIfEndSubPrivateSubupD1rst.AddNewrst.Fields
0.Value=Text
1.Textrst.Fields
1.Value=Text
2.Textrst.Fields
2.Value=Text
3.Textrst.Fields
3.Value=Text
4.Textrst.Fields
4.Value=Text
5.Textrst.UpdateEndSub当单击数据管理-修改-更改书籍菜单时,窗体如下代码如下PrivateSubCom__nd2_ClickOnErrorGoTonoCallupD2rst.Updaterst.MoveNextIfrst.EOFOrrst.BOFThenrst.MoveFirstEndIfExitSubno:MsgBox修改成功EndSubPrivateSubCom__nd3_ClickUnloadMeEndSubPrivateSubCom__nd5_ClickDimstrFAsStringstrF=select*frombookwherebookidlike%Text
1.Text%IfQueryDatastrFThenText
2.Text=rst.Fieldsbookname.ValueText
3.Text=rst.Fieldsbooktype.ValueText
4.Text=rst.Fieldsbookpri__.ValueText
5.Text=rst.Fieldsbookstate.ValueText
6.Text=rst.Fieldsbookpublish.ValueText
7.Text=rst.Fieldsbookintime.ValueEndIfEndSubPrivateSubForm_LoadText
1.Text=Text
2.Text=Text
3.Text=Text
4.Text=Text
5.Text=Text
6.Text=Text
7.Text=EndSubPrivateSubupD2rst.Fields
0.Value=Text
1.Textrst.Fields
1.Value=Text
2.Textrst.Fields
2.Value=Text
3.Textrst.Fields
3.Value=Text
4.Textrst.Fields
4.Value=Text
5.Textrst.Fields
5.Value=Text
6.Textrst.Fields
6.Value=Text
7.TextEndSub当单击数据管理-修改-更改读者菜单时,窗体如下代码如下PrivateSubCom__nd1_ClickUnloadMeEndSubPrivateSubCom__nd4_ClickOnErrorGoTonoCallupD3rst.Updaterst.MoveNextIfrst.EOFOrrst.BOFThenrst.MoveFirstEndIfExitSubno:MsgBox修改成功EndSubPrivateSubCom__nd5_ClickDimstrF1AsStringstrF1=select*fromreaderwherereaderidlike%Text
1.Text%IfQueryDatastrF1ThenText
2.Text=rst.Fieldsreadername.ValueText
3.Text=rst.Fieldsreaderage.ValueText
4.Text=rst.Fieldsreadercity.ValueText
5.Text=rst.Fieldse__il.ValueEndIfEndSubPrivateSubForm_LoadText
1.Text=Text
2.Text=Text
3.Text=Text
4.Text=Text
5.Text=EndSubPrivateSubupD3rst.Fields
0.Value=Text
1.Textrst.Fields
1.Value=Text
2.Textrst.Fields
2.Value=Text
3.Textrst.Fields
3.Value=Text
4.Textrst.Fields
4.Value=Text
5.TextEndSub当单击数据管理-删除-删除书籍菜单时,窗体如下代码如下PrivateSubCom__nd1_ClickUnloadMeEndSubPrivateSubCom__nd2_ClickOnErrorGoTonoCallupD2rst.Updaterst.MoveNextIfrst.EOFOrrst.BOFThenrst.MoveFirstEndIfExitSubno:MsgBox修改成功EndSubPrivateSubCom__nd4_ClickIfrst.EOF=TrueAndrst.BOF=TrueThenMsgBox没有数据!Elserst.Deleterst.MoveFirstIfrst.BOFOrrst.EOFThenMsgBox没有数据Call___ClsEndIfCallshowDBEndIfEndSubPrivateSubCom__nd5_ClickDimstrFAsStringstrF=select*frombookwherebookidlike%Text
1.Text%IfQueryDatastrFThenText
2.Text=rst.Fieldsbookname.ValueText
3.Text=rst.Fieldsbooktype.ValueText
4.Text=rst.Fieldsbookpri__.ValueText
5.Text=rst.Fieldsbookstate.ValueText
6.Text=rst.Fieldsbookpublish.ValueText
7.Text=rst.Fieldsbookintime.ValueEndIfEndSubPrivateSubForm_LoadCall___ClsEndSubPrivateSubupD2rst.Fields
0.Value=Text
1.Textrst.Fields
1.Value=Text
2.Textrst.Fields
2.Value=Text
3.Textrst.Fields
3.Value=Text
4.Textrst.Fields
4.Value=Text
5.Textrst.Fields
5.Value=Text
6.Textrst.Fields
6.Value=Text
7.TextEndSubPrivateSub___ClsText
1.Text=Text
2.Text=Text
3.Text=Text
4.Text=Text
5.Text=Text
6.Text=Text
7.Text=EndSubPrivateSubshowDBText
1.Text=rst.Fields
0.ValueText
2.Text=rst.Fields
1.ValueText
3.Text=rst.Fields
2.ValueText
4.Text=rst.Fields
3.ValueText
5.Text=rst.Fields
4.ValueText
6.Text=rst.Fields
5.ValueText
7.Text=rst.Fields
6.ValueEndSub当单击数据管理-删除-删除读者菜单时,窗体如下代码如下PrivateSubCom__nd1_ClickUnloadMeEndSubPrivateSubCom__nd2_ClickIfrst.EOF=TrueAndrst.BOF=TrueThenMsgBox没有数据!Elserst.Deleterst.MoveFirstIfrst.BOFOrrst.EOFThenMsgBox没有数据Call___ClsEndIfCallshowDBEndIfEndSubPrivateSubCom__nd3_ClickUnloadMeEndSubPrivateSubCom__nd5_ClickDimstrF1AsStringstrF1=select*fromreaderwherereaderidlike%Text
1.Text%IfQueryDatastrF1ThenText
2.Text=rst.Fieldsreadername.ValueText
3.Text=rst.Fieldsreaderage.ValueText
4.Text=rst.Fieldsreadercity.ValueText
5.Text=rst.Fieldse__il.ValueEndIfEndSubPrivateSubForm_Load___ClsEndSubPrivateSub___ClsText
1.Text=Text
2.Text=Text
3.Text=Text
4.Text=Text
5.Text=EndSubPrivateSubshowDBText
1.Text=rst.Fields
0.ValueText
2.Text=rst.Fields
1.ValueText
3.Text=rst.Fields
2.ValueText
4.Text=rst.Fields
3.ValueText
5.Text=rst.Fields
4.ValueEndSub当单击记录浏览-读者记录菜单时,窗体如下代码如下PrivateSubCom__nd1_ClickDimstrFAsStringIfCombo
1.Text=编号ThenstrF=select*fromreaderwherereaderidlike%Text
1.Text%IfQueryDatastrFThenSetDataGrid
1.DataSour__=rstEndIfEndIfIfCombo
1.Text=名字ThenstrF=select*fromreaderwherereadernamelike%Text
1.Text%IfQueryDatastrFThenSetDataGrid
1.DataSour__=rstEndIfEndIfIfCombo
1.Text=城市ThenstrF=select*fromreaderwherereadercitylike%Text
1.Text%IfQueryDatastrFThenSetDataGrid
1.DataSour__=rstEndIfEndIfEndSubPrivateSubForm_LoadText
1.Text=Combo
1.AddItem编号Combo
1.AddItem名字Combo
1.AddItem城市IfCnToDB=FalseThenMsgBox网络未响应!出现此情况可能是与服务器没有物理连接或数据库不在指向的服务器上!vbCritical+vbOKOnlyConnectingErrorEndIfOnErrorGoTofmerrIfQueryDataselect*fromreader=TrueThenSetDataGrid
1.DataSour__=rstElseMsgBox查询失败!EndIfExitSubfmerr:Ifrst.BOF=TrueAndrst.EOF=TrueThenMsgBox没有任何记录!EndIfEndSub当单击记录浏览-借阅记录菜单时,窗体如下代码如下PrivateSubCom__nd1_ClickDimstrFAsStringIfCombo
1.Text=读者编号ThenstrF=select*frombooktranwherereaderidlike%Text
1.Text%IfQueryDatastrFThenSetDataGrid
1.DataSour__=rstEndIfEndIfIfCombo
1.Text=图书编号ThenstrF=select*frombooktranwherebookidlike%Text
1.Text%IfQueryDatastrFThenSetDataGrid
1.DataSour__=rstEndIfEndIfIfCombo
1.Text=借阅日期ThenstrF=select*frombooktranwhereBorrowDateLIKE%Text
1.Text%IfQueryDatastrFThenSetDataGrid
1.DataSour__=rstEndIfEndIfIfCombo
1.Text=归还日期ThenstrF=select*frombooktranwherereturndatelike%Text
1.Text%IfQueryDatastrFThenSetDataGrid
1.DataSour__=rstEndIfEndIfEndSubPrivateSubForm_LoadText
1.Text=Combo
1.AddItem读者编号Combo
1.AddItem图书编号Combo
1.AddItem借阅日期Combo
1.AddItem归还日期IfCnToDB=FalseThenMsgBox网络未响应!出现此情况可能是与服务器没有物理连接或数据库不在指向的服务器上!vbCritical+vbOKOnlyConnectingErrorEndIfOnErrorGoTofmerrIfQueryDataselect*frombooktran=TrueThenSetDataGrid
1.DataSour__=rstElseMsgBox查询失败!EndIfExitSubfmerr:Ifrst.BOF=TrueAndrst.EOF=TrueThenMsgBox没有任何记录!EndIfEndSub当单击借还操作-借阅书籍菜单时,窗体如下代码为PrivatestrSqlAsStringPrivatersAsADODB.RecordsetPrivateSubCom__nd1_ClickstrSql=select*frombookwherebookid=Text
2.TextCallgetRSrsstrSqlIfrs.RecordCount=0ThenMsgBox没有该图书ExitSubEndIfstrSql=selectbookstatefrombookwherebookid=Text
2.Textandbookstate=在库CallgetRSrsstrSqlIfrs.RecordCount=1ThenstrSql=insertintobooktranreaderidbookidBorrowDatevaluesText
1.TextText
2.TextNowcn.ExecutestrSqlstrSql=updatebooksetbookstate=借出wherebookid=Text
2.Textcn.ExecutestrSqlMsgBox借阅成功ElseMsgBox该图书已经借出EndIfEndSubPrivateSubCom__nd2_ClickstrSql=select*frombookwherebookid=Text
2.TextCallgetRSrsstrSqlEndSubPrivateSubForm_LoadCallCnToDBText
1.Text=Text
2.Text=EndSub当单击借还操作-归还书籍菜单时,窗体如下代码如下PrivatestrSqlAsStringPrivatersAsADODB.RecordsetPrivateSubCom__nd1_ClickstrSql=select*frombookwherebookid=Text
2.TextCallgetRSrsstrSqlIfrs.RecordCount=0ThenMsgBox没有该图书ExitSubEndIfstrSql=selectbookstatefrombookwherebookid=Text
2.Textandbookstate=借出CallgetRSrsstrSqlIfrs.RecordCount=1ThenstrSql=updatebooktransetreturndate=Nowwherebookid=Text
2.Textcn.ExecutestrSqlstrSql=updatebooksetbookstate=在库wherebookid=Text
2.Textcn.ExecutestrSqlMsgBox还书成功ElseMsgBox没有该书借阅记录EndIfEndSubPrivateSubCom__nd2_ClickstrSql=select*frombookwherebookid=Text
2.TextCallgetRSrsstrSqlEndSubPrivateSubForm_LoadCallCnToDBText
1.Text=Text
2.Text=EndSub当单击系统设置-添加___菜单时,窗体如下代码如下PrivateSubCom__nd1_ClickOnErrorGoToerrorIfMsgBox确实要添加吗?vbYesNo+vbQuestion提示=vbYesThenCallupD1rst.UpdateMsgBox添加成功EndIfUnloadMeExitSuberror:MsgBox用户名已存在或者输入错误!vbOKOnly+vbCritical提示EndSubPrivateSubForm_LoadText
1.Text=Text
2.Text=OnErrorGoTofmerrIfQueryDataselect*fromyh=TrueThenElseMsgBox查询失败!EndIfExitSubfmerr:Ifrst.BOF=TrueAndrst.EOF=TrueThenMsgBox没有任何记录!EndIfEndSubPrivateSubupD1rst.AddNewrst.Fields
0.Value=Text
1.Textrst.Fields
1.Value=Text
2.Textrst.Fields
2.Value=1rst.UpdateEndSub当单击系统设置-删除___菜单时,窗体如下代码如下PrivateSubCom__nd1_ClickIfrst.EOF=TrueAndrst.BOF=TrueThenMsgBox没有数据!Elserst.Deleterst.MoveNextIfrst.BOFOrrst.EOFThenMsgBox没有数据Call___ClsEndIfUnloadMeEndIfEndSubPrivateSubCom__nd2_ClickDimstrF1AsStringstrF1=select*fromyhwhereuseridlike%Text
1.Text%IfQueryDatastrF1ThenText
2.Text=rst.Fieldsuserid.ValueEndIfEndSubPrivateSubForm_Load___ClsEndSubPrivateSub___ClsText
1.Text=Text
2.Text=EndSub第4章调试与分析
4.1采用各模块__调试,整体合成测试的方法各个模块应能__使用
4.2随着网络技术的飞速发展,基于网络的应用软件正迅速发展如果将该系统进一步改进,使之能应用于网络环境,则可以大大提高工作效率,提高其时效性和应用范围结束语经过老师细心的指导,以及同学之间的相互交流,同时翻阅了大量的资料包括网上资料,书本及学校的一些相关资料经过近一段时间的努力,使我对VisualBasic有了更深程度的认识和了解,也使我对数据库的__有所了解,为以后从事数据库__工作打下了良好的基础同时,也使我认识到自己所学的知识还很肤浅,这也正是我今后要努力提高的致谢在本次毕业论文中,我从指导老师老师身上学到了很多东西他认真负责的工作态度,严谨的治学精神和深厚的理论水平都使我收益匪浅他无论在理论上还是在实践中,都给与我很大的帮助,使我得到不少的提高,这对于我以后的工作和学习都有一种巨大的帮助,感谢他细心而又耐心的__在即将离开学校之际,再次衷心感谢我系所有老师对我的帮助,谢谢你们为我的大学生活划上一个完满的句号!____
[1].刘韬骆娟何旭洪《VisualBasic
6.0数据库系统__实例导航》出版社人民邮电出版社2000年5月
[2].VisualBasic
6.0编程篇 __ 郝志恒 刘舫出版社电子工业出版社 2004年1月
[3].数据库基础与应用__ 刘世峰出版社__电大出版社 2003年12月
[4].网络数据库实用教程SQLserver2000/张登宏,梁晓宏主编–北京北京交通大学出版社,
2007.07
[5].管理信息系统薛华成清华大学出版社1999年
[6].管理信息系统/赵晖主编–北京交通大学出版社,
2008.12
[7].周黎钱瑛周阳花.程序设计基础--VISUALBASIC教程.人民邮电出版社2008
[8].李玉林.VISUALBASIC毕业设计指南与项目实践.科学出版社2008
[9].王兴晶赵万军.VISUALBASIC程序设计视频教程.电子工业出版社2005
[10].黄明梁旭石兴民.VISUALBASIC课程设计.电子工业出版社2006
[11].邹晓曹来成谬成斌徐志刚.VISUALBASIC程序设计习题集与上机指导.机械工业出版社2009
[12].李俊民许波.VISUALBASIC轻松入门.人民邮电出版社2009
[13].王永毅等编著.管理信息系统设计与实现.清华大学出版社,2003
[15].《VisualBasic程序设计教程》,林卓然,电子工业出版社
[16].《VisualBasic程序设计基础》,李群先,李耀伟,江学锋,乔晓林,人民邮电出版社,提示登录成功。