网站大量收购独家精品文档,联系QQ:2885784924

vb图书管理系统课程方案设计书.docVIP

  1. 1、本文档共11页,可阅读全部内容。
  2. 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  5. 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  6. 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  7. 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  8. 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 注

文档评论(0)

ipad0c + 关注
实名认证
文档贡献者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档