班级管理系统(毕业论文) 37页

班级管理系统摘要…………………………………………………………………………1Abstract………………………………………………………………………2第一章引言…………………………………………………………………41．1课题背景……………………………………………………………………41．2系统简介……………………………………………………………………5第二章系统的分析……………………………………………………………62．1系统开发的目标和思想……………………………………………………62．2系统的可行性分析…………………………………………………………82.3系统开发工具简介第三章系统的设计……………………………………………………………183．1系统的功能结构设计………………………………………………………183．2系统的数据库设计3．3界面设计与代码设计……………………………………………………………………23…………………………………………………………24结束语………………………………………………………………………………46致谢…………………………………………………………………………………47参考文献………………………………………………… 摘要班级管理系统用计算机管理班级信息的一种计算机应用技术的创新,在计算机还未普及之前班级管理都是由教师以及班干部来承担的方式来操作的.现在一般的学校都采用了信息化管理的方式即采用计算机作为工具的实用的计算机班级信息管理程序来帮助班主任进行更有效的班级管理。班级信息管理系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备,易使用等特点。经过分析,我们使用MICROSOFT公司的VISUALBASIC开发工具,利用其提供的各种面向对象的开发工具,尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象,首先在短时间内建立系统应用原型,然后,对初始原型系统进行需求迭代,不断修正和改进,直到形成用户满意的可行系统。关键字:班级管理,MIS,visualbasic,数据库AbstractClassmanagementinformationsystemusingacomputermanagementclassescomputerapplicationstechnologyinnovation,Managementhasnotyetpopularinthecomputerbeforeclassesarebornebytheteachersandclasstothecadrestooperate.Theschoolsarenowgenerallyusedinformationmanagementapproachthattheuseofcomputersasatoolforcomputerclassinformationmanagementprocedurestohelpteachersmoreeffectivemanagementclasses.Informationmanagementsystemisatypicalclassinformationmanagementsystem(MIS),includingitsmaindevelopmentbackgroundtotheestablishmentandmaintenanceofthedatabaseandfront-endapplicationdevelopment2.Therequestfortheestablishmentofstrongdataconsistencyandintegrity,goodforthesecurityofthedata.Forthelatterrequestapplicationsfunctions,suchaseasytousefeatures.Afteranalysis,weuseMicrosoftvisualbasicdevelopmenttoolcompanies,theuseofitsvariousobject-orienteddevelopmenttools,especiallydatathatcanbeeasilyaccessibleandconcisewindowmanipulationdatabaseintelligentobjects,thefirst prototypeapplicationsysteminashorttimeandthen,computationoftheinitialprototypesystemneedstoconstantlyreviseandimproveuntiltheformationofaviablesystemofusersatisfaction.keyword:classmanagementMIS,visualbasicdatabase第一章引言1．1课题背景班级管理系统用计算机管理班级信息的一种计算机应用技术的创新,在计算机还未普及之前班级管理都是由教师以及班干部来承担的方式来操作的.现在一般的学校都采用了信息化管理的方式即采用计算机作为工具的实用的计算机班级信息管理程序来帮助班主任进行更有效的班级管理。班级信息管理系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备,易使用等特点。1．2系统简介本系统主要服务与班主任的日常班级学生信息管理.主要包括如下几大主要功能:一:学生资料(基本资料,通信资料,资料管理)二:成绩管理(班级成绩,个人成绩,成绩管理)三:量化管理(得分情况,得分原因,考核管理,得分情况)四:组织机构(团委,班委会)五:班级事件(班级荣誉,活动情况) 六:班费管理(班费收入.班费支出,剩余班费)七:管理员(添加管理员,修改密码,删除管理员)八:帮助(关于我们,每日一看)第一章系统的分析2．1系统开发的目标和思想本系统主要服务于班主任以及班级管理人员方便管理班级事物的软件系统,在完成上述任务前提下力求界面人性化,数据处理的可靠以及程序的健壮性的性能.2．2系统的可行性分析技术上:本系统采用visualbasic6.0与微软的access作为数据库,技术上开发难度一般.经济上:本系统服务于班主任以及班级管理人员,提高了工作人员办事效率,节省了开支.所以具有经济上的可行性.社会上:本系统同时也方便了广大学生以及学校管理者者,服务.所以具有社会可行性.2.3系统开发工具简介VisualBasic6.0是Micrsoft公司出品的开发工具，VisualBasic是一种可视化的，面向对象的Windows开发语言，它具有易用，通用和开发效率高的特点。随着微软对它不断地改进以及计算机本身性能的提高，使得VisualBasic越来越适合一般的应用程序开发。正如BillGate所说，世界上绝大多数的Windows应用程序是用VisualBasic编写的。在众多的开发工具中，我们为什么要选择VisualBasic6.0呢？因为VB具有众多其它开发工具所没有的优点！具体介绍如下：u开发的高效 u语言的高效u编译的高效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属性:控制各种文字字体类型.8)Left,top,height,width属性:设定控件的位置与大小.9)Style,picture属性:决定按钮的显示方式是否为图像形式出现.10)Visible属性:确定控件运行时是否为可见.11)Index属性:当控件为一控件数组时,此属性值为该控件在数组的下标值.12)DownPicture属性：设置/返回一个对图片的引用，该图片在按钮被单击处于压下状态时显示。13)DisabledPicture属性：设置/返回一个对图片的引用，该图片在控件无效时显示在控件中。14)MaskColor属性：设置/返回一个在按钮的图片中作为“掩码“的的颜色15)Picture属性：设置返回commandButton控件中要显示的图片。u命令按钮类的事件：1）单击事件――Click事件（1）触发与适用 此事件是在一个命令按钮对象上按下然后释放一个鼠标按钮时发生。命令按钮的Click事件仅对当单击鼠标时发生。（1）事件处理过程按钮单击事件的处理过程为：PrivateSubobject-Click（IndexAsInteger）其中Object为引发该事件的对象名称。如果是命令按钮的控件是数组，则需要使用Index参数标识该控件。1）获得焦点――GotFocus事件（1）触发与适用当命令按钮获得焦点产生该事件，获得焦点可以通过诸如Tab切换或单击对象之类的用户动作，或在代码中用SetFocus方法改变焦点来实现。（2）事件处理过程命令按钮GotFoucs事件处理过程为：PrivateSubObject-GotFocus（IndexAsInteger）2）LostFocus事件：当一个对象失去焦点时发生3）KeyDown事件：当命令按钮具有焦点时按下一个键时发生4）KeyUp事件：当命令按钮具有焦点时释放一个键时发生。5）KeyPress事件：当用户按下或松开一个ANSI键时发生。6）MouseDown事件：当在命令按钮上按下鼠标按钮时发生。7）MouseMove事件：当命令按钮上移动鼠标时发生。8）MouseUp事件：当在命令按钮上释放鼠标按钮时发生。u标签框类的控件类的控件：1)Caption属性：在应用程序界面上加入说明。2)Autosize属性：决定控件是否自动改变大小以显示其全部内容。 1)Backstyle属性：用以指示标签是否透明.2)Bordstyle属性:用以设定控件是否有边框。u文本框类的控件：1)Text属性：通过像text属性赋值的方法来改变该属性的值。2)Maxlength属性：该属性设定在文本框控件中能够输入的最大字符数。3)Multline属性：该属性设定text字符串中是否接受换行符。4)Scrollbars属性：该属性决定是否为文本框加滚动条。5)Passwordchar属性：该属性设定输入文本的特殊显示字符,在设计密码程序时非常有用。6)Change事件属性：文本框的内容发生改变时,相应的控件之间发生相应的改变,具有即时性。7)Keypress：事件由用户在文本框控件中按任意键触发。8)Alignment属性：设定控件中的文本对其方式9)Appearance属性：设定一个对象在运行时是否可以3D效果显示。10)BackColor属性：设置返回背景色11)BorderStyle属性：设置对象的边框样式12)DataField属性：设定数据使用者将被绑定到的字段名13)DataFormat属性：设定DataFormat对象，用于数据绑定14)DataMember属性：从数据供应程序提供的几个数据成员中返回/设定一个特定的数据成员15)DataSource属性：设定控件绑定的一个数据源16)DragIcon属性：设定图标，它将在拖放操作中作为指针显示17)DragMode模式：设定一个值，确定在拖放操作中所用方式18)Enabled属性：设置/返回运行时TextBox是否相应用户事件19)Font属性：设置/返回字体属性20)ForeColor属性：设置/返回文本的前景色21)Height属性：设置/返回TextBox的高度22)IMEMode属性：设置/返回数值用来确定输入方法编辑器的状态23)Index属性：设置/返回唯一的标识控件数组中该控件的编号 1)Left属性：设置/返回TextBox控件的水平位置2)Locked属性：设置/返回TextBox中文本是否可编辑3)LinkItem属性：设置/返回DDE与另一个应用程序会话时，传给接受端的数据4)MaxLength属性：设置/返回一个值，指定在TextBox控件中能够输入的字符最大值5)MouseIcon属性：设置/返回自定义鼠标的图标6)Top属性：设置/返回TextBox控件的垂直位置7)Tag属性：存储过程所需的附加数据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）Validate事件：在焦点转换到另一个控件之前发生，此时该控件的CausesValidation属性值设置为Trueu单选按钮类的控件：1)Caption属性：显示在控件上的文本,是单选按钮的标题。2)Alignment属性：决定单选按钮的标题在控件上的位置。3)Enable属性：该控件为灰色时为false,表示运行时不可用。4)Index属性：属性值表示为单选按钮组成的控件中某个按钮的索引值。 1)Tabindex属性：建立控件时,vb自动为其分配一个tabindex值,利用tab键可以在控件之间切换焦点。2)Value属性：反映控件状态的属性,返回true表示已选择了该按钮。3)Appearance属性：设置/返回一个对象在运行时是否以3D效果显示。4)BackColor属性：设置/返回背景色。5)Container属性：设置/返回Form上的控件属性。6)DataField属性：设置/返回数据使用者将被绑定到的字段名。7)DataFormat属性：设置/返回DataFormat对象，一个绑定对象将附加到它。8)DisabledPicture属性：设置/返回一个对图像的引用，该图片在控件无效时显示在控件中。9)DownPicture属性：设置/返回一个对图片的引用，该图片在控件单击下处于压下状态时显示。10)DragMode属性：设置/返回一个值，确定在拖放操作中所用的方式。11)Font属性：设置/返回字体属性。12)FontBold属性：设置/返回字体粗体样式。13)FontItalic属性：设置/返回字体斜体样式。14)FontStrikethru属性：设置/返回字体删除线样式。15)FontUnderLine属性：设置/返回字体下划线样式。16)FontName属性：设置/返回控件中显示文本所用的字体大小。17)FontSize属性：设置/返回控件中显示文本所用的字体大小18)Height属性：设置/返回控件的高度。19)MaskColor属性：设置/返回一个在控件的图片中作为掩码的颜色。20)MousePointer属性：设置/返回一个值，该值指示在运行时当鼠标移动到对象上时显示的指针类型。u单选按钮类的常用事件：1）Click事件：鼠标单击控件时发生。2）DbClick事件：当在一个对象上按下和释放鼠标按钮并再次按下和释放按钮时，该事件发生。 1）DragDrop事件：在一个完整的拖放动作或使用Drag方法，并将其Action参数设置位2时，该事件发生。2）DragOver事件：在拖放操作正在进行时发生。3）GotFocus事件：当获的对象焦点时发生。4）LostFocus事件：当对象失去焦点时发生。5）KeyDown事件：当控件具有焦点时按下一个键时发生。6）KeyUp事件：当控件具有焦点时释放一个键时发生。7）KeyPress事件：当用户按下或释放ANSI一个键时发生。8）MouseDown事件：当在控件上按下鼠标键时发生。9）MouseMove事件：在控件上移动鼠标时发生。10）MouseUp事件：在控件上释放鼠标时发生。u复选按钮类的控件：1)Caption属性：缺省为check1…。2)Index属性:该属性值为复选框控件数组的下标.3)Value属性:value为0表空白,为1表勾号,为2表示灰色勾号.4)Container属性：Form控件上的容器。5)DataChangeed属性：设置/返回一个值，指出被绑定的控件中的数据已经被某进程修改。6)DataField属性：设置或返回数据使用者将被绑定到的字段名。7)DataFormat属性：设置或返回DataFormat对象，用于数据绑定。8)Datasource属性：设置或返回控件绑定的一个数据源。9)DisabledPicture属性：设置或返回一个对图片的引用，该图片在控件无效时显示在控件中。10)DownPicture属性：设置或返回一个对图片的引用，该图片在控件被单击处于压下状态时显示。11)DragIcon属性：设置或返回图标，它将在拖放操作中做为指针显示。12)DragMode属性：设置返回一个值，确定在拖放操作中所用方式。 1)Font属性：设置或返回字体的属性。2)Name属性：设置或返回控件的标识名。3)Value属性：设置或返回控件的状态。u复选按钮类的控件的基本事件：1）Click事件：鼠标单击控件时发生。2）DragDrop事件：在一个完整的拖放动作完成或使用Drag方法，并将其Action参数设置为2时发生。3）DragOver事件：在拖放操作正在进行时发生。4）GotFocus事件：在对象获的焦点时发生。，5）OLECompleteDrag事件：当源部件被放到目标时发生，并通知源部件拖放操作被执行或取消。6）OLEDragDrag事件：当源部件决定放操作能发生，却源部件被放到目标部件时，此事件发生。u框架类的控件：1)List属性：列表框控件的表项是使用数组的方式保存,数组的每一个元素存储列表控件的一个表项1)Listcount属性:控件列表部分项目的个数。2)Mutselect属性:可以设置列表框为单选或允许多选属性.3)Selectd属性:标示一个数组,数组各元素为:4)Selected(0),selected(1)…u滚动条类的控件：1)Value属性：滚动条上滑块所在位置由value值所决定。2)Max和min属性：对value值的最大,最小进行限制。3)Largechange属性：用户点击滚动条与键头之间的区域时,value的改变量。4)OnClick事件：用来添加按钮的单击事件所执行的程序代码。u定时器类类的控件： 1)Interval属性：表示定时的时间间隔,以毫秒为单位。2)Enable属性:为true时(缺省值),激活定时器开始计时;为false时处于休眠状态.1.1.1数据库连接方式选择Visualbasic6.0连接数据库的主要方式以下几种方式：一是：用data控件进行数据库链接，二是利用adodc（ADODataControl)进行数据库链接。三是:利用DataEnvironment进行数据库链接.四是利用ADO(ActiveXDataObjects)进行编程:现在我们来大致对这几种技术应用介绍：一、用data控件进行数据库链接.　第一步：给窗体添加一个Data控件。第二步：用Access建立一个名为Pad的数据库，在库中建立一个表Myset，给表添加四个字段：backcolor（数据），forecolor(文本），fontname(文本）,fontsize（文本）。注意：请将库文件存入程序所在目录。如果你的机器没安装有Access，可通过VB建库。二、利用adodc（ADODataControl)进行数据库链接：使用adodata控件访问数据库可以完全不用编写代码,只需要通过简单的设置和操作其属性就可以实现与数据库的连接,通过绑定数据感知控件,就能提供一个访问数据库的界面,用来实现对数据库的浏览,贴加,删除,修改等操作.三、利用DAO对数据库进行操纵:在visualbasic中提供了两种与jet数据引擎接口的方法:data控件与数据访问对象(DAO)DAO是databaseobject的英文缩写,要访问数据库一方面数据库要提供访问接口,另一方面要在编程环境中有对数据库的支持. DAO模型是设计关系数据库系统结构的对象类的集合.他们提供了管理关系型数据库系统所需要的全部操作属性和方法,这其中包括建立数据库,定义表,字段和建立表间关系,定位和查询数据库等.关系数据库介绍:关系数据库是目前各类数据库中最重要、最流行的数据库，他应用数学方法来处理数据库数据，是目前使用最广泛的数据库系统。20世纪70年代以后开发的数据库管理系统产品几乎都是基于关系的。在数据库发展的历史上，最重要的成就就是关系模型。关系数据库系统与非关系数据库系统的区别是：关系系统只有“表“这一种数据结构；而非关系数据库系统还有其他数据结构，对这些数据结构有其他的操作。结构化查询语言SQL（StructuredQueryLanguage）是一种介于关系代数与关系演算之间的语言，其功能包括查询、操纵、定义和控制四个方面，是一个通用的、功能极强的关系数据库语言。目前已成为关系数据库的标准语言 Microsoft Access介绍:使用 Microsoft Access，可以在单一的数据库文件中管理所有的信息。在这个文件中，用户可以将自己的数据分别保存在各自独立的存储空间中，这些空间称作表；可以使用联机窗体来查看、添加及更新表中的数据；使用查询来查找并检索所要的数据；也可以使用报表以特定的版面布置来分析及打印数据。如果要保存数据，请为每一种类型的信息创建一个表。如果要从查询、窗体或报表中的多个表中将数据合并在一起，就要定义各个表之间的关系。如果要搜索并检索符合指定条件的数据，包括来自多个表中的数据，就要创建查询。查询的同时也可以更新或删除多条记录，并对数据执行内嵌或自定义的计算。 如果要简单地直接在某个表中查看、输入及更改数据，请创建一个窗体。在打开一个窗体时，Microsoft Access 将从一个或多个表中检索数据，并使用用户在“窗体向导”选择的版面布局或所创建的版面布局，将窗体显示在屏幕上。如果要分析数据或将数据以特定的方式打印出来，请创建一个报表。例如，可以打印一份将数据分组并计算数据总和的报表，也可以打印另一份带有各种数据格式的打印邮件标签的报表。第一章系统的设计3.1系统的功能结构设计程序登陆主界面学生资料成绩管理量化考核组织机构班级事件班费管理管理员帮助3．1系统的功能结构设计1.班费收入/支出表3．2系统的数据库设计1. 2.学生信息表:3.用户密码表:4.课程信息表:3．2界面设计与代码设计1.收入界面 代码分析:PrivateSubcmd_boot_Click()OnErrorGoToeroData1.Recordset.MoveLastcmd_n.Enabled=Falsecmd_f.Enabled=Trueero:EndSubPrivateSubCmd_f_Click()IfData1.Recordset.BOF<>TrueThencmd_n.Enabled=TrueOnErrorGoToeroData1.Recordset.MovePreviousero:Elsecmd_f.Enabled=Falsecmd_n.Enabled=TrueData1.Recordset.MoveFirstEndIfEndSubPrivateSubCmd_n_Click()IfData1.Recordset.EOF<>TrueThencmd_f.Enabled=TrueOnErrorGoToeroData1.Recordset.MoveNext Elsecmd_n.Enabled=Falsecmd_f.Enabled=TrueOnErrorGoToeroData1.Recordset.MoveLastEndIfero:EndSubPrivateSubCmd_top_Click()OnErrorGoToeroData1.Recordset.MoveFirstcmd_f.Enabled=Falsecmd_n.Enabled=Trueero:EndSubPrivateSubCommand1_Click()Command4.Enabled=TrueOnErrorGoToero1Data1.Recordset.AddNewero1:"MsgBox"不能添加数据",,"提示"EndSubPrivateSubCommand2_Click()Command4.Enabled=TrueOnErrorGoToero2Data1.Recordset.Deleteero2:EndSubPrivateSubCommand3_Click()Command4.Enabled=TrueOnErrorGoToero3Data1.Recordset.Edit ero3:"MsgBox"不能编辑数据",,"提示"EndSubPrivateSubCommand4_Click()OnErrorGoToeroData1.Refreshero:EndSubPrivateSubbfgly_Click()Ifisadtr=TrueThenIfmu_gly=FalseThenMSFlexGrid1.Visible=FalseCommand1.Visible=TrueCommand2.Visible=TrueCommand3.Visible=TrueCommand4.Visible=Truecmd_n.Visible=Truecmd_f.Visible=Truecmd_first.Visible=Truecmd_last.Visible=Truemu_gly=(Notmu_gly)bfgly.Caption="收入"ElseMSFlexGrid1.Visible=TrueCommand1.Visible=FalseCommand2.Visible=FalseCommand3.Visible=FalseCommand4.Visible=Falsecmd_n.Visible=Falsecmd_f.Visible=Falsecmd_first.Visible=Falsecmd_last.Visible=Falsemu_gly=(Notmu_gly)bfgly.Caption="班费管理员"EndIfElseMsgBox"你不是管理员，你没有这个权限",,"提示"EndIf EndSubPrivateSubForm_Load()Data1.RecordSource="select*frombfglwheremoney>0"EndSub2.余额查询界面代码分析:PrivateSubForm_Load()Data1.RecordSource="selectsum(money)as余额frombfgl"EndSub3.班级成绩管理班级成绩管理代码:PrivateSubCommand2_Click() EndSubPrivateSubCommand1_Click()EndSubPrivateSubCmd_ls_Click()MSFlexGrid1.DataSource=Data1MSFlexGrid1.RefreshEndSubPrivateSubcyy_avg_Click()OnErrorResumeNext"Data1.Recordset.AddNewData1.RecordSource="selectint(20*avg(ps))/20as平时,int(20*avg(qz))/20as期中,int(20*avg(qm))/20as期未fromcyy"Data1.Recordset.UpdateData1.RefreshMSFlexGrid1.RefreshEndSubPrivateSubcyy_Click()OnErrorGoToeroData1.RecordSource=cyyData1.Refreshero:jgl_cyy.Visible=Falsejgl_english.Visible=Falsejgl_jk.Visible=Falsejgl_mz.Visible=Falsejgl_photoshop.Visible=Falsecyy_avg.Visible=Falseenglish_avg.Visible=Falsejk_avg.Visible=Falsemz_avg.Visible=Falsephotoshop_avg.Visible=False jgl_cyy.Visible=Truecyy_avg.Visible=TrueLabel1.Caption=cyy.CaptionEndSubPrivateSubenglish_Click()"CallCmd_ls_ClickOnErrorGoToeroData1.RecordSource=englishData1.Refreshero:jgl_cyy.Visible=Falsejgl_english.Visible=Falsejgl_jk.Visible=Falsejgl_mz.Visible=Falsejgl_photoshop.Visible=Falsecyy_avg.Visible=Falseenglish_avg.Visible=Falsejk_avg.Visible=Falsemz_avg.Visible=Falsephotoshop_avg.Visible=Falseenglish_avg.Visible=Truejgl_english.Visible=TrueLabel1.Caption=english.CaptionEndSubPrivateSubjgl_cyy_Click()"OnErrorGoToeroData1.RecordSource="selectcount(qm)as期末人数fromcyywhereqm>=60"Data1.RefreshMSFlexGrid1.Refresh"ero:EndSubPrivateSubjgl_english_Click() "OnErrorGoToeroData1.RecordSource="selectcount(qm)as期末人数fromenglishwhereqm>=60"Data1.RefreshMSFlexGrid1.Refresh"ero:EndSubPrivateSubjgl_jk_Click()Data1.RecordSource="selectcount(qm)as期末人数fromjkwhereqm>=60"Data1.RefreshMSFlexGrid1.RefreshEndSubPrivateSubjgl_mz_Click()Data1.RecordSource="selectcount(qm)as期末人数frommzwhereqm>=60"Data1.RefreshMSFlexGrid1.RefreshEndSubPrivateSubjgl_photoshop_Click()Data1.RecordSource="selectcount(qm)as期末人数fromphotoshopwhereqm>=60"Data1.RefreshMSFlexGrid1.RefreshEndSubPrivateSubjk_avg_Click()OnErrorResumeNext"Data1.Recordset.AddNewData1.RecordSource="selectint(20*avg(ps))/20as平时,int(20*avg(qz))/20as期中,int(20*avg(qm))/20as期未fromjk"Data1.Recordset.UpdateData1.Refresh MSFlexGrid1.RefreshEndSubPrivateSubjk_Click()OnErrorGoToeroData1.RecordSource=jkData1.Refreshero:jgl_cyy.Visible=Falsejgl_english.Visible=Falsejgl_jk.Visible=Falsejgl_mz.Visible=Falsejgl_photoshop.Visible=Falsecyy_avg.Visible=Falseenglish_avg.Visible=Falsejk_avg.Visible=Falsemz_avg.Visible=Falsephotoshop_avg.Visible=Falsejgl_jk.Visible=Truejk_avg.Visible=TrueLabel1.Caption=jk.CaptionEndSubPrivateSubmz_avg_Click()OnErrorResumeNext"Data1.Recordset.AddNewData1.RecordSource="selectint(20*avg(ps))/20as平时,int(20*avg(qz))/20as期中,int(20*avg(qm))/20as期未frommz"Data1.Recordset.UpdateData1.RefreshMSFlexGrid1.RefreshEndSubPrivateSubmz_Click()OnErrorGoToeroData1.RecordSource=mzData1.Refreshero:jgl_cyy.Visible=Falsejgl_english.Visible=Falsejgl_jk.Visible=Falsejgl_mz.Visible=Falsejgl_photoshop.Visible=False cyy_avg.Visible=Falseenglish_avg.Visible=Falsejk_avg.Visible=Falsemz_avg.Visible=Falsephotoshop_avg.Visible=Falsejgl_mz.Visible=Truemz_avg.Visible=TrueLabel1.Caption=mz.CaptionEndSubPrivateSubenglish_avg_Click()OnErrorResumeNext"Data1.Recordset.AddNewData1.RecordSource="selectint(20*avg(ps))/20as平时,int(20*avg(qz))/20as期中,int(20*avg(qm))/20as期未fromenglish"Data1.Recordset.UpdateData1.RefreshMSFlexGrid1.RefreshEndSubPrivateSubphotoshop_avg_Click()OnErrorResumeNext"Data1.Recordset.AddNewData1.RecordSource="selectint(20*avg(ps))/20as平时,int(20*avg(qz))/20as期中,int(20*avg(qm))/20as期未fromphotoshop"Data1.Recordset.UpdateData1.RefreshMSFlexGrid1.RefreshEndSubPrivateSubPhotoshop_Click()OnErrorGoToeroData1.RecordSource=photoshopData1.Refreshero:jgl_cyy.Visible=Falsejgl_english.Visible=Falsejgl_jk.Visible=False jgl_mz.Visible=Falsejgl_photoshop.Visible=Falsecyy_avg.Visible=Falseenglish_avg.Visible=Falsejk_avg.Visible=Falsemz_avg.Visible=Falsephotoshop_avg.Visible=Falsephotoshop_avg.Visible=Truejgl_photoshop.Visible=TrueLabel1.Caption=photoshop.CaptionEndSub5.活动记录界面设计代码分析:DimbAsIntegerDimoAsIntegerDimyAsIntegerPrivateSubCommand1_Click()DimaAsStringDimqAsInteger Ifisadtr=TrueThenIfy=0ThenIfText1.Text=""Thenq=MsgBox("你要添加一条空记录吗？",vbYesNo)Ifq=6Thenb=Text4.Textb=b+1a=Text1.TextOpen"d:bjglxt班级事件cc.txt"ForRandomAs#2Open"d:bjglxt班级事件dd.txt"ForRandomAs#1Put#1,b,aPut#2,,bText4.Text=bCloseEndIfEndIfIfText1.Text<>""Thenb=Text4.Textb=b+1a=Text1.TextOpen"d:bjglxt班级事件cc.txt"ForRandomAs#2Open"d:bjglxt班级事件dd.txt"ForRandomAs#1Put#1,b,aPut#2,,bText4.Text=bCloseEndIfElseIfy=1ThenMsgBox("请你先清空在写入内容后点添加")EndIfElseMsgBox"你不是管理员，请先登陆管理员",,"提示"EndIfEndSubPrivateSubCommand2_Click()y=1DimcAsIntegerDimaAsStringIfo=1ThenIfCInt(Text3.Text)>CInt(Text4.Text)OrCInt(Text3.Text)=0ThenMsgBox("没有此记录")ElseIfCInt(Text3.Text)>0AndCInt(Text3.Text)<=CInt(Text4.Text)Thenc=CInt(Text3.Text) Open"d:bjglxt班级事件\dd.txt"ForRandomAs#1Get#1,c,aIfa=""ThenMsgBox("您当时添加的是一条空记录")Text1.Text=aElseIfa<>""ThenText1.Text=aEndIfCloseEndIfElseIfo=0ThenMsgBox("请输入正确的记录号(只限数字且不要超出记录条数)")EndIfTimer1.Enabled=TrueEndSubPrivateSubCommand3_Click()Text1.Text=""Text3.Text=""y=0EndSubPrivateSubCommand4_Click()EndSubPrivateSubForm_Load()y=0o=0DimcAsIntegerOpen"d:bjglxt班级事件cc.txt"ForRandomAs#2Get#2,,cText4.Text=cCloseEndSubPrivateSubTimer1_Timer()IfText3.Text<>""Theno=1IfText3.Text>="a"AndText3.Text<="z"Then"Timer1.Enabled=FalseMsgBox("请输入正确的记录号(只限数字)")Text3.Text=""EndIfElseIfText3.Text=""Theno=0 EndIfEndSub6:班级荣誉:代码分析:DimbAsIntegerDimoAsIntegerDimyAsIntegerPrivateSubCommand1_Click()DimaAsStringDimqAsIntegerIfisadtr=TrueThenIfy=0ThenIfText1.Text=""Thenq=MsgBox("你要添加一条空记录吗？",vbYesNo)Ifq=6Thenb=Text4.Textb=b+1a=Text1.TextOpen"d:bjglxt班级事件cc.txt"ForRandomAs#2Open"d:bjglxt班级事件dd.txt"ForRandomAs#1Put#1,b,aPut#2,,bText4.Text=bCloseEndIfEndIfIfText1.Text<>""Then b=Text4.Textb=b+1a=Text1.TextOpen"d:bjglxt班级事件cc.txt"ForRandomAs#2Open"d:bjglxt班级事件dd.txt"ForRandomAs#1Put#1,b,aPut#2,,bText4.Text=bCloseEndIfElseIfy=1ThenMsgBox("请你先清空在写入内容后点添加")EndIfElseMsgBox"你不是管理员，请先登陆管理员",,"提示"EndIfEndSubPrivateSubCommand2_Click()y=1DimcAsIntegerDimaAsStringIfo=1ThenIfCInt(Text3.Text)>CInt(Text4.Text)OrCInt(Text3.Text)=0ThenMsgBox("没有此记录")ElseIfCInt(Text3.Text)>0AndCInt(Text3.Text)<=CInt(Text4.Text)Thenc=CInt(Text3.Text)Open"d:bjglxt班级事件dd.txt"ForRandomAs#1Get#1,c,aIfa=""ThenMsgBox("您当时添加的是一条空记录")Text1.Text=aElseIfa<>""ThenText1.Text=aEndIfCloseEndIfElseIfo=0ThenMsgBox("请输入正确的记录号(只限数字且不要超出记录条数)")EndIfTimer1.Enabled=TrueEndSubPrivateSubCommand3_Click() Text1.Text=""Text3.Text=""y=0EndSubPrivateSubCommand4_Click()EndSubPrivateSubForm_Load()y=0o=0DimcAsIntegerOpen"d:bjglxt班级事件cc.txt"ForRandomAs#2Get#2,,cText4.Text=cCloseEndSubPrivateSubTimer1_Timer()IfText3.Text<>""Theno=1IfText3.Text>="a"AndText3.Text<="z"Then"Timer1.Enabled=FalseMsgBox("请输入正确的记录号(只限数字)")Text3.Text=""EndIfElseIfText3.Text=""Theno=0EndIfEndSub7:管理员界面设计 代码分析:PrivateSubCMD_OK_Click()OnErrorGoToeroData1.Refreshero:EndSubPrivateSubCMD_RESET_Click()Text1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""Text5.Text=""EndSubPrivateSubCommand1_Click()Command4.Enabled=TrueOnErrorGoToero1Data1.Recordset.AddNewero1:"MsgBox"不能添加数据",,"提示"EndSub PrivateSubCommand2_Click()Command4.Enabled=TrueOnErrorGoToero2Data1.Recordset.Deleteero2:EndSubPrivateSubCommand3_Click()Command4.Enabled=TrueOnErrorGoToero3Data1.Recordset.Editero3:"MsgBox"不能编辑数据",,"提示"EndSubPrivateSubCommand4_Click()OnErrorGoToeroData1.Refreshero:EndSubPrivateSubcmd_boot_Click()OnErrorGoToeroData1.Recordset.MoveLastcmd_n.Enabled=Falsecmd_f.Enabled=Trueero:EndSubPrivateSubCmd_f_Click()IfData1.Recordset.BOF<>TrueThencmd_n.Enabled=TrueOnErrorGoToeroData1.Recordset.MovePreviousero:Elsecmd_f.Enabled=Falsecmd_n.Enabled=TrueData1.Recordset.MoveFirst EndIfEndSubPrivateSubCmd_n_Click()IfData1.Recordset.EOF<>TrueThencmd_f.Enabled=TrueOnErrorGoToeroData1.Recordset.MoveNextero:Elsecmd_n.Enabled=Falsecmd_f.Enabled=TrueData1.Recordset.MoveLastEndIfEndSubPrivateSubCmd_top_Click()OnErrorGoToeroData1.Recordset.MoveFirstcmd_f.Enabled=Falsecmd_n.Enabled=Trueero:EndSubPrivateSubcyy_Click()cjgl_gly_cyy.ShowUnloadMeEndSubPrivateSubenglish_Click()cjgl_gly_english.ShowUnloadMeEndSubPrivateSubjk_Click() cjgl_gly_jk.ShowUnloadMeEndSubPrivateSubmz_Click()cjgl_gly_mz.ShowUnloadMeEndSubPrivateSubPhotoshop_Click()cjgl_gly_photoshop.ShowUnloadMeEndSub结束语本软件的设计目的是为班级维护方面为班主任以及班级管理人员提供方便和帮助。通过这几个月的毕业设计，我学到很多以前没有学到的visualbasic开发技术，在软件工程学上更是取得了很大的进步。经过大量的测试和试用，作者深信本软件达到了方便和实用的设计目的，并在软件界面和易用实用等方面有着独到之处。 虽然软件基本达到设计要求并且达到同行的先进水平，但由于作者水平有限，软件存在bug也是在所难免的，您的意见和建议将极大的帮助我改进并完善软件。真诚的希望你的参与。致谢我首先感谢我的指导老师吕老师，在他严格的要求下我懂得了开发软件要有一种极其认真负责的态度。无论做什么事都要大胆的去想去做，这样会有好的创意，才能更有作为。在这里我还要感谢我们宿舍的其它5个同学。他们和我共同生活了四年，在生活和学习上给了我很大的帮助。 参考文献1陈明.软件工程学教程.科技出版社，20022萨师煊，王珊.数据库系统概论.第三版.高等教育出版社，20003飞思科技产品研发中心.visualbasic6.0数据库应用开发.电子工业出版社，20034飞思科技产品研发中心.visualbasic6.0开发者手册.电子工业出版社,20025申旻.visualbasic6.0高手突破.清华大学出版社，2002，302 6SteveTeixeira，XaviverPacheco著，龙劲松，王瑜，谢尚书译.visualbasic6.0开发人员指南.机械工业出版社.20037乔林.参透Delphi／Kylix.中国铁道出版社.20038李维.Inside深入核心VCL架构剖析.电子工业出版社.20049张立科编写组.WindowsAPI函数参考手册.人民邮电出版社.2002严蔚敏，吴伟民.数据结构.第二版.清华大学出版社.200110王珍玲。实用软件工程教程高等教育出版社200411（英）IanSommerville机械工业出版社200312美Cantu,U. 王辉等译visualbasic6.0从入门到精通 电子工业出版社200313李维面向对象开发实践之路（visualbasic6.0版）(BORLAND资深顾问著名visualbasic6.0专家李维最新力作)电子工业出版社2005.414秦斌等visualbasic6.0数据库系统开发与应用 中国水利水电出版社2006.115刘艺visualbasic6.0面向对象编程思想机械工业出版社200316.visualbasic程序设计第二版谭浩强清华大学出版社200317.visualbasic6.0程序设计教程.胡同森赵剑锋等.浙江科学技术出版社,2002.118.软件工程学教程(第二版)周苏王文著科学出版社200319.VisualBasic6.0程序设计与开发技术求是科技人民邮电出版社2004.9