vb图书管理系统课程设计

VB课程设计报告题目：图书管理系统学院：信息工程学院专业:信息工程（信息安全方向)班级：1132101姓名：赖玉蕾学号:201130210102指导老师：魏树权1目录纲要重点字一系统规划1。1系统功能描绘1.2功能模块区分1.3E—R图二系统界面的开发2.1登录界面2。2用户管理界面三系统的详尽设计3。1登录界面代码3。2各功能代码四心得领会及认识道谢2纲要跟着人类社会的发展，人类对知识的需求也不停地增加。在这类局势下，书本就逐渐地成为人们获取并增加知识的主要门路，而图书室就自但是然地在人们的生活中占有了必定的地点.怎样科学地管理图书室不只关系到读者求知的方便程度,也关系到绘本馆的发展，所以，开发一套完美的图书管理系统就必不行少了，图书管理系统是典型的信息管理系统（MIS）,其开发主要包含后台数据库的成立和保护以及前端应用程序的开发两个方面。经过剖析，使用Microsoft企业的VisualBasic6.0为开发工具，利用其供应的各样面向对象的可视化开发平台作为开发工具,采纳面向对象技术，图形化的应用开发环境,特别是它有一个功能极其强盛的集成环境供应给开发人员，使得开发人员可经过菜单、界面、图形阅读工具、对话框以及嵌入的各样生成器来轻松地达成各样复杂的操作。开发过程中不停修正和改良，直到形成用户满意的可行系统。本文介绍了在VisualBasic6.0环境下采纳”自上而下地整体规划，自下而上地应用开发"的策略开发本系统的详尽过程,提出实现图书信息管理、资源共享的基本目标，进而推进迈向数字化图书室的步伐，并阐述系统构造设计和功能设计，从图书的入库登记、借阅登记到查问阅读,形成了一个整体自动化管理模式，从软件工程的角度进行了科学而谨慎的论述。重点词：图书管理系统；借阅；阅读；编写；VisualBasic6。03一系统规划1。1主要功能录入、删除、改正及查问1。2模块构造区分此功能分为几个模块读者种类信息：读者基本信息书本信息借书信息还书信息1。3成立以下E—R图图书管理系统基础读图期统计信息者书刊分析查保护管管管管理询理理理用更用读期图统用户借读户退改户者刊书计阅与借者信出密登信信信管阅信息查息码录息息息理询刷添修删添修书书出作状刷名版者态新加改除加改号新社4二系统界面的开发2.1用户登录用户登录界面1、输入账号与密码点击“登录”直接登录进入管理界面。2、输入账号与密码，点击“注册”，获取新的账号和密码，而后点击“登录"即可进入管理界面。2.2用户管理界面5编写图书信息界面6查问图书信息界面：三系统的详尽设计3.1登录界面代码PrivateSubCommand1_Click（）DimcnAsNewADODB.ConnectionDimrsAsNewADODB。RecordsetDimflagAsBooleanDimcn_strAsString,sql_strAsStringcn_str="DRIVER=｛SQLSERVER}；SERVER=WTOLSDRD7SHR；DATABASE=libraryBT”cn.Opencn_strsql_str=”select*fromuserinfo”rs。Opensql_str，cnWhileNotrs。EOFIfText1.Text=Trim(rs（0))AndText2。Text=Trim(rs(1）)Thenflag=TrueForm2.ShowExitSubElsers。MoveNextflag=FalseEndIf7WendIfflag=FalseThenMsgBox"输入有误，请输入正确的密码和账号！"，vbCritical+vbOKOnly，”错误”rs.CloseEndIfEndSubPrivateSubCommand2_Click（）DimcnAsNewADODB.ConnectionDimrsAsNewADODB.RecordsetDimflagAsBooleanDimcn_strAsString,sql_strAsStringcn_str="DRIVER=｛SQLSERVER};SERVER=WTOLSDRD7SHR；DATABASE=libraryBT”cn.Opencn_strsql_str=”select＊fromuserinfo"rs.Opensql_str，cn,adOpenDynamic,adLockOptimisticrs.AddNewrs（”username”)=Trim(Text1.Text)rs（"userpassword")=Trim（Text2.Text)rs.Updaters。CloseMsgBox”注册成功!"，vbExclamation+vbOKOnly,"提示"EndSubPrivateSubLabel1_Click（)EndSub3。2各功能代码图书信息的编写：PrivateSubCommand1_Click（)Adodc1.Recordset。AddNewAdodc1。RefreshMsgBox”录入信息成功!",vbExclamation+vbOKOnly,"提示”EndSubPrivateSubCommand2_Click(）Adodc1.RefreshMsgBox”删除信息成功!"，vbExclamation+vbOKOnly，"提示"EndSubPrivateSubCommand3_Click（)8Adodc1。Recordset.UpdateAdodc1。RefreshMsgBox”改正信息成功!"，vbExclamation+vbOKOnly，”提示"EndSubPrivateSubCommand4_Click(）Text1.Text="”Text2.Text=””Text3。Text="”Text4。Text=”"Text5。Text="”Text6.Text=""Text7.Text="”Text8.Text=""EndSub图书信息的查问：PrivateSubCommand1_Click()Adodc1。RecordSource="select＊frombookinfowherebook_id=＆’”Trim(Text1）＆”'”Adodc1.RefreshEndSub借阅信息的编写：PrivateSubCommand1_Click(）Adodc1。Recordset。AddNewAdodc1.RefreshMsgBox”录入信息成功！",vbExclamation+vbOKOnly，”提示"EndSubPrivateSubCommand2_Click（)Adodc1。Recordset.UpdateAdodc1.RefreshMsgBox”改正信息成功！",vbExclamation+vbOKOnly，"提示”EndSubPrivateSubCommand3_Click()Adodc1.Recordset。DeleteAdodc1.RefreshMsgBox"删除信息成功!”，vbExclamation+vbOKOnly，"提示"EndSubPrivateSubCommand4_Click（）9text1。Text="”Text2.Text="”Text3.Text="”Text4。Text=”"Text5。Text="”Text6。Text=””Text7。Text=”"Text8。Text=””EndSub借阅信息的查问：PrivateSubCommand2_Click(）Text1.Text="”Text2.Text=”"Text3.Text=”"Text4。Text=”"Text5.Text=”"Text6.Text="”Text7。Text=""Text8。Text=””EndSubPrivateSubCommand1_Click（）Adodc1.RecordSource=”select＊frompersoninfowherecard_number=’&"Trim(Text1）＆”'"Adodc1。RefreshEndSub还书信息的编写：PrivateSubCommand1_Click（)Adodc1.RefreshMsgBox”登记信息成功！"，vbExclamation+vbOKOnly,"提示"EndSubPrivateSubCommand2_Click（)Text1.Text="”Text2。Text=""Text3.Text=””Text4.Text=”"Text5.Text=””EndSub10四心得领会及认识要想做出一个好的图书管理系统，我