VB课程设计学生信息管理系统

VB课程设计学生信息管理系统 课程设计说明书 NO.1 学生信息管理系统 1.课程设计目的 目的是进一步培养我们综合应用Visual Basic的各种编程知识和技巧进行程序设计的能力。通过课程设计，我们能达到具备设计功能较为复杂的Windows应用程序的能力。同时，通过课程设计，培养我们自主学习和独立创新的精神，是人才培养体系中极为重要的一环。 随着高校规模的不断扩大，学生数量急剧增加，有关学生的各种信息量也成倍增长，庞大学生信息的管理工作成了高校教学管理工作中的一项重要任务，一方面，假如遵从以往旧式的工作方式，该工作的工作量大，管理繁琐，既耗人力，又耗物力;另一方面，由于计算机技术的飞速发展及应用的普及，学生信息管理这样烦琐的工作更需要由计算机来完成。因此开发一套对学生信息进行管理的软件是极其重要的，而且是必需的，通过这样的系统，可以做到信息的规范管理、科学统计和快速的查询，从而减少管理方面的工作量。 学生信息管理系统是典型的信息管理系统 (MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备,易使用等特点。 针对高校现在存在的学生成绩管理的弊端和基本 流程 快递问题件怎么处理流程河南自建厂房流程下载关于规范招聘需求审批流程制作流程表下载邮件下载流程设计 ，设计了学生成绩管理系统，实现学生成绩管理的电子化，减轻管理人员的负担。利用这一系统，管理人员能够更好的对现有的学生成绩进行管理，也方便了学生自己查询成绩，同时可以避免人为错误。本模块实现的主要功能有专业信息、班级信息、学生信息及课程安排、成绩查询的功能。系统采用Visual basic 高级语言进行程序编制，以SQL Server 2000数据库为后台数据库。 希望通过这次课程更清楚地了解自己的知识水平。充分的认识到自己真实情况。都说要想把学到的理论知识彻底的变成自己的东西就要不断地学习不停的实践，只有彻底明白的道理和它的一切结构才不至于学的一知半解。通过这次学生信息系统的设计，希望自己能把以前不会的东西学会，然后把自己会的东西能充分的运用到实际课程设计当中，做出理想的效果。彻底的把知识学透而不是把知识学死板了，自己做这次课程设计一定会让我得到很多我在课堂上多学不到的东西。更好的完善自己，为以后的学习生活以及工作奠定良好的基础。 2.学生信息管理系统分析与设计 沈 阳 大 学 课程设计说明书 NO.2 2.1可行性分析 由于本系统管理的对象单一，都是在校学生，且每个数据内容具有较强的关联性，涉及的计算过程不是很复杂。因此，比较适合于采用数据库管理。且学校用于学生管理的微机都是奔腾 3 以上的机器，在存储量、速度方面都能满足数据库运行的要求。在技术难度方面，由于有指导老师的指导和相关参考文献，特别是网上 资料 新概念英语资料下载李居明饿命改运学pdf成本会计期末资料社会工作导论资料工程结算所需资料清单 ，特别是参考其它程序的功能，因此完全可以实现。数据库是 MIS 中的重要支持技术，在 MIS 开发过程中，如何选择数据库管理 是一个重要的问题，目前，数据库产品较多，每种产品都具有各自的特点和适用范围，因此，在选择数据库时，应考虑数据库应用的特点及适用范围，本系统选用的数据库语言介绍如下: Visual Basic 是一种可视化的、面对对象和调用事件驱动方式的结构化 高级程序设计，可用于开发 Windows 环境下的种类应用程序。它简单易学、效率高，且功能强大。在 Visual Basic 环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，可以高效、快速地开发出 Windows 环境下功能强大、图 形界面丰富的应用软件系统。 2.2系统功能分析 此学生信息管理信息系统是面向大学的管理系统，其目的是对学校内的学生，班级，和其它信息进行统一有序的管理。 班级管理信息的输入，包括班级设置、年级的设置等;班级管理信息管理的查询;班级管理信息的修改;学校基本课程信息的输入;基本课程信息的修改;学生课程信息的设置和修改;学生成绩信息的输入;学生成绩信息的修改;学生成绩信息的查询;学生成绩信息的统计。 1) 系统安全性 操作员在登录界面输入操作员帐号及密码进入主页面进行相应操作，加强了此系统的安全可靠性。 2) 主页界面 采用视窗的风格，点击菜单可以进入相应的界面，对其进行相应的操作。既方便又实用 3) 专业信息管理 对所有专业信息查询，并能直接实现添加 记录 混凝土 养护记录下载土方回填监理旁站记录免费下载集备记录下载集备记录下载集备记录下载 、删除记录、刷新、打印报表等功能。 沈 阳 大 学 课程设计说明书 NO.3 专业信息表包括的字段:专业号、专业名。 4) 班级信息管理 对所有班级信息查询，并能直接实现添加记录、删除记录、打印报表及刷新等功能。班级信息表包括的字段:班级号，专业号。 5) 学生信息管理 对全体学生信息查询，或某个学生信息查询，并能直接实现添加记录、删除记录、打印报表及刷新等功能。学生表包括的字段:学号、姓名、性别、出生日期、政治面貌、专业号、班级号。 6) 课程安排管理 对所有课程具体安排信息进行查询或某一科单独查询，且也能够实现添加、删除记录、打印报表及刷新等功能。课程表包括的字段:课程号、课程名、专业号、开课学期、学时、教师编号。 7) 成绩查询管理 对全体的学生所有的科目成绩进行查询，也能单独对某一个学生某一科进行查询并能实现添加、删除记录、打印报表及刷新，还有就是能统计出补考的学生的名单及数量。成绩表包括的字段:学号、姓名、课程号、课程名、成绩、考核、教师编号、专业号、班级号。 2. 3系统功能模块分析 上述各功能的系统功能模块图如图1。 沈 阳 大 学 课程设计说明书 NO.4 学生信息管理系统 课班学成系程级籍绩统信信信信管息息息息理 管管管管理理理 理 成成年班班班学学密用 绩绩级级级级籍籍码户 添查课课信信查信设设 加询程程息息询息置置 修设信修添和的 改置息改加修添 管管改加 理理 图1 系统功能模块 2.4数据库分析 数据库在一个信息管理系统中占有非常重要的地位，数据库结构设计的好坏将直接对应用系统的效率以及实现的效果产生影响。合理的数据库结构设计可提高数据存储的效率，保证数据的完整和一致。同时，合理的数据库结构也将有利于程序的实现。 数据库需求分析 用户的需求具体体现在各种信息的提供、保证、更新和查询，这就要求数据库结构能够充分满足各种信息的输出和输入。 针对一般学生信息管理系统的要求，通过对学生学习过程的内容和数据流程分析，设计如下的数据项和数据结构: 1).学生基本信息:包括的数据项有:学生学号、学生姓名、性别、出身日期、班号、联系电话、入校日期、家庭地址、备注等。 2).班级信息:包括的数据项有:班号、所在年级、班主任姓名、所在教室等。 沈 阳 大 学 课程设计说明书 NO.5 3).课程基本信息:包括的数据项有:课程号、课程名称、课程类别、课程描述等。 4).课程设置信息:包括数据项有:年级信息、所学课程等。 5).学生成绩信息:包括数据项有:考试编号、所在班号、学生学号、学生姓名、所学课程、考试分数等。 根据上面的数据结构、数据项和数据流程，进行数据库设计。 3.详细设计 3.1学生信息管理系统主窗体的创建 (1).创建一个工程名为Student_Mis的工程文件Student_Mis.vbp。 (2).创建学生信息管理系统的主窗体MID窗体，窗体名为frmMain，窗体文件名为:frmMain.frm。 创建主窗体的菜单，利用菜单设计器来设置住窗体如下图所示。 图2 主窗体菜单 表1 主菜单结果表 沈 阳 大 学 课程设计说明书 NO.6 对象 属性 属性值 对象 属性 属性值 sysMenu modifycionfoMen主菜单项名称 子菜单项名称 u 1 2 标题 系统 标题 修改班级信息 adduserMenu courseMenu 子菜单项名称 主菜单项名称 1 4 标题 添加用户 标题 课程设置 modifypwdMenu addcourseMenu 子菜单项名称 子菜单项名称 2 1 标题 修改密码 标题 添加课程设计 exitMenu modifycourseMen子菜单项名称 子菜单项名称 u 3 2 标题 退出系统 标题 修改课程信息 sinfoMenu gradecourseMenu 主菜单项名称 子菜单项名称 2 3 标题 学籍信息 标题 设计年级课程 addsinfoMenu resultMenu 子菜单项名称 主菜单项名称 1 5 标题 添加学籍信息 标题 成绩管理 modifysinfoMenu addresultMenu 子菜单项名称 子菜单项名称 2 1 标题 修改学籍信息 标题 添加成绩信息 inquiresinfoMenu modifyresultMenu 子菜单项名称 子菜单项名称 3 2 标题 查询学籍信息 标题 修好学籍信息 classinfoMenu inquireresultMenu 主菜单项名称 子菜单项名称 3 3 标题 班级管理 标题 查询成绩信息 addcinfoMenu 子菜单项名称 1 标题 添加班级信息 3.2系统用户管理模块的创建 系统用户管理模块主页实现:用户登陆;用户添加;修改用户密码 3.2.1用户登陆窗体的创建 进入系统后出现如图3所示用户登陆窗体，用户首先输入用户名，然后输入密码。如果用户3次输入密码不正确，将退出程序。 沈 阳 大 学 课程设计说明书 NO.7 图3 系统登录界面 3.2.2成绩管理模块的创建 (1)成绩管理模块功能分析.成绩管理模块主要实现如下功能:添加成绩信息;修改成绩信息;查询成绩信息。 (2)成绩信息管理模块图如下图所示。 成绩信息管理 添修查 加改询 成成成 绩绩绩 信信信 息 息 息 图4 成绩信息管理模块 界面设计时添加窗体，添加相关控件，设置控件的相关属性来完成界面的设计要求，然后调整控件的排版问题，让整体达到美观的效果。界面的设计以及属性的设置如下图所 沈 阳 大 学 课程设计说明书 NO.8 示。 图5 界面设计及属性设置 3.2.3添加成绩信息窗体的创建 选择“成绩管理添加成绩信息”菜单，将出现如图所示的窗体。 沈 阳 大 学 课程设计说明书 NO.9 图6 添加成绩信息 打开添加成绩界面之后，可以通过系统添加考试编号、选择学生所在的班级、添加学生的学号、姓名、考试的课程科目以及考试所得的分数。添加完事之后如果没有错误和实际相符合就可以单击“确认添加”按钮把刚刚录入的成绩及学生信息保存到系统当中。方便以后用户的查询。如果发现在录入信息的时候不小心录入了错误信息，可以修改录入的信息，或者用户单击“取消添加”按钮取消添加信息。 控件属性的设置: 根据以上的操作界面，在设计时候创建窗体，往窗体当中添加相关的控件，调整控件的位置以达到美观优雅的设计效果，添加控件的同时也要在设计界面把把各个控件的相关属性按照设计要求目的来设置好，窗体中各种控件的属性列成表格的形式，如下表所示。 表2 控件属性 控件 属性 属性取值 控件 属性 属性取值 FrmAddgrade Name FrmAddgrade Label1 Caption 考试编号 (Form) Caption CommandName Command添加成绩信息 2 2 MIDChilTrue Caption 取消添加 d txtTestno Name txtTestno Label2 Caption 选择班号 comboGrade Name comboGrade Label3 Caption 选择学号 沈 阳 大 学 课程设计说明书 NO.10 txtDirector Name txtDirector Label4 Caption 姓名 txtname Name txtname Lable15 Caption 选择课程 Command1 Name Command1 Lable16 Caption 输入分数 Caption 确定添加 3.2.4修改成绩信息窗体的创建 这个窗体在添加成绩信息窗体的基础上又增加了两排按钮，方便了用户的相关操作。查看成绩信息和修改成绩信息。如7图所示。 图7 修改成绩信息 控件的属性设置: 在设计操作界面的时候来设置相关控件的属性设置,修改框架的标题,让人看了之后就知道该操作界面是用来做什么的,设置该框架的Caption属性为“修改成绩信息”其他一些空间的属性按照设计要求和目的来分别设置。具体控件的属性设置如下表所示。 沈 阳 大 学 课程设计说明书 NO.11 表3 控件属性 控件 属性 属性取值 控件 属性 属性取值 FrmChange Name FrmChange Label1 Caption 考试编号 (Form) Caption Name Command修改成绩信息 Command3 3 Caption 取消修改 MIDChilTrue 记录 d txtTestno Name txtTestno CommangCaption 删除记录 4 comboGrade Name comboGrade Label2 Caption 选择班号 txtDirector Name txtDirector Label3 Caption 选择学号 txtname Name xtname Label4 Caption 姓名 Command1 Caption Lable15 Caption 修改记录 选择课程 Command2 Caption Lable16 Caption 更新数据v 输入分数 当需要修改学生成绩信息的时候可以通过打开系统的如上界面来对成绩信息进行查看和修改，点击查看成绩信息栏里面的“第一条记录”按钮或者其他几个按钮可以根据点击按钮的不同来跳转到相关的界面来显示想要的信息。如果系统当中的数据需要做相关的修改时，点击修改成绩信息栏里面的按钮来修改当前系统当中的记录，更新数据，删除不想保存在数据库中的信息，如果不是想要修改数据和更新数据库信息可以单击“取消修改记录”按钮来放弃刚刚所作出的操作。 3.2.5查询成绩信息窗体的创建 新建一个Form窗体，在窗体上加入一个Data控件，其DatabaseName属性设置连接到数库，RecordSource属性连接到数据库中的相关表。在窗体上加入两个Frame控件，在一个上放置3wh TextBox控件，3个Label控件，其Caption属性分别设为“按学号”“按姓名”“按课程”。设置有复选框。在另一个Frame控件上放置2个CommandButton控件，其Caption 属性分别设置为“查询”、“退出查询”。完成后的整个界面如下图所示。 沈 阳 大 学 课程设计说明书 NO.12 图8 查询成绩信息 进入系统的查询成绩信息界面以后，可以按照不同的方式来查询想要查看的同学的成绩信息。该系统分为按学号查询学生的成绩信息，输入学生的学号之后，然后单击“查询”按钮跳转到下一界面，即为查询学生的成绩信息。按姓名查询学生成绩信息，如截图当中显示的即为通过按姓名的方式来查询数据库中已有的学生成绩信息。在按姓名文本框当中输入“张三”然后单击“查询”按钮即可以跳到张三的成绩相关信息界面。查询完毕之后通过单击“退出查询”按钮来退出该模块。图中即为数据库中有的关于张三的成绩信息，考试编号、张三的学号、班级号、所考试的课程名称，和该科目的考试成绩。再有按课程名称来查看学生成绩信息。手动输入课程名称来查询相关的成绩信息。 4.设计体会 在本系统的开发过程中，由于本人是初次开发软件，在知识、经验方面都存在着不足。 因此，该系统必然会存在一些缺陷。因为对学生信息管理的整个流程的熟悉程度还不够深刻，在需求分析时未能做到完全满足用户的需求。虽然网络在学生成绩管理系统中的应用不是很多， 在本次开发过程由于硬件的限制，未能实现网络功能。 尽管本管理系统存在着很多不足，但其功能还是比较全面的、易于日后程序更新、数据库管理容易、界面友好、操作方便、效率高、安全性好等优点是本管理系统所必需的。相信本学生管理系统是一套学校在日常管理中必不可少的管理软件，通过开发这个系统，掌握了信息管理设计过程。加强了对Visual Basic 6.0的学习，巩固了基本知识，提高了 沈 阳 大 学 课程设计说明书 NO.13 自学能力。在这次毕业设计中的最大收获并不仅是掌握了开发工具的应用，而是学会了设计系统的思维方法，以及与同学们之间相互帮助的精神。总之在这次设计中我知道了很多，获得了很多。 有了这次的学生系统的课程设计，让我在课堂上学到的书本理论知识得到了更好理解。更进一步巩固了自己的知识，没有这次课程设计，自己一直以为自己学的还算很好一半知识自己都会，但是在做课设的时候发现有很多东西运用到实践当中还不我所达不到的水平，这才发现自己会得东西只是一知半解。运用到实际当中自己的欠缺还是很大。幸好很多热心的室友和同学以及老师的帮助，自己通过查阅丰富的图书资源，搜索丰富的网络资源，设计界面，设置各种控件的属性，编写相关的代码。反复的调试程序才算把这个学生信息管理的系统做完。虽然刚开始时候因为很多东西不会烦躁，无从下手。但是程序最后调试出来那一瞬间，真的很高兴。 课程设计完成了，首先非常感谢学校给我们这次机会，让我们扩大了知识量，弥补了知识的欠缺，进一步完善了自我。忠心的感谢老师在设计过程中对我孜孜不倦的教导，使我的设计顺利完成。我还要感谢我的同学们，在这一阶段给了我极大的帮助。 参考文献 沈 阳 大 学 课程设计说明书 NO.14 [1] 刘天慧等编著.Visual Basic程序设计教程[M].北京:清华大学出版社,2006.2:156-185 [2] 萨师煊,王珊.数据库系统概论[M],(第三版).北京:高等教育出版社，2006.5:198—233 [3] 梁伟等编. Visual Basic 管理信息系统项目开发实践，北京:科学出版社，2003:127-211 [4] 程斌等编. Visual Basic 6.0数据库开发指南，西安:电子科技大学出版社，2000:232-254 [5] 武马群(Visual Basic程序设计[M](北京:北京工业大学出版社,2005.03:67-90 [6] 陈元春. Visual Basic数据库编程 [M]. 北京:清华大学出版社,2007.07:37-70 [7] 蒋加伏.Visual Basic程序设计教程[M]. 北京: 北京邮电大学出版社，2003.11:10-56 [8] 王国荣,VisualBasic6.0与Windows API讲座[M].北京:人民邮电出版社.2007.4:100-130 [9] 刘新民,蔡琼,白康生编著.Visual Basic 6.0程序设计[M].北京:清华大学出版社.2004.3 20-25 [10]李春葆，曾平编著(数据库原理与应用[M]. 北京:清华大学出版社. 2006.1 41-74 [11] A Blog Mining Framework IT Professional [J]. 卷次:11刊期:1 January 2009 . 附录:源代码 学生信息管理系统主窗体代码如下: 沈 阳 大 学 课程设计说明书 NO.15 Private Sub MDIForm_Load() Me.Left = GetSetting(App.Title, "Settings", "MainLeft", 1000) Me.Top = GetSetting(App.Title, "Settings", "MainTop", 1000) Me.Width = GetSetting(App.Title, "Settings", "MainWidth", 6500) Me.Height = GetSetting(App.Title, "Settings", "MainHeight", 6500) End Sub Private Sub MDIForm_Unload(Cancel As Integer) If Me.WindowState <> vbMinimized Then SaveSetting App.Title, "Settings", "MainLeft", Me.Left SaveSetting App.Title, "Settings", "MainTop", Me.Top SaveSetting App.Title, "Settings", "MainWidth", Me.Width SaveSetting App.Title, "Settings", "MainHeight", Me.Height End If End Sub Private Sub modifycinfoMenu_Click() frmModifyclassinfo.Show End Sub Private Sub modifycourseMenu_Click() frmModifycourseinfo.Show End Sub Private Sub modifypwdMenu_Click() frmModifyuserinfo.Show End Sub Private Sub modifyresultMenu_Click() frmModifyresult.Show End Sub Private Sub modifysinfo_Menu_Click() frmModifysinfo.Show End Sub 创建公共模块。在工程资源管理器中为项目添加一个名称为Module的 标准 excel标准偏差excel标准偏差函数exl标准差函数国标检验抽样标准表免费下载红头文件格式标准下载 模块文件 Module.bas。代码如下: Public fMainForm As frmMain Public UserName As String Sub Main() Dim fLogin As New frmLogin fLogin.Show vbModal If Not fLogin.OK Then 'Login Failed so exit app End End If Unload fLogin 沈 阳 大 学 课程设计说明书 NO.16 Set fMainForm = New frmMain fMainForm.Show End Sub Public Function ConnectString() _ As String 'returns a DB ConnectString ConnectString = "FileDSN=studentinfo.dsn" End Function Public Function ExecuteSQL(ByVal SQL _ As String, MsgString As String) _ As ADODB.Recordset 'executes SQL and returns Recordset Dim cnn As ADODB.Connection Dim rst As ADODB.Recordset Dim sTokens() As String On Error GoTo ExecuteSQL_Error sTokens = Split(SQL) Set cnn = New ADODB.Connection cnn.Open ConnectString If InStr("INSERT,DELETE,UPDATE", _ UCase$(sTokens(0))) Then cnn.Execute SQL MsgString = sTokens(0) & _ " query successful" Else Set rst = New ADODB.Recordset rst.Open Trim$(SQL), cnn, _ adOpenKeyset, _ adLockOptimistic 'rst.MoveLast 'get RecordCount Set ExecuteSQL = rst MsgString = "查询到" & rst.RecordCount & _ " 条记录 " End If ExecuteSQL_Exit: Set rst = Nothing Set cnn = Nothing Exit Function ExecuteSQL_Error: MsgString = "查询错误: " & _ Err.Description Resume ExecuteSQL_Exit 沈 阳 大 学 课程设计说明书 NO.17 End Function Public Function Testtxt(txt As String) As Boolean If Trim(txt) = "" Then Testtxt = False Else Testtxt = True End If End Function 系统用户管理模块的创建 代码如下: Option Explicit Public OK As Boolean '记录确定次数 Dim miCount As Integer Private Sub Form_Load() OK = False miCount = 0 End Sub Private Sub cmdCancel_Click() OK = False Me.Hide End Sub Private Sub cmdOK_Click() Dim txtSQL As String Dim mrc As ADODB.Recordset Dim MsgText As String 'ToDo: create test for correct password 'check for correct password UserName = "" If Trim(txtUserName.Text = "") Then MsgBox "没有这个用户，请重新输入用户名～", vbOKOnly + vbExclamation, "警告 " txtUserName.SetFocus Else txtSQL = "select * from user_Info where user_ID = '" & txtUserName.Text & "'" Set mrc = ExecuteSQL(txtSQL, MsgText) If mrc.EOF = True Then MsgBox "没有这个用户，请重新输入用户名!", vbOKOnly + vbExclamation, " 警告" txtUserName.SetFocus Else 沈 阳 大 学 课程设计说明书 NO.18 If Trim(mrc.Fields(1)) = Trim(txtPassword.Text) Then OK = True mrc.Close Me.Hide UserName = Trim(txtUserName.Text) Else MsgBox "输入密码不正确，请重新输入～", vbOKOnly + vbExclamation, " 警告" txtPassword.SetFocus txtPassword.Text = "" End If End If End If miCount = miCount + 1 If miCount = 3 Then Me.Hide End If Exit Sub End Sub 成绩管理模块的创建 代码如下: Private Sub Command1_Click() Dim mrc As ADODB.Recordset Dim MsgText As String Dim txtSQL As String If Not Testtxt(txtClassno.Text) Then MsgBox "请输入考试编号～", vbOKOnly + vbExclamation, "警告" txtClassno.SetFocus Exit Sub End If If Not Testtxt(comboGrade.Text) Then MsgBox "请选择班号～", vbOKOnly + vbExclamation, "警告" comboGrade.SetFocus Exit Sub End If If Not Testtxt(txtDirector.Text) Then MsgBox "请输入姓名～", vbOKOnly + vbExclamation, "警告" txtDirector.SetFocus Exit Sub End If 沈 阳 大 学 课程设计说明书 NO.19 if Not Testtxt(txtClassroom.Text) Then MsgBox "请输入教室房间号～", vbOKOnly + vbExclamation, "警告" txtClassroom.SetFocus Exit Sub End If If Not IsNumeric(Trim(txtClassno.Text)) Then MsgBox "请输入数字～", vbOKOnly + vbExclamation, "警告" Exit Sub txtClassno.SetFocus End If txtSQL = "select * from class_Info " Set mrc = ExecuteSQL(txtSQL, MsgText) mrc.MoveFirst While (mrc.EOF = False) If (Trim(mrc.Fields(0)) = Trim(txtClassno.Text)) Then MsgBox "班号已经存在，请重新输入班号～", vbOKOnly + vbExclamation, " 警告" Exit Sub txtClassno.Text = "" txtClassno.SetFocus Else mrc.MoveNext End If Wend mrc.AddNew mrc.Fields(0) = Trim(txtClassno.Text) mrc.Fields(1) = Trim(comboGrade.Text) mrc.Fields(2) = Trim(txtDirector.Text) mrc.Fields(3) = Trim(txtClassroom.Text) mrc.Update mrc.Close MsgBox "添加成绩信息成功～", vbOKOnly + vbExclamation, "添加成绩信息" End Sub Private Sub Command2_Click() Unload Me End Sub 修改查询成绩模块 代码如下: Private Sub Command1_Click() If Text1.Text = "" Then 沈 阳 大 学 课程设计说明书 NO.20 MsgBox "请输入内容～" Else 输入内容不能为空 Data1.Recordset.Edit Data1.Recordset.Fields(0) = Text2.Text Data1.Recordset.Fields(1) = Text3.Text Data1.Recordset.Fields(2) = text4.Text Data1.Recordset.Fields(3) = Text5.Text Data1.Recordset.Fields(4) = Text6.Text Data1.Recordset.Fields(5) = Text7.Text Data1.Recordset.Fields(6) = Text8.Text Text9.Text = Str((Val(Text6.Text) + Val(Text8.Text) + Val(Text7.Text)) / 3) Data1.Recordset.Fields(7) = Text9.Text Data1.Recordset.Update MsgBox "修改成功" 对数据库进行修改，并将修改后的数据存入数据库 End If End Sub Private Sub Command10_Click() If Trim(Text1.Text) = "" Then MsgBox "学号不能为空，请重新输入～", vbOKOnly + vbExclamation, "警告" Text1.SetFocus Else 输入学号不能为空 Data1.RecordSource = "select * from 成绩表 where 学号='" & Text1.Text & " '" Data1.Refresh If Data1.Recordset.EOF Then MsgBox "学号不存在，请重新输入～", vbOKOnly + vbExclamation, "警告" Text1.SetFocus Text1.Text = "" 判断输入的学号是否存在，若不存在，弹出警告， 并请空格文本框。 Text2.Text = "" Text3.Text = "" text4.Text = "" Text5.Text = "" Text6.Text = "" Text7.Text = "" Text8.Text = "" Text9.Text = "" Else Text2.Text = Data1.Recordset.Fields(0) Text3.Text = Data1.Recordset.Fields(1) text4.Text = Data1.Recordset.Fields(2) 沈 阳 大 学 课程设计说明书 NO.21 Text5.Text = Data1.Recordset.Fields(3) Text6.Text = Data1.Recordset.Fields(4) Text7.Text = Data1.Recordset.Fields(5) Text8.Text = Data1.Recordset.Fields(6) End If End If 存在时，调出数据库。 End Sub Private Sub Command2_Click() Me.Hide main.Show End Sub 进入主界面 Private Sub Command3_Click() If Text1.Text = "" Then MsgBox "请输入内容～" Else 判断输入是否为空 mybookmark = Data1.Recordset.Bookmark Str2$ = MsgBox("是否删除当前记录,", vbOKCancel, "当前记录") If Str2$ = vbOK Then Data1.Recordset.Delete Data1.Refresh Text1.Text = "" Text2.Text = "" Text3.Text = "" text4.Text = "" Text5.Text = "" Text6.Text = "" Text7.Text = "" Text8.Text = "" Text9.Text = "" End If 请空格文本框 End If End Sub 查询成绩 代码如下: Private Sub Command1_Click() If Combo1.Text = "按学号" Then Data1.RecordSource = "select * from 成绩表 where 学号='" & Text1.Text & "'" Data1.Refresh Else Data1.RecordSource = "select * from 成绩表 where 姓名='" & Text1.Text & "'" 沈 阳 大 学 课程设计说明书 NO.22 Data1.Refresh 选择查询条件 End If If Text1.Text = "" Then Data1.RecordSource = "select * from 成绩表 order by 成绩 desc" Data1.Refresh End If End Sub Private Sub Command2_Click() Me.Hide main.Show End Sub 进入主界面 Private Sub Form_Load() Data1.RecordSource = "select * from 成绩表 order by成绩 desc" Data1.Refresh End Sub 沈 阳 大 学 课程设计说明书 NO.23 沈 阳 大 学