用vb设计图书管理系统

《用vb设计图书管理系统》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、VB课程设计报告11目录摘要关键字一系统规划1.1系统功能描述1.2功能模块划分1.3E-R图二系统界面的开发2.1登录界面2.2用户管理界面三系统的详细设计3.1登录界面代码3.2各功能代码四心得体会及认识致谢11摘要随着人类社会的发展，人类对知识的需求也不断地增长。在这种形势下，书籍就渐渐地成为人们获取并增长知识的主要途径，而图书馆就自然而然地在人们的生活中占据了一定的位置。如何科学地管理图书馆不但关系到读者求知的方便程度，也关系到绘本馆的发展，因此，开发一套完善的图书管理系统就必不可少了，图书管理系统是典型

2、的信息管理系统(MIS)，其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。经过分析，使用Microsoft公司的VisualBasic6.0为开发工具，利用其提供的各种面向对象的可视化开发平台作为开发工具，采用面向对象技术，图形化的应用开发环境，尤其是它有一个功能极其强大的集成环境提供给开发人员，使得开发人员可通过菜单、界面、图形浏览工具、对话框以及嵌入的各种生成器来轻松地完成各种复杂的操作。开发过程中不断修正和改进，直到形成用户满意的可行系统。本文介绍了在VisualBasic6.0环境下采

3、用"自上而下地总体规划，自下而上地应用开发"的策略开发本系统的详细过程，提出实现图书信息管理、资源共享的基本目标，从而推动迈向数字化图书馆的步伐，并阐述系统结构设计和功能设计，从图书的入库登记、借阅登记到查询浏览，形成了一个整体自动化管理模式，从软件工程的角度进行了科学而严谨的阐述。关键词：图书管理系统；借阅；浏览；编辑；VisualBasic6.011一系统规划1.1主要功能录入、删除、修改及查询1.2模块结构划分此功能分为几个模块读者种类信息：读者基本信息书籍信息借书信息还书信息1.3建立如下E-R图图书管理

4、系统基础信息维护用户信息用户登录退出更改密码读者管理读者信息图书管理图书信息期刊管理期刊信息查询读者查询用户借阅与借阅信息统计分析管理统计管理刷新添加删除修改添加刷新修改书号书名作者出版社状态11二系统界面的开发2.1用户登录用户登录界面1、输入账号与密码点击“登录”直接登录进入管理界面。2、输入账号与密码，点击“注册”，获得新的账号和密码，然后点击“登录”即可进入管理界面。2.2用户管理界面11编辑图书信息界面11查询图书信息界面：三系统的详细设计3.1登录界面代码PrivateSubCommand1_Clic

5、k()DimcnAsNewADODB.ConnectionDimrsAsNewADODB.RecordsetDimflagAsBooleanDimcn_strAsString,sql_strAsStringcn_str="DRIVER={SQLSERVER};SERVER=WTOLSDRD7SHRABT;DATABASE=library"cn.Opencn_strsql_str="select*fromuserinfo"rs.Opensql_str,cnWhileNotrs.EOFIfText1.Text=Tri

6、m(rs(0))AndText2.Text=Trim(rs(1))Thenflag=TrueForm2.ShowExitSubElsers.MoveNextflag=False11EndIfWendIfflag=FalseThenMsgBox"输入有误，请输入正确的密码和账号！",vbCritical+vbOKOnly,"错误"rs.CloseEndIfEndSubPrivateSubCommand2_Click()DimcnAsNewADODB.ConnectionDimrsAsNewADODB.Records

7、etDimflagAsBooleanDimcn_strAsString,sql_strAsStringcn_str="DRIVER={SQLSERVER};SERVER=WTOLSDRD7SHRABT;DATABASE=library"cn.Opencn_strsql_str="select*fromuserinfo"rs.Opensql_str,cn,adOpenDynamic,adLockOptimisticrs.AddNewrs("username")=Trim(Text1.Text)rs("userpas

8、sword")=Trim(Text2.Text)rs.Updaters.CloseMsgBox"注册成功!",vbExclamation+vbOKOnly,"提示"EndSubPrivateSubLabel1_Click()EndSub113.2各功能代码图书信息的编辑：PrivateSubCommand1_Click()Adodc1.Recordset.AddNewAd