vb图书管理系统课程设计

《vb图书管理系统课程设计》由会员分享，可在线阅读，更多相关《vb图书管理系统课程设计（11页珍藏版）》请在毕设资料网上搜索。

1、 1 VB 课程设计报告课程设计报告 题目：图书管理系统 学院：信息工程学院 专业：信息工程（信息安全方向） 班级： 姓名： 学号: 指导老师： 2 目目 录录 摘要 关键字 一 系统规划 1.1 系统功能描述 1.2 功能模块划分 1.3 E-R 图 二 系统界面的开发 2.1 登录界面 2.2 用户管理界面 三 系统的详细设计 3.1 登录界面代码 3.2 各功能代码 四 心得体会及认识 致谢 3 摘要摘要 随着人类社会的发展，人类对知识的需求也不断地增长。在这种形 势下，书籍就渐渐地成为人们获取并增长知识的主要途径，而图书馆就 自然而然地在人们的生活中占据了一定的位置。如何科学地管理图书

2、馆 不但关系到读者求知的方便程度，也关系到绘本馆的发展，因此，开发 一套完善的图书管理系统就必不可少了，图书管理系统是典型的信息管 理系统(MIS)， 其开发主要包括后台数据库的建立和维护以及前端应用程 序的开发两个方面。 经过分析，使用 Microsoft 公司的 Visual Basic6.0 为开发工具，利用 其提供的各种面向对象的可视化开发平台作为开发工具，采用面向对象 技术，图形化的应用开发环境，尤其是它有一个功能极其强大的集成环 境提供给开发人员，使得开发人员可通过菜单、界面、图形浏览工具、 对话框以及嵌入的各种生成器来轻松地完成各种复杂的操作。开发过程 中不断修正和改进，直到形成

3、用户满意的可行系统。 本文介绍了在 Visual Basic6.0 环境下采用“自上而下地总体规划，自 下而上地应用开发“的策略开发本系统的详细过程， 提出实现图书信息管 理、资源共享的基本目标，从而推动迈向数字化图书馆的步伐，并阐述 系统结构设计和功能设计，从图书的入库登记、借阅登记到查询浏览， 形成了一个整体自动化管理模式，从软件工程的角度进行了科学而严谨 的阐述。 关键词关键词：图书管理系统；借阅；浏览；编辑；Visual Basic 6.0 4 一系统规划 1.1 主要功能主要功能 录入、删除、修改及查询 1.2 模块结构划分模块结构划分 此功能分为几个模块读者种类信息： 读者基本信息

4、 书籍信息 借书信息 还书信息 1.3 建立如下建立如下 E-R 图图 图书管理系统 基础 信息 维护 用 户 信 息 用 户 登 录 退 出 更 改 密 码 读 者 管 理 读 者 信 息 图 书 管 理 图 书 信 息 期 刊 管 理 期 刊 信 息 查 询 读 者 查 询 用 户 借 阅 与 借 阅信息 统计 分析 管理 统 计 管 理 刷 新 添 加 删 除 修 改 添 加 刷 新 修 改 书 号 书 名 作 者 出 版 社 状 态 5 二 系统界面的开发 2.1 用户登录 用户登录界面 1、输入账号与密码点击“登录” 直接登录进入管理界面。 2、输入账号与密码，点击“注册” ，获得新

5、的账号和密码，然后点击“登录” 即可进入管理界面。 2.2 用户管理界面 6 编辑图书信息界面 7 查询图书信息界面： 三 系统的详细设计 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“

6、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 8 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