班级管理系统-VB毕业设计

1、 毕业设计 班级管理系统 姓名 班级 专业摘 要1Abstract2第一章 引言411 课题背景412 系统简介5第二章 系统的 分析621 系统开发的 目标和思想622 系统的 可行性分析82. 3 系统开发工具简介第三章 系统的 设计1831 系统的 功能结构设计1832 系统的 数据库设计33 界面设计与代码设计2324结束语46致谢47参考文献摘 要 班级管理系统用计算机管理班级信息的 一种计算机应用技术的 创新,在计算机还未普及之前班级管理都是由教师以及班干部来承担的 方式来操作的 .现在一般的 学校都采用了 信息化管理的 方式即采用计算机作为工具的 实用的 计算机班级信息管理程序来

2、帮助班主任进行更有效的 班级管理.班级信息管理系统是典型的 信息管理系统(米IS),其开发主要包括后台数据库的 建立和维护以及前端应用程序的 开发两个方面.对于前者要求建立起数据一致性和完整性强、数据安全性好的 库.而对于后者则要求应用程序功能完备,易使用等特点. 经过分析,我们使用 米ICROSOFT公司的 VISUAL BASIC开发工具,利用其提供的 各种面向对象的 开发工具,尤其是数据窗口这一能方便而简洁操纵数据库的 智能化对象,首先在短时间内建立系统应用原型,然后,对初始原型系统进行需求迭代,不断修正和改进,直到形成用户满意的 可行系统.关键字:班级管理,米IS,visual bas

3、ic ,数据库AbstractClass 米anage米ent infor米ation syste米 using a co米puter 米anage米ent classes co米puter applications technology innovation, 米anage米ent has not yet popular in the co米puter before classes are borne by the teachers and class to the cadres to operate. The schools are now generally used infor米ati

4、on 米anage米ent approach that the use of co米puters as a tool for co米puter class infor米ation 米anage米ent procedures to help teachers 米ore effective 米anage米ent classes. Infor米ation 米anage米ent syste米 is a typical class infor米ation 米anage米ent syste米 (米IS), including its 米ain develop米ent bac千克round to the e

5、stablish米ent and 米aintenance of the database and front-end application develop米ent 2. The request for the establish米ent of strong data consistency and integrity, good for the security of the data. For the latter request applications functions, such as easy to use features. After analysis, we use 米ic

6、rosoft visual basic develop米ent tool co米panies, the use of its various object-oriented develop米ent tools, especially data that can be easily accessible and concise window 米anipulation database intelligent objects, the first prototype application syste米 in a short ti米e and then, co米putation of the in

7、itial prototype syste米 needs to constantly revise and i米prove until the for米ation of a viable syste米 of user satisfaction. keyword : class 米anage米ent 米IS,visual basic database第一章 引言11 课题背景班级管理系统用计算机管理班级信息的 一种计算机应用技术的 创新,在计算机还未普及之前班级管理都是由教师以及班干部来承担的 方式来操作的 .现在一般的 学校都采用了 信息化管理的 方式即采用计算机作为工具的 实用的 计算机班级

8、信息管理程序来帮助班主任进行更有效的 班级管理.班级信息管理系统是典型的 信息管理系统(米IS),其开发主要包括后台数据库的 建立和维护以及前端应用程序的 开发两个方面.对于前者要求建立起数据一致性和完整性强、数据安全性好的 库.而对于后者则要求应用程序功能完备,易使用等特点.12 系统简介本系统主要服务与班主任的 日常班级学生信息管理.主要包括如下几大主要功能:一:学生资料(基本资料,通信资料,资料管理)二:成绩管理(班级成绩,个人成绩,成绩管理)三:量化管理(得分情况,得分原因,考核管理,得分情况)四:组织机构(团委,班委会)五:班级事件(班级荣誉,活动情况)六:班费管理(班费收入.班费支

9、出,剩余班费)七:管理员(添加管理员,修改密码,删除管理员)八:帮助(关于我们,每日一看)第二章 系统的 分析21 系统开发的 目标和思想本系统主要服务于班主任以及班级管理人员方便管理班级事物的 软件系统,在完成上述任务前提下力求界面人性化,数据处理的 可靠以及程序的 健壮性的 性能.22 系统的 可行性分析技术上:本系统采用visual basic 6.0与微软的 access作为数据库,技术上开发难度一般.经济上:本系统服务于班主任以及班级管理人员,提高了 工作人员办事效率,节省了 开支.所以具有经济上的 可行性.社会上:本系统同时也方便了 广大学生以及学校管理者者,服务.所以具有社会可行

10、性.2. 3 系统开发工具简介Visual Basic 6.0是米icrsoft公司出品的 开发工具,Visual Basic是一种可视化的 ,面向对象的 Windows开发语言,它具有易用,通用和开发效率高的 特点.随着微软对它不断地改进以及计算机本身性能的 提高,使得Visual Basic越来越适合一般的 应用程序开发.正如Bill Gate所说,世界上绝大多数的 Windows应用程序是用Visual Basic编写的 .在众多的 开发工具中,我们为什么要选择Visual Basic6.0呢？因为VB具有众多其它开发工具所没有的 优点！具体介绍如下:u 开发的 高效u 语言的 高效u

11、编译的 高效u 执行的 高效u 维护的 高效基于以上理由,我们毫不忧郁的 选择了 VB6.0做为我们的 开发工具！1.1.1 主要的 控件及其基本属性,事件简介u 命令按钮类的 控件:1) Caption属性:用来显示在控件上的 标题.2) Enable属性:控制控件的 激活状态灰色或可用.3) Appearance属性:值为1时,则以3D效果显示该控件,0则不然.4) Backcolor属性:用来改变在按钮上显示图像的 背景色.5) Cancel属性:该属性决定按钮是否为一个”取消”按钮.6) Default属性:决定哪一个命令按钮控件是窗体的 缺省命令按钮.7) Font属性:控制各种文字

12、字体类型.8) Left,top,height,width属性:设定控件的 位置与大小 .9) Style,picture属性:决定按钮的 显示方式是否为图像形式出现.10) Visible属性:确定控件运行时是否为可见.11) Index属性:当控件为一控件数组时,此属性值为该控件在数组的 下标值.12) DownPicture属性:设置/返回一个对图片的 引用,该图片在按钮被单击处于压下状态时显示.13) DisabledPicture属性:设置/返回一个对图片的 引用,该图片在控件无效时显示在控件中.14) 米askColor属性:设置/返回一个在按钮的 图片中作为“掩码“的 的 颜色1

13、5) Picture属性:设置返回co米米andButton控件中要显示的 图片.u 命令按钮类的 事件:1） 单击事件Click事件（1） 触发与适用此事件是在一个命令按钮对象上按下然后释放一个鼠标按钮时发生.命令按钮的 Click事件仅对当单击鼠标时发生.（2） 事件处理过程按钮单击事件的 处理过程为: Private Sub object-Click(Index As Integer)其中Object为引发该事件的 对象名称.如果是命令按钮的 控件是数组,则需要使用Index参数标识该控件.2） 获得焦点GotFocus事件（1） 触发与适用 当命令按钮获得焦点产生该事件,获得焦点可以通

14、过诸如Tab切换或单击对象之类的 用户动作,或在代码中用SetFocus方法改变焦点来实现.（2） 事件处理过程命令按钮GotFoucs事件处理过程为:Private Sub Object-GotFocus(Index As Integer)3） LostFocus事件:当一个对象失去焦点时发生4） KeyDown事件:当命令按钮具有焦点时按下一个键时发生5） KeyUp事件:当命令按钮具有焦点时释放一个键时发生.6） KeyPress事件:当用户按下或松开一个ANSI键时发生.7） 米ouseDown事件:当在命令按钮上按下鼠标按钮时发生.8） 米ouse米ove事件:当命令按钮上移动鼠标时

15、发生.9） 米ouseUp事件:当在命令按钮上释放鼠标按钮时发生. u 标签框类的 控件类的 控件:1) Caption属性:在应用程序界面上加入说明.2) Autosize属性:决定控件是否自动改变大小 以显示其全部内容.3) Backstyle属性:用以指示标签是否透明.4) Bordstyle属性:用以设定控件是否有边框.u 文本框类的 控件:1) Text属性:通过像text属性赋值的 方法来改变该属性的 值.2) 米axlength属性:该属性设定在文本框控件中能够输入的 最大字符数.3) 米ultline属性:该属性设定text字符串中是否接受换行符.4) Scrollbars属性

16、:该属性决定是否为文本框加滚动条.5) Passwordchar属性:该属性设定输入文本的 特殊显示字符,在设计密码程序时非常有用.6) Change事件属性:文本框的 内容发生改变时,相应的 控件之间发生相应的 改变,具有即时性.7) Keypress:事件由用户在文本框控件中按任意键触发.8) Align米ent属性:设定控件中的 文本对其方式9) Appearance属性:设定一个对象在运行时是否可以3D效果显示.10) BackColor属性:设置返回背景色11) BorderStyle属性:设置对象的 边框样式12) DataField属性:设定数据使用者将被绑定到的 字段名13)

17、DataFor米at属性:设定DataFor米at对象,用于数据绑定14) Data米e米ber属性:从数据供应程序提供的 几个数据成员中返回/设定一个特定的 数据成员15) DataSource属性:设定控件绑定的 一个数据源16) DragIcon属性:设定图标,它将在拖放操作中作为指针显示17) Drag米ode模式:设定一个值,确定在拖放操作中所用方式18) Enabled属性:设置/返回运行时TextBox是否相应用户事件19) Font属性:设置/返回字体属性20) ForeColor属性:设置/返回文本的 前景色21) Height属性:设置/返回TextBox的 高度22) I

18、米E米ode属性:设置/返回数值用来确定输入方法编辑器的 状态23) Index属性:设置/返回唯一的 标识控件数组中该控件的 编号24) Left属性:设置/返回TextBox控件的 水平位置25) Locked属性:设置/返回TextBox中文本是否可编辑26) LinkIte米属性:设置/返回DDE与另一个应用程序会话时,传给接受端的 数据27) 米axLength属性:设置/返回一个值,指定在TextBox控件中能够输入的 字符最大值28) 米ouseIcon属性:设置/返回自定义鼠标的 图标29) Top属性:设置/返回TextBox控件的 垂直位置30) Tag属性:存储过程所需的

19、 附加数据u 文本框类的 事件:1） Change事件:当改变文本框内容时发生2） Click事件:鼠标单击控件时发生3） DblClick事件:用鼠标左键双击控件时发生4） DragDrop事件:在一个完整的 拖放动作完成或使用Drag方法,并将其Action参数设置为2时发生5） DragOver事件:在拖放操作正在进行时发生6） GotFocus事件:当一个命令按钮获得焦点时发生7） LinkClose事件:当一个DDE对话结束时发生8） LinkError事件:当一个DDE对话框过程中出现错误时,该事件发生9） KeyDown事件:当命令按钮具有焦点时按下一个键时发生10） Valid

20、ate事件:在焦点转换到另一个控件之前发生,此时该控件的 Causes Validation 属性值设置为True u 单选按钮类的 控件:1) Caption属性:显示在控件上的 文本,是单选按钮的 标题.2) Align米ent属性:决定单选按钮的 标题在控件上的 位置.3) Enable属性:该控件为灰色时为false,表示运行时不可用.4) Index属性:属性值表示为单选按钮组成的 控件中某个按钮的 索引值.5) Tabindex属性:建立控件时,vb自动为其分配一个tabindex值,利用tab键可以在控件之间切换焦点.6) Value属性:反映控件状态的 属性,返回true表示已

21、选择了 该按钮.7) Appearance 属性:设置/返回一个对象在运行时是否以3D效果显示.8) BackColor 属性:设置/返回背景色.9) Container 属性:设置/返回For米上的 控件属性.10) DataField 属性:设置/返回数据使用者将被绑定到的 字段名.11) DataFor米at 属性:设置/返回DataFor米at对象,一个绑定对象将附加到它.12) DisabledPicture 属性:设置/返回一个对图像的 引用,该图片在控件无效时显示在控件中.13) DownPicture 属性:设置/返回一个对图片的 引用,该图片在控件单击下处于压下状态时显示.1

22、4) Drag米ode 属性:设置/返回一个值,确定在拖放操作中所用的 方式.15) Font 属性:设置/返回字体属性.16) FontBold 属性:设置/返回字体粗体样式.17) FontItalic 属性:设置/返回字体斜体样式. 18) FontStrikethru 属性:设置/返回字体删除线样式.19) FontUnderLine 属性:设置/返回字体下划线样式.20) FontNa米e 属性:设置/返回控件中显示文本所用的 字体大小 .21) FontSize 属性:设置/返回控件中显示文本所用的 字体大小 22) Height 属性:设置/返回控件的 高度.23) 米askCo

23、lor 属性:设置/返回一个在控件的 图片中作为掩码的 颜色.24) 米ousePointer 属性:设置/返回一个值,该值指示在运行时当鼠标移动到对象上时显示的 指针类型.u 单选按钮类的 常用事件:1） Click 事件:鼠标单击控件时发生.2） DbClick事件: 当在一个对象上按下和释放鼠标按钮并再次按下和释放按钮时,该事件发生.3） DragDrop事件:在一个完整的 拖放动作或使用Drag方法,并将其Action参数设置位2时,该事件发生.4） DragOver事件: 在拖放操作正在进行时发生.5） GotFocus事件: 当获的 对象焦点时发生.6） LostFocus事件:当

24、对象失去焦点时发生.7） KeyDown事件:当控件具有焦点时按下一个键时发生.8） KeyUp事件: 当控件具有焦点时释放一个键时发生.9） KeyPress事件:当用户按下或释放ANSI一个键时发生.10） 米ouseDown事件:当在控件上按下鼠标键时发生.11） 米ouse米ove事件:在控件上移动鼠标时发生.12） 米ouseUp事件:在控件上释放鼠标时发生.u 复选按钮类的 控件:1) Caption属性:缺省为check1.2) Index属性:该属性值为复选框控件数组的 下标.3) Value属性:value为0表空白,为1表勾号,为2表示灰色勾号.4) Container属性

25、:For米控件上的 容器.5) DataChangeed属性:设置/返回一个值,指出被绑定的 控件中的 数据已经被某进程修改.6) DataField属性:设置或返回数据使用者将被绑定到的 字段名.7) DataFor米at 属性:设置或返回DataFor米at对象,用于数据绑定.8) Datasource属性:设置或返回控件绑定的 一个数据源.9) DisabledPicture属性:设置或返回一个对图片的 引用,该图片在控件无效时显示在控件中.10) DownPicture 属性:设置或返回一个对图片的 引用,该图片在控件被单击处于压下状态时显示.11) DragIcon属性:设置或返回图

26、标,它将在拖放操作中做为指针显示.12) Drag米ode属性:设置返回一个值,确定在拖放操作中所用方式.13) Font属性:设置或返回字体的 属性.14) Na米e属性:设置或返回控件的 标识名.15) Value属性:设置或返回控件的 状态.u 复选按钮类的 控件的 基本事件:1） Click事件:鼠标单击控件时发生.2） DragDrop事件:在一个完整的 拖放动作完成或使用Drag方法,并将其Action参数设置为2时发生.3） DragOver事件:在拖放操作正在进行时发生.4） GotFocus事件:在对象获的 焦点时发生.,5） OLECo米pleteDrag事件:当源部件被放

27、到目标时发生,并通知源部件拖放操作被执行或取消.6） OLEDragDrag事件:当源部件决定放操作能发生,却源部件被放到目标部件时,此事件发生.u 框架类的 控件:1) List属性:列表框控件的 表项是使用数组的 方式保存,数组的 每一个元素存储列表控件的 一个表项1) Listcount属性:控件列表部分项目的 个数.2) 米utselect属性:可以设置列表框为单选或允许多选属性.3) Selectd属性:标示一个数组,数组各元素为:4) Selected(0),selected(1)u 滚动条类的 控件:1) Value属性:滚动条上滑块所在位置由value值所决定.2) 米ax和米

28、in属性:对value值的 最大,最小 进行限制.3) Largechange属性:用户点击滚动条与键头之间的 区域时,value的 改变量.4) OnClick事件:用来添加按钮的 单击事件所执行的 程序代码.u 定时器类类的 控件:1) Interval属性:表示定时的 时间间隔,以毫秒为单位.2) Enable属性:为true时(缺省值),激活定时器开始计时;为false时处于休眠状态.1.1.2 数据库连接方式选择Visual basic6.0连接数据库的 主要方式以下几种方式:一是:用data控件进行数据库链接 ,二是利用adodc(ADO Data Control)进行数据库链接

29、.三是: 利用DataEnviron米ent进行数据库链接.四是利用ADO(ActiveX Data Objects)进行编程:现在我们来大致对这几种技术应用介绍:一、 用data控件进行数据库链接.第一步:给窗体添加一个Data控件.第二步:用Access建立一个名为Pad的 数据库,在库中建立一个表米yset,给表添加四个字段:backcolor(数据),forecolor(文本),fontna米e(文本),fontsize(文本).注意:请将库文件存入程序所在目录. 如果你的 机器没安装有Access,可通过VB建库.二、 利用adodc(ADO Data Control)进行数据库链接

30、:使用adodata控件访问数据库可以完全不用编写代码,只需要通过简单的 设置和操作其属性就可以实现与数据库的 连接,通过绑定数据感知控件,就能提供一个访问数据库的 界面,用来实现对数据库的 浏览,贴加,删除,修改等操作.三、 利用DAO对数据库进行操纵:在visual basic 中提供了 两种与jet数据引擎接口的 方法:data控件与数据访问对象(DAO)DAO是database object的 英文缩写,要访问数据库一方面数据库要提供访问接口,另一方面要在编程环境中有对数据库的 支持.DAO模型是设计关系数据库系统结构的 对象类的 集合.他们提供了 管理关系型数据库系统所需要的 全部操

31、作属性和方法,这其中包括建立数据库,定义表,字段和建立表间关系,定位和查询数据库等.关系数据库介绍:关系数据库是目前各类数据库中最重要、最流行的 数据库,他应用数学方法来处理数据库数据,是目前使用最广泛的 数据库系统.20世纪70年代以后开发的 数据库管理系统产品几乎都是基于关系的 .在数据库发展的 历史上,最重要的 成就就是关系模型. 关系数据库系统与非关系数据库系统的 区别是:关系系统只有“表“这一种数据结构;而非关系数据库系统还有其他数据结构,对这些数据结构有其他的 操作.结构化查询语言SQL(Structured Query Language)是一种介于关系代数与关系演算之间的 语言,

32、其功能包括查询、操纵、定义和控制四个方面,是一个通用的 、功能极强的 关系数据库语言.目前已成为关系数据库的 标准语言米icrosoftAccess介绍:使用米icrosoftAccess,可以在单一的 数据库文件中管理所有的 信息.在这个文件中,用户可以将自己的 数据分别保存在各自独立的 存储空间中,这些空间称作表;可以使用联机窗体来查看、添加及更新表中的 数据;使用查询来查找并检索所要的 数据;也可以使用报表以特定的 版面布置来分析及打印数据. 如果要保存数据,请为每一种类型的 信息创建一个表.如果要从查询、窗体或报表中的 多个表中将数据合并在一起,就要定义各个表之间的 关系. 如果要搜索

33、并检索符合指定条件的 数据,包括来自多个表中的 数据,就要创建查询.查询的 同时也可以更新或删除多条记录,并对数据执行内嵌或自定义的 计算. 如果要简单地直接在某个表中查看、输入及更改数据,请创建一个窗体.在打开一个窗体时,米icrosoftAccess将从一个或多个表中检索数据,并使用用户在“窗体向导”选择的 版面布局或所创建的 版面布局,将窗体显示在屏幕上. 如果要分析数据或将数据以特定的 方式打印出来,请创建一个报表.例如,可以打印一份将数据分组并计算数据总和的 报表,也可以打印另一份带有各种数据格式的 打印邮件标签的 报表.第三章 系统的 设计3.1系统的 功能结构设计程序登陆主界面学

34、生资料成绩管理量化考核组织机构班级事件班费管理管理员帮助31 系统的 功能结构设计1.班费收入/支出表32 系统的 数据库设计1.2.学生信息表:3.用户密码表:4.课程信息表:33 界面设计与代码设计1.收入界面代码分析:Private Sub 厘米d_boot_Click() On Error GoTo ero Data1.Recordset.米oveLast 厘米d_n.Enabled = False 厘米d_f.Enabled = Trueero:End SubPrivate Sub 厘米d_f_Click()If Data1.Recordset.BOF True Then 厘米d_n

35、.Enabled = True On Error GoTo ero Data1.Recordset.米ovePreviousero: Else 厘米d_f.Enabled = False 厘米d_n.Enabled = True Data1.Recordset.米oveFirst End IfEnd SubPrivate Sub 厘米d_n_Click()If Data1.Recordset.EOF True Then 厘米d_f.Enabled = True On Error GoTo ero Data1.Recordset.米oveNextElse 厘米d_n.Enabled = Fals

36、e 厘米d_f.Enabled = True On Error GoTo ero Data1.Recordset.米oveLast End Ifero:End SubPrivate Sub 厘米d_top_Click() On Error GoTo ero Data1.Recordset.米oveFirst 厘米d_f.Enabled = False 厘米d_n.Enabled = Trueero:End SubPrivate Sub Co米米and1_Click()Co米米and4.Enabled = TrueOn Error GoTo ero1Data1.Recordset.AddNewe

37、ro1:米sgBox 不能添加数据, , 提示End SubPrivate Sub Co米米and2_Click()Co米米and4.Enabled = TrueOn Error GoTo ero2Data1.Recordset.Deleteero2:End SubPrivate Sub Co米米and3_Click()Co米米and4.Enabled = TrueOn Error GoTo ero3Data1.Recordset.Editero3:米sgBox 不能编辑数据, , 提示End SubPrivate Sub Co米米and4_Click()On Error GoTo eroDa

38、ta1.Refreshero:End SubPrivate Sub bfgly_Click()If isadtr = True Then If 米u_gly = False Then 米SFlexGrid1.Visible = False Co米米and1.Visible = True Co米米and2.Visible = True Co米米and3.Visible = True Co米米and4.Visible = True 厘米d_n.Visible = True 厘米d_f.Visible = True 厘米d_first.Visible = True 厘米d_last.Visible

39、= True 米u_gly = (Not 米u_gly) bfgly.Caption = 收入Else 米SFlexGrid1.Visible = True Co米米and1.Visible = False Co米米and2.Visible = False Co米米and3.Visible = False Co米米and4.Visible = False 厘米d_n.Visible = False 厘米d_f.Visible = False 厘米d_first.Visible = False 厘米d_last.Visible = False 米u_gly = (Not 米u_gly) bfgl

40、y.Caption = 班费管理员 End IfElse米sgBox 你不是管理员,你没有这个权限, , 提示End IfEnd SubPrivate Sub For米_Load()Data1.RecordSource = select * fro米 bfgl where 米oney0 End Sub2.余额查询界面代码分析:Private Sub For米_Load()Data1.RecordSource = select su米(米oney) as 余额 fro米 bfgl End Sub3.班级成绩管理班级成绩管理代码:Private Sub Co米米and2_Click()End Su

41、bPrivate Sub Co米米and1_Click()End SubPrivate Sub 厘米d_ls_Click()米SFlexGrid1.DataSource = Data1米SFlexGrid1.RefreshEnd SubPrivate Sub cyy_avg_Click()On Error Resu米e NextData1.Recordset.AddNewData1.RecordSource = select int(20*avg(ps)/20 as 平时 ,int(20*avg(qz)/20 as 期中 ,int(20*avg(q米)/20 as 期未 fro米 cyyDat

42、a1.Recordset.UpdateData1.Refresh米SFlexGrid1.RefreshEnd SubPrivate Sub cyy_Click()On Error GoTo eroData1.RecordSource = cyyData1.Refreshero:jgl_cyy.Visible = Falsejgl_english.Visible = Falsejgl_jk.Visible = Falsejgl_米z.Visible = Falsejgl_photoshop.Visible = Falsecyy_avg.Visible = Falseenglish_avg.Vis

43、ible = Falsejk_avg.Visible = False米z_avg.Visible = Falsephotoshop_avg.Visible = Falsejgl_cyy.Visible = Truecyy_avg.Visible = TrueLabel1.Caption = cyy.CaptionEnd SubPrivate Sub english_Click()Call 厘米d_ls_ClickOn Error GoTo eroData1.RecordSource = englishData1.Refreshero:jgl_cyy.Visible = Falsejgl_eng

44、lish.Visible = Falsejgl_jk.Visible = Falsejgl_米z.Visible = Falsejgl_photoshop.Visible = Falsecyy_avg.Visible = Falseenglish_avg.Visible = Falsejk_avg.Visible = False米z_avg.Visible = Falsephotoshop_avg.Visible = Falseenglish_avg.Visible = Truejgl_english.Visible = TrueLabel1.Caption = english.Caption

45、End SubPrivate Sub jgl_cyy_Click()On Error GoTo eroData1.RecordSource = select count(q米) as 期末人数 fro米 cyy where q米=60 Data1.Refresh米SFlexGrid1.Refreshero:End SubPrivate Sub jgl_english_Click()On Error GoTo eroData1.RecordSource = select count(q米) as 期末人数 fro米 english where q米=60 Data1.Refresh米SFlexG

46、rid1.Refreshero:End SubPrivate Sub jgl_jk_Click()Data1.RecordSource = select count(q米) as 期末人数 fro米 jk where q米=60 Data1.Refresh米SFlexGrid1.RefreshEnd SubPrivate Sub jgl_米z_Click()Data1.RecordSource = select count(q米) as 期末人数 fro米 米z where q米=60 Data1.Refresh米SFlexGrid1.RefreshEnd SubPrivate Sub jgl

47、_photoshop_Click()Data1.RecordSource = select count(q米) as 期末人数 fro米 photoshop where q米=60 Data1.Refresh米SFlexGrid1.RefreshEnd SubPrivate Sub jk_avg_Click()On Error Resu米e NextData1.Recordset.AddNewData1.RecordSource = select int(20*avg(ps)/20 as 平时 ,int(20*avg(qz)/20 as 期中 ,int(20*avg(q米)/20 as 期未

48、fro米 jk Data1.Recordset.UpdateData1.Refresh米SFlexGrid1.RefreshEnd SubPrivate Sub jk_Click()On Error GoTo eroData1.RecordSource = jkData1.Refreshero:jgl_cyy.Visible = Falsejgl_english.Visible = Falsejgl_jk.Visible = Falsejgl_米z.Visible = Falsejgl_photoshop.Visible = Falsecyy_avg.Visible = Falseenglis

49、h_avg.Visible = Falsejk_avg.Visible = False米z_avg.Visible = Falsephotoshop_avg.Visible = Falsejgl_jk.Visible = Truejk_avg.Visible = TrueLabel1.Caption = jk.CaptionEnd SubPrivate Sub 米z_avg_Click()On Error Resu米e NextData1.Recordset.AddNewData1.RecordSource = select int(20*avg(ps)/20 as 平时 ,int(20*av

50、g(qz)/20 as 期中 ,int(20*avg(q米)/20 as 期未 fro米 米z Data1.Recordset.UpdateData1.Refresh米SFlexGrid1.RefreshEnd SubPrivate Sub 米z_Click()On Error GoTo eroData1.RecordSource = 米zData1.Refreshero:jgl_cyy.Visible = Falsejgl_english.Visible = Falsejgl_jk.Visible = Falsejgl_米z.Visible = Falsejgl_photoshop.Visi

51、ble = Falsecyy_avg.Visible = Falseenglish_avg.Visible = Falsejk_avg.Visible = False米z_avg.Visible = Falsephotoshop_avg.Visible = Falsejgl_米z.Visible = True米z_avg.Visible = TrueLabel1.Caption = 米z.CaptionEnd SubPrivate Sub english_avg_Click()On Error Resu米e NextData1.Recordset.AddNewData1.RecordSource = select int(20