VB+SQL学生信息管理系统.doc

洛阳理工学院毕业设计 论文 I 学生信息管理系统 摘 要 学生信息管理系统是一个教育单位不可缺少的部分 它的内容对于学校的决 策者和管理者来说都至关重要 随着信息技术在管理上越来越深入而广泛的应用 管理信息系统的实施在技 术上已逐步成熟 管理信息系统是一个不断发展的新型学科 任何一个单位要生 存要发展 要高效率地把内部活动有机地组织起来 就必须建立与自身特点相适 应的管理信息系统 本系统是在管理信息系统的理论和方法指导下 数据库技术支持下完成的 本文在结构上首先论述了毕业设计选题的背景 目的和意义 然后叙述了开发环 境 开发平台以及数据库技术 接着用表格和图片的方式介绍了系统的整体规划 接下来是系统在具体实现中的详细内容 最终本系统能够完成信息的输入 输出 数据的修改 查询以及打印报表等功能 本系统界面友好 操作简单 比较实用 关键词 控件 窗体 报表 关系数据库管理系统 VB 洛阳理工学院毕业设计 论文 II STUDENTS INFORMATION MANAGEMENT SYSTEM ABSTRACT Along with the information technology in the management of more and more depth and a wide range of applications the management information system in the implementation of technology has gradually matured Management information system is a continuous development of new disciplines any one unit to survive is to develop and efficient activities of the internal organization of organic it must establish its own characteristics in line with the management information system This system is in management information system under the guidance of the theory and method database technology support is done This paper first discusses the structure in the graduation design background expatiates the purpose and significance then describes the development environment development platform and database technology and then used form and pictures of the way the overall planning of the system is introduced then the system in the realization of the specific details and finally this system can accomplish information input output modify inquires the data and print report and other functions this system friendly interface the operation is simple is more practical KEY WORDS Control Form Statement Relational Database Management System VB 洛阳理工学院毕业设计 论文 III 目 录 前 言 1 第 1 章 开发背景 2 1 1 课题介绍 2 1 2 课题目的及意义 2 1 3 研究方法 发展趋势 2 第 2 章 开发环境 工具介绍 4 2 1 Visual Basic 6 0 4 2 1 1 Visual Basic 的编程特点 4 2 1 2 VB 支持的数据库系统 5 2 2 SQL Server 2000 简介 5 2 2 1 SQL Server 数据库特点 6 2 3 ADO 对象概述 7 2 3 1 利用 ADO 开发网络数据库应用程序 8 2 3 2 ADO 组件的主要对象及其功能 9 2 3 3 用来操控数据的 SQL 命令 9 2 4 VB 访问数据库过程 10 第 3 章 系统分析 12 3 1 系统功能分析 12 3 2 业务流程图 12 3 3 数据流程图 13 3 4 数据字典 14 第 4 章 系统设计 15 4 1 系统功能设计 15 4 2 代码设计 16 4 3 数据库设计 16 第 5 章 系统实施 22 5 1 模块设计 22 5 2 登录窗体设计 24 洛阳理工学院毕业设计 论文 IV 5 3 主界面设计 26 5 3 1 StatusBar1 28 5 3 2 Timer1 29 5 3 3 菜单编辑器 29 5 4 查询管理窗体设计 30 5 4 1 班级信息查询 30 5 4 2 课程信息查询 30 5 4 3 成绩信息查询 31 5 4 4 学籍信息查询 31 5 5 用户信息管理 32 5 5 1 用户注册窗体设计 32 5 5 2 密码修改窗体设计 33 5 6 学籍信息管理窗体设计 36 5 7 课程信息管理窗体设计 38 5 8 统计报表中心设计 39 5 8 1 ClassReport 设计 39 5 8 2 StudnetReport 设计 40 5 8 3 StudnetReport 设计 40 5 9 班级信息设计 41 5 10 成绩信息设计 41 5 11 年级信息设计 42 结 论 43 谢 辞 44 参考文献 45 洛阳理工学院毕业设计 论文 1 前 言 学生信息管理系统是一个教育单位不可缺少的部分 它的内容对于学校的决策 者和管理者来说都至关重要 所以学生信息管理系统应该能够为用户提供充足的信 息和快捷的查询手段 但一直以来人们使用传统人工的方式管理学生学籍档案 这种管理方式存在着许多缺点 如 效率低 保密性差 另外时间一长 将产生大量的 文件和数据 这对于查找 更新和维护都带来了不少的困难 随着科学技术的不断提高 计算机科学日渐成熟 其强大的功能已为人们深刻 认识 它已进入人类社会的各个领域并发挥着越来越重要的作用 作为计算机应用的一部分 使用计算机对学生学籍信息进行管理 具有着手工 管理所无法比拟的优点 例如 检索迅速 查找方便 可靠性高 存储量大 保密 性好 寿命长 成本低等 这些优点能够极大地提高学生学籍管理的效率 也是企 业的科学化 正规化管理 与世界接轨的重要条件 因此 开发这样一套管理软件成为很有必要的事情 在下面的各章中将以开发 一套学生信息管理系统为例 谈谈其开发过程和所涉及到的问题及解决方法 洛阳理工学院毕业设计 论文 2 第 1 章 开发背景 1 1 课题介绍 高校学生信息的管理是一项既重要又繁琐的工作 为更好的做好这项工作 提高工作效率 更好的为学校的发展和一线教学服务 决定 结合我校实际情况 自行研制一个学生信息管理系统 1 2 课题目的及意义 由于现今的学生信息管理非常繁琐 行政人员付出大量的工作时间 得到的 效率很低 因此为提高工作效率 减轻校方人员的工作负担 决定开发学生信息 管理系统 计算机已经成为我们学习和工作的得力助手 今天 计算机的价格已经十分 低廉 性能有了长足的进步 它已经被应用于许多领域 计算机之所以如此流行 的原因主要有以下几个方面 首先 计算机可以代替人工进行许多繁杂的劳动 其次 计算机可以节省许多资源 第三 计算机可以大大的提高人们的工作效率 第四 计算机可以使敏感文档更加安全等等 为了解决传统学生信息的管理正面临着的这些问题 我所设计的学生信息管 理系统也就应运而生了 1 3 研究方法 发展趋势 本系统采用功能分析法即通过说明社会现象怎样满足一个社会系统的需要 即具有怎样的功能 来解释社会现象和 CS 模式共同完成 现代教育技术特别是网络与多媒体技术的发展 对学习活动产生了具有深远 意义的冲击 人们可以选择或者设计适合其学习特点的信息采集 加工与重组方 洛阳理工学院毕业设计 论文 3 式 本系统采用 CS 模式 在某些方面还不是表现的很好 但未来有关学生信息 管理的应该采用多层架构的系统 是真正适应教育信息化发展三大趋势的校园网 络应用系统 全面支持 Internet 功能 远程访问功能 采用先进的 CS 和 BS 模式 共同开发 支持有关学校信息交流 日常教学 教务管理等的各种应用 提供一 个基于校园内联网中支持各种类型的学校应用产品的服务平台和开发平台 基本 目标是在学校内部和外部建立起顺畅的信息通道 让信息技术成为推动教育生产 力的有力工具 提高学校的管理水平和效率 同时充分利用全球的教育资源为学 校的教育服务 克服目前大部分学校的校园网建设只起到宣传作用的通病 洛阳理工学院毕业设计 论文 4 第 2 章 开发环境 工具介绍 该软件是在 Windows XP Professional Visual Basic 6 0 SQL Server 2000 的 环境下完成的 下面就对这些开发工具进行介绍 2 1 Visual Basic 6 0 微软公司的 Visual Basic 6 0 是 Windows 应用程序开发工具 是目前最为广泛 的 易学易用的面向对象的开发工具 Visual Basic 提供了大量的控件 这些控件 可用于设计界面和实现各种功能 减少了编程人员的工作量 也简化了界面设计 过程 从而有效的提高了应用程序的运行效率和可靠性 利用 VISUAL BASIC 程序设计语言 可以很方便地设计出在 WINDOWS 环境下运行的应用程序 故 而 实现本系统 VB 是一个相对较好的选择 2 1 1 Visual Basic 的编程特点 Visual Basic 语言的出现为 Windows 下的编程提出了一个新概念 利用 Visual Basic 的动态数据交换 对象的链接和嵌入 动态链接库 ActiveX 技术可 以很方便地设计出功能强大的应用程序 利用 Visual Basic 语言编程有以下几个特点 1 可视化程序设计 在 Visual Basic 中开发的应用程序 不但有丰富的图形界面 同时由用户为 开发图形界面添加的代码真是少而又少 因为在设计图形界面的过程中只需设置 ActiveX 控件的属性即可 2 强大的数据库和网络功能 随着 Visual Basic 语言的向前发展 它在数据库和网络方面的功能优势就愈 加明显 利用 Visual Basic 中的 ODBC 开放式的数据库访问技术可以很方便 地开发出自己的数据库应用程序 利用 Visual Basic 自带的可视化数据管理器和 报表生成器 完全可以在 Visual Basic 就完成数据库的开发工作 3 其他特性 在 Visual Basic 以前的版本中 由于仍然摆脱不了解释执行的代码运行机制 洛阳理工学院毕业设计 论文 5 所以在相当的程度上制约了 Visual Basic 的发展 从 Visual Basic5 0 版本开始 在 Visual Basic 中制作的应用程序都改变为编 译执行 使得 Visual Basic 的代码效率有了很大的提高 同时执行的速度 也加快 了解 30 同 Visual Basic4 0 相比 当然在 Visual Basic 中还有其它特性 例如 面向对象的编程语言 结构化 程序设计 事件驱动的程序设计 在传统的或 过程化 的应用程序中 应用程 序自身控制了执行哪一部分代码和按何种顺序执行代码 从第一行代码执行程序 并按应用程序中预定的路径执行 必要时才会调用过程 在事件驱动的应用程序 中 代码不是按预定的路径执行 而是在响应不同的事件时执行不同的代码片段 事件可以由用户操作触发 也可以由来自操作系统或其它应用程序的消息触发 甚至由应用程序本身的消息触发 这些事件的顺序 决定了代码执行的顺序 因 此应用程序每次运行时所经过的路径都是不同的 支持动态链接库 应用程序之 间的资源共享 事件驱动的程序设计 2 1 2 VB 支持的数据库系统 VB 支持对多格式的数据库的访问和维护 无论是 Access 还是 Foxpro 中创建 的数据库 都可以用 VB 打开 对其进行查询 修改和删除等操作 事实上 VB 几乎支持对市面上所有数据库的访问 VB 可以访问的数据库可以简单的分为三类 即 Microsoft Access 格式数据 库 外部数据库和 ODBC 数据库 VB 对多种数据库格式的支持 大大的增强了 开发数据库应用程序的能力 2 2 SQL Server 2000 简介 SQL Server 2000 是微软公司最新版的大型数据库服务器 其性能指标在各方 面都有赶超 Oracle 数据库的趋势 用它可以方便地管理数据库和开发应用程序 它使用了最先进的数据库构架 与 Windows NT 2000 平台紧密集成 具有完全的 Web 功能 通过对高端硬件平台 网络和存储技术的支持 为 WEB 站和企业的 应用最大限度地提供了可扩展性和高可靠性 能在 Internet 商业领域快速建立并 应用 此外 还增强了安全性 保护防火墙内外的数据 支持基于角色的安全并 洛阳理工学院毕业设计 论文 6 拥有安全审计工具 在经历了 SQL Server 6 5 和 7 0 两个版本的尝试后 微软公 司终于开始了大规模的业务 记得在以前各种关于 SQL Server 的文章 都会将其 定位成中小型应用方面 这种感觉被大家自然的延续到了 2000 版之中 其实这 是一种误解 在过去的很长一段时间中 微软公司聘请了世界上最优秀的数据库 专家以及专门搭建了信息量可谓空前的地理信息系统 励精图治 就是为了摘掉 扣在自己头上的这顶帽子 有了强大的性能和功能支持 再配合其一向为人称道 的易用性 SQL Server 可以说成为了开发者手中的一柄利器 另外 目前国内的一些关于微软平台的数据库编程教程 喜欢使用 Access 作 为数据库平台的案例 并展开相关的内容 这其实对于开发真正的数据库应用并 没有直接的帮助作用 只能使大家停留在应用的初级阶段 SQL Server 2000 提供 的非常傻瓜的缺省安装和使用模式 其上手难度并不比 Access 大 另外 SQL Server 2000 可以兼顾小 中 大规模的应用 有着远远比 Access 强大的伸缩性 2 2 1 SQL Server 数据库特点 概括起来 SQL Server 2000 数据库管理系统具有以下主要特点 丰富的图形管理工具 使系统管理 操作更为直观方便 SQL Server 企业管 理器是一个基于图形用户界面 GUI 的集成管理工具 利用它可以配置管理 SQL Server 服务器 管理数据库和数据库对象 备份和恢复数据 调度任务和管 理警报 实现数据复制和转换操作等 此外 SQL Server 2000 还提供了 SQL 事 件探查器 SQL 查询分析器 SQL Server 服务管理器和多种操作向导等图形界面 管理工具 大大简化了用户操作 从而增强了系统的易用性 动态自动管理和优化功能 即使 SQL Server 数据库管理员不做任何设置 SQL Server 也能够在运行过程中根据环境配置和用户访问情况动态自动配置 以 达到最优性能 从而减轻管理员工作 充分的 Internet 技术支持 Internet 网络发展到今天已经成为一条重要的信息 发布渠道 SQL Server 增强了对 Internet 技术支持 它除保留了前期版本中的数 据库 Web 出版工具 Web 助手 外 还增强了对 XML 和 HTTP 技术的支持 这 使得电子商务系统能够通过 XML 等访问 SQL Server 数据库系统 也扩展了 SQL Server 在数据挖掘和分析服务领域的应用 洛阳理工学院毕业设计 论文 7 丰富的编程接口工具 使用户开发 SQL Server 数据库应用程序更加灵活 SQL Server 提供了 Transact SQL DB Library for C 嵌入式 SQL ESQL 等开 发工具 Transact SQL 与工业标准 SQL 语言兼容 并在其基础上加以扩充 使它 更适合事务处理方面的需要 此外 SQL Server 2000 还支持 ODBC OLE DB ADO 规范 可以使用 ODBC OLE DB ADO 接口访问 SQL Server 数据库 具有很好的伸缩性和可靠性 SQL Server 2000 既能运行在 Windows 桌面操 作系统下 又可运行在服务器操作系统 包括 Windows NT 和 Windows 2000 下 既能运行在单 CPU 计算机上 又能运行在对称多处理系统下 所以 它具有很 好的伸缩性 能够满足从桌面应用到大型企业分布式应用到不同层次用户的要求 简单的管理方式 SQL Server 2000 与 Microsoft Windows 2000 有机集成 所 以可以使用 Windows 2000 的活动目录 Active Directory 功能对 SQL Server 进 行集中管理 大大简化大型企业中的系统管理工作 此外 与 Windows 2000 的 集成还使 SQL Server 能够充分利用操作系统所提供的服务和功能 如安全管理 事件日志 性能监视器 内存管理和异步 I O 等 从而增强了 SQL Server 数据 库系统的功能 并且只需要占用很少的系统资源 2 3 ADO 对象概述 ADO 对象能够存取到数据库的内容 首先要求数据库的驱动程序 ODBC 驱 动程序与 OLE DB 驱动程序 必须安装上 否则 ADO 对象是无法存取数据库中 内容 其原理示意图如下图所示 洛阳理工学院毕业设计 论文 8 图 2 1 ADO 连接 请注意 上图中的 各种数据库所对应的驱动程序 即 ODBC 驱动程序与 OLE DB 驱动程序 2 3 1 利用 ADO 开发网络数据库应用程序 ADO Active Date Objects 即 ActiveX 数据对象 是一个 ASP 内置的 ActiveX 服务器组件 ActiveX Server Component 可把它与 ASP 结合起来 建立提供数 据库信息的网页内容 对数据库进行查询 插入 更新 删除等操作 并可以把 在用户端实现 网上实时更新显示 的最新 Web 数据库技术 要执行 ADO 服务器端必须安装 Windows NT Server 和 Internet Information Server IIS 而客户端只要有 IE 或 NETSCAPE 较新版本的浏览器即可 利用 ADO 开发网络数据库应用程序有以下几个优点 支持客户机 服务器结构 Client Server 与 Web 系统开发技术 内部有多个互相独立的对象模型 支持分批修改数据库内容 支持多种不同的数据控制指标形式 先进的 Recordset 数据高速缓存管理功能 允许在程序中使用多个 Recordset 对象或者多个分批修改区块传送 ADO 属于 Free threaded 对象 利用它可以开发出更有效的 Web 应用程序 2 3 2 ADO 组件的主要对象及其功能 ADO 组件又称为数据库访问组件 它提供了以下七种对象 1 Connection 对象 提供对数据库的连接服务 2 Command 对象 定义对数据库源操作的命令 3 Recordset 对象 由数据库服务器所返回的记录集 Recordset 对象的 LockType 属性的设置值如下表所示 洛阳理工学院毕业设计 论文 9 表 2 1 LockType 属性 常量值说明 adLockReadOnly1默认值 只读 无法更改数据 adLockPressimistic2 保守式记录锁定 逐条 提供者执行必要的操作确 保成功编辑记录 通常采用立即锁定数据源的记录 的方式 adLockOptimistic3 开放式记录锁定 逐条 提供者使用开放式锁定 只在调用 Updata 方法时锁定记录 adLockBatchOptimistic4 开放式批更新 用于与立即更新模式相反的批更新 模式 4 Fields 对象 由数据库服务器所返回的单一数据字段 5 Parametes 对象 表示 Command 对象的参数 6 Property 对象 单独的一个 Property 对象 提供属性功能 7 Error 对象 提供处理错误的功能 使用 ADO 对象可以建立和管理数据库的连接 按数据库服务器的要求获得 数据 执行更新 删除 添加数据等操作 获取 ODBC 的错误信息等 2 3 3 用来操控数据的 SQL 命令 SQL 命令是发送给数据库并要求数据库操作的指令 它是专门为数据库设计 的语言 比一般的计算机程序语言简单的多 SQL 命令主要分成两部分 DDL Data Definition Language 和 DML Data Manipulation Language 其中 DDL 是 建立数据表及数据列的指令群 而 DML 则是操作数据库记录的指令群 如数据 库记录的添加 更新 删除 和查询等 SQL 命令 包括 Select Delete Update Insert Into Select Into 等 1 筛选及排序记录的 Select 指令 基本句型一 Select 字段串列 From 数据表 基本句型二 Select From Where 筛选条件 基本句型三 Select From Order By 字段串列 Select Top 限定选取数据的条数 洛阳理工学院毕业设计 论文 10 2 删除数据记录的 Delete 指令 基本语法 Delete From 数据表 Where 条件式 3 更新数据记录的 Update 指令 基本语法 Update 数据表 Set 表达式 4 增加数据记录的 Insert Into 指令 基本句型一 Insert Into 数据表 字段串列 Values 字段串列 基本句型二 Insert Into 数据表 字段 1 字段 2 字段 n Select 建立新数据表的 Select Into 指令 该指令与 Insert Into Select 指令的区别是 这个指令将建立另一个 新的数据表 而 Insert Into 是增加数据记录到 现存的 数据表中 2 4 VB 访问数据库过程 2 4 1 定义数据库组件 Dim conn As New ADODB Connection 其中 conn 为连接对象 Dim reco As New ADODB Recordset 其中 reco 为结果集对象 2 4 2 打开数据库 对于 SQL 数据库 其连接语句为 conn Open Provider SQLOLEDB 1 Integrated Security SSPI Persist Security Info False Initial Catalog Sims four 而对于 Access 数据库 连接语句为 conn Open Provider Microsoft Jet OLEDB 4 0 Data Source Persist Security Info False Initial Catalog Sims four End Property 定义一个提供者反映数据库类型 Public Property Get conProvide As Variant conProvide SQLOLEDB 1 End Property OpenRs 部分主要包括定义一个打开数据库的类对象 代码如下 Option Explicit Private cnSIMS As ADODB Connection Private rsSims As ADODB Recordset Public rs1 As ADODB Recordset Public rs2 As ADODB Recordset Public rst As ADODB Recordset Private Data As Object Private Sub Class Initialize On Error GoTo DbnotOpen Set cnSIMS New ADODB Connection With cnSIMS Provider conProvide ConnectionString conString 洛阳理工学院毕业设计 论文 22 ConnectionTimeout 10 Open Set rst New ADODB Recordset End With Exit Sub DbnotOpen If Err 2147467259 Then Set cnSIMS Nothing MsgBox 连接后台数据库失败 vbCrLf vbCrLf 请检查配 置是否完好 数据库 Sims four 是否存在 vbOKOnly vbInformation 学生信息 管理系统 End End If End Sub Private Sub Class GetDataMember DataMember As String Data As Object Set Data rsSims End Sub Public Function rsDK Table As String Set rsSims New ADODB Recordset With rsSims Source Table ActiveConnection cnSIMS CursorType adOpenKeyset LockType adLockOptimistic Open adCmdTable End With End Function Public Function rsDK1 sql As String Set rs1 New ADODB Recordset With rs1 洛阳理工学院毕业设计 论文 23 Source sql ActiveConnection cnSIMS CursorType adOpenKeyset LockType adLockOptimistic Open adCmdText End With End Function Public Function rsDK2 sql As String Set rs2 New ADODB Recordset With rs2 Source sql ActiveConnection cnSIMS CursorType adOpenStatic LockType adLockOptimistic Open adCmdText End With End Function Private Sub Class Terminate Set cnSIMS Nothing Set rs1 Nothing Set rs2 Nothing Set rsSims Nothing Set rst Nothing End Sub 5 2 登录窗体设计 添加一个窗体 FrmLogin 该部分主要包括用户的验证以及登录次数的限 制 窗体运行情况如下图所示 洛阳理工学院毕业设计 论文 24 图 5 1 登录图 代码如下 Dim MyLogin As OpenRs Dim UseridSQL As String Dim Level As Integer Public CurrentUser As String Private Sub Cmdcancel Click Unload Me End Sub Private Sub cmdOK Click If txtUserId Text Then MsgBox 请输入用户编号 vbOKOnly vbInformation 用户登陆 txtUserId SetFocus Exit Sub Else UseridSQL select from User Info where user Id txtUserId Text MyLogin rsDK1 UseridSQL 洛阳理工学院毕业设计 论文 25 5 3 主界面设计 添加一个窗体 FrmMain 该部分主要添加 Trimer1 StatusBar DNetMenu1 控件和菜单编辑器 以用户名为 1001 密码为 123 登录 窗体运行情况如下图所示 图 5 2 系统主界面图 代码如下 Dim Myinfo As String Dim success As Long Dim Classprint As OpenRs Private Sub mnuAddResult Click Frmresult Show End Sub Private Sub mnuClassQuery Click FrmClassQuery Show End Sub Private Sub mnuClassReport Click Classprint rsDK1 select c class no s grade no grade name u user id user name 洛阳理工学院毕业设计 论文 26 from class info c inner join schoolgrade info s on c grade no s grade no inner join user info u on c user id u user id ClassReport Show Set ClassReport DataSource Classprint rs1 End Sub Private Sub mnuCourseQuery Click FrmCourseQuery Show End Sub Private Sub mnuMatter Click htmlhelp hwnd sims chm 0 0 End Sub Private Sub mnuResultQuery Click FrmResultQuery Show End Sub Private Sub mnuSchoolSet Click FrmSchoolInfo Show End Sub Private Sub mnuSetClass Click FrmClassInfo Show End Sub Private Sub mnuAddStudentInfo Click FrmAddStudentInfo Show End Sub Private Sub mnuAddUser Click FrmAddUser Show End Sub Private Sub mnuDeleteUser Click FrmDelUser Show End Sub 洛阳理工学院毕业设计 论文 27 5 3 1 StatusBar1 Private Sub MDIForm Load Dim mypanel As Panel Set mypanel StatusBar1 Panels Add 1 sbrDate 状态栏 1 显示日期 Set mypanel StatusBar1 Panels Add 2 状态栏 2 显示星期几 Call MyWeekDay Set mypanel StatusBar1 Panels Add 3 StatusBar1 Panels 3 Text 当前用户 FrmLogin CurrentUser mypanel AutoSize sbrContents Set mypanel StatusBar1 Panels Add 4 状态栏 3 显示文本消息 mypanel AutoSize sbrSpring End Sub Private Sub MyWeekDay Select Case Weekday Date Case 1 StatusBar1 Panels 2 Text 星期日 Case 2 StatusBar1 Panels 2 Text 星期一 Case 3 StatusBar1 Panels 2 Text 星期二 Case 4 StatusBar1 Panels 2 Text 星期三 Case 5 StatusBar1 Panels 2 Text 星期四 Case 6 StatusBar1 Panels 2 Text 星期五 Case 7 StatusBar1 Panels 2 Text 星期六 End Select End Sub 洛阳理工学院毕业设计 论文 28 5 3 2 Timer1 Private Sub Timer1 Timer If Myinfo Then Myinfo Space 85 欢迎使用学生信息管理系统 End If Myinfo Right Myinfo Len Myinfo 1 StatusBar1 Panels 4 Text Myinfo End Sub 5 3 3 菜单编辑器 在主窗体上添加一个菜单编辑器 菜单结构 属性如下表所示 表 5 1 系统菜单图 标题名称标题名称 文件 F 注销 退出系统 mnuFile mnulogoff mnuExit 课程信息管理 课程信息设置 年级课程开设 mnuCourseInfo mnuSetCourseInfo mnuSetCourse 用户管理 用户添加 用户删除 用户修改 mnuUserManage mnuAddUser mnuDeleteUser mnuModiPwd 学籍信息管理 学籍信息设置 mnuStudentInfo mnuAddstudentInfo 年级信息管理 学校年级设置 学校信息设置 mnuGrade mnuSetGrade mnuSchoolSet 成绩信息管理 成绩信息设置 mnuResult mnuAddResult 班级信息管理 班级信息设置 mnuClass mnuSetClass 查询管理 班级信息查询 课程信息查询 成绩信息查询 学籍信息查询 mnuQuery mnuClassQuery mnuCourseQuery mnuResultQuery mnuStudentInfo 统计报表中心mnuReport 洛阳理工学院毕业设计 论文 29 班级信息统计报表 学生信息统计报表 mnuClassReport mnuStudentReport 5 4 查询管理窗体设计 5 4 1 班级信息查询 添加一个窗体 FrmClassQuery 该部分主要包括班级基本信息的查询 窗体 运行情况如下图所示 图 5 3 班级信息查询图 5 4 2 课程信息查询 添加一个窗体 FrmCourseQuer 该部分主要包括班级基本信息的查询 窗 体运行情况如下图所示 洛阳理工学院毕业设计 论文 30 图 5 4 课程信息查询图 5 4 3 成绩信息查询 添加一个窗体 FrmResultQuer 该部分主要包括班级基本信息的查询 窗体 运行情况如下图所示 图 5 5 成绩信息查询图 5 4 4 学籍信息查询 添加一个窗体 FrmStudentInfoQuer 该部分主要包括班级基本信息的查询 窗体运行情况如下图所示 洛阳理工学院毕业设计 论文 31 图 5 6 学籍信息查询图 5 5 用户信息管理 5 5 1 用户注册窗体设计 添加一个窗体 FrmAddUser 该部分主要完成用户的注册功能 窗体运行 情况如下图所示 图 5 7 添加用户图 代码如下 Dim MyAddUser As OpenRs Dim Choose As Boolean Dim Level As Integer Private Sub Cmdcancel Click Unload Me End Sub 洛阳理工学院毕业设计 论文 32 Private Sub cmdComp Click 完成按钮 MyAddUser rs1 AddNew MyAddUser rs1 user id Trim txtUserId Text MyAddUser rs1 user name Trim txtUserName MyAddUser rs1 user des Trim txtUserdes Text MyAddUser rs1 user pwd Trim txtPwd1 Text MyAddUser rs1 user level Level MyAddUser rs1 Update If MsgBox 添加用户成功 vbCrLf vbCrLf 是否继续添加用户 vbYesNo vbQuestion 添加用户 vbYes Then Frame3 Visible False cmdComp Visible False Frame1 Visible True cmdNext Visible True txtUserId SetFocus Call ClearText Else Unload Me End If End Sub 5 5 2 密码修改窗体设计 添加一个窗体 FrmModiPass 该部分主要完成用户密码修改的功能 情况 如下图所示 洛阳理工学院毕业设计 论文 33 图 5 8 修改密码图 代码如下 Private Sub cmdOK Click If txtUserId Text Then MsgBox 请输入用户编号 vbOKOnly vbInformation 修改密码 txtUserId SetFocus Exit Sub End If If txtUserName Text Then MsgBox 用户编号不存在 vbOKOnly vbInformation 修改密码 txtUserId Text txtUserId SetFocus Exit Sub End If If txtOldPass Text Then MsgBox 请输入旧密码 vbOKOnly vbInformation 修改密码 txtOldPass SetFocus Exit Sub End If If txtNewPass Text Then MsgBox 请输入新密码 vbOKOnly vbInformation 修改密码 txtNewPass SetFocus Exit Sub End If If txtNewPass1 Text Then 洛阳理工学院毕业设计 论文 34 MsgBox 请输入新密码 vbOKOnly vbInformation 修改密码 txtNewPass1 SetFocus Exit Sub End If If txtNewPass Text txtNewPass1 Text Then Modipass rs1 user pwd txtNewPass Text Modipass rs1 Update MsgBox 密码修改成功 vbOKOnly vbInformation 修改密码 txtUserId Text txtUserId SetFocus Else MsgBox 两次输入的密码不一致 请重新输入 vbOKOnly vbInformation 修改密码 txtNewPass Text txtNewPass1 Text txtNewPass SetFocus End If End If End Sub Private Sub txtNewPass KeyPress KeyAscii As Integer If KeyAscii 39 Then KeyAscii 0 ElseIf KeyAscii 13 Then txtNewPass1 SetFocus End If End Sub 5 6 学籍信息管理窗体设计 添加一个窗体 FrmAddStudentInfo 该部分主要完成学生学籍信息的增 删 改的操作 窗体运行情况如下图所示 洛阳理工学院毕业设计 论文 35 图 4 9 学籍信息管理图 部分代码如下 Private Sub cmdAdd Click If cmdAdd Caption 添加 A Then Call ClearText cmdAdd Caption 取消 C Frame2 Enabled True Change True txtstudentName SetFocus cmdSave Caption 保存 S cmdSave Enabled True cmdDel Enabled False Else Call ClearText cmdAdd Caption 添加 A Frame2 Enabled False cmdSave Caption 保存 S 洛阳理工学院毕业设计 论文 36 cmdSave Enabled False cmdDel Enabled False End If End Sub Private Sub cmdDel Click myModiStudent rsDK1 SELECT FROM student info where student id txtStudentId Text If MsgBox 确认要删除该记录吗 vbQuestion vbOKCancel 删除记录 vbOK Then myModiStudent rs1 Delete Else Exit Sub End If Call ClearText cmdSave Caption 保存 S myModiStudent rsDK1 SELECT FROM student info If myModiStudent rs1 EOF Then StudentGrid Clear StudentGrid FormatString 学号 姓名 性别 出生日期 班号 联系电话 入校时间 家庭住址 Else Set StudentGrid DataSource myModiStudent rs1 StudentGrid FormatString 学号 姓名 性别 出生日期 班号 联系电话 入校时间 家庭住址 End If End Sub 5 7 课程信息管理窗体设计 添加一个窗体 FrmCourse 括学校所开设课程的设定 窗体运行情况如下 图所示 洛阳理工学院毕业设计 论文 37 图 5 10 课程信息图 代码如下 Private Sub AutoCourseNo 窗体启动时自动检测课程编号 myCourse rsDK2 select from course info If myCourse rs2 EOF True Then TxtcouNo Text 1 Exit Sub vbOKOnly vbInformation