- 1、本文档共11页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
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 注
您可能关注的文档
- 毕设-电子档案管理系统的方案设计书与实现.doc
- 基于Web的远程温湿度监测系统的方案设计书(2).doc
- 基于PLC的电梯控制系统方案设计书.doc
- LED16乘16电子显示器课程方案设计书.doc
- GPS巡检管理系统方案设计书实施方案书.doc
- 数控装配加工方案设计书论文.doc
- 大学图书馆施工组织方案设计书.doc
- 生活-消防双恒压供水控制系统方案设计书.doc
- 机械方案设计书课程-分流式二级直齿圆柱齿轮减速器.doc
- 中学校园网站的方案设计书(1).doc
- 2024年土地专题:供需接近见底,核心城市及房企相对强势.pdf
- 2024中国AI智能拍摄眼镜行业概览:技术创新引领视觉新纪元,多场景应用赋能未来视界.pdf
- 新材料2025年年度策略:关注供需格局改善板块,重视“泛科技”新质生产力.pdf
- AI产业系列跟踪专题研究报告:从DeepSeek看国产AI的“后发优势”.pdf
- 2025零售媒体行业报告必威体育精装版完整版本.pdf
- 2024年鸿蒙生态全场景流量分析报告必威体育精装版完整版本.pdf
- 收费公路行业2025年信用风险展望:经营稳健行更远,智能路网享畅通.pdf
- 放疗性肺炎护理.pptx
- 2025年深圳信息职业技术学院单招职业技能测试题库及参考答案1套.docx
- 2025年湖北艺术职业学院单招职业技能测试题库1套.docx
文档评论(0)