vb图书标准管理系统专业课程设计.doc

VB课程设计汇报

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

目 录

摘要
关键字
一 系统计划
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()
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是当今最流行软件开发之一，她关键特点是简单易学，开发效率高，开发周期短。
致谢
老师认真指导和热切帮助，在此表示感谢！