vb图书管理系统课程设计.doc

vb图书管理系统课程设计

———————————————————————————————— 作者：
———————————————————————————————— 日期：

2

个人收集整理 勿做商业用途

VB课程设计报告

题目:图书管理系统
学院：信息工程学院
专业：信息工程(信息安全方向）
班级：1132101
姓名：赖玉蕾
学号: 201130210102
指导老师：魏树权

目 录

摘要
关键字
一 系统规划
1.1系统功能描述
1。2功能模块划分
1。3 E—R图
二 系统界面的开发
2.1登录界面
2。2用户管理界面
三 系统的详细设计
3.1登录界面代码
3.2各功能代码
四 心得体会及认识
致谢

摘要

随着人类社会的发展，人类对知识的需求也不断地增长。在这种形势下，书籍就渐渐地成为人们获取并增长知识的主要途径,而图书馆就自然而然地在人们的生活中占据了一定的位置。如何科学地管理图书馆不但关系到读者求知的方便程度，也关系到绘本馆的发展，因此，开发一套完善的图书管理系统就必不可少了，图书管理系统是典型的信息管理系统(MIS）,其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。
经过分析，使用 Microsoft公司的Visual Basic6.0为开发工具，利用其提供的各种面向对象的可视化开发平台作为开发工具，采用面向对象技术，图形化的应用开发环境，尤其是它有一个功能极其强大的集成环境提供给开发人员，使得开发人员可通过菜单、界面、图形浏览工具、对话框以及嵌入的各种生成器来轻松地完成各种复杂的操作。开发过程中不断修正和改进，直到形成用户满意的可行系统.
本文介绍了在Visual Basic6。0环境下采用”自上而下地总体规划，自下而上地应用开发”的策略开发本系统的详细过程，提出实现图书信息管理、资源共享的基本目标，从而推动迈向数字化图书馆的步伐，并阐述系统结构设计和功能设计,从图书的入库登记、借阅登记到查询浏览，形成了一个整体自动化管理模式，从软件工程的角度进行了科学而严谨的阐述。
关键词：图书管理系统；借阅；浏览;编辑；Visual Basic 6.0
一系统规划
1。1主要功能
录入、删除、修改及查询
1.2模块结构划分
此功能分为几个模块读者种类信息：
读者基本信息
书籍信息
借书信息
还书信息

1.3建立如下E—R图
图书管理系统
基础信息维护
用户信息
用户登录

退
出
更改密码
读者管理
读者信息
图书管理
图书信息
期刊管理
期刊信息

查询
读者查询
用户借阅与借阅信息
统计分析管理
统计管理
刷新
添加
删除
修改
添加
刷新
修改
书号
书名
作者
出版社
状态

二 系统界面的开发
2.1 用户登录
用户登录界面

1、输入账号与密码点击“登录" 直接登录进入管理界面。
2、输入账号与密码，点击“注册”，获得新的账号和密码,然后点击“登录"即可进入管理界面。

2.2 用户管理界面

编辑图书信息界面

查询图书信息界面：

三 系统的详细设计
3。1登录界面代码
Private Sub Command1_Click（)
Dim cn As New ADODB。Connection
Dim rs As New ADODB。Recordset
Dim flag As Boolean
Dim cn_str As String， sql_str As String
cn_str = ”DRIVER={SQL SERVER｝；SERVER=WTOLSDRD7SHRABT；DATABASE=library”
cn。Open cn_str
sql_str = "select * from userinfo"
rs.Open sql_str， cn
While Not rs.EOF
If Text1。Text = Trim(rs(0)) And Text2.Text = Trim(rs（1）） Then

flag = True
Form2。Show
Exit Sub
Else
rs。MoveNext
flag = False
End If
Wend
If flag = False Then
MsgBox "输入有误，请输入正确的密码和账号！"， vbCritical + vbOKOnly， "错误”
rs.Close
End If
End Sub
Private Sub Command2_Click（)
Dim cn As New ADODB。Connection
Dim rs As New ADODB.Recordset
Dim flag As Boolean
Dim cn_str As String, sql_str As String
cn_str = ”DRIVER={SQL SERVER}；SERVER=WTOLSDRD7SHRABT；DATABASE=library”
cn。Open cn_str
sql_str = ”select ＊from userinfo”
rs。Open sql_str， cn， adOpenDynamic, adLockOptimistic
rs。AddNew
rs("username”) = Trim(Text1。Text)
rs("userpassword”） = Trim（Text2.Text）

rs.Update
rs.Close
MsgBox "注册成功！"， vbExclamation + vbOKOnly, ”提示"
End Sub

Private Sub Label1_Click（）

End Sub
13

3。2各功能代码
图书信息的编辑：
Private Sub Command1_Click（)
Adodc1。Recordset。AddNew
Adodc1。Refresh
MsgBox ”录入信息成功!"， vbExclamation + vbOKOnly， ”提示”
End Sub

Private Sub Command2_Click（)
Adodc1。Recordset.Delete
Adodc1。Refresh
MsgBox ”删除信息成功!”, vbExclamation + vbOKOnly, "提示"
End Sub

Private Sub Command3_Click（）
Adodc1.Recordset。Update
Adodc1。Refresh
MsgBox "修改信息成功!”， vbExclamation + vbOKOnly， "提示"
End Sub

Private Sub Command4_Click（）
Text1。Text = ””
Text2.Text = "”
Text3。Text = ””
Text4。Text = ””
Text5.Text = ”"
Text6。Text = ””
Text7。Text = ”"
Text8。Text = ""
End Sub

图书信息的查询：
Private Sub Command1_Click（)
Adodc1.RecordSource = ” select * from bookinfo where book_id='” & Trim（Text1) & ” ’ ”
Adodc1.Refresh
End Sub

借阅信息的编辑：

Private Sub Command1_Click(）
Adodc1.Recordset。AddNew
Adodc1.Refresh
MsgBox "录入信息成功!", vbExclamation + vbOKOnly， ”提示”
End Sub

Private Sub Command2_Click()
Adodc1.Recordset.Update
Adodc1.Refresh
MsgBox "修改信息成功！"， vbExclamation + vbOKOnly， ”提示"
End Sub

Private Sub Command3_Click(）
Adodc1。Recordset。Delete
Adodc1。Refresh
MsgBox "删除信息成功！”, vbExclamation + vbOKOnly, "提示”
End Sub

Private Sub Command4_Click（)
text1.Text = ””
Text2.Text = ""
Text3。Text = ”"
Text4.Text = "”
Text5.Text = "”
Text6.Text = ””
Text7。Text = ”"
Text8。Text = ”"
End Sub

借阅信息的查询:

Private Sub Command2_Click(）
Text1。Text = "”
Text2.Text = ”"
Text3.Text = "”
Text4。Text = ""
Text5.Text = ""
Text6.Text = ””
Text7.Text = "”
Text8。Text = "”
End Sub

Private Sub Command1_Click()
Adodc1.RecordSource = " select ＊ from personinfo where card_number=’" & Trim(Text1) & " ’ ”
Adodc1.Refresh
End Sub

还书信息的编辑：
Private Sub Command1_Click（）
Adodc1.Recordset。AddNew
Adodc1.Refresh
MsgBox ”登记信息成功!”， vbExclamation + vbOKOnly, "提示"
End Sub

Private Sub Command2_Click()
Text1。Text = "”
Text2.Text = ”"
Text3。Text = "”
Text4。Text = "”
Text5。Text = "”
End Sub

四 心得体会及认识
要想做出一个好的图书管理系统，我们首先具备的是扎实的专业知识，和较强的逻辑思维，通过多多编写程序来增强自己的能力。在这次的课程设计中遇到了很多困难。在学习的过程中要善于思考，学会发现问题并解决问题。Sql和vb在我们编写程序时是不可分割的，要熟练的掌握数据库与vb的链接方法.Vb是当今最流行的软件开发之一,他的主要特点是简单易学,开发效率高，开发周期短。
致谢
老师的认真指导和热切帮助，在此表示感谢！