VB学生信息管理 .docx

《VB学生信息管理 .docx》由会员分享，可在线阅读，更多相关《VB学生信息管理 .docx（18页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、精品名师归纳总结同学信息治理系统1. 课程设计目的目的是进一步培育我们综合应用Visual Basic 的各种编程学问和技巧进行程序设计的才能。通过课程设计，我们能达到具备设计功能较为复杂的Windows 应用程序的才能。同时，通过课程设计，培育我们自主学习和独立创新的精神，是人才培育体系中极为重要的一环。随着高校规模的不断扩大，同学数量急剧增加，有关同学的各种信息量也成倍增长， 庞高校生信息的治理工作成了高校教案治理工作中的一项重要任务，一方面，假如遵从以往旧式的工作方式，该工作的工作量大，治理繁琐，既耗人力，又耗物力。另一方面，由于运算机技术的飞速进展及应用的普及，同学信息治理这样烦琐的工

2、作更需要由运算机来完成。因此开发一套对同学信息进行治理的软件是极其重要的，而且是必需的，通过这样的系统，可以做到信息的规范治理、科学统计和快速的查询，从而削减治理方面的工作 量。同学信息治理系统是典型的信息治理系统MIS, 其开发主要包括后台数据库的建立和保护以及前端应用程序的开发两个方面。对于前者要求建立起数据一样性和完整性强、数 据安全性好的库。而对于后者就要求应用程序功能完备,易使用等特点。针对高校现在存在的同学成果治理的弊端和基本流程，设计了同学成果治理系统，实现同学成果治理的电子化，减轻治理人员的负担。利用这一系统，治理人员能够更好的对现有的同学成果进行治理，也便利了同学自己查询成果

3、，同时可以防止人为错误。本模块实现的主要功能有专业信息、班级信息、同学信息及课程支配、成果查询的功能。系统采纳 Visual basic 高级语言进行程序编制，以 SQL Server 2000数据库为后台数据库。期望通过这次课程更清晰的明白自己的学问水平。充分的熟识到自己真实情形。都说要想把学到的理论学问完全的变成自己的东西就要不断的学习不停的实践，只有完全明白的道理和它的一切结构才不至于学的一知半解。通过这次同学信息系统的设计，期望自己能把以前不会的东西学会，然后把自己会的东西能充分的运用到实际课程设计当中，做出抱负的成效。完全的把学问学透而不是把学问学死板了，自己做这次课程设计肯定会让我

4、得到许多我在课堂上多学不到的东西。更好的完善自己，为以后的学习生活以及工作奠定良好的基础。2. 同学信息治理系统分析与设计2.1 可行性分析可编辑资料 - - - 欢迎下载精品名师归纳总结由于本系统治理的对象单一，都是在校同学，且每个数据内容具有较强的关联性，涉及的运算过程不是很复杂。因此，比较适合于采纳数据库治理。且学校用于同学治理的微机都是奔腾 3 以上的机器，在储备量、速度方面都能满意数据库运行的要求。在技术难度方面，由于有指导老师的指导和相关参考文献，特殊是网上资料，特殊是参考其它程序的功能，因此完全可以实现。数据库是MIS 中的重要支持技术，在 MIS 开发过程中，如何挑选数据库治理

5、是一个重要的问题，目前，数据库产品较多，每种产品都具有各自的特点和适用范畴，因此，在挑选数据库时，应考虑数据库应用的特点及适用范畴，本系统选用的数据库语言介绍如下： Visual Basic 是一种可视化的、面对对象和调用大事驱动方式的结构化高级程序设计，可用于开发 Windows 环境下的种类应用程序。它简洁易学、效率高，且功能强大。在 Visual Basic 环境下，利用大事驱动的编程机制、新奇易用的可视化设计工具，可以高效、快速的开发出 Windows 环境下功能强大、图形界面丰富的应用软件系统。2.2 系统功能分析此同学信息治理信息系统是面对高校的治理系统，其目的是对学校内的同学，班

6、级，和其它信息进行统一有序的治理。班级治理信息的输入，包括班级设置、年级的设置等。班级治理信息治理的查询。班级治理信息的修改。学校基本课程信息的输入。基本课程信息的修改。同学课程信息的设置和修改。同学成果信息的输入。同学成果信息的修改。同学成果信息的查询。同学成果信息的统计。1) 系统安全性操作员在登录界面输入操作员帐号及密码进入主页面进行相应操作，加强了此系统的安全牢靠性。2) 主页界面采纳视窗的风格，点击菜单可以进入相应的界面，对其进行相应的操作。既便利又实用3) 专业信息治理对全部专业信息查询，并能直接实现添加记录、删除记录、刷新、打印报表等功能。专业信息表包括的字段：专业号、专业名。4

7、) 班级信息治理对全部班级信息查询，并能直接实现添加记录、删除记录、打印报表及刷新等功能。班级信息表包括的字段：班级号，专业号。可编辑资料 - - - 欢迎下载精品名师归纳总结5) 同学信息治理对全体同学信息查询，或某个同学信息查询，并能直接实现添加记录、删除记录、打印报表及刷新等功能。同学表包括的字段：学号、姓名、性别、诞生日期、政治面貌、专业号、班级号。6) 课程支配治理对全部课程具体支配信息进行查询或某一科单独查询，且也能够实现添加、删除记录、打印报表及刷新等功能。课程表包括的字段：课程号、课程名、专业号、开课学期、学时、老师编号。7) 成果查询治理对全体的同学全部的科目成果进行查询，也

8、能单独对某一个同学某一科进行查询并能实现添加、删除记录、打印报表及刷新，仍有就是能统计出补考的同学的名单及数量。成果表包括的字段：学号、姓名、课程号、课程名、成果、考核、老师编号、专业号、班级号。2.3 系统功能模块分析上述各功能的系统功能模块图如图1。同学信息治理系统成课班学系绩程级籍统信信信信管息息息息理管管管管理理理理成成年班班班学学密用绩绩级级级级籍籍码户添查课课信信查信设设加询程程息息询息置置修设信修添和的改置息改加修添管管改加理理可编辑资料 - - - 欢迎下载精品名师归纳总结2.4 数据库分析图 1 系统功能模块可编辑资料 - - - 欢迎下载精品名师归纳总结数据库在一个信息治理

9、系统中占有特别重要的位置，数据库结构设计的好坏将直接对应用系统的效率以及实现的成效产生影响。合理的数据库结构设计可提高数据储备的效 率，保证数据的完整和一样。同时，合理的数据库结构也将有利于程序的实现。数据库需求分析用户的需求具体表达在各种信息的供应、保证、更新和查询，这就要求数据库结构能够充分满意各种信息的输出和输入。针对一般同学信息治理系统的要求，通过对同学学习过程的内容和数据流程分析，设计如下的数据项和数据结构：1). 同学基本信息：包括的数据项有：同学学号、同学姓名、性别、出身日期、班号、联系电话、入校日期、家庭的址、备注等。2). 班级信息：包括的数据项有：班号、所在年级、班主任姓名

10、、所在教室等。3). 课程基本信息：包括的数据项有：课程号、课程名称、课程类别、课程描述等。4). 课程设置信息：包括数据项有：年级信息、所学课程等。5). 同学成果信息：包括数据项有：考试编号、所在班号、同学学号、同学姓名、所学课程、考试分数等。依据上面的数据结构、数据项和数据流程，进行数据库设计。3. 具体设计3.1 同学信息治理系统主窗体的创建(1). 创建一个工程名为 Student_Mis的工程文件 Student_Mis.vbp。(2). 创建同学信息治理系统的主窗体MID窗体，窗体名为frmMain ，窗体文件名为：frmMain.frm 。创建主窗体的菜单，利用菜单设计器来设置

11、住窗体如下图所示。图 2 主窗体菜单表1主菜单结果表对象属性属性值对象属性属性值主菜单项名称sysMenu子菜单项名称modifycionfoMen1标题系统2标题u修改班级信息可编辑资料 - - - 欢迎下载精品名师归纳总结子菜单项名称adduserMenu主菜单项名称courseMenu1标题添加用户4标题课程设置子菜单项名称modifypwdMenu子菜单项名称addcourseMenu2标题修改密码1标题添加课程设计子菜单项名称exitMenu子菜单项名称modifycourseMen3标题退出系统2标题u修改课程信息主菜单项名称sinfoMenu子菜单项名称gradecourseMe

12、nu2标题学籍信息3标题设计年级课程子菜单项名称addsinfoMenu主菜单项名称resultMenu1标题添加学籍信息5标题成果治理子菜单项名称modifysinfoMenu子菜单项名称addresultMenu2标题修改学籍信息1标题添加成果信息子菜单项名称inquiresinfoMenu子菜单项名称modifyresultMenu3标题查询学籍信息2标题修好学籍信息主菜单项名称classinfoMenu子菜单项名称inquireresultMenu3标题班级治理3标题查询成果信息可编辑资料 - - - 欢迎下载精品名师归纳总结子菜单项1名称addcinfoMenu标题添加班级信息可编辑

13、资料 - - - 欢迎下载精品名师归纳总结3.2 系统用户治理模块的创建系统用户治理模块主页实现：用户登陆。用户添加。修改用户密码3.2.1 用户登陆窗体的创建进入系统后显现如图 3 所示用户登陆窗体，用户第一输入用户名，然后输入密码。假如用户 3 次输入密码不正确，将退出程序。可编辑资料 - - - 欢迎下载精品名师归纳总结3.2.2 成果治理模块的创建图 3 系统登录界面可编辑资料 - - - 欢迎下载精品名师归纳总结(1) 成果治理模块功能分析 .成果治理模块主要实现如下功能：添加成果信息。修改成果信息。查询成果信息。(2) 成果信息治理模块图如下图所示。可编辑资料 - - - 欢迎下载

14、精品名师归纳总结成果信息治理添修查加改询成成成绩绩绩信信信息息息图 4 成果信息治理模块界面设计时添加窗体，添加相关控件，设置控件的相关属性来完成界面的设计要求， 然后调整控件的排版问题，让整体达到美观的成效。界面的设计以及属性的设置如下图所示。可编辑资料 - - - 欢迎下载精品名师归纳总结3.2.3 添加成果信息窗体的创建图 5 界面设计及属性设置可编辑资料 - - - 欢迎下载精品名师归纳总结挑选“成果治理添加成果信息 ”菜单，将显现如下列图的窗体。图 6 添加成果信息打开添加成果界面之后，可以通过系统添加考试编号、挑选同学所在的班级、添加同学的学号、姓名、考试的课程科目以及考试所得的分

15、数。添加完事之后假如没有错误和实 际相符合就可以单击 “确认添加 ”按钮把刚刚录入的成果及同学信息储存到系统当中。便利以后用户的查询。假如发觉在录入信息的时候不当心录入了错误信息，可以修改录入的信 息，或者用户单击 “取消添加 ”按钮取消添加信息。控件属性的设置：依据以上的操作界面，在设计时候创建窗体，往窗体当中添加相关的控件，调整控件的位置以达到美观文雅的设计成效，添加控件的同时也要在设计界面把把各个控件的相关属性依据设计要求目的来设置好，窗体中各种控件的属性列成表格的形式，如下表所示。可编辑资料 - - - 欢迎下载精品名师归纳总结表 2 控件属性控件属性属性取值控件属性属性取值可编辑资料

16、 - - - 欢迎下载精品名师归纳总结FrmAddgradeNameFrmAddgradeLabel1Caption考试编号可编辑资料 - - - 欢迎下载精品名师归纳总结FormCaption添加成果信息Command2NameCommand 2可编辑资料 - - - 欢迎下载精品名师归纳总结MIDChil dTrueCaption取消添加可编辑资料 - - - 欢迎下载精品名师归纳总结txtTestnocomboGradeNameNametxtTestnocomboGradeLabel2Label3CaptionCaption挑选班号挑选学号txtDirectorNametxtDirect

17、orLabel4Caption姓名txtnameNametxtnameLable15Caption挑选课程Command1NameCaptionCommand1确定添加Lable16Caption输入分数3.2.4 修改成果信息窗体的创建这个窗体在添加成果信息窗体的基础上又增加了两排按钮，便利了用户的相关操作。查看成果信息和修改成果信息。如7 图所示。可编辑资料 - - - 欢迎下载精品名师归纳总结控件的属性设置：图 7 修改成果信息可编辑资料 - - - 欢迎下载精品名师归纳总结在设计操作界面的时候来设置相关控件的属性设置 ,修改框架的标题 ,让人看了之后就知道该操作界面是用来做什么的 ,设

18、置该框架的 Caption 属性为 “修改成果信息 ”其他一些空间的属性依据设计要求和目的来分别设置。具体控件的属性设置如下表所示 。表 3 控件属性控件属性属性取值控件属性属性取值可编辑资料 - - - 欢迎下载精品名师归纳总结FrmChangeNameFrmChangeLabel1Caption考试编号可编辑资料 - - - 欢迎下载精品名师归纳总结FormCaption修改成果信息Command 3NameCommand 3Caption取消修改可编辑资料 - - - 欢迎下载精品名师归纳总结MIDChil dTrue记录可编辑资料 - - - 欢迎下载精品名师归纳总结txtTestno

19、NametxtTestnoCommang4Caption删除记录可编辑资料 - - - 欢迎下载精品名师归纳总结comboGradeNamecomboGradeLabel2Caption挑选班号txtDirectorNametxtDirectorLabel3Caption挑选学号txtnameNamextnameLabel4Caption姓名Command1Caption修改记录Lable15Caption挑选课程Command2Caption更新数据 vLable16Caption输入分数当需要修改同学成果信息的时候可以通过打开系统的如上界面来对成果信息进行查看 和修改，点击查看成果信息栏里

20、面的“第一条记录 ”按钮或者其他几个按钮可以依据点击按钮的不同来跳转到相关的界面来显示想要的信息。假如系统当中的数据需要做相关的修改 时，点击修改成果信息栏里面的按钮来修改当前系统当中的记录，更新数据，删除不想保存在数据库中的信息，假如不是想要修改数据和更新数据库信息可以单击“取消修改记录 ”按钮来舍弃刚刚所作出的操作。3.2.5 查询成果信息窗体的创建新建一个 Form 窗体，在窗体上加入一个 Data 控件，其 DatabaseName属性设置连接到数库， RecordSource属性连接到数据库中的相关表。在窗体上加入两个 Frame 控件，在一个上放置 3wh TextBox 控件，

21、3 个 Label 控件，其 Caption 属性分别设为 “按学号 ”按“姓名”按“课程 ”。设置有复选框。在另一个 Frame 控件上放置 2 个 CommandButton 控件，其Caption 属性分别设置为 “查询”、“退出查询 ”。完成后的整个界面如下图所示。图 8 查询成果信息进入系统的查询成果信息界面以后，可以依据不同的方式来查询想要查看的同学的成绩信息。该系统分为按学号查询同学的成果信息，输入同学的学号之后，然后单击“查询” 按钮跳转到下一界面，即为查询同学的成果信息。按姓名查询同学成果信息，如截图当中显示的即为通过按姓名的方式来查询数据库中已有的同学成果信息。在按姓名文本

22、框当中输入“张三”然后单击 “查询”按钮即可以跳到张三的成果相关信息界面。查询完毕之后通过单击“退出查询 ”按钮来退出该模块。图中即为数据库中有的关于张三的成果信息，考试编号、张三的学号、班级号、所考试的课程名称，和该科目的考试成果。再有按课程名称来查看同学成果信息。手动输入课程名称来查询相关的成果信息。4. 设计体会在本系统的开发过程中，由于本人是初次开发软件，在学问、体会方面都存在着不足。因此，该系统必定会存在一些缺陷。由于对同学信息治理的整个流程的熟识程度仍不够深刻，在需求分析时未能做到完全满意用户的需求。虽然网络在同学成果治理系统中的可编辑资料 - - - 欢迎下载精品名师归纳总结应用

23、不是许多，在本次开发过程由于硬件的限制，未能实现网络功能。尽管本治理系统存在着许多不足，但其功能仍是比较全面的、易于日后程序更新、数 据库治理简洁、界面友好、操作便利、效率高、安全性好等优点是本治理系统所必需的。 信任本同学治理系统是一套学校在日常治理中必不行少的治理软件，通过开发这个系统， 把握了信息治理设计过程。加强了对VisualBasic 6.0 的学习，巩固了基本学问，提高了自学才能。在这次毕业设计中的最大收成并不仅是把握了开发工具的应用，而是学会了设 计系统的思维方法，以及与同学们之间相互帮忙的精神。总之在这次设计中我知道了很多，获得了许多。有了这次的同学系统的课程设计，让我在课堂

24、上学到的书本理论学问得到了更好懂得。更进一步巩固了自己的学问，没有这次课程设计，自己始终以为自己学的仍算很好一半学问自己都会，但是在做课设的时候发觉有许多东西运用到实践当中仍不我所达不到的水平，这才发觉自己会得东西只是一知半解。运用到实际当中自己的欠缺仍是很大。幸好许多热心的室友和同学以及老师的帮忙，自己通过查阅丰富的图书资源，搜寻丰富的网络资源，设计界面，设置各种控件的属性，编写相关的代码。反复的调试程序才算把这个同学信息治理的系统做完。虽然刚开头时候由于许多东西不会烦躁，无从下手。但是程序最终调试出来那一瞬时，真的很兴奋。课程设计完成了，第一特别感谢学校给我们这次机会，让我们扩大了学问量，

25、补偿了学问的欠缺，进一步完善了自我。忠心的感谢老师在设计过程中对我孜孜不倦的教诲， 使我的设计顺当完成。我仍要感谢我的同学们，在这一阶段给了我极大的帮忙。参考文献1 刘天慧等编著 .Visual Basic程序设计教程 M. 北京:清华高校出版社 ,2006.2:156-1852 萨师煊,王珊.数据库系统概论 M, 第三版） .北京：高等训练出版社， 2006.5:1982333 梁伟等编. Visual Basic治理信息系统工程开发实践，北京：科学出版社，2003:127-2114 程斌等编. Visual Basic 6.0数据库开发指南，西安：电子科技高校出版社，2000:232-25

26、45 武马群 Visual Basic 程序设计 M 北京：北京工业高校出版社 ,2005.03：67-906 陈元春. Visual Basic 数据库编程 M. 北京：清华高校出版社 ,2007.07： 37-707 蒋加伏.Visual Basic 程序设计教程 M. 北京: 北京邮电高校出版社， 2003.11：10-568 王国荣,VisualBasic6.0与Windows API 讲座M. 北京:人民邮电出版社 .2007.4:100-1309 刘新民 ,蔡琼,白康生编著 .Visual Basic 6.0程序设计 M. 北京:清华高校出版社 .2004.3 20- 2510 李

27、春葆，曾平编著数据库原理与应用 M. 北京：清华高校出版社 . 2006.1 41-74可编辑资料 - - - 欢迎下载精品名师归纳总结11 A Blog Mining Framework IT Professional J. 卷次： 11 刊期： 1 January 2021 .附录：源代码同学信息治理系统主窗体代码如下：Private Sub MDIForm_LoadMe.Left = GetSettingApp.Title, Settings, MainLeft, 1000 Me.Top = GetSettingApp.Title, Settings, MainTop, 1000 Me.

28、Width = GetSettingApp.Title, Settings, MainWidth, 6500 Me.Height = GetSettingApp.Title, Settings, MainHeight, 6500End SubPrivate Sub MDIForm_UnloadCancel As Integer If Me.WindowState vbMinimized ThenSaveSetting App.Title, Settings, MainLeft, Me.Left SaveSetting App.Title, Settings, MainTop, Me.Top S

29、aveSetting App.Title, Settings, MainWidth, Me.Width SaveSetting App.Title, Settings, MainHeight, Me.HeightEnd If End SubPrivate Sub modifycinfoMenu_Click frmModifyclassinfo.ShowEnd SubPrivate Sub modifycourseMenu_Click frmModifycourseinfo.ShowEnd SubPrivate Sub modifypwdMenu_Click frmModifyuserinfo.

30、ShowEnd SubPrivate Sub modifyresultMenu_Click frmModifyresult.ShowEnd SubPrivate Sub modifysinfo_Menu_Click frmModifysinfo.ShowEnd Sub创建公共模块。在工程资源治理器中为工程添加一个名称为Module 的标准模块文件Module.bas。代码如下：Public fMainForm As frmMainPublic UserName As String Sub MainDim fLogin As New frmLoginfLogin.Show vbModal If

31、Not fLogin.OK ThenLogin Failed so exit app EndEnd IfUnload fLogin可编辑资料 - - - 欢迎下载精品名师归纳总结Set fMainForm = New frmMain fMainForm.ShowEnd SubPublic Function ConnectString _ As Stringreturns a DB ConnectStringConnectString = FileDSN=studentinfo.dsn End FunctionPublic Function ExecuteSQLByVal SQL _ As St

32、ring, MsgString As String _As ADODB.Recordsetexecutes SQL and returns Recordset Dim cnn As ADODB.Connection Dim rst As ADODB.RecordsetDim sTokens As StringOn Error GoTo ExecuteSQL_Error sTokens = SplitSQLSet cnn = New ADODB.Connection cnn.Open ConnectStringIf InStrINSERT,DELETE,UPDATE, _UCase$sToken

33、s0 Then cnn.Execute SQL MsgString = sTokens0 & _ query successful ElseSet rst = New ADODB.Recordset rst.Open Trim$SQL, cnn, _adOpenKeyset, _ adLockOptimisticrst.MoveLastget RecordCount Set ExecuteSQL = rstMsgString = 查询到 & rst.RecordCount & _ 条记录 End IfExecuteSQL_Exit: Set rst = Nothing Set cnn = No

34、thing Exit FunctionExecuteSQL_Error:MsgString = 查询错误 : & _ Err.DescriptionResume ExecuteSQL_ExitEnd FunctionPublic Function Testtxttxt As String As Boolean If Trimtxt = Then可编辑资料 - - - 欢迎下载精品名师归纳总结Testtxt = False ElseTesttxt = TrueEnd IfEnd Function系统用户治理模块的创建代码如下：Option ExplicitPublic OK As Boolean

35、 记录确定次数Dim miCount As IntegerPrivate Sub Form_LoadOK = False miCount = 0End SubPrivate Sub cmdCancel_Click OK = FalseMe.Hide End SubPrivate Sub cmdOK_ClickDim txtSQL As StringDim mrc As ADODB.Recordset Dim MsgText As StringToDo: create test for correct passwordcheck for correct password UserName = I

36、f TrimtxtUserName.Text = ThenMsgBox 没有这个用户，请重新输入用户名！ , vbOKOnly + vbExclamation, 警告 txtUserName.SetFocusElsetxtSQL = select * from user_Info where user_ID = & txtUserName.Text & Set mrc = ExecuteSQLtxtSQL, MsgTextIf mrc.EOF = True ThenMsgBox 没有这个用户，请重新输入用户名 ., vbOKOnly + vbExclamation, 警告 txtUserNam

37、e.SetFocusElseIf Trimmrc.Fields1 = TrimtxtPassword.Text Then OK = Truemrc.Close Me.HideUserName = TrimtxtUserName.Text ElseMsgBox 输入密码不正确，请重新输入！ , vbOKOnly + vbExclamation, 警告 txtPassword.SetFocustxtPassword.Text = 可编辑资料 - - - 欢迎下载精品名师归纳总结End If End IfEnd IfmiCount = miCount + 1 If miCount = 3 ThenM

38、e.HideEnd If Exit SubEnd Sub成果治理模块的创建代码如下：Private Sub Command1_Click Dim mrc As ADODB.Recordset Dim MsgText As StringDim txtSQL As StringIf Not TesttxttxtClassno.Text ThenMsgBox 请输入考试编号！ , vbOKOnly + vbExclamation, 警告 txtClassno.SetFocusExit Sub End IfIf Not TesttxtcomboGrade.Text ThenMsgBox 请挑选班号！

39、, vbOKOnly + vbExclamation, 警告 comboGrade.SetFocusExit Sub End IfIf Not TesttxttxtDirector.Text ThenMsgBox 请输入姓名！ , vbOKOnly + vbExclamation, 警告 txtDirector.SetFocusExit Sub End Ifif Not TesttxttxtClassroom.Text ThenMsgBox 请输入教室房间号！ , vbOKOnly + vbExclamation, 警告 txtClassroom.SetFocusExit Sub End If

40、If Not IsNumericTrimtxtClassno.Text ThenMsgBox 请输入数字！ , vbOKOnly + vbExclamation, 警告Exit Sub txtClassno.SetFocusEnd IftxtSQL = select * from class_Info Set mrc = ExecuteSQLtxtSQL, MsgText mrc.MoveFirstWhile mrc.EOF = FalseIf Trimmrc.Fields0 = TrimtxtClassno.Text Then可编辑资料 - - - 欢迎下载精品名师归纳总结MsgBox 班号

41、已经存在，请重新输入班号！ , vbOKOnly + vbExclamation, 警告Exit Sub txtClassno.Text = txtClassno.SetFocusElsemrc.MoveNext End IfWend mrc.AddNewmrc.Fields0 = TrimtxtClassno.Text mrc.Fields1 = TrimcomboGrade.Text mrc.Fields2 = TrimtxtDirector.Text mrc.Fields3 = TrimtxtClassroom.Text mrc.Updatemrc.CloseMsgBox 添加成果信息胜

42、利！ , vbOKOnly + vbExclamation, 添加成果信息 End SubPrivate Sub Command2_Click Unload MeEnd Sub修改查询成果模块代码如下：Private Sub Command1_Click If Text1.Text = ThenMsgBox 请输入内容！ Else输入内容不能为空Data1.Recordset.Edit Data1.Recordset.Fields0 = Text2.Text Data1.Recordset.Fields1 = Text3.Text Data1.Recordset.Fields2 = text4.Text Data1.Recordset.Fields3 = Text5.Text Data1.Recordset.Fields4 = Text6.Text Data1.Recordset.Fields5 = Text7.Text Data1.Recordset.Fields6 = Text8.TextText9.Text = StrValText6.Text + ValText8.Text + ValText7.Text / 3 Data1.Recordset.Fields7 = Text9.TextData1.Recordset.Upda