数据库课程设计论文.doc

08 届课程 设计 论文 题题 目目 学学生生信信息息管管理理系系统统 专专业业班班级级信信息息与与计计算算科科学学 X 班班 学学 号号XXXXXXX 学学生生姓姓名名XXX 指指导导教教师师XXX 指指导导教教师师职职称称讲讲 师师 学学院院名名称称理理学学院院 完完成成日日期期 2010 年年 6 月月 22 日日 武汉工程大学本科课程设计 论文 loultPage 1 11 2020 目目 录录 摘摘 要要 III 第第 1 章章 课课题题背背景景 1 1 1 背景 1 1 2 数据库 1 1 1 3 3 V VB B 2 第第 2 章章 数数据据库库及及 VB 代代码码设设计计 3 2 1 实验的结构设计 3 2 1 1 用 ODBC 连接数据库步骤 3 2 1 2 窗体设计及实现 7 第第三三章章 总总 结结 16 致致 谢谢 17 参参考考文文献献 18 附附 录录 19 武汉工程大学本科课程设计 论文 loultPage I 1 11 2020 I 摘摘 要要 为了了解一个公司的说有员工的基本信息 例如员工的编号 姓名 性别 职务 等级等信息 我们需要建立一个员工信息管理系统 本文用 VB 与数据库相连接 通过建立一些工程 窗体正好解决这些问题 让我们对员工的基本信息有所了解 关键词 VB 数据库 员工信息 武汉工程大学本科课程设计 论文 loultPage 0 1 11 2020 0 第第 1 1 章章 课课题题背背景景 1 11 1 背景背景 随着现代化信息管理自动化的水平的不断提高 现在公司管理员工信息也逐 步从手工转到计算机自动化信息处理阶段 设计一个功能完整 操作方便 界面 友好的员工信息管理系统已经势在必行 本系统开发的目的是提高公司管理的效率 保证信息的准确和规范 用较少 的工作量 高效管理员工的信息 1 系统能够查询员工的基本信息 例如员工的编号 姓名 性别 职务 级别 工资等 2 系统能够让员工修改自己的密码 3 系统能够添加新的员工信息 4 系统能够查询员工的工作情况 例如工作天数 加班天数等 1 21 2 数据库数据库 数据库 顾名思义 就是存放数据的仓库 描述事物的符号记录称为数据 描述事物的符号可以是数字 也可以是文字 图形 图像 声音和语言等 数据 库是长期储存在计算机内 有组织的 可共享的大量数据的集合 数据库中的数 据按一定的数据模型组织 描述和储存 具有较小的冗余度 较高的数据独立性 和易扩展性 并可为各种用户共享 数据库发展到今天 共经历了人工管理阶段 文件系统阶段 数据库系统阶 段 现如今 我们处于数据库系统阶段 数据库系统可以进行大概摸的数据管理 共享性高 冗余度小 具有高度的物理独立性和一定的逻辑独立性 同时还提供 武汉工程大学本科课程设计 论文 loultPage 1 1 11 2020 1 数据安全性 完整性 并发控制和恢复能力 数据库最常用的语言是 SQL Structured Query Languange 即结构化查 数据库最常用的语言是 SQL Structured Query Language 即结构化查 询语言 它是具有关系代数和关系演算双重特点的语言 SQL 之说以能够为用 户和业界接受 并成为国际标准 是因为它是一个综合的 功能极强又简洁易学 的语言 它集数据查询 数据操作 数据定义和数据控制于一体的 主要特点包 括 综合统一 高度非过程化 面向集合的操作方式 以同一种语法结构提供多 种使用方式 1 1 3 3 V VB B 人和计算机交流信息使用的语言成为计算机语言或程序设计语言 计算机程 序设计语言的发展你 经历了机器语言 汇编语言到高级语言的历程 高级语言 的发明是计算机发展史上最惊人的成就之一 自1954 年至今共有几百种高级 语言出现 目前在计算机中广泛使用的高级语言有几十种 影响较大 使用较普 遍的有 FORTRAN ALGOL COBOL BASIC LISP C VB 等 VB 采用的是面向对象程序设计方法 它把程序和数据封装在一起视为一个对 象 设计程序时只需从现有的工具箱中 拖 出所需的对象 并为每一个对象 设置属性即可 VB 的结构化程序设计语言 提供一个易学易用的程序集成开发 环境 它支持多种数据库系统的访问 武汉工程大学本科课程设计 论文 loultPage 2 1 11 2020 2 第第 2 2 章章 数数据据库库及及 v vb b 代代码码设设计计 2 12 1 实验的结构设计实验的结构设计 添加用户 2 1 12 1 1 用用 ODBCODBC 连接数据库步骤连接数据库步骤 打开控制面板后打开管理工具再打开 ODBC 数据源如图 用用户户登登录录系系统统 员员工工信信息息查查 询 添添加加用用户户 密密码码修修改改 显显示示信信息息 武汉工程大学本科课程设计 论文 loultPage 3 1 11 2020 3 添加选项选中 SQL Server 如图 点击完成如图 武汉工程大学本科课程设计 论文 loultPage 4 1 11 2020 4 单击下一步如图 单击下一步如图 武汉工程大学本科课程设计 论文 loultPage 5 1 11 2020 5 单击完成如图 单击测试数据源如图 武汉工程大学本科课程设计 论文 loultPage 6 1 11 2020 6 如果出现如上窗口则测试成功 可以进行下面工作 2 1 22 1 2 窗体设计及实现窗体设计及实现 窗体 1 的确定键代码 Private Sub Command1 Click Adodc1 RecordSource select from userm where managerno Text1 Text Adodc1 Refresh If Adodc1 Recordset RecordCount 0 Then If Trim Text2 Text Trim Adodc1 Recordset Fields password Then Form2 Show Me Hide Else MsgBox 密码输入错误 End If Else MsgBox 您无权使用该系统 End If End Sub 窗体 1 的取消键代码 武汉工程大学本科课程设计 论文 loultPage 7 1 11 2020 7 Private Sub Command2 Click End End Sub 窗体 1 的取重置键代码 Private Sub Command3 Click Text1 Text Text2 Text Text1 SetFocus End Sub 窗体 1 的添加用户键代码 Private Sub Command4 Click Form5 Show End Sub 武汉工程大学本科课程设计 论文 loultPage 8 1 11 2020 8 窗体 1 如图 窗体 2 的确定键代码 Private Sub Command1 Click Adodc1 RecordSource select from userstaff where sno Text1 Text Adodc1 Refresh If Adodc1 Recordset RecordCount 0 Then MsgBox 用户不存在 请重新输入工号 vbOKOnly vbExclamation 警 告 Text1 SetFocus Text1 Text Exit Sub Else If Trim Adodc1 Recordset Fields password Trim Text2 Text Then Me Hide Form3 Show Else MsgBox 输入密码错误 请重新输入 vbOKOnly vbExclamation 警告 Text2 SetFocus 武汉工程大学本科课程设计 论文 loultPage 9 1 11 2020 9 Text2 Text Exit Sub End If End If End Sub 窗体 2 的取消键代码 Private Sub Command2 Click End End Sub 窗体 2 的重置键代码 Private Sub Command3 Click Text1 Text Text2 Text Text1 SetFocus End Sub 窗体 2 的修改密码键代码 Private Sub Command4 Click Adodc1 RecordSource select from userstaff where sno Text1 Text Adodc1 Refresh If Adodc1 Recordset RecordCount 0 Then If Trim Text2 Text Trim Adodc1 Recordset Fields password Then Form4 Show Me Hide End If End If End Sub 武汉工程大学本科课程设计 论文 loultPage 10 1 11 2020 10 窗体 2 如图 窗体 3 的确定键代码 Private Sub Command1 Click Adodc1 RecordSource select from staff sped where sno Text1 Text Adodc1 Refresh If Adodc1 Recordset RecordCount 0 Then DataGrid1 Visible True Else MsgBox 该员工不存在 vbOKOnly vbExclamation 警告 Text1 SetFocus Text1 Text End If End Sub 窗体 3 的重置键代码 Private Sub Command2 Click Text1 Text 武汉工程大学本科课程设计 论文 loultPage 11 1 11 2020 11 Text1 SetFocus End Sub 窗体 3 如图 窗体 4 的确定键代码 Private Sub Command1 Click If Trim Text1 Text Then MsgBox 请输入用户 vbOKOnly vbExclamation 警告 Text1 Text Text1 SetFocus Exit Sub End If If Trim Text2 Text Then MsgBox 请输入原密码 vbOKOnly vbExclamation 警告 Text2 Text Text2 SetFocus Exit Sub End If 武汉工程大学本科课程设计 论文 loultPage 12 1 11 2020 12 If Trim Text3 Text Then MsgBox 请输入新密码 vbOKOnly vbExclamation 警告 Text3 Text Text3 SetFocus Exit Sub End If If Trim Text4 Text Then MsgBox 请重新输入新密码 vbOKOnly vbExclamation 警告 Text4 Text Text4 SetFocus Exit Sub End If Adodc1 RecordSource select from userstaff where sno Trim Text1 Text and password Trim Text2 Text Adodc1 Refresh If Adodc1 Recordset RecordCount 0 Then Adodc1 Recordset Fields password Trim Text3 Text Adodc1 Recordset Update Adodc1 Recordset Close MsgBox 修改成功 vbOKOnly vbExclamation 提示 Else MsgBox 用户号与密码不对应 请重新输入 vbOKOnly vbExclamation 警 告 Text1 SetFocus Text1 Text End If End Sub 窗体 4 如图 武汉工程大学本科课程设计 论文 loultPage 13 1 11 2020 13 点击确认后如图 窗体 5 的确认键代码 Adodc1 Refresh If Adodc1 Recordset RecordCount 0 Then MsgBox 用户已经存在 请重新输入 vbOKOnly vbExclamation 警告 Text1 SetFocus Text1 Text Exit Sub End If If Text2 Text Then MsgBox 密码不能为空 vbOKOnly vbExclamation 警告 Text3 SetFocus Text3 Text 武汉工程大学本科课程设计 论文 loultPage 14 1 11 2020 14 Text4 Text Else Adodc1 Recordset AddNew Adodc1 Recordset Fields sno Trim Text1 Text Adodc1 Recordset Fields password Trim Text2 Text Adodc1 Recordset Update Text1 Text Text2 Text Adodc1 Recordset Close MsgBox 添加用户成功 vbOKOnly vbExclamation 添加用户 End If End Sub 窗体 5 如图 点击确认键后如图 武汉工程大学本科课程设计 论文 loultPage 15 1 11 2020 15 第第三三章章 总总 结结 此课程设计基本实现了员工信息的管理功能 具有良好的可扩充性 但各功 能的实现都较简单 不是十分的精细 系统的功能有待完善 此系统分为一个主模块和三个子模块 每个子模块有不同的界面 结构还算 清晰 且具有良好的扩充性 能够添加更多其它的功能 能满足一般用户的需求 但是每个功能的实现不是十分的全面 如很多的查询功能都只设置了一种查询方 式 更好的是同时拥有多种查询方式 更多的功能还有待完善中 从此次课程实际基本了解了vb 的一些功能 但要想更好的了解和学号 vb 在以后的学习和生活中还有待进一步的挖掘和探索 这次课程设计就想到于 自己对 vb 的一次入门课 有了这一课也为我以后更好的学习vb 打下了良好的 基础 学习应该脚踏实地 不能浮浮澡澡 而要认真的专研 在实践中找到自己 的缺点 从而密闭自己的不足 武汉工程大学本科课程设计 论文 loultPage 16 1 11 2020 16 致致 谢谢 此次课程设计让我在很短的时间内了解了Vb 开始老师给了我们做了简单 的入门了解 本以为做起来会很简单的 因为已经有了vc 的基础 但实际做 起来却没想象中的那么简单 开始看的vb 的一些参考书都是一些讲 的 按照那上面讲的东西做的时候 出现了很多错误 却不知如何调试 里面讲 的函数和类的一些概念和 vc 很像 但和同学讨论后换了思路和方向 结果在同 学和一些参考书的帮助下完成了此次课程设计 特别要感谢从大一一直教我们的李老师 不仅在教学中十分认真 耐心 教 给我们很多书本上的知识 还对我们的未来的走向和其它很多方面都十分的关心 还要感谢在此次课程设计给我帮助的同学和一些专家编的一些参考书 正是在这 些人的帮助下完成了此次课程设计 武汉工程大学本科课程设计 论文 loultPage 17 1 11 2020 17 参参考考文文献献 1 王珊 萨师煊 数据库系统概论 第四版 M 北京 高等教育出版社 出版社 2006 2 王晖 赵艳铎 Visual Basic NET 实用编程百例 M 北京 清华大学出版 社 2004 3 罗朝盛 Visual Basic6 0 程序设计基础教程 M 北京 人民邮电出版社 2005 武汉工程大学本科课程设计 论文 loultPage 18 1 11 2020 18 附附 录录 窗体 1 的确定键代码 Private Sub Command1 Click Adodc1 RecordSource select from userm where managerno Text1 Text Adodc1 Refresh If Adodc1 Recordset RecordCount 0 Then If Trim Text2 Text Trim Adodc1 Recordset Fields password Then Form2 Show Me Hide Else MsgBox 密码输入错误 End If Else MsgBox 您无权使用该系统 End If End Sub 窗体 1 的取消键代码 Private Sub Command2 Click End End Sub 窗体 1 的取重置键代码 Private Sub Command3 Click Text1 Text Text2 Text Text1 SetFocus End Sub 窗体 1 的添加用户键代码 Private Sub Command4 Click Form5 Show End Sub 窗体 2 的确定键代码 Private Sub Command1 Click Adodc1 RecordSource select from userstaff where sno Text1 Text Adodc1 Refresh If Adodc1 Recordset RecordCount 0 Then 武汉工程大学本科课程设计 论文 loultPage 19 1 11 2020 19 MsgBox 用户不存在 请重新输入工号 vbOKOnly vbExclamation 警 告 Text1 SetFocus Text1 Text Exit Sub Else If Trim Adodc1 Recordset Fields password Trim Text2 Text Then Me Hide Form3 Show Else MsgBox 输入密码错误 请重新输入 vbOKOnly vbExclamation 警告 Text2 SetFocus Text2 Text Exit Sub End If End If End Sub 窗体 2 的取消键代码 Private Sub Command2 Click End End Sub 窗体 2 的重置键代码 Private Sub Command3 Click Text1 Text Text2 Text Text1 SetFocus End Sub 窗体 2 的修改密码键代码 Private Sub Command4 Click Adodc1 RecordSource select from userstaff where sno Text1 Text Adodc1 Refresh If Adodc1 Recordset RecordCount 0 Then If Trim Text2 Text Trim Adodc1 Recordset Fields password Then Form4 Show Me Hide End If 武汉工程大学本科课程设计 论文 loultPage 20 1 11 2020 20 End If End Sub 窗体 3 的确定键代码 Private Sub Command1 Click Adodc1 RecordSource select from staff sped where sno Text1 Text Adodc1 Refresh If Adodc1 Recordset RecordCount 0 Then DataGrid1 Visible True Else MsgBox 该员工不存在 vbOKOnly vbExclamation 警告 Text1 SetFocus Text1 Text End If End Sub 窗体 3 的重置键代码 Private Sub Command2 Click Text1 Text Text1 SetFocus End Sub 窗体 4 的确定键代码 Private Sub Command1 Click If Trim Text1 Text Then MsgBox 请输入用户 vbOKOnly vbExclamation 警告 Text1 Text Text1 SetFocus Exit Sub End If If Trim Text2 Text Then MsgBox 请输入原密码 vbOKOnly vbExclamation 警告 Text2 Text Text2 SetFocus Exit Sub End If If Trim Text3 Text Then MsgBox 请输入新密码 vbOKOnly vbExclamation 警告 Text3 Text Text3 SetFocus Exit Sub End If 武汉工程大学本科课程设计 论文 loultPage 21 1 11 2020 21 If Trim Text4 Text Then MsgBox 请重新输入新密码 vb