vb图书管理系统课程设计

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

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()