用VB设计图书管理系统.docx
《用VB设计图书管理系统.docx》由会员分享，可在线阅读，更多相关《用VB设计图书管理系统.docx（11页珍藏版）》请在冰豆网上搜索。
用VB设计图书管理系统
VB课程设计报告
目录
摘要
关键字
一系统规划
1.1系统功能描述
1.2功能模块划分
1.3E-R图
二系统界面的开发
2.1登录界面
2.2用户管理界面
三系统的详细设计
3.1登录界面代码
3.2各功能代码
四心得体会及认识
致谢
摘要
随着人类社会的发展，人类对知识的需求也不断地增长。
在这种形势下，书籍就渐渐地成为人们获取并增长知识的主要途径，而图书馆就自然而然地在人们的生活中占据了一定的位置。
如何科学地管理图书馆不但关系到读者求知的方便程度，也关系到绘本馆的发展，因此，开发一套完善的图书管理系统就必不可少了，图书管理系统是典型的信息管理系统（MIS），其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。
经过分析，使用Microsoft公司的VisualBasic6.0为开发工具，利用其提供的各种面向对象的可视化开发平台作为开发工具，采用面向对象技术，图形化的应用开发环境，尤其是它有一个功能极其强大的集成环境提供给开发人员，使得开发人员可通过菜单、界面、图形浏览工具、对话框以及嵌入的各种生成器来轻松地完成各种复杂的操作。
开发过程中不断修正和改进，直到形成用户满意的可行系统。
本文介绍了在VisualBasic6.0环境下采用"自上而下地总体规划，自下而上地应用开发"的策略开发本系统的详细过程，提出实现图书信息管理、资源共享的基本目标，从而推动迈向数字化图书馆的步伐，并阐述系统结构设计和功能设计，从图书的入库登记、借阅登记到查询浏览，形成了一个整体自动化管理模式，从软件工程的角度进行了科学而严谨的阐述。
关键词：
图书管理系统；借阅；浏览；编辑；VisualBasic6.0
一系统规划
1.1主要功能
录入、删除、修改及查询
1.2模块结构划分
此功能分为几个模块读者种类信息：
读者基本信息
书籍信息
借书信息
还书信息
1.3建立如下E-R图
二系统界面的开发
2.1用户登录
用户登录界面
1、输入账号与密码点击“登录”直接登录进入管理界面。
2、输入账号与密码，点击“注册”，获得新的账号和密码，然后点击“登录”即可进入管理界面。
2.2用户管理界面
编辑图书信息界面
查询图书信息界面：
三系统的详细设计
3.1登录界面代码
PrivateSubCommand1_Click（）
DimcnAsNewADODB.Connection
DimrsAsNewADODB.Recordset
DimflagAsBoolean
Dimcn_strAsString,sql_strAsString
cn_str="DRIVER={SQLSERVER};SERVER=WTOLSDRD7SHRABT;DATABASE=library"
cn.Opencn_str
sql_str="select*fromuserinfo"
rs.Opensql_str,cn
WhileNotrs.EOF
IfText1.Text=Trim（rs（0））AndText2.Text=Trim（rs
（1））Then
flag=True
Form2.Show
ExitSub
Else
rs.MoveNext
flag=False
EndIf
Wend
Ifflag=FalseThen
MsgBox"输入有误，请输入正确的密码和账号！
",vbCritical+vbOKOnly,"错误"
rs.Close
EndIf
EndSub
PrivateSubCommand2_Click（）
DimcnAsNewADODB.Connection
DimrsAsNewADODB.Recordset
DimflagAsBoolean
Dimcn_strAsString,sql_strAsString
cn_str="DRIVER={SQLSERVER};SERVER=WTOLSDRD7SHRABT;DATABASE=library"
cn.Opencn_str
sql_str="select*fromuserinfo"
rs.Opensql_str,cn,adOpenDynamic,adLockOptimistic
rs.AddNew
rs（"username"）=Trim（Text1.Text）
rs（"userpassword"）=Trim（Text2.Text）
rs.Update
rs.Close
MsgBox"注册成功!
",vbExclamation+vbOKOnly,"提示"
EndSub
PrivateSubLabel1_Click（）
EndSub
3.2各功能代码
图书信息的编辑：
PrivateSubCommand1_Click（）
Adodc1.Recordset.AddNew
Adodc1.Refresh
MsgBox"录入信息成功!
",vbExclamation+vbOKOnly,"提示"
EndSub
PrivateSubCommand2_Click（）
Adodc1.Recordset.Delete
Adodc1.Refresh
MsgBox"删除信息成功!
",vbExclamation+vbOKOnly,"提示"
EndSub
PrivateSubCommand3_Click（）
Adodc1.Recordset.Update
Adodc1.Refresh
MsgBox"修改信息成功!
",vbExclamation+vbOKOnly,"提示"
EndSub
PrivateSubCommand4_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.Refresh
EndSub
借阅信息的编辑：
PrivateSubCommand1_Click（）
Adodc1.Recordset.AddNew
Adodc1.Refresh
MsgBox"录入信息成功!
",vbExclamation+vbOKOnly,"提示"
EndSub
PrivateSubCommand2_Click（）
Adodc1.Recordset.Update
Adodc1.Refresh
MsgBox"修改信息成功!
",vbExclamation+vbOKOnly,"提示"
EndSub
PrivateSubCommand3_Click（）
Adodc1.Recordset.Delete
Adodc1.Refresh
MsgBox"删除信息成功!
",vbExclamation+vbOKOnly,"提示"
EndSub
PrivateSubCommand4_Click（）
text1.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=""
EndSub
PrivateSubCommand1_Click（）
Adodc1.RecordSource="select*frompersoninfowherecard_number='"&Trim（Text1）&"'"
Adodc1.Refresh
EndSub
还书信息的编辑：
PrivateSubCommand1_Click（）
Adodc1.Recordset.AddNew
Adodc1.Refresh
MsgBox"登记信息成功!
",vbExclamation+vbOKOnly,"提示"
EndSub
PrivateSubCommand2_Click（）
Text1.Text=""
Text2.Text=""
Text3.Text=""
Text4.Text=""
Text5.Text=""
EndSub
四心得体会及认识
要想做出一个好的图书管理系统，我们首先具备的是扎实的专业知识，和较强的逻辑思维，通过多多编写程序来增强自己的能力。
在这次的课程设计中遇到了很多困难。
在学习的过程中要善于思考，学会发现问题并解决问题。
Sql和vb在我们编写程序时是不可分割的，要熟练的掌握数据库与vb的链接方法。
Vb是当今最流行的软件开发之一，他的主要特点是简单易学，开发效率高，开发周期短。
致谢
老师的认真指导和热切帮助，在此表示感谢！
升级会员 