毕业设计论文VB学生评语管理系统的设计与实践.doc

《毕业设计论文VB学生评语管理系统的设计与实践.doc》由会员分享，可在线阅读，更多相关《毕业设计论文VB学生评语管理系统的设计与实践.doc（27页珍藏版）》请在三一办公上搜索。

1、杭州师范学院本科毕业论文 学生评语管理系统的设计与实践学生评语管理系统的设计与实践Design and practice of the students personal remark system 计算机科学与技术011班 XXX 指导老师 XXX副教授摘要：随着计算机及网络技术的飞速发展，在学校的管理中，运用计算机来处理事情已经越来越普遍。这样不仅能节省劳动力和减少劳动成本，还较传统模式安全性增强。所以各类软件也越来越受到学校老师的欢迎。本文首先介绍了管理信息系统的历史、发展、及未来发展趋势。然后介绍了ActiveX 数据对象ADO的功能特点，及编程模型和对象模型。在此基础上本文比较详细的

2、介绍学生评语管理系统的设计和制作。包括系统的功能设计和系统模块的设计，数据库设计等。关键词：管理信息系统; ADO; 评语管理系统Abstract: Alone with the computer and internet technology developing quickly, it is more popular to do with some things by computer in the school management.In this way,we can sawe the labour force and reduse labour costs，but also it i

3、s much safer than the old way. So various softs is popular by more and more theachers. This text recommend Management Information Systems history, development,and its future at first. Secondly introduced then management of Active Data Objects(ADO), its programming model and its object model. On the

4、basis of this, this text give publish one a piece of students personal remark system design and makeses. It included the systems design of function , systems design of module and systems design of date base and so on.Keywords: Management Information System; ADO; Students personal remark system 第一章 引

5、言 学生的操行评语是学生一个学期以来各方面表现的总结,对学生总结过去，确定今后的努力方向起着很重要的作用。因此一个个性化、智能化的学生评语编辑软件是很必要的。它不但可以减轻办主任的工作负担，迅速的写出评语，还可以方便的管理学生历年的评语，能对学生的发展方向了解得比较透彻。用评语系统与以前传统的纸笔写评语相比，有多方面的优势。首先，用计算机不但可以提高工作效率，而且还节省了许多人力物力；其二，提高了信息的安全性，避免了因文件的丢失而导致信息无法查询。第三，在各大中小学校，可以说计算机的拥有率在不断提高，用此系统提高了学校的硬件资源利用率。目前，计算机在生活中是无处不在，用计算机来处理学生的评语是

6、可以预见的。本文意在说明用Microsoft visual basic6.0开发技术如何进行对学生评语系统的开发。第二章 VB语言概述 2.1 VB简介 VB是微软公司出品的一个快速可视化程序开发工具软件，借助微软在操作系统和办公软件的垄断地位，VB在短短的几年内风靡全球。VB是极有和功能强大的软件，主要表现在：所见即所得的界面设计，基于对象的设计方法，极短的软件开发周期，较易维护的生成代码。 美国微软公司在1991年推出VB1.0至今已经经历了6个版本，VB6.0运行在win9x或winme，win2000，winxp，windowsNT等操作系统下，是一个32位的应用程序开发工具。2.2

7、VB语言的基本特点及VB应用程序的基本持点 VB程序语言具有许多优秀的特性,用其设计应用程序时有两个基本特点:可视化设计和事件驱动编程.221可视化设计 同其他的一些可视化程序开发工具一样,VB具有可视化设计的特点,微软的Word在刚刚进入市场时,同WPS竞争的一个重要的功能砝码就是所见即所得的字处理功能,VB在设计应用程序界面时也可以说是所见即所得.在设计时,头脑中所想象的应用程序界面,完全可以通过键盘鼠标以及徒手画出来,而不是编制大量的代码然后再编译生成,如果需要修改,也是利用键盘鼠标和手画,而底层的一些程序代码由VB自动生成或修改。 VB为用户提供大量的界面元素(在VB中称为控件对象),

8、这些控件对象对于熟悉Windows应用程序的用户而言是一点也不陌生,如窗体、菜单、命令按钮、工具按钮、检查框等等,用户只需要利用鼠标、键盘把这些控件对象拖动到适当的位置,设置它们的大小、形状、属性等,就可以设计出所需的应用程序界面。222事件驱动编程 Windows操作系统出现以来,图形化的用户界面和多任务多进程的应用程序要求程序设计不能是单一性的,在使用VB设计应用程序时,必须首先确定应用程序如何同用户进行交互.例如发生鼠标单击、键盘输入等事件时,由用户编写的代码控制这些事件的响应,这就是所谓的事件驱动编程。 前面已经谈到,在VB中把窗体以及菜单、按钮等控件称为对象,如果设计出了应用程序,那

9、么与应用程序的用户直接进行交互的就是这些对象组成的图形界面,也称为用户接口或用户界面,在设计应用程序时就必须考虑到用户如何与程序进行交户.更进一步,甚至程序和程序之间也会有通讯和交户,基本上用户是通过鼠标、键盘与应用程序进行交互的,这时那些对象就必须对鼠标和键盘操作所引发的事件做出响应.响应就是指执行一段应用程序,它不沿预定的路径执行,而是在响应不同事件时执行不同的代码.因此,应用程序代码的路径在每次响应而执行时可能都是不形同的。 2.3 为何选择VB作为开发语言 除了VB之外,当前能够编制Windows应用程序的可视化编程工具还有很多,所针对的编程领域也各有侧重,就微软系列的可视化开发工具而

10、言,就有VB,VisualC+,VisualJ+,Visual Foxpro等,其中Visual Foxpro是针对数据库编程的开发工具;Visual C+是为专业程序设计员提供的开发工具,变量声明和定义严密,功能强大灵活,必须经过相当的努力才能掌握;而VB不支持虚类、多态性和类的继承,相对而言VB简单易学,变量定义不太严密,对于非专业程序员而言功能足够强大,同Visual C+一样也支持网络编程和数据库编程。 除了微软之外,其他公司也在为Windows操作系统平台制作应用程序开发工具,例如前Borland的公司出品的Delphi,C+Bulider, J+Bulider等,其他一些公司出品的

11、针对数据库编程的PowerBulider, PowerDesigner等,不可否认,这些产品相当出色,如果能够熟练掌握将是编程者能力的体现,但是必须承认,对Windows操作系统最熟悉的还是微软,而且微软本身Windows操作系统的源代码采取不公开的策略,使得其他公司出品的产品在实现相同功能时多少都要走些弯路,用户在使用这些产品设计应用程序时,程序的效率将会受到影响。 在选择所需要的应用程序开发工具时,不但要考虑开发工具的功能是否强大,还要考虑所花费的时间和效果,单纯地追求功能的强大,也许会事倍功半。 中央电大陈明主编的Visual Basic程序设计是计算机应用专业采用的一本难得的教材,使我

12、受益匪浅。通过这门课程的学习，我已能用VB编写简单的程序，为了搞好这次毕业设计，我决定使用VB作为编程语言。 2.4、VB6.0应用的基本开发方法 241交互式开发 传统的应用程序开发过程可以分为三个明显的步骤:编码、编译和测试。但是VB与传统的语言不同,它使用交互式方法开发应用程序,使三个步骤之间不再有明显的界限。 在大多数语言里,如果编写代码时发生了错误,则在开始编译应用程序时该错误就会被编译器捕获。此时必须查找并改正该错误,然后再次进行编译,对每一个发现的错误都要重复这样的过程。VB在编程者输入代码时便进行解释,即时捕获并突出显示大多数语法或拼写错误。看起来就像一位专家在监视代码的输入。

13、 除即时捕获错误以外,VB也在输入代码时部分地编译该代码。当准备运行和测试应用程序时,只需极短时间即可完成编译。如果编译器发现了错误、则将错误突出显示于代码中。这时可以更正错误并继续编译、而不需从头开始。 由于VB的交互特性,因此在开发应用程序时,系统频繁地运行着应用程序。通过这种方式,代码运行的效果可以在开发时进行测试,而不必等到编译完成以后。242事件驱动应用程序的工作方式 事件是窗体或控件对象识别的动作。在响应事件时，事件驱动应用程序执行VB代码。VB的每一个窗体和控件对象都有一个预定义的事件集。如果其中有一个事件发生，并且在关联的事件过程中存在代码，则VB就会调用该代码。 尽管VB中的

14、对象自动识别预定义的事件集，但要判定它们是否响应具体事件以及如何响应具体事件则是编程的工作了。代码部分（即事件过程）与每个事件对应。如果让控件对象响应事件，就把代码写入这个事件过程之中。 对象所识别的事件类型多种多样，但多数事件类型是大多数控件所共有的。例如，大多数对象都能识别click事件，如果单击窗体，则执行窗体的单击事件过程中的代码；如果单击命令按钮，则执行命令按钮的click事件过程中的代码。每种情况中的实际代码几乎完全不一样。 以下是事件驱动应用程序中的典型事件序列： 启动应用程序，装载和显示窗体。 窗体（或窗体上的控件）接收事件。事件可由用户引发（例如键盘操作或数鼠标点击）、可由系

15、统引发（例如定时器事件），也可由代码间接引发（例如当代码装载窗体时的load事件）。 如果在相应的事件过程中存在代码，就执行代码。 应用程序等待下一次事件。许多事件伴随其它事件发生。例如，在Dblclick事件发生时，MouseDown,Mouseup和click事件也会发生。 243创建VB应用程序的三个步骤创建应用程序界面设置属性编写代码 244 VB的程序设计是面向对象的可视化程序设计其方法是在窗体上放置可视化的对象然后对它们设置属性、触发事件和执行方法进行程序设计。对象放置完毕后用户所见到的只是一个空壳，就像一台没有装任何软件的计算机，必须给它赋予程序，才能完成一定的功能。 VB程序贮

16、存在模块中，模块分有窗体、类和标准模块三种类型。每个模块包含有声明和过程。窗体模块包含处理事件过程、通用过程及变量、常数等窗体级说明；标准模块应用程序内其他模块访问的过程和声明的容器；类模块中包含了建立新对象的程序。 245窗体与基本输入、输出 在进行VB程序设计中，设计者并不需要自己编制VB程序代码来生成图形界面。VB提供了大量现成的图形控件和其他一些控件，例如所熟悉的菜单、命令按钮、对话框等，供给用户“堆砌”起来构造自己想象中的图形界面，因此几乎不用书写什么程序代码，“画”上几笔就可完成程序员的构思，获得应用程序的图形界面。 VB应用程序图形界面的设计首先要从窗体开始，其他的一些控件基本上

17、归属于窗体控件（很多是直接“画”在窗体上的），通常应把窗体定义成一个构成应用程序可见部分的窗口，而一个VB的应用程序应首先从设计窗体开始。 VB应用程序设计过程中重要考虑的问题是应用程序与用户的交互，而窗体可以实现将输出信息提供给用户。 246常用控件：在窗体上用于输入、输出信息的图形或文字符号称为控件。为了方便用户开发应用程序，VB中提供了很多的控件，其中很多控件是windows本身的资源，如命令按钮、标签、文本框等，也有一些是为了增强用户界面，或是使用户界面美观实用而编制的ActiveX控件。 了解了以上有关VB的基础知识，我们现在就可以开始着手运用VB进行程序设计了。第三章 评语管理系统

18、的设计与开发3.1 系统设计 系统开发的总统任务是实现学生信息关系的系统化、规范化和自动化。帮助减轻办主任的工作负担，迅速地写出评语。本系统要完成的功能有：3.1.1评语管理部分 将评语项目分类并进行评语维护。其中评语项目管理包括添加评语项目、删除评语项目等。评语项目分类部分将所有的评语分为印象、工作、课堂、纪律、作业、学习态度、学习方法、学习成绩、特长爱好、文体活动、劳动卫生，建议希望等。其中每一评语又分为成绩优秀、成绩优良、成绩较差等。评语维护包括在当前项目中添加新评语、修改当前评语、删除当前评语。3.1.2学生管理部分 包括学生基本信息管理及撰写学生评语两大部分。学生基本信息管理部分实现

19、添加学生、删除学生等功能。撰写学生评语部分实现添加学生新评语的功能，这一部分为系统的核心功能。3.1.3系统管理部分 包括修改系统用户密码、增加新用户以及退出系统等。3.2 系统模块设计 根据上面所介绍的主要功能，对这个系统进行分析，得到如图3-1所示的系统功能模块图。评语管理系统评语项目管理评语维护学生管理系统管理增加评语项目删除评语项目增加项目分类删除项目分类添加评语修改评语删除评语添加学生查找学生删除学生撰写评语删除评语增加用户删除用户 图3-1 系统功能模块图3.2.1评语项目管理评语项目管理部分实现增加评语项目，删除评语项目、增加项目分类、删除项目分类等功能。系统将所有的项目分类：（

20、1） 印象评语：包括思想性格、学习、体育、友爱、班务等分类。（2） 工作评语：包括工作态度、工作方法、工作效果等分类。（3） 课堂评语：包括课堂积极、课堂表现一般、课堂沉闷等分类。（4） 纪律评语：包括遵守纪律、记录一般、记录较差等分类。（5） 作业评语：包括作业工整、作业良好、作业应付等分类。（6） 学习态度评语：包括学习态度认真、学习态度较差等分类。（7） 学习方法评语：包括学习方法新颖、学习方法适当、学习方法有误等分类。（8） 学习成绩评语：包括学习成绩优秀、学习成绩优良、学习成绩中等、学习成绩较差等分类。(9) 特长爱好评语：包括文艺特长、体育特长、智育特长等分类 （10） 集体活动评

21、语：包括积极参与、表现良好、很不积极等分类。 （11） 劳动卫生评语：包括讲究卫生、热爱劳动、不讲卫生等分类。（12） 建议期望评语：包括勉励、同学之间、班务工作、言行纪律、学习态度、学习方法、学习成绩、体育、综合等分类。3.2.2 评语维护 评语维护部分实现向评语库中添加评语、修改评语、删除评语等功能。3.2.3学生管理 学生管理部分实现添加学生、删除学生、查找学生以及撰写学生评语等功能。学生信息包括学号、姓名、班级以及该生历年评语。3.2.3系统管理 系统管理部分实现添加新用户、修改密码、推出系统等功能。 此外，在系统设置中，输入密码与用户名不符3次将自动退出。 3.3 系统数据设计 各个

22、评语项目应该单独作为一个数据表而存在，每个数据表的字段设定为评语项目的分类。因此，系统数据库应该包括映象评语表、工作评语表、课堂评语表、纪律评语表、作业评语表、学习态度评语表、学习方法评语表、学习成绩评语表、特长爱好评语表、文体活动评语表、劳动卫生评语表、建议期望评语表。 学生信息包括学生基本信息和该生的历年评语。建立两个数据表保存这两组数据，分别为学生的操行数据表和学生管理数据表。此外，系统用户信息单独使用一个数据表保存。 对于工作评语表，字段名称应为工作态度、工作方法、工作效果。各个字段的相关设置如表3-1所示。表3-1 工作评语数据表字段名数据类型说明工作方法文本字段大小为255工作态度

23、文本字段大小为255工作效果文本字段大小为255对于集体活动评语数据表，字段名称因为参与、表现良好、很不积极。各个字段的相关设置如表3-2所示。表3-2 集体活动评语数据表字段名数据类型说明积极参与文本字段大小为255表现良好文本字段大小为255很不积极文本字段大小为255 对于纪律评语数据表，字段名称应为遵守纪律、纪律一般、纪律较差。各个字段的相关设置如表3-3所示。表3-3 纪律评语数据表字段名数据类型说明遵守纪律文本字段大小为255纪律一般文本字段大小为255纪律较差文本字段大小为255 对于建议期望评语表，字段名称应该为勉励、同学之间、班务工作、言行纪律、学习态度、学习方法、学习成绩、

24、体育、综合。各个字段的相关设置如表3-4所示。表3-4 建议期望评语数据表字段名数据类型说明勉励文本字段大小为255同学之间文本字段大小为255班务工作文本字段大小为255学习方法文本字段大小为255学习成绩文本字段大小为255体育文本字段大小为255综合文本字段大小为255 对于课堂评语数据表，字段名称应为课堂积极、课堂一般、课堂沉闷。各个字段的相关设置如表3-5所示。表3-5 课堂评语数据表字段名数据类型说明课堂积极文本字段大小为255课堂一般文本字段大小为255课堂沉闷文本字段大小为255 对于特长爱好评语数据表，字段名称应为文艺特长、体育特长、智育特长。各个字段的相关设置如表3-6所示

25、。表3-6 特长爱好评语数据表字段名数据类型说明文艺特长文本字段大小为255体育特长文本字段大小为255智育特长文本字段大小为255 对于劳动卫生评语数据表，字段名称应为讲究卫生、热爱劳动、不讲卫生。各个字段的相关设置如表3-7所示。表3-7 劳动卫生评语数据表字段名数据类型说明讲究卫生文本字段大小为255热爱劳动文本字段大小为255不讲卫生文本字段大小为255对于学习成绩评语数据表，字段名称应为成绩优秀，成绩优良，成绩中等、成绩较差。各个字段的相关设置如表3-8所示。表3-8 学习成绩评语数据表字段名数据类型说明成绩优秀 文本字段大小为255成绩优良 文本字段大小为255成绩中等 文本字段大

26、小为255成绩较差 文本字段大小为255 对于学习方法评语数据表，字段名称应为学习方法新颖、学习方法适当、学习方法有误。各个字段的相关设置如表3-9所示。表3-9 学习方法评语数据表字段名数据类型说明字段名数据类型说明方法新颖文本字段大小为255方法适当文本字段大小为255方法有误文本字段大小为255对于学习态度评语数据表，字段名称应为态度认真、态度一般、态度较差。各个字段的相关设置如表3-10所示。表3-10 学习方法评语数据表字段名数据类型说明态度认真文本字段大小为255态度一般文本字段大小为255态度较差文本字段大小为255对于印象评语数据表，字段名称应为外貌、思想、性格、学习、体育、友

27、爱、班务。各个字段的相关设置如表3-11所示。表3-11 学习方法评语数据表字段名数据类型说明外贸文本字段大小为255思想文本字段大小为255性格文本字段大小为255学习文本字段大小为255体育文本字段大小为255友爱文本字段大小为255班务文本字段大小为255对于作业评语数据表，字段名称应为作业工整、作业良好、作业应付。各个字段的相关设置如表3-12所示。表3-12 作业评语数据表字段名数据类型说明作业工整文本字段大小为255作业良好文本字段大小为255作业应付文本字段大小为255对于学生管理数据表，字段名称应为学号、姓名、班级。各个字段的相关设置如表3-13所示。表3-13 学生管理数据表

28、字段名数据类型说明学号文本必添字段，不允许为空姓名文本必添字段，字段大小为6班级文本必添字段，字段大小为10对于学生操行数据表，字段名称应为学号、学期、评语、评语时间、评语人。各个字段的相关设置如表3-13所示。表3-14 学生操行数据表字段名数据类型说明学号文本必添字段，不允许为空学期数字无字段名数据类型说明评语备注无评语时间时间/日期无评语人文本字段大小为20 对于系统管理数据表，字段名称应为用户名和密码。各个字段的相关设置如表3-15所示。表3-15 系统管理数据表字段名数据类型说明用户名文本必添字段，不允许为空密码文本字段大小为203.4 主窗体设计3.4.1 建立主窗体 构成此系统的

29、窗体不多，大部分的评语管理及评语的撰写工作都在主窗体中完成。 首先用打开Visual Basic 6.0系统自动建立一个Form窗体来建立系统的主窗体。各个属性的设置如表3-16所示。表3-16 系统主窗体属性窗体属性取值NameMainformCaption评语管理系统StartUpPosition2-CenterScreenWindowState2-Maximized3.4.2 添加菜单 使用简单编辑器编辑系统主菜单，菜单的Caption和Name属性如表3-17所示。表3-17 菜单属性设置 CaptionName系统管理Sysman修改密码Changepwd添加用户Addstupy退出

30、系统Exitsys评语项目管理Pymanage添加评语项目Addnewpyxm删除评语项目Modifypyxm增加分类项目Addxzfl删除项目分类Delxmfl评语维护Weihupy添加评语Addpy修改评语Xgpy删除评语Delpy学生管理Studentman查找学生Findstudent添加学生Addstudent删除学生DelstudentCaptionName 添加新评语Addstupy帮助Help关于About使用守则Userifo3.4.3 添加控件 该窗体包括6个Frame、1个ComboBox、2个Listbox控件、15个CommandButton控件、9个Label控件、

31、2个Text控件、1个SSTab控件和1个Treeview控件。在这里我就介绍一下Treeview控件。这是一个AcitveX控件。ActiveX是一种比较新的技术，它源于Microsoft公司，并得到Microsoft系列开发工具的有力支持和大多数第三方软件开发商的认可。同时，由于它能够提供对客户机资源的完全访问，因此在很多场合，AcitveX都具有很强的吸引力。 在VB中，AcitivX模型包括几种不同的技术：AcitivX EXE工程、AcitivX DLL工程、AcitivX控件工程和AcitivX文档工程。其中AcitivX控件是由软件开发商提供的可重用的组件。Treeview便是其

32、中之一。它用来显示节点（node）对象的分成列表，一般用于显示文档标题、索引入口、磁盘上的文件和目录或能被有效地分层显示地其他种类地信息。 图3-2 系统主窗体将所有的控件添加完毕后，最后得到的效果图如3-2所示。3.4.4 添加代码 在编写代码之前，应该先引用“Microsoft AcitveX Data Objects 2.5 library”项。同时使用Connection对象打开数据库。因此，在添加一个“Module1(Module.bas)”,并在其中定义一个Connection对象，代码如下： Option ExplicitPublic conn As New ADODB.Conn

33、ection 标记连接对象 在窗体装载的事件中，首先打开学生管理数据表，将所有的学生在List1控件中显示出来。定义一个字符串变量sql，用来标记SQL语句： Private sub Form_load() Dim sql As String 在程序的通用变量申明部分定义一个Recordset对象用来打开数据表： Option Explicit Dim rsl as New ADODB.Recordset 在Form_Load事件中打开数据表，使用Recordset对象的open方法： Private Sub Form_Load() Dim sql As String rs1.CursorLo

34、cation=adUseClient sql=”select * from 学生管理 order by 学号” 打开学生管理数据表，在列表框中显示所有的学生 rs1.Open sql,conn,adOpenKeyset,adLockPessimistic 这里选择了在List1控件中显示学生姓名和学号，中间用空格隔开。空格的数目可根据添加控件时“姓名”和“学号”这两个Label控件的位置而定，最好做到这两个控件和List1控件中的学生姓名和学号相对应。 在操行评语列表框中添加可选项，分别为“优”、“良”、“中”、“差”：Private Sub Form_Load() Combo1.AddIte

35、m 优Combo1.AddItem 良Combo1.AddItem 中Combo1.AddItem 差如果要在程序运行中创建数库和表，还要引用对象库“Microsoft ADO Ext2.1 For DDL Security”,简称为ADOX,其库文件名是Msadox.dll。ADOX是对ADO对象和编程模型的扩展，它将ADO扩展为包括创建、修改和删除模式对象。添加对ADOX的引用。在程序的通用变量声明部分，定义一个Catlog对象、一个Table对象：Option ExplicitDim rs1 As New ADODB.RecordsetDim cat As New adox.Catalo

36、gDim tbl As New adox.table 使用ADOX,应该先设置Catlog对象的ActiveConnecion属性：Private Sub Form_Load()Combol.AddItem”差”Set cat.ActiveConnecion=conn遍历数据表中所有的表，可以使用Catlog对象的Tables集合：Privat Sub Form_Load()Set cat.ActiveConnection=connFor Each tbl in cat.Tables Next获取数据表的名字，判断当前的数据表是否为评语项目表，方法是获取数据表名称最后两个字。如果这两个字是“批

37、语”，则表示此数据表为评语项目表，代码如下：Private Sub Form_Load()For Each tb1 In cat.Tables Str=tbl.name If right(str,2)=”评语” then end IfNext使用Treeview控件的Nodes集合的Add方法添加节点。在Form_Load事件中添加Treeview节点。表名称作为父节点，表中的字段名作为子节点。代码如下：Private Sub Form_Load()If Right(str, 2) = 评语 Then Set mnode = TreeView1.Nodes.Add() mnode.Text =

38、 str Dim i As Integer Dim nodeindex As Integer nodeindex = mnode.Index For i = 0 To tbl.Columns.Count - 1 Set mnode = TreeView1.Nodes.Add(nodeindex, tvwChild) mnode.Text = tbl.Columns.Item(i).Name Next End IfNext添加异常处理语句“Dim connectionstring As StringDim sql As StringOn Error GoTo openerroropenerror

39、: MsgBox Err.DescriptionEnd Sub单击学生列表框，显示学生信息及该生历年评语。下面实现这一功能。当用户单击某一学生时，使用List控件的ListIndex属性获取当前学生在列表框中的位置，在list1_click事件中添加代码：Privat Sub List1_Click()i=Clng(List.ListIndex)End Sub先将Recordset数据对象移动到第一条，然后使用Move方法将数据对象移动到用户选定的学生。Privat Sub List1_Click()rs.MoveFirsti=Clng(list.listindex)rs1.Move iEnd

40、 Sub添加displaystudent过程来显示学生信息。在displaystudent过程中打开学生操行数据表，代码如下：Public Sub displaypy()Dim rs As New ADODB.RecordsetDim sql As StringOn Error GoTo displaypyerrorrs.CursorLocation = adUseClientsql = select * from 学生操行 where 学号= & ID_num & & order by 学期rs.Open sql, conn, adOpenKeyset, adLockPessimistic利

41、用Recordset对象的EOF属性判断是否有当前学生的评语，如果有，则将记录移动到第一条，如果没有，则给出提示。Public Sub displaypy()rs.Open sql, conn, adOpenKeyset, adLockPessimisticIf rs.EOF = False Then rs.MoveFirstElse MsgBox 该生没有评语！, vbOKOnly + vbExclamation, Exit SubEnd If使用循环语句将该生的所有评语添加到Text1控件中。Public Sub displaypy()End IfWhile rs.EOF = False

42、Text1(0).Text = Text1(0).Text & vbCrLf & 第 & rs.Fields(1) & 学期 & vbCrLf & Space(2) & _ rs.Fields(2) & vbCrLf & Space(10) & rs.Fields(3) & Space(2) & rs.Fields(4) rs.MoveNextWend对于“添加评语”、“修改评语”、“删除评语”、“添加到学生评语”等按钮，代码如下：Private Sub Command10_Click()If selstu = True Then 添加评语Command1.Enabled = TrueCommand2.Enabled = TrueCommand7.Enabled = TrueCommand8.Enabled = TrueCommand14.Enabled = TrueCombo1.Enabled = TrueSSTa