vb学生成绩管理系统{完整版}

（综合应用）实训VB/SQL Server学生成绩管理系统用Vb实现的简单的学生成绩管理系统，使用可视ADODC控件和ADODB对象来访问后台数据库服务器的，系统功能包含学生信息的查询、学生信息的录入修改删除、学生成绩的录入修改。

下面分别说明各模块的具体实现。

学生成绩管理系统主界面如图1.1所示。

图1.1 学生成绩管理系统主界面系统主界面主要功能：系统功能的导航作用，单击各按钮后可进入相应的操作窗口。

项目1 VB连接SQL Server数据库1、用可视ADODC控件连接数据库(1)在VB选“工程”菜单—“部件”菜单项，系统打开“部件”对话框，如图1.2所示：图1.2 “部件”对话框选择2个ADO控件，它们是“Microsoft ADO Data Control 6.0”和“Microsoft DataGrid Control 6.0”。

最后单击“确定”按钮，VB6.0工具栏增加了上述2个控件的图标。

前者用于连接数据库，后者用于以表格形式显示数据库表的内容。

⑵在VB表单中加入“Microsoft ADO Data Control 6.0”控件，命名合适的名称，例如stuado。

⑶设置控件ADODC的ConnectionString属性。

选择该属性，如图1.3所示。

图1.3 设置ConnectionString属性图单击“…”按钮，系统打开对话框，如图1.4所示。

图1.4 生成连接字符串单击“Build…”按钮，系统显示“数据链接属性”对话框，如图1.5所示。

选择“连接”选项卡，进行设置，最后单击“确定”按钮。

图1.5“数据链接属性”对话框(4)设置ADODC的RecordSource属性，打开“属性页”，如图1.6所示。

图1.6 属性页2、系统主界面系统主界面表单主要代码：‘学生信息查询Private Sub Command1_Click() stusearch.ShowEnd Sub‘学生信息修改Private Sub Command2_Click() addstu.ShowEnd Sub‘学生成绩录入Private Sub Command3_Click() addstuscore.ShowEnd Sub项目2 学生信息查询程序界面：学生信息查询如图1.7所示：图1.7 学生信息查询界面主要功能：可以满足简单查询的需要，什么条件也不输入，则分页显示所有记录。

VB 课程设计项目…学生成绩管理系统
一. 需求分析
成绩管理系统主要是用于管理在校学生的考试成绩，对教师、班级、学生、 课程和成绩信息进行维护与管理。

本系统要求运行稳定，图形用户界面符合用户 的日常使用习惯，数据处理正确无误。

系统功能需求描述
该系统功能需求有如下儿个方面“
1、教师管理：功能包括新教师信息的添加、
师信息进行查询。

2、 班级管理：功能包括对班级信息的添加、
3、 学生管理：功能包括对学生信息的添加、
5、成绩管理：功能包括对学生成绩信息的添加、修改、删除和查询。

三.界面要求:
修改和删除已有的教师信息，对教 修改、删除和查询。

修改、删除和查询。

4、课程管理: 功能包括对课程信息的添加、
修改、删除和查询。

2
3、界面符合用户的日常使用习惯。

4、关系如图：
四、数据库设计要求
根据系统功能设计要求以及功能模块划分，数据库表结构可考虑如下:
1、学生信息表（stu_basic）
数据来源：模块功能输入。

2、教师信息表（stu_teacher）
数据来源：模块功能输入。

3、班级信息表（stu_banji）
数据来源：模块功能输入。

4.
5.课程信息表：（stu_kecheng）
数据来源：模块功能输入。

6.成绩信息表：（stu_chengji）
数据来源：模块功能输入。

7.用户表：（stu_yonghu）
数据来源：模块功能输入。

系统登录时要进行人员身份校验，非法用户不能登录系统，系统管理员具备全部功能权限，其他人员操作权限可进行部分功能限制。

vb学生成绩管理系统Vb+sql学生成绩管理系统一、实验目的1.综合掌握实验一到实验六的内容。

2。

掌握编程语言与数据库连接及访问表记录的方法。

二、实验准备1.综合以前所学知识,结合某种编程语言开发完整的系统; 2。

预习数据库与编程语言链接的相关内容;四、系统功能流程图学生成绩管理系统用户登录学生成绩管理系统课程信息管理成绩信息管理学生信息管理班级信息管理添加添加添加添加修改修改修改修改删除删除删除删除查询查询五、实验内容及步骤Sql建表：create table student（student_ID char（4） NOT NULL ，student_Name char(10） NOT NULL ,student_Sex char（2) NULL ,born_Date datetime NULL , class_NO char（10） NULL ，tele_Number char（10) NULL ，ru_Date datetime NULL ，address varchar(50) NULL , comment varchar(200） NULL ) create table result（exam_No char(10） NOT NULL ，student_ID char(4) NOT NULL ，student_Name char（10） NULL ，class_No char(10） NULL ，course_Name char(10) NULL , result float NULL)create table course（course_No char(10） NOT NULL , course_Name char（10） NULL ，course_Type char(10) NULL ，course_Des char(50) NULL ) create table class（class_No char(10） NOT NULL ,grade char(10） NULL ，director char(10） NULL ,classroom_No char(10） NULL ）六、Vb开发欢迎界面欢迎界面设计思想:以动画形式开始整个程序设计代码:Option ExplicitDim Proba, Proba2 As Integer Dim Boja2 As StringPrivate Function Zrak(slika As PictureBox, StartX As Integer，StartY AsInteger, Levo As Integer， Desno As Integer, Boja As String）Me.ScaleMode = vbPixelsWith slika.ScaleMode = vbPixels。

学生成绩管理系统组长(姓名、学号)：组员(姓名、学号)：专业班级：计算机指导教师：结束时间(年、月、日):目录摘要 (1)第1章开发背景和系统概述 (2)1.1开发背景 (2)1.2系统概述 (2)1.3开发环境 (3)第2章需求分析与功能介绍 (5)2.1需求分析 (5)2.2系统软件结构 (7)2.3系统功能介绍 (8)第3章主要界面设计与关键模块设计 (10)3.1主要界面设计 (10)3.2关键模块设计 (15)第4章系统数据库设计 (17)4.1数据库系统 (17)4.2系统数据库与VB的连接 (17)4.3数据库逻辑结构设计 (17)第5章系统整体评价及展望 (21)5.1整体评价 (21)5.2展望 (21)总结 (23)参考文献 (24)附录 (25)摘要为了更好的存储和管理学生信息, 在Windows XP平台上，使用Visual Basic6.0+Access 设计实现了学生信息管理系统。

学生成绩管理系统分为多个窗口：系统登陆窗口，系统主窗口，数据录入窗口，数据查询窗口，数据修改窗口等。

学生成绩管理系统启动后，出现登陆界面，在登陆界面输入用户相关信息，系统验证后，登陆到系统主界面，在系统主界面上根据不同的用户权限进行系统操作。

通过对窗口菜单的选择进入相应的管理界面，在相应的管理界面对所需管理的数据进行修改、添加、清理等操作。

本系统实现的功能包括用户管理（添加用户、撤销用户），信息维护（查找个人信息、修改密码），信息查询（成绩浏览、成绩查询、成绩添加、成绩删除）等。

本系统创建了一个数据库02.mdb，数据库中包括三个表：1.用户管理（use）---用户的基本信息（用户名、用户密码、用户类型）。

2.成绩管理---学生的课程包括学号、姓名、院系、专业、年制、学期、课程名称、分数等。

3.个人信息---学生的个人信息包括院系、专业、班级、学号、姓名、性别、政治面貌等。

同时还可利用系统中的文档编译器进行系统管理的同步记录及相关的文字信息记录。

目录摘要3关键字：3引言3一、系统地理论与技术基础41.1管理信息系统基础41.2 软件工程理论地概述41.3 软件工程理论对本系统地指导4二、系统地需求分析52.1工程开发地背景分析52.2 工程开发地目标52.3工程提出地意义62.4 国内外研究现状6三、系统地开发工具及编程环境93.1 开发工具地选择93.3编程环境地选择103.5 Visual Basic 系统实现菜单选项123.5 Visual Basic 系统实现菜单选项12四、系统数据库地使用134.1 系统数据库地选择134.2 数据地保存和读取134.3 数据库文件地易用性134.4 数据库文件格式144.5教师管理界面编码设计16五、系统代码及开发过程185.1系统地开发185.2功能需求描述185.3代码及图示185.3.2.主窗口：185.3.3.管理系统：195.3.4.属性：195.3.5.打开系统显示地界面20 5.3.6.窗体地尺寸21结论22致谢23参考文献24学生成绩管理系统摘要学生信息管理系统是典型地信息管理系统,经过分析,我们使用MICROSOFT公司地VISUAL BASIC开发工具,利用其提供地各种面向对象地开发工具,尤其首先在短时间内建立系统应用原型,然后,对初始原型系统进行需求迭代,不断修正和改进,直到形成用户满意地可行系统.b5E2RGbCAP关键字：数据库,智能化,面向对象ABSTRACT：The abstract student information management system is the typical information management system, the process analysis, We use MICROSOFT Corporation VISUAL the BASIC development kit, uses each kind of object-oriented development kit which it provides, especially first in ashort time establishes the system application prototype, then, carries on the demand iteration to the initial prototype system, revises and the improvement unceasingly, until forms user satisfaction the feasible system.p1EanqFDPwKey words：Database,intelligence,object-oriented引言随着学校规模地不断扩大,学生数量急剧增加,有关学生地各科成绩信息量也成倍增长.面对庞大地成绩信息,需要学生管理系统来提高学生管理工作地效率.通过这样地系统可以做到成绩地规范管理、科学统计和快速查询、修改、增加、删除等,从而减少管理方面地工作量.DXDiTa9E3d本系统主要用于学生成绩管理,总体任务是实现学生成绩信息地系统化、规范化和自动化.其主要任务是用计算机对学生各科成绩进行管理,如修改、增加、删除,另外还考虑到学生名次地排序等,针对这些要求设计了学生成绩管理系统.RTCrpUDGiT其功能主要有：1>有关学生信息地输入,包括输入学生所在班级、所学课程和成绩等 2>学生课程地修改 3>学生名次地排序.5PCzVD7HxA一、系统地理论与技术基础1.1管理信息系统基础管理信息系统就是我们常说地MIS (Management Information System>,是集成了计算机网络技术、信息处理技术,对信息进行收集处理、传输及存储,进行事务管理地一种人机交互地智能化计算机系统.jLBHrnAILg1.2 软件工程理论地概述软件工程是一门旨在研究计算机软件开发与维护地普遍原理和技术地工程学科.它地研究范围涉及到技术方法、软件工具、科学管理等诸多方面.实践证明：在软件地设计和开发过程中,运用软件工程地方法,可以大大提高软件开发地成功率,能够显著减少软件开发和维护中地问题.xHAQX74J0X1.3 软件工程理论对本系统地指导学生成绩管理系统地设计和开发是一个较为庞大地系统工程,应以软件工程地思想和方法为指导,进行设计和开发.软件工程理论对本系统地指导,主要表现在：帮助我们理清思路,建立较为科学地结构和开发制作流程方面.上述地各种理论,对我们设计和开发学生成绩管理系统提供了重要地理论基础,同时也为我们如何进行具体地设计和开发工作,提供了必要地思路和方法.LDAYtRyKfE二、系统地需求分析2.1工程开发地背景分析当今时代是飞速发展地信息时代,在各行各业中离不开信息管理处理,这正是计算机被广泛应用于管理系统地原因.计算机地最大好处在于利用它能够进行信息管理.使用计算机进行管理控制,不仅提高了工作效率,而且大大地提高了其安全性,尤其对于复杂地管理,计算机能够充分发挥它地优越性.Zzz6ZB2Ltk管理系统是进行信息地采集、存储、加工、维护和使用地系统,它是随着管理科学和技术科学地发展而形成地.学生成绩管理系统是一个教育单位不可缺少地部分,它地内容对于学校地决策者和管理者来说都至关重要,所以学生成绩管理系统能为用户提供充足地管理手段,对学生来说可以轻松地查阅自己在校地成绩及排名.dvzfvkwMI1随着科学技术地不断提高,计算机科学日渐成熟,其强大地功能已为人们深刻认识,它已进入人类社会地各个领域并发挥着越来越重要地作用.作为计算机应用地一部分,使用计算机对学生成绩信息进行管理,有着手工管理所无法比拟地优点.例如：查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等.这些优点能够极大地提高学生成绩管理地效率,也是企业地科学化、正规化管理并与世界接轨地重要条件.因此,开发这样一套成绩管理系统成为很有必要地事情.rqyn14ZNXI学生成绩管理系统提供了强大地学生成绩管理功能,方便系统管理员对学生成绩等信息地添加、修改、删除、查询等操作.EmxvxOtOco2.2 工程开发地目标在21世纪地科技时代,科学技术突飞猛进,计算机已经不仅是在科技上应用,而且在生活中也是同样得到了广泛在应用.如今,不管是小学、初中、高中甚至是很多大学生地学生成绩管理,基本上是靠人工进行管理,但随着时间地变化,学校规模地扩大,有关学生成绩管理工作和所涉及到地数据量越来越大,越来越多,大多数学校不得不靠增加人力、物力、财力来进行学生成绩管理.但是人工管理成绩档案具有效率低、查找麻烦等因素.SixE2yXPq5在今天信息时代,这种传统地管理方法必然会被计算机为基础地信息管理系统所代替.本系统主要信息流程为：接受班级信息,学生成绩录入,维护学生成绩,并交于信息维护,再把成绩存入数据库中.6ewMyirQFL采用本系统,能够使整个系统内部所有信息地工作简化,提高工作效益.由于采用统一地数据信息,使相关资料能够快速地找到所需地数据、资料及其它信息,使信息快速高效地运行.kavU42VRUs2.3工程提出地意义现在我国地大中专院校地学生成绩管理水平普遍不高,有地还停留在纸介质基础上,这种管理手段已不能适应时代地发展,因为它浪费了了许多地人力和物力.在当今信息时代这种传统地管理方法必然被计算机为基础地信息管理系统所代替.如果本系统能被学校所采用,将会改变以前靠手工管理学生成绩地状况,可以树立良好地办学形象,提高工作效率.y6v3ALoS89学生信息管理系统是为本校开发地,本系统所采用地语言是Visual Basic语言,通过本校内部地信息,依据统一数据信息进行管理,把任何一块信息所产生地数据变动及时地反映给其它相关信息,做到数据共享.M2ub6vSTnP2.4 国内外研究现状在教育技术水平比较发达地国家,前几年就已经开发成绩管理系统,但都是根据他们本国地实际情况来进行开发地,在语言文字、价格及对象地要求等方面都不符合我国地国情.在国内,虽然现在也有很多地成绩管理系统,但大多是封闭性地.0YujCfmUCw2.5 系统主要业务逻辑系统表业务逻辑如下图：业务流程如下图所示：系统用例如下图所示：每个用例都包括,科目,名次,班级属性.对于科目这个用例,他又包括分数这个属性.下面对系统地参与者进行更具体地分析：1. 如果最终分析地候选参与者没有用例,那么他根本不是一个参与者.2. 如果他和用例之间没有通信,没有任何联系,那么他也可能不是一个参与者.3. 如果候选用户并不作任何事情,但是他包含了一些特殊信息,那么他可能不是一个参与者,但他可以作为参与者地一个附属品.eUts8ZQVRd4. 如果参与者地名字过于细化,比如,张三,那么,我们应该根据他地角色来创建参与者.5. 如果一个参与者地名字过于泛化,比如“用户”,那么我们可以根据他地角色来细化他地参与者<如上图所示）sQsAEJkW5T 描述参与者和用例之间地关系是我们构建用例图地最后一步.系统地每个参与者都触发一个或多个用例,当然如果他没有触发任何用例,他将不能成为参与者,而每个用例都由一个或多个参与者触发.GMsIasNXkA三、系统地开发工具及编程环境3.1 开发工具地选择基于系统地需求分析以及系统地应用,系统将采用微软地Visual Studio6.0简体中文版进行开发,所选择地语言是Visual Basci6.0,下面将介绍Visual Basic6.0地特点.TIrRGchYzg3.2 Visual Basic语言地特点及常用名词Visual Basic 语言用其设计应用程序时具有两个基本特点,可视化设计WYSIWYG <what you see is what you get）和事件驱动编程.7EqZcWLZNXVisual Basic 系统除了一般高级语言所具有地一些名词术语外,还有几个系统常用地名词.其基本含义如下：视窗<Form）、对象(Object> 、属性(Properties>、事件(Events> 、方法(Method>、过程 (Procedure> 和模块 (Module>.lzq7IGf02E 1．视窗<Form）视窗是进行人机交互地界面或接口,也叫窗体.VB系统地人机交互界面或接口,无论是在设计时或是在运行时,都是Windows 系统地标准视窗.zvpgeqJ1hk2．对象 (Object>对象是VB系统内部提供给设计者可以直接使用地处理输出地控制工具.本程序所应用到地对象类型有标签框 (Label Box>,文本框(Text Box>,命令按扭 (Command Button>,网格 (Data Grid>等.当把这些工具放置到用户界面对应地窗体上时,被称为对象或控件.用户可以通过设置对象地“属性”和“方法”,便于对象适应自己所设计应用程序地输入输出内容,对象地生成过程及结构都被封装起来.正确使用对象可以减少程序和开发时间,提高程序设计者地工作效率.NrpoJac3v13．属性 (Properties>属性是VB系统提供地有关对象地参数或数据接口.用户通过适当地设置或改变对象地属性来确定对象地外观及性能特征,从而有效地使用系统提供地对象.比如,对象地名称、在屏幕上显示地位置、大小、颜色、接收或容纳地数据内容及数据地表现格式等.1nowfTG4KI 4．事件 (Events>事件是指用户或操作者对计算机进行地某一操作<如击键、单击或移动鼠标等）地行为或系统状态发生地变化.VB系统常用事件来引导计算机执行一段程序.程序所用地键盘事件有KeyPress<按键）事件,KeyDown事件和KeyUp事件；鼠标事件有Click<单击鼠标）事件,DbDlicd<双击鼠标）.fjnFLDa5Zo5．方法 (Method>方法主要是指对一个对象使用某种作用地过程.它是在程序执行地过程中要计算机执行地某种操作.其程序地方法有Show<显示）方法,Hide<隐藏）方法,Refresh<刷新）方法.tfnNhnE6e56．过程 (Procedure>过程是指经过定义或说明地,或基于某一对象对应地事件所引发地程序段.7．模块 (Module>模块是指一些运算量或过程进行声明或定义地一个集合.系统程序大体可分成四个模块：数据输入、根据查询、数据打印和通讯.HbmVN777sL3.3编程环境地选择微软公司地Visual Basic 6.0是Windows应用程序开发工具,使目前最为广泛地、易学易用地面向对象地开发工具.Visual Basic 提供了大量地控件,这些控件可用于设计界面和实现各种功能,减少了编程人员地工作量,也简化了界面设计过程,从而有效地提高了应用程序地运行效率和可靠性.故而,实现本系统Visual Basic 6.0是一个相对较好地选择.V7l4jRB8Hs3.4 Windows下地Visual Basic 面对对象地编程面对对象地编程；面向对象地设计方法(OOP, Objected Programming> 从应用领域内地问题着手,以直观自然地方式描述客观世界地实体.Visual Basic 作为一种面向对象地编程方法,把程序和数据封装起来作为一个对象,并为每个对象赋予相应地属性.在设计对象时,不必编写建立和描述每个对象地程序代码,而是用工具画在界面上,由 Visual Basic 自动生成对象地程序代码并封装起来.Visual Basic 应用程序基本地构建块是用户所创建地对象,每一个对象都具有一些特性和行为<属性、事件和方法）.开发人员可以最有效利用所创建地每一个对象.使用应用程序具有可通用性可说扩展性和强有力地功能.Visual Basic 应用由一系列对象组成,包括有函数、菜单、函数、结构和数据窗口、用户对象、用户事件等等,对象中又包含若干控件如命令按钮、单行编辑器等这些对象和控件都可在许多应用中重复使用.83lcPA59W9首先是进入登陆界面,如图3.4所示,本窗体显示系统名称,密码校验等信息,本系统地用户分为三类：管理员,教师,学生.使用者可以在组合框中选择所要登录地用户地类型,并输入相应地用户名和密码,单击“确定”就会将输入提交给系统以验证用户、密码及身份.如果用户类型及密码正确,则会进入系统地MDI主窗体<MDIMain.frm）.mZkklkzaaP本模块地流程图如下：图3-4流程图3.5 Visual Basic系统实现菜单选项实现菜单选项：菜单是程序最重要地特性之一,大多数程序都依赖一个定义良好地菜单使程序易于使用和维护,Visual Basic 也提供了强大地创建菜单功能,使程序更加标准.AVktR43bpw3.5 Visual Basic 系统实现菜单选项实现菜单选项：菜单是程序最重要地特性之一,大多数程序都依赖一个定义良好地菜单使程序易于使用和维护,Visual Basic 也提供了强大地创建菜单功能,使程序更加标准.ORjBnOwcEd四、系统数据库地使用4.1 系统数据库地选择本系统并没有选择流行地数据库管理系统作为后台数据库而是选择了以系统自己建立地文件系统作为数据库后台,这主要是考虑了系统地通用性和系统地实用性,在使用系统时,你并不需要额外地软件支持.同时,我们也参考了Access2000即关系数据库开发工具,利用数据库能汇集各种信和Access地优点,将使用数据表示图或自定义窗体收集信息.2MiJTy0dTT数据表示图提供了一种类似于Excel地电子表格,可以使数据库一目了然.另外,Access允许创建自定义报表用于打印或输出数据库中地信息.它也提供了数据存储库,可以使用桌面数据库文件把数据库文件置于网络文件服务器,与其他用户共享数据库.它是一种关系数据库工具,关系数据库是已开发地最通用地数据库之一.如上所述,参考Access地优点作为关系数据库开发,地确具备了许多优点,可以在一个数据包同时拥有桌面数据库地便利和关系数据库地强大功能.gIiSpiue7A4.2 数据地保存和读取系统采用自己定义地数据库格式,以文本文件保存用户录入地信息,数据地格式转换主要通过模块函数实现,保存时,系统将网格地数据读入RecordSet中,然后转换为可以写入文本文件地数据格式,当需要从文件加载数据时,执行相反过程,再将文件内容转换成内存地RecordSet地格式,并将RecordSet绑定到网格显示数据.执行这两者转换地数据模块式系统中地Moudel1,Moudel2两个模块.uEh0U1Yfmh4.3 数据库文件地易用性前面已经说明了,系统地数据存储是文本文件格式地文件,这对数据库文件地建立和转移,备份都是非常方便地,如果你愿意,完全可以在没有系统地时候更改录入资料,而不用关心系统是否崩溃了.如果要备份数据库,只需要备份系统下面地文本文件格式地数据库.这对系统地通用性是一个不错地选择.IAg9qLsgBX4.4 数据库文件格式数据库文件格式如下所示Private Sub CmdOk_Click(>Dim Conn As New ADODB.ConnectionDim mlink As Stringmlink = "provider=microsoft.jet.oledb.3.51。

一Public Declare Function timeGetTime Lib "winmm.dll" () As LongPublic Declare Function BitBlt Lib "gdi32" (ByV al hDestDC As Long, ByV al X As Long, ByV al Y As Long, ByV al nWidth As Long, ByV al nHeight As Long, ByV al hSrcDC As Long, ByV al xSrc As Long, ByV al ySrc As Long, ByV al dwRop As Long) As LongPublic Declare Function StretchBlt Lib "gdi32" (ByV al hdc As Long, ByV al X As Long, ByV al Y As Long, ByV al nWidth As Long, ByV al nHeight As Long, ByV al hSrcDC As Long, ByV al xSrc As Long, ByV al ySrc As Long, ByV al nSrcWidth As Long, ByV al nSrcHeight As Long, ByV al dwRop As Long) As LongPublic Declare Function SelectObject Lib "gdi32" (ByV al hdc As Long, ByV al hObject As Long) As LongPublic Declare Function DeleteObject Lib "gdi32" (ByV al hObject As Long) As LongPublic Declare Function CreateCompatibleDC Lib "gdi32" (ByV al hdc As Long) As LongPublic Declare Function GetObject Lib "gdi32" Alias "GetObjectA" (ByV al hObject As Long, ByV al nCount As Long, lpObject As Any) As LongPublic Type BITMAPbmType As LongbmWidth As LongbmHeight As LongbmWidthBytes As LongbmPlanes As IntegerbmBitsPixel As IntegerbmBits As LongEnd TypePublic Declare Function CreatePatternBrush Lib "gdi32" (ByV al hBitmap As Long) As Long Public Declare Function CreateCompatibleBitmap Lib "gdi32" (ByV al hdc As Long, ByV al nWidth As Long, ByV al nHeight As Long) As LongOption ExplicitDim pic As Picture, sX As Single, sY As Single, _Leij As Single, Hmemdc As Long, bm As BITMAP, _i As Single, OldDc As LongPrivate Sub Command1_Click()'初始化变量Call InstalMoveForm bm.bmHeight, 0, "-1", "y"End SubSub delay(ByV al n As Single)Dim tm1 As Long, tm2 As Longtm1 = timeGetTimeDotm2 = timeGetTimeIf (tm2 - tm1) / 1000 > n Then Exit DoDoEventsLoopEnd SubSub MoveForm(Begin As Long, XEnd As Long, Fuhao As String, Zhou As String)Dim i As Single, LS As SinglePicture1.ClsIf Zhou = "y" ThenFor i = Begin To XEnd Step FuhaoBitBlt Picture1.hdc, 0, i, Picture1.Width, _Picture1.Height, Hmemdc, 0, 0, vbSrcCopydelay 0.005 '延时Next iEnd IfIf Zhou = "x" ThenFor i = Begin To XEnd Step FuhaoBitBlt Picture1.hdc, i, 0, Picture1.Width, _Picture1.Height, Hmemdc, 0, 0, vbSrcCopydelay 0.005Next iEnd IfDeleteObject HmemdcDeleteObject OldDcEnd SubPrivate Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)Form1.Caption = "单轴计算的图形载入方式"End SubPrivate Sub Command10_Click()Call Instalxiex 0 - Picture1.ScaleWidth, 0, Picture1.ScaleHeight, 0, _"+1", Picture1.ScaleHeight / Picture1.ScaleWidth, 0, 0End SubPrivate Sub Command10_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)Form1.Caption = "斜向载入图形"End SubPrivate Sub Command11_Click()Call Instalxiex Picture1.ScaleWidth, 0, 0 - Picture1.ScaleHeight, 0, _"-1", 0 - Picture1.ScaleHeight / Picture1.ScaleWidth, 0, 0End SubPrivate Sub Command11_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)Form1.Caption = "斜向载入图形"End SubPrivate Sub Command12_Click()Dim Patten As Picture, hPatten As Long, i As Integer, _Oldpatten As LongPicture1.ClsCall Instaldelay 1For i = 11 To 18Set Patten = LoadResPicture(i, vbResBitmap)hPatten = CreatePatternBrush(Patten)Oldpatten = SelectObject(Picture1.hdc, hPatten)BitBlt Picture1.hdc, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, _Hmemdc, 0, 0, &HAC0744SelectObject Picture1.hdc, OldpattenDeleteObject Patten.HandleDeleteObject OldpattenDeleteObject hPattendelay 0.3Next iDeleteObject HmemdcDeleteObject OldDcEnd SubPrivate Sub Command12_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)Form1.Caption = "运用花色进行光栅运算的淡入"End SubPrivate Sub Command13_Click()Dim difX As Single, difY As Single, W As Single, H As Single, _fen As Integer, LsmemDc As Long, Lsbmp As LongCall InstalLsmemDc = CreateCompatibleDC(Picture1.hdc)Lsbmp = CreateCompatibleBitmap(Picture1.hdc, Picture1.ScaleWidth, Picture1.ScaleHeight) SelectObject LsmemDc, Lsbmpfen = 40difX = Picture1.ScaleWidth / fendifY = Picture1.ScaleHeight / fenFor i = fen To 0 Step -1sX = (Picture1.ScaleWidth - difX * i) / 2sY = (Picture1.ScaleHeight - difY * i) / 2BitBlt LsmemDc, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, _OldDc, 0, 0, vbBlacknessStretchBlt LsmemDc, sX, sY, difX * i, difY * i, _Hmemdc, 0, 0, bm.bmWidth, bm.bmHeight, vbSrcCopyBitBlt Picture1.hdc, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, _LsmemDc, 0, 0, vbSrcCopydelay 0.01Next iDeleteObject LsbmpDeleteObject LsmemDcDeleteObject HmemdcDeleteObject OldDcEnd SubPrivate Sub Command13_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)Form1.Caption = "由大到小的图形卸载方式"End SubPrivate Sub Command14_Click()Dim Patten As Picture, hPatten As Long, i As Integer, _Oldpatten As Long, LsmemDc As Long, Lsbmp As LongCall InstalBitBlt Hmemdc, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, _OldDc, 0, 0, vbBlacknessFor i = 11 To 18'Load patten对象Set Patten = LoadResPicture(i, vbResBitmap)'创建Pattenbrush对象hPatten = CreatePatternBrush(Patten)'把patten选入PictureboxOldpatten = SelectObject(Picture1.hdc, hPatten)'进行光栅运算，并把结果显示在picturebox 上BitBlt Picture1.hdc, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, _Hmemdc, 0, 0, &HAC0744'把Patten保存入pictureboxSelectObject Picture1.hdc, Oldpatten'删除临时DCDeleteObject Patten.HandleDeleteObject OldpattenDeleteObject hPatten'延时delay 0.1Next iDeleteObject HmemdcDeleteObject OldDcEnd SubPrivate Sub Command14_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)Form1.Caption = "运用花色光栅运算的淡出"End SubPrivate Sub Command15_Click()Call InstalDim i As Long, iY As LongPicture1.ClsiY = bm.bmWidthi = 0 - bm.bmWidth / 2For i = 0 - bm.bmWidth / 2 - 1 To 0iY = iY - 1BitBlt Picture1.hdc, iY, 0, Picture1.ScaleWidth / 2 + 1, Picture1.ScaleHeight, _ Hmemdc, bm.bmWidth / 2, 0, vbSrcCopyBitBlt Picture1.hdc, i, 0, Picture1.ScaleWidth / 2, Picture1.ScaleHeight, _Hmemdc, 0, 0, vbSrcCopydelay 0.005Next iBitBlt Picture1.hdc, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, _Hmemdc, 0, 0, vbSrcCopyDeleteObject HmemdcDeleteObject OldDcEnd SubPrivate Sub Command15_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)Form1.Caption = "分成两块X轴的载入方式"End SubPrivate Sub Command16_Click()Call InstalDim ILUx As Single, ILUy As Single, IRUx As Single, _IRUy As Single, ILDx As Single, ILDy As Single, _IRDx As Single, IRDy As Single, Lsbmp As Long, _Leij As SinglePicture1.ClsLeij = Picture1.ScaleHeight / Picture1.ScaleWidth'制作时的参照ILUx = 0 - bm.bmWidth / 2ILUy = 0 - bm.bmHeight / 2IRUx = bm.bmWidthIRUy = 0 - bm.bmHeight / 2ILDx = 0ILDy = bm.bmHeightIRDx = bm.bmWidth / 2IRDy = bm.bmHeight / 2'分别计算四个图块X，Y轴的运动轨迹For ILUx = 0 - bm.bmWidth / 2 To 0ILUy = ILUy + LeijIRUx = IRUx - 1IRUy = IRUy + LeijILDy = ILDy - Leij'直接显示在picturebox上BitBlt Picture1.hdc, ILUx, ILUy, Picture1.ScaleWidth / 2, Picture1.ScaleHeight / 2, _ Hmemdc, 0, 0, vbSrcCopyBitBlt Picture1.hdc, IRUx, IRUy, Picture1.ScaleWidth / 2, Picture1.ScaleHeight / 2, _ Hmemdc, bm.bmWidth / 2, 0, vbSrcCopyBitBlt Picture1.hdc, ILUx, ILDy, Picture1.ScaleWidth / 2, Picture1.ScaleHeight / 2, _ Hmemdc, 0, bm.bmHeight / 2, vbSrcCopyBitBlt Picture1.hdc, IRUx, ILDy, Picture1.ScaleWidth / 2, Picture1.ScaleHeight / 2, _ Hmemdc, bm.bmWidth / 2, bm.bmHeight / 2, vbSrcCopy'延时delay 0.01Next ILUx'去除接缝BitBlt Picture1.hdc, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, _ Hmemdc, 0, 0, vbSrcCopy'删除无用的DCDeleteObject HmemdcDeleteObject OldDcEnd SubPrivate Sub Command16_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)Form1.Caption = "分成四块的图形载入方式"End SubPrivate Sub Command17_Click()Call InstalDim ILUx As Single, ILUy As Single, IRUx As Single, _IRUy As Single, ILDx As Single, ILDy As Single, _IRDx As Single, IRDy As Single, Lsbmp As Long, _Leij As Single, LsmemDc As Long'建立与Picture1相兼容的虚拟DCLsmemDc = CreateCompatibleDC(Picture1.hdc)'建立与Picture1相兼容的BmpLsbmp = CreateCompatibleBitmap(Picture1.hdc, Picture1.ScaleWidth, Picture1.ScaleHeight)'把虚拟Bmp 选进虚拟DCSelectObject LsmemDc, Lsbmp'计算Y轴单位累加数Leij = Picture1.ScaleHeight / Picture1.ScaleWidthILUx = 0ILUy = 0IRUx = bm.bmWidth / 2IRUy = 0ILDx = bm.bmWidth / 2ILDy = bm.bmHeight / 2IRDx = bm.bmWidth / 2IRDy = bm.bmHeight / 2For ILUx = 0 To 0 - bm.bmWidth / 2 Step -1ILUy = ILUy - LeijIRUx = IRUx + 1IRUy = IRUy - LeijILDy = ILDy + Leij'把要操作的图象转移进虚拟DCBitBlt LsmemDc, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, _OldDc, 0, 0, vbBlacknessBitBlt LsmemDc, ILUx, ILUy, Picture1.ScaleWidth / 2, Picture1.ScaleHeight / 2, _ Hmemdc, 0, 0, vbSrcCopyBitBlt LsmemDc, IRUx, IRUy, Picture1.ScaleWidth / 2, Picture1.ScaleHeight / 2, _ Hmemdc, bm.bmWidth / 2, 0, vbSrcCopyBitBlt LsmemDc, ILUx, ILDy, Picture1.ScaleWidth / 2, Picture1.ScaleHeight / 2, _Hmemdc, 0, bm.bmHeight / 2, vbSrcCopyBitBlt LsmemDc, IRUx, ILDy, Picture1.ScaleWidth / 2, Picture1.ScaleHeight / 2, _ Hmemdc, bm.bmWidth / 2, bm.bmHeight / 2, vbSrcCopy'把虚拟DC 显示到PictureboxBitBlt Picture1.hdc, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, _LsmemDc, 0, 0, vbSrcCopydelay 0.01Next ILUx'去除接缝BitBlt Picture1.hdc, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, _Hmemdc, 0, 0, vbBlackness'删除不用的虚拟DCDeleteObject HmemdcDeleteObject LsbmpDeleteObject LsmemDcDeleteObject OldDcEnd SubPrivate Sub Command17_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)Form1.Caption = "分成四块的图形卸载方式"End SubPrivate Sub Command18_Click()Unload MeEnd SubPrivate Sub Command18_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)Form1.Caption = "请按此键退出,下次再见。

摘要该学生成绩管理系统是用Visual Basic 制作的，该系统可以实现教师进行对学生的成绩管理，添加学生用户以及可以查询学生的成绩；还实现学生用户通过登录系统可以查询到自己的各科课程成绩以及修改自己的登录密码；还有的是教师用户和学生用户可以退出系统。

该系统采用了对窗体、基本控件的应用，选择结构的if语句，循环结构的循环语句for…next结构，菜单设计，过程，数据文件来构建整个程序。

在此报告中重点叙述了学生成绩系统的各个功能，特别是学生的成绩查询和密码修改以及教师和学生的登录。

整个系统会以系统结构图、程序流程图、功能模块，让大家能知晓该系统的功能。

摘要 (1)第一章任务概述 (3)1.1、目标 (3)1.2、需求分析 (3)1.2.1、鼠标操作 (3)1.2.2、键盘操作 (3)第二章总体设计 (4)2.1、系统结构图 (4)第三章详细设计 (5)3.1、程序运行后的界面 (5)3.2、教师的登录界面 (5)3.3、教师对学生的成绩管理的界面 (6)3.4、教师对学生添加用户的界面 (8)3.5、学生的登录界面 (10)3.6、学生查询成绩的界面 (12)3.7、学生修改密码的界面 (13)小结 (15)第一章任务概述1.1、目标本系统的目标是建立一套可以对学生的成绩的管理、查询学生的各科成绩、对学生的密码修改的学生成绩管理系统。

该系统可以帮助我们更方便的管理学生的成绩，替代了以前的手工操作管理学生的成绩，节约我们珍贵的时间。

1.2、需求分析根据该系统的需求分析，系统的需求可以分为以下的几个方面：1.2.1、鼠标操作你可以利用鼠标点击界面的某些按钮来实现对系统的有关操作。

1.2.2、键盘操作你可以利用键盘对该系统的某些操作。

第二章总体设计2.1、系统结构图图2-1 系统结构图第三章详细设计3.1、程序运行后的界面图3-1 系统界面3.2、教师的登录界面图3-2 教师登录界面代码：Private Sub Command1_Click()Dim usename As String, pwd As String’定义用户名和用户密码usename = LCase(Trim(T1.Text))pwd = T2.TextIf usename = "admin" Then’判断用户名和密码是否正确If pwd = "123456" ThenUnload Me管理Form.ShowElseMsgBox "密码错误！", vbOKOnly + vbInformation, "提示"T2.SetFocusT2.SelLength = 99End IfElseMsgBox "用户名错误！"End IfEnd Sub3.3、教师对学生的成绩管理的界面图3-3 成绩管理界面主要代码：Private Type student ’对student类型和公共变量的定义num As String * 8name As String * 6gs As Integeryy As Integervb As Integerwl As IntegerEnd TypeDim s As student’记录变量Dim filenum As Integer’随机文件编号Dim lastrecord As Long’文件中最后一条记录的编号Dim position As Long’当前记录编号Private Sub addCmd_Click()’添加学生的成绩lastrecord = LOF(filenum) / Len(s)lastrecord = lastrecord + 1s.num = NumText.Text = NameText.Texts.gs = GsText.Texts.yy = YyText.Texts.vb = VbText.Texts.wl = WlText.TextPut #filenum, lastrecord, s’向随机文件写入数据NumText.Text = ""NameText.Text = ""GsText.Text = ""YyText.Text = ""VbText.Text = ""WlText.Text = ""End SubPrivate Sub cancelCmd_Click()’删除学生的成绩Dim i As Integer, ft As Integer’定义变量lastrecord = LOF(filenum) / Len(s)ft = FreeFile()Open "student.tmp" For Random As ft Len = Len(s)’打开随机文件position = Seek(filenum)position = position - 1For i = 1 To lastrecordIf i <> position Then’判断是否与当前记录编号一致Get filenum, i, s’从随机文件读取数据Put ft, i, sEnd IfNextlastrecord = lastrecord - 1Close filenumClose ftKill "student.dat"Name "student.tmp" As "student.dat"filenum = FreeFileOpen "student.dat" For Random As #filenum Len = Len(s)’打开随机文件NumText.Text = ""NameText.Text = ""GsText.Text = ""YyText.Text = ""VbText.Text = ""WlText.Text = ""End SubPrivate Sub Form_Load()filenum = FreeFileOpen "student.dat" For Random As #filenum Len = Len(s)position = Seek(filenum)Get filenum, position, sNumText.Text = s.numNameText.Text = GsText.Text = s.gsYyText.Text = s.yyVbText.Text = s.vbWlText.Text = s.wl3.4、教师对学生添加用户的界面图3-4 添加用户界面主要代码：Private Sub addlCmd_Click()’添加学生用户lastrecord = LOF(filenum) / Len(m)lastrecord = lastrecord + 1m.num = NumText.Textm.pwd = PwdText.TextPut #filenum, lastrecord, mNumText.Text = ""PwdText.Text = ""End SubPrivate Sub cancelCmd_Click()’删除学生用户Dim j As Integer, jt As Integerlastrecord = LOF(filenum) / Len(m)ft = FreeFile()Open "message.tmp" For Random As ft Len = Len(m) position = Seek(filenum)position = position - 1For i = 1 To lastrecordIf i <> position ThenGet filenum, i, mPut jt, i, mEnd IfNextlastrecord = lastrecord - 1Close filenumClose jtKill "student.dat"Name "message.tmp" As "message.dat"filenum = FreeFileOpen "message.dat" For Random As #filenum Len = Len(m) NumText.Text = ""PwdText.Text = ""End SubPrivate Sub Form_Load()filenum = FreeFileOpen "message.dat" For Random As #filenum Len = Len(m) position = Seek(filenum)Get filenum, position, mNumText.Text = m.numPwdText.Text = m.pwdEnd SubPrivate Sub Form_Load()filenum = FreeFileOpen "message.dat" For Random As #filenum Len = Len(m) position = Seek(filenum)Get filenum, position, mNumText.Text = m.numPwdText.Text = m.pwdEnd Sub3.5、学生的登录界面图3-5 学生登录界面主要代码：Private Type messagenum As String * 6pwd As String * 6End TypePrivate Type passwordpwd As String * 6End TypeDim n As passwordDim m As messageDim filenb As IntegerDim filenum As IntegerDim lastrecord As LongDim position As LongPrivate Sub Command1_Click()’学生第一次登录If BText.Text = m.num ThenIf PText.Text = m.pwd ThenUnload Me管理Form.Show管理Form.c.Enabled = False管理Form.t.Enabled = False管理Form.xg.Enabled = TrueElseMsgBox "密码错误！", vbOKOnly + vbInformation, "提示"PText.SetFocusPText.SelLength = 99End IfElseMsgBox "班号错误！"End IfEnd SubPrivate Sub Command3_Click()’学生修改密码后的登录If BText.Text = m.num ThenIf PText.Text = n.pwd ThenUnload Me管理Form.Show管理Form.c.Enabled = False管理Form.t.Enabled = False管理Form.xg.Enabled = TrueElseMsgBox "密码错误！", vbOKOnly + vbInformation, "提示"PText.SetFocusPText.SelLength = 99End IfElseMsgBox "班号错误！"End IfEnd SubPrivate Sub Form_Load()登录Form.Visible = False管理Form.Showfilenb = FreeFileOpen App.Path & "\message.dat" For Random As #filenb Len = Len(m)添户Form.NumText.Text = m.num添户Form.PwdText.Text = m.pwdlastrecord = LOF(filenb) / Len(m)For i = 1 To lastrecordGet #filenb, i, mNextfilenc = FreeFileOpen App.Path & "\password.dat" For Random As #filenc Len = Len(n)改密码Form.xpwdtext.Text = n.pwdlastrecord = LOF(filenc) / Len(n)For i = 1 To lastrecordGet #filenc, i, nNextEnd Sub3.6、学生查询成绩的界面图3-6 成绩查询界面主要代码：Private Type studentnum As String * 8name As String * 6gs As Integeryy As Integervb As Integerwl As IntegerEnd TypeDim s As studentDim fileno As IntegerDim lastrecord As LongDim position As LongPrivate Sub Command2_Click()’学生查询成绩fileno = FreeFileOpen App.Path & "\student.dat" For Random As #fileno Len = Len(s)添加Form.NumText.Text = s.num添加Text.Text = 添加Form.GsText.Text = s.gs添加Form.YyText.Text = s.yy添加Form.VbText.Text = s.vb添加Form.WlText.Text = s.wllastrecord = LOF(fileno) / Len(s)For i = 1 To lastrecordGet #fileno, i, sIf T1.Text = s.num ThenT2.Text = T3.Text = s.gsT4.Text = s.yyT5.Text = s.vbT6.Text = s.wlEnd IfNextEnd Sub3.7、学生修改密码的界面图3-7 修改密码界面主要代码：Private Type passwordpwd As String * 6End TypeDim n As passwordDim filenum As IntegerDim filenu As IntegerDim lastrecord As LongDim position As LongPrivate Sub Command1_Click()’学生修改密码If qpwdtext.Text <> xpwdtext.Text Then’判断两次输入的新密码是否一致MsgBox "新密码和确认新密码不一致"ElseMsgBox "记得下次登录请用新密码，并登录时点击再登录"End Iflastrecord = LOF(filenum) / Len(n)lastrecord = lastrecord + 1n.pwd = xpwdtext.TextPut #filenum, lastrecord, nxpwdtext.Text = ""End SubPrivate Sub Form_Load()filenum = FreeFileOpen "password.dat" For Random As #filenum Len = Len(n)position = Seek(filenum)Get filenum, position, nxpwdtext.Text = n.pwd小结通过这一周的VB程序设计实践，我感觉学到了很多知识。

目录摘要2关键字：2引言2一、系统的理论与技术基础31.1管理信息系统基础31.2 软件工程理论的概述31.3 软件工程理论对本系统的指导3二、系统的需求分析32.1工程开发的背景分析42.2 工程开发的目标42.3工程提出的意义52.4 国内外研究现状5三、系统的开发工具及编程环境63.1 开发工具的选择63.3编程环境的选择73.5 Visual Basic 系统实现菜单选项83.5 Visual Basic 系统实现菜单选项9四、系统数据库的使用94.1 系统数据库的选择94.2 数据的保存和读取94.3 数据库文件的易用性104.4 数据库文件格式104.5教师管理界面编码设计11五、系统代码及开发过程115.1系统的开发115.2功能需求描述125.3代码及图示125.3.2.主窗口：125.3.3.管理系统：135.3.4.属性：135.3.5.打开系统显示的界面145.3.6.窗体的尺寸14结论15致谢15参考文献16学生成绩管理系统摘要学生信息管理系统是典型的信息管理系统，经过分析，我们使用MICROSOFT公司的VISUAL BASIC开发工具，利用其提供的各种面向对象的开发工具，尤其首先在短时间内建立系统应用原型，然后，对初始原型系统进行需求迭代，不断修正和改进，直到形成用户满意的可行系统。

关键字：数据库，智能化，面向对象ABSTRACT：The abstract student information management system is the typical information management system, the process analysis, We use MICROSOFT Corporation VISUAL the BASIC development kit, uses each kind of object-oriented development kit which it provides, especially first in a short time establishes the system application prototype, then, carries on the demand iteration to the initial prototype system, revises and the improvement unceasingly, until forms user satisfaction the feasible system.Key words：Database，intelligence，object-oriented引言随着学校规模的不断扩大，学生数量急剧增加，有关学生的各科成绩信息量也成倍增长。

vb学生成绩管理系统一、需求分析为了方便教师管理学生成绩，同时减轻教师的工作量，我们设计开发了一套vb学生成绩管理系统。

本系统的主要目标是为学校的师生提供一套方便、快捷、高效的管理系统。

系统包括学生管理、教师管理、课程管理和成绩管理等模块。

学生模块主要管理学生的基本信息，包括学生姓名、性别、年龄、所在班级、学号等。

教师模块主要管理教师的基本信息，包括教师姓名、性别、年龄、所在院系、职称等。

课程模块主要管理课程的基本信息，包括课程名称、学分、考试时间等。

成绩模块主要管理学生成绩信息，包括成绩编号、学生姓名、课程名称、成绩等。

二、系统设计1.功能模块(1)学生管理模块该模块主要用于实现对学生信息进行管理。

包括学生信息的添加、删除、修改和查询等功能。

同时该模块还提供了一个查询学生成绩单的功能。

(2)教师管理模块该模块主要用于实现对教师信息进行管理。

包括教师信息的添加、删除、修改和查询等功能。

同时该模块还提供了一个查询教师所教授的课程的功能。

(3)课程管理模块该模块主要用于实现对课程信息进行管理。

包括课程信息的添加、删除、修改和查询等功能。

同时该模块还提供了一个查询课程的学生名单的功能。

(4)成绩管理模块该模块主要用于实现对学生成绩信息进行管理。

包括学生成绩信息的添加、删除、修改和查询等功能。

同时该模块还提供了一个查询某一学生和某一课程的成绩的功能。

(5)登录模块该模块主要用于实现用户的登录和退出功能。

2.系统架构(1)系统主界面系统主界面分为三部分：菜单栏、工具栏和主窗口。

菜单栏提供了系统的主要功能，工具栏提供了快速访问系统功能的按钮，主窗口用于显示各个模块的内容。

(2)模块窗口每个模块都有一个单独的窗口，用于显示该模块所包含的功能。

在每个窗口中，都有一个菜单栏和一个工具栏。

菜单栏和工具栏提供了该模块的主要功能和快速访问方式。

三、系统实现1.数据库设计该系统使用了Access数据库，数据库包含四张表格，分别为“student”、“teacher”、“course”和“score”表格。