vb课程设计实验报告

VBVB课程设计实验报告课程设计实验报告 指导老师 某某指导老师 某某 学生及分工 学生及分工 某某 数据库设计某某 数据库设计 某某 某某 vbvb设计及代码编写调试设计及代码编写调试 某某 实验报告编写某某 实验报告编写 20132013年年6 6月月1414日日 2 目录目录 一 前言概述一 前言概述 3 3 二 需求分析二 需求分析 3 3 2 12 1使用需求使用需求 3 3 2 22 2数据需求数据需求 4 4 2 32 3功能需求及运行环境功能需求及运行环境 4 4 三 系统总体功能分析三 系统总体功能分析 4 4 3 1 3 1 抽象出当前系统的逻辑模型抽象出当前系统的逻辑模型 4 4 3 23 2 系统功能分析 系统功能分析 5 5 3 33 3系统目标设计系统目标设计 5 5 3 43 4开发设计思想开发设计思想 5 5 四 系统功能要求设计四 系统功能要求设计 6 6 五 选课系统详细设计五 选课系统详细设计 7 7 5 15 1数据库设计数据库设计 8 8 5 25 2 vbvb界面设计及代码界面设计及代码 9 9 5 2 15 2 1登录界面及代码登录界面及代码 10 10 5 2 25 2 2注册界面及代码注册界面及代码 12 12 5 2 35 2 3选课界面及代码选课界面及代码 14 14 5 2 45 2 4查询界面及代码查询界面及代码 15 15 六 系统设计心得体会六 系统设计心得体会 16 16 七 系统备注七 系统备注 16 16 3 课题 选课管理系统课题 选课管理系统 一 前言概述一 前言概述 随着计算机技术的飞速发展 计算机在企业管理中的应用普及 利 用计算机实现选课系统势在必行 选课系统是针对在校学生和教师 使用 由于学校的教学制度的改革 现在大部分的高等院校开始实 行的是学生自主选课模式 传统的教学模式 已经不能适应新型的 教学手段 如果任然实行纸上的选课方式 一方面不但浪费大量的 人力 物力资源 另一方面也浪费时间以及在认为的统计过程中不 可避免出现的差错等情况 对于选课系统而言 它是C S架构的系统 它能更有效 更快速的实现学生选课的管理过程 而且其管理的 机制也更加完善 对于一个学校来说 利用计算机进行选课管理所无法比拟的优点是 检索迅速 查找方便 可靠性高 存储量大 保密性好 寿命长 成本低等优点 这些优点极大地提高了高校选课的效率 现代社 会是一个高速发展的信息时代 时间就是金钱 为了适应这种需要 学校的管理也在逐步实现现代化 学生选课系统也应该实现现代 化 二 需求分析 二 需求分析 2 1 使用需求 学生选课管理工作时高等院校教务管理工作的一项重要的内容 是 整个教务管理的核心和基础 学生选课工作是指学校管理员按照一 定的教育方针 运用先进的管理手段 组织协调 指挥与指导各方 面的人员的活动 以便于搞笑 高质量的完成各项选课任务 选课 管理是一项目的性 计划性 适应性 创造性和科学性极强的工作 学生选课的内容对于学校的决策者和管理者来说都至关重要 所 以学生选课系统应该能够为用户提供足够充足的信息和快捷的查询 手段 一直以来人们使用传统的人工的方式管理文件和档案 这种管理方 式存在着以下许多的缺点 如 效率低 保密性差 另外 时间一 长 将产生大量的文件和数据 这对于查找 更新和维护都带来了 不少的困难 随着科学技术的不断提高 计算机技术的不断成熟 高等教育体制 的不断深入 传统的选课管理方法不能适应新的发展的需求 无法 4 很好的完成选课的管理工作 提高管理水平的主要途径是革新管理 者的思想 增强对管理活动的科学认识 同时运用先进的信息技术 开发高校综合管理系统 2 2 数据需求 在本设计中 通过对选课内容的分析 设计数据项 数据结构及数 据需求如下 1 学生信息 包括 学生姓名 性别 系别 学号 班级等 2 课程信息 包括 课程名 课程代号 学时数 学分数等 3 教师信息 包括 教师姓名 教师性别 职称 教师工号 联系电话等 4 选课信息 包括 学生姓名 课程名 选课地点 选课班级 5 用户信息1 管理员 包括 用户登陆名 密码等 6 用户信息2 学生使用 包括 用户登录名 密码等 2 3 功能需求及主要控件 选课管理的功能是 每个学生通过选择 课程表 中所设定的课程 产生选课记录 并在 学生成绩表 中记录选课情况 形成一个 只有学号 课程号数据 而成绩为空的空白成绩表 运行环境为vb 简体中文版 microsoft access 2003 选课功能主要的vb控件有ADODC DATAGRID等 三 系统总体功能分析三 系统总体功能分析 3 1 抽象出当前系统的逻辑模型 5 画出反映当前系统工作的数据流程图 数据流程图是逻辑模型的图 形表示 即使不是专业的计算机技术人员也能非常容易理解 它是 一种很好的系统构造的表示方法 画数据流程图是应该从已获得的 人工处理流程中去掉物理因素 只保留数据 信息处理部分 3 2 系统功能分析 系统主要用于学校学生选课信息管理 主要任务是用计算机对 学生各种信息进行日常管理 如 登陆 查询 修改 注册 3 3系统目标设计 根据本校的实际情况 利用校园网而设计一套针对性和功能都 比较强的学生选课信息管理系统 对学生选课信息管理系统进行科 学的分类 录入 查询 3 4开发设计思想 尽量采用学校现有的软硬件环境及先进的管理系统开发方案 从而达到充分利用资源 提高系统开发的水平和应用效果的目的 系统应该符合学校学生信息管理的规定 满足学校学生日常管理的 需要 达到操作过程中的直观 方便 实用 安全等要求 强调多 部门合作 学生工作设计面广泛 应该考虑各部门各层次的需求 便于维护 要建立可靠的数据备份 通过对数据流程图的进一步分 析 得出学生信息管理系统应该具备以下功能 1 实现学生基本信息的登记 2 实现数据的浏览与修改 3 实现查询符合一定条件的资料 6 4 实现学生有关数据的统计分析 四 系统功能要求设计四 系统功能要求设计 在细致的分析了我校选课系统的工作流程后 可以把学生选课管理 系统分成以下几个子系统 1 学生管理系统 学生管理系统里涉及到学生的学生学号 学生姓名 选课数量 主要实现的功能有查询所有学生的选课信息 查询特定学生的选 课信息 新增一名学生的信息以及删除一名学生的信息 a 查询所有学生的选课信息主要是对管理者而言 该功能有利 于管理员了解学生选课的大概情况 适时的对选课人数及相应的课 程进行调整 b 查询特定学生的选课信息 能够清楚 详细地了解每个学生 的选课情况 c 新增一名学生的信息 选课初期需要管理员输入学生信息 对学生的选课结果进行保存 显示 2 课程管理系统 课程管理系统涉及到课程编号 课程名称以及选课人数 主要 实现的功能有查询所有课程的信息 查询特定课程的基本情况 新 增一门课程以及删除一门课程 a 查询所有课程的信息有助于管理员及时了解相对应的课程选 课人数的情况 在选课人数满了之后 及时作出相应的调整 为学 生提供方便 7 b 查询特定的课程 该功能主要是使用户能够很快地了解到课 程的选课人数信息 有助于用户迅速地选课 c 增加一门课程 当选课人数过多等状况出现时 课程不足让 学生选择 管理员则需增加课程供学生选择 3 选课管理系统 选课管理系统主要涉及到课程编号 课程名称 学生学号 学 生姓名 主要实现的功能有查询所有选课情况 选课操作 退课操作 根据学生查询其选修的课程以及根据课程查询选修它的学生 a 查询所有选课情况 对所有学生的选课情况和相应的课程能 够大致了解 b 选课操作 学生进行选课 将选课信息保存 c 退选操作 当学生发现自己所选的课不是自己感兴趣或由于 一系列原因而选错时 用户可以通过退课措施来取消所选的课程 d 根据学生查询其选修的课程 用户可以查看其选修的课程 并据此来决定是否继续选课 或者是否要退课 e 根据课程来查询选修它的学生 可以及时了解每门课程的选 课人数 管理者 学生都可以根据此信息来对课程进行相应的调整 五 选课系统详细设计五 选课系统详细设计 一 数据库设计 一 数据库设计 8 ERER图图 ACCESSACCESS数据库表及关联关系数据库表及关联关系 数据库设计主要有学生信息表 教师表 课程表以及管理员表 学生 姓名 学号 专业 院系 课程号 课程名 称 密码 用户 名 性别 教师编号 性别 职称 所属系 部 姓名 任课教 师 学分 选课 课程 任课 教师 管理员 上课时间 上课地点 学历 9 如课程表 关联图 二 二 vbvb界面设计及代码界面设计及代码 实现学生及管理员的身份注册 登陆界面 实现用户及管理员的登陆 10 代码如下 Private Sub CmdLogin Click Dim UserName As String Dim PassWord As String Dim conn As New ADODB Connection Dim rs As New ADODB Recordset Dim sql As String conn Open Provider Microsoft Jet OLEDB 4 0 Data Source D db1 mdb sql Select from 学生信息表 where UserName Trim TxtUserName Text PassWord Trim TxtPassword Text If UserName Or PassWord Then MsgBox 对不起 用户或密码不能为空 请重新输入 vbCritical 错误 ElseIf UserName Empty And PassWord Empty Then Cnum Cnum 1 11 StrSQL select from 学生信息表 where 学号 Data Source D db1 mdb rs Open sql conn 1 3 rs AddNew rs Fields 学号 Trim Text1 Text rs Fields 密码 Trim Text2 Text rs Update Text1 SetFocus MsgBox 用户成功注册 vbOKOnly vbInformation 提示 rs Update rs Close Set rs Nothing End Sub 选课界面 实现学生选课 选课中的查询 删除 14 代码如下 Private Sub Command1 Click StrSQL select from 学生信息表 DataGrid1 Refresh MsgBox 选课成功 64 提示 End Sub Private Sub Command2 Click Text1 Text Text2 Text Text3 Text Text4 Text Text5 Text Text6 Text 15 MsgBox 退选成功 64 提示 End Sub 查询界面 查询代码 Private Sub Command1 Click Dim rs findstudent As New ADODB Recordset Dim conn As New ADODB Connection Dim sql As String sql Text1 Text conn Open provider Microsoft Jet OLEDB 4 0 data source D db1 mdb sql select from 学生信息表 where sql rs findstudent CursorLocation adUseClient rs findstudent Open sql conn adOpenKeyset adLockPessimistic 16 DataGrid1 AllowAddNew False DataGrid1 AllowDelete False DataGrid1 AllowUpdate False If rs findstudent RecordCount 0 Then MsgBox 查询不到选课信息 vbOKOnly vbExclamation Else Set DataGrid1 DataSource rs fi