- 1、本文档共11页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
vb图书管理系统课程设计vb图书管理系统课程设计.doc
PAGE
PAGE 11
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
文档评论(0)