MIS课程设计学籍管理系统

《MIS课程设计学籍管理系统》由会员分享，可在线阅读，更多相关《MIS课程设计学籍管理系统（27页珍藏版）》请在装配图网上搜索。

1、 课程设计报告 第 II页 共II页 理工学院 MIS课程设计课程设计题目： 学籍管理系统 专 业 班 级： 市场营销L071班 学 生 姓 名： 学 号： 指 导 教 师： 2010年 3月 12日目 录 1 引言1 2 系统调查与可行性研究3 2.1 初步调查32.2 可行性研究6 3 系统分析8 3.1 业务流程分析8 3.2 数据流程分析83.3 数据字典11 4 系统设计194.1 功能结构设计194.2 数据库设计194.3 代码设计28 4.4 输入输出设计29 4.5系统配置设计30 参考文献47 附录48 1. 引言随着计算机技术的飞速发展，计算机在各种单位机构管理中应用的普

2、及，管理信息系统的开发在强调管理、强调信息的现代社会中也显得越来越重要。因此，利用计算机支持单位高效率地完成人事管理的日常事务，是适应现代各种单位机构制度要求、推动各种单位机构人事管理走向科学化、规范化的必要条件。在当今的信息社会，随着信息的不断增长和企业对信息的要求，信息管理技术随之出现。企业人事管理信息系统是一个现代化的企业在竞争中立于不败之地的必要部分，它能够为查询人事信息提供充足的信息和快捷的查询手段1。一直以来使用传统人工的方式管理文件档案，这种管理方式存在着许多缺点,如：效率低、保密性差，另外时间一长，将产生大量的文件和数据,这对于查找、更新和维护都带来了不少的困难，而且容易丢失。

3、自20世纪50年代将计算机引入数据处理以来，历经管理信息系统发展的各个阶段。一方面是信息技术应用的迅猛发展，另一方面，许多管理信息系统在耗费了大量的人力、物力、财力之后夭折了，或者根本没有实现原系统的开发目标，而把计算机用作了打字机。这是长期以来困惑人们的一大问题2。现在人们日益深刻认识到，把信息技术应用与应用环境分离是办不到的。管理信息系统根本不仅是技术系统，而且是社会系统。使用计算机对企业人事信息进行管理，具有手工管理所无法比拟的优点。例如：检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高企业人事管理的效率,也是企业的科学化、正规化管理，与世界接轨

4、的重要条件3。因此，开发一个代替手工操作的新型的计算机管理的信息系统对保定隆达铝业有限公司来说刻不容缓，这也是本课题的由来。本论文就是以Visual C+为前台和Access为后台等软件作为开发工具，以各种单位机构为对象，开发一个从某种程度上能满足中小型机构对人事信息管理的要求的“人事管理系统”。本系统具有数据管理和企业事务管理功能。使用该系统，可以方便地进行系统管理，基础数据管理，人事档案管理，考勤管理，数据库管理，并且带有备忘录功能，还能够快捷地查询公司员工的情况，方便企业高层领导对该企业人力资源的现状有个比较全面的认识，也方便他们的管理和人员调动，可辅助企业领导决策科学化而大大减少了工作

5、量，提高了工作效率。2. 学生学籍管理信息系统分析2.1系统的需求分析本系统为了实现学校在校学生、离校学生各项信息资源的查询、统计、添加、删除、维护和管理，方便用户的管理和需求。将学生学籍管理系统分为：学生信息管理，学生成绩管理，学生档案管理和用户管理四个功能模块。1.学生信息管理模块主要对学生信息（如学号、姓名、性别、班级、家庭住址等）进行管理，本模块有分为三个子模块。（1） 学生信息录入（2） 学生信息查询（3） 学生信息修改删除2学生成绩管理模块主要对学生成绩进行管理，分四个模块。（1）学生成绩录入 （2）学生成绩查询 （3）学生成绩修改、删除（4） 学生成绩统计3学生学籍档案管理主要对

6、学校在校学生的档案进行管理 （1）学生、奖惩情况的查询 （2）学生报名注册登记表的录入 （3）在校生档案的查询4.用户管理主要对用户权限设置进行管理。 用户名：密码设置（管理人员和普通用户） 行功能调整。 2.2 系统分析的概况 系统分析是指在管理信息系统开发的生命周期中系统分析阶段的各项活动和方法，应用系统思想和系统科学的原理进行分析工作的方法和技术 系统分析阶段的目的，就是按照系统规划所定的某个开发项目范围内明确系统开发的目的和用户的信息需求，提出系统设计的逻辑方案。 系统分析在整个系统开发过程中，是要解决做什么的问题，就是根据系统规划所确定的范围，对系统进行详尽的调查，尽可能做好用户对信

7、息的需求，调查原信息系统的资源、输入、处理和输出，展示现在系统的业务流程，指出现行系统的局限性和不足之处，确定新系统的基本项目和逻辑功能要求，提车新系统的逻辑模型，为下一阶段系统设计方案解决怎么做提供依据，所以这个阶段又称逻辑设计阶段。系统分析阶段主要活动有：系统初步调查、可行性研究、系统详细调查、新系统逻辑方案的提出。2.3 系统初步调查 本系统初步调查采用的主要方式是与本院的老师，学籍管理处的教职工进行交流，经过调查研究。本院基本情况为：学院现有教职工250余名，在院在册学生达7000多人。实行校长负责制，下设教务处、财务科、党团支部、学生科、总务科、宿管、人事科、生产实习科、鉴定科、招生

8、就业科、保卫科十二大部门。个部门针对各自管辖范围进行管理，并向校长负责。在学校的日常教学活动中，学生的学籍管理和培养方向是非常重要的，所以可以从学院的行政管理和智能分工角度，得出组织结构图如下：（如图2-1）党委副书记副校长一副校长二校长助理团委办人事科学生科保卫科总务科生产实习科教务科宿舍财务科招生就业科鉴定科党委办校长兼党委书记图2-1 组织结构图 本院在日常教学活动中出现的主要问题是：1.学校现行的学籍管理方式认为基于文本、表格等，部分纸介质的出台手工处理方式、学籍信息没有完全科学化、规范化、处理速度慢，因此影响教学工作的开展，难以进行有效信息的及时反馈。2.学校领导对整个学校的学生信息

9、在很多时候得不到全面的及时的反馈，因此不能很好的适时指导教学方向，以致有所影响教学质量。3. 部门之间信息交流少，信息渠道单一，在很大程度上不利于协调工作。容易出错。因此，通过建立学生学籍管理信息系统，是学生学籍管理工作科学化、规范化、程序化、促使提供信息处里的速度和正确性，使学校的信息流程和流向清晰化、合理化。第一时间把握学生信息，以提供整体教学水平。2.4系统的可行性研究可行性研究是系统分析阶段的第二项活动。次活动的相呼应目标是：进一步明确系统的目标、规模和功能，对系统开发背景、必要性和意义进行调查分析并根据需要和可能提出开发系统的初步方案与计划。可行性研究是对系统进行全面、概要的分析。通

10、过调查分析、新系统设计法案有以下三个可行性。1. 技术可行性本系统采用windows2000作为操作平台。数据库管理系统用Access,该数据库管理系统提供数据块之间的可用性复制功能，科代替现有系统单据数据的手工传递工作，减低了出错率，提高了数据的可用性。本系统的应用程序开发平台选用Visual Basic6.0,这是目前数据库应用软件的主流开发平台。2. 经济可行性采用新的学籍信息管理系统科取代原系统的单据手工传递工作，减少人工开支，节省资金，科大大提高信息量的取得，缩短信息处理周期提高信息的利用率，是学院的教学质量更上一个台阶。3. 运行的可行性（1） 本系统操作简单，易于理解，只需要通过

11、简单的培训，上收购较快，学院学籍管理的职工以及相关的老师都能很好耳朵操作，营运环境要求低。 （2） 面对于系统设计还应该以标准性、安全性、高效性、保密性可维护性为标准，在着眼于当前的使用基础上，为将来的系统的扩展升级留有余地。如见的开发应能在较长的时间内满足学院的发展。标准性：由于血迹信息的重要性，系统必须稳定可靠，从而减少系统的数据损失。安全性：通过系统权限控制使用者，从而确保使用者无法操作与其他无关的数据。高效性：由于学校学生信息每次处理信息量较大，系统对信息处理能力相应都应该属快捷有效的。可维护性：采用结构化模块设计，便于开发与维护，也有利于有情况随时进行查阅。（3） 现行系统的详细调查

12、经过调查学校的学生学籍管理业务流程主要分为三大部分：建立学生基本信息、学生综合素质评估、学生学籍档案。1. 建立学生基本信息：学生符合入学条件的，学校批准后有专人向学生发放入学通知书。对新生注册，建立相关的学生个人信息（如学号、姓名、性别、专业和班级、家庭住址等）由本班班主任配合学院学生管理处负责人(学生科)统一审核并保存。根据用户权限对数据信息进行相应的处理（如查询、录入、修改、删除）。2. 学生成绩信息：将学生的学期成绩，由学生管理处工作人员将每期成绩结果进行记录并保存。根据用户权限对数据信息进行相应的处理（如查询、录入、修改、删除）。3. 学生学籍档案：学生情况与奖惩情况。包括学生在校期

13、间健康状况，学生参加校内校外各项活动记录和奖惩记录进行综合分析和汇总，学生学期评语等有关的在校期间表现进行的记录。由学籍管理工作人员将评估结果存入学生档案并保存。根据用户权限对数据信息进行相应的处理（如查询、录入、修改、删除）。（4） 学生学籍管理信息系统业务流程图 这是一种表明系统内各单位，人员之间的业务关系，作业顺序和管理信息流动的流程图，它可以帮助分析人员找出业务流程中的不合理迂回等。学籍管理系统的系统分析的重点是对学籍管理信息系统的业务流程进行描述，通过采用流程图中的部分图形来对学生信息质量的管理活动进行规范化说明。管理员学生档案表学生信息表学生成绩表信息的查、增、删、改学生学籍管理信

14、息表学生学籍管理信息系统 图2-2学生学籍管理信息流程图从上图的业务流程图中，可以了解到整个学院学生学籍处理的基本业务以及业务动态去向：（1） 从新生的入学录取，新生的注册（安排学号，登记学生个人基本信息），由学生管理处人员审阅并维护，最后保存。普通用户可查询。（2） 根据学生学号可对应的差现代学生的成绩单，由学生管理处人员审阅并维护，最后保存。普通用户可查询。（3） 根据学生学号对应查找，该省在校的情况（如健康状况、活动情况、奖惩情况等）和该生报名时等级的本人基本情况，由学生管理处人员审阅并维护，最后保存。普通用户可以查询。（5） 学生学籍管理信息系统数据流程图 数据流程图描述系统的逻辑模块

15、，没有涉及硬、软件，数据结果与文件组织，用图形描述及相关的注释表示系统的逻辑功能。 为了使整个系统的概况一目了然，把细节用下一层的数据流程图表示，此系统采用了，逐层细画的原则。学生信息录入学生成绩录入档案信息录入档案数据表成绩数据表信息数据表学生学籍信息管理员 数据库信息单成绩单档案单So1POD1D2D3PO2Po3图2-3学生学籍管理数据流程图1. 学生学籍管理员通过学生信息单，学生成绩单，学生档案单分别录入，生成信息数据表，成绩数据表，档案数据表从而成立一个总的数据库。学生信息管理数据流程图如下: 学生信息查询信息数据表学生信息管理员Fo1信息录入So1Fo5D1Fo2Fo3Fo4按姓名

16、按学号按班级Fo62. 学生学籍管理员通过学生信息单录入学生的信息，建立信息数据表。用户可根据：学号、姓名、班级来查询自己所需的信息，方便而简单。 学生成绩查询成绩数据表表表学生成绩管理员Fo5So1成绩统 Fo7DFo2Fo3Fo4按姓名按学号按班级Fo6成绩录入Fo1 成绩PP 图2-5学生成绩管理数据流程图3.学生学籍管理员通过学生信息单录入学生的成绩，建立成绩数据表。则用户可根据：学号、姓名、班级来查询自己所需的信息，学生档案查询信息数据表学生档案管理员So1DFo3Fo4Fo5按姓名按学号按班级Fo7档案信息录入Fo6Fo1 档案单Fo2P1P2图2-6学生档案管理数据流程图 4.

17、学生学籍管理员通过学生信息单录入学生的档案，建立档案数据表。用户可根据：学号、姓名、班级查询学生的基本档案。用户用户信息录入用户权限 系统管理员系统数据表FO1 管理FO2 数据FO3设置DO1DO2FO4 查询FO5 添加FO6 维护DSO1图2-7系统管理数据流程图5.系统管理人员可根据用户需要设置用户及权限，建立系统数据表。使整个系统的维护更具有安全性，保密性。 4.学生学籍管理信息系统设计 系统设计师管理信息系统设计开发的第二阶段。在这一阶段中我们将根据系统调查与分析阶段的结果，进行新系统的设计工作。系统设计包括两方面的工作：首先是总体结构的设计；其次是系统的详细设计 系统设计包括如下

18、工作内容 1. 系统的总体结构设计（1） 系统功能结构的划分（2） 确定系统的计算机处理流程2. 系统详细的设计（1） 系统数据模型设计（2） 数据库的逻辑设计 4.1 系统的总体设计 系统的总体设计是指在系统调查与分析的基础上，对整个系统在结构上的划分，硬软件环境的配置和确定子系统与模块的处理流程。 4.1.1 系统功能结构的划分 总体设计中最核心的问题是系统总体功能结构的确定和子系统与模块的划分，结构化。 学生学籍管理信息系统功能结构图（图3-1）学生学籍管理信息系统学生信息管理学生成绩管理学生学籍档案学生信息录入学生信息查询学生信息修改学生成绩查询学生成绩修改学生成绩统计学生奖惩情况学生

19、报名注册在校生档案查学生成绩录入图3-1 学生学籍管理信息系统功能结构图4.1.2 确定计算机的处理流程 目的是让开发人员明确子系统或功能模块中信息的流动、转换、存储和处理等情况，以便进一步明确模块程序设计级以后模块实现的任务和工作重点，从而把系统的总体设计计划做到每一个子系统和模块中。 子系统或模块的计算机处理流程，可以用一种基于计算机处理的业务流程图来描述。本学籍管理信息系统的计算机处理流程图如下：学籍信息数据库学生成绩查、删改、增学生学籍档案录入用户管理添加学生信息的查、删、改学生信息登记键入这是个人信息成绩表学籍档案表用户管理表图3-2 学籍管理信息系统的计算机处理流程图4.2 系统的

20、详细设计 4.2.1 关系型数据模型 学生信息表（专业、班级、学号、性别、出生年月、家庭住址、联系电话、备注）学生成绩（专业、班级、学号、姓名、班级、学号、姓名、课程名称、备注）学生档案表（专业、班级、学号、姓名、民族、籍贯、政治面貌、奖惩、是否留级、在校表现状况、备注）学生注册表（专业、班级、学号、姓名、出生年月、家庭住址、联系电话、备注）用户管理表（用户名、秘密、备注）4.2.1 数据库的逻辑设计是希望通过数据库管理系统提供的功能与描述工具，设计出规模恰当，能正确反映实际信息关系，重复极少数据少，存取效率高并能满足用户数据要求的数据模型。1. 系统逻辑设计的主要工作就是将E-R图转换成一张

21、张的二维表，以及各表的属性，E-R图是系统的概念设计，对系统前期分析相当的重要，它可以正确直观的反映出一个业务系统过程。本系统的E-R图如下录入学生学籍从何学生信息管理员/ 普通用户从何学生成绩学生档案从何出生年月学会用户名秘密专业班级姓名家庭住址联系电话奖励姓名课名专业学好班级是否留专业学号班级姓名政治面貌包含注册表姓名专业学好出生年月家庭住址联系电话班级2. 2. E-R图 转化成的二维表如下： 3-1学生信息表学生信息专业班级学号姓名出生年月家庭住址联系电话 3-2学生成绩表 学生成绩专业班级学号姓名课程名称 3-3学生档案表学生档案专业班级学号姓名政治面貌奖惩是否留级 3-4注册表注册

22、专业班级学号姓名出生年月家庭住址联系电话 3-5 用户管理表 用户用户名秘密 5. 数据字典数据字典是各类数据描述的集合，它是进行详细的数据手机和数据分析后获得的主要成果。数据字典通常包括以下几个方面：（1）数字项：数据项是不可再分的数据单位（2）数据结构：数据结构反映了数据之间的组合关系。一个数据结构可以由若干个数据结构组成，由若干个数据项和数据结果混合而成。（3）数据流：数据流是数据结果在系统内传输的路径。（4）数据存储：数据存储是数据及结构停留或保留的地方，也是数据流的来源去向之一。（5）处理过程：处理过程的具体处理逻辑一般用判定表或判断树来描述。（6）数据字典：是关于数据库中数据的描述

23、，即对原数据的描述。本系统的数据字典如下： 表3-6学生信息表 列名数据类型及长度可否为空主键专业 文本型（20） NOTNULL 班级文本型（20）NOTNULL学号文本型（8）NOTNULL 主键姓名文本型（8）NOTNULL性别 逻辑型（2） NOTNULL籍贯文本型（8）NOTNULL出生年月日期型（8）NOTNULL家庭住址文本型（60）NOTNULL联系电话文本型（12）NOTNULL政治面貌文本型（4） NOTNULL备注备注型（50）NOTNULL 表3-7学生成绩表1 列名数据类型及长度可否为空主键专业文本型（20） NOTNULL班级文本型（20） NOTNULL学号文本型

24、（8） NOTNULL 主键姓名文本型（8） NOTNULL计算机网络数字型（4） NOTNULL计算机组成原理数字型（4） NOTNULL计算机应用于提高数字型（4） NOTNULL管理信息系统数字型（4） NOTNULL信息法律规程数字型（4） NOTNULL办公软件数字型（4） NOTNULL备注备注型（50） NOTNULL 表3-8学生档案表 列名数据类型及长度可否为空主键专业文本型（20） NOTNULL班级文本型（20） NOTNULL学号文本型（8） NOTNULL 主键姓名文本型（8） NOTNULL性别文本型（4） NOTNULL民族文本型（8） NOTNULL籍贯文本型（

25、8） NOTNULL家庭住址文本型（60） NOTNULL联系电话文本型（12） NOTNULL奖惩情况文本型（100） NOTNULL留级情况文本型（60） NOTNULL表现情况文本型（200）备注文本型（50） 表3-9管理表列名数据类型及长度可否为空 主键用户名文本型（16） NOTNULL秘密文本型（16）NOTNULL 表3-10注册表列名数据类型及长度可否为空主键专业 文本型（20） NOTNULL班级文本型（20）NOTNULL学号文本型（8）NOTNULL 主键出生年月文本型（8）NOTNULL家庭住址文本型（8）NOTNULL联系电话文本型（8）NOTNULL备注备注型（5

26、0）NOTNULL6. 系统实现6.1登录窗口的界面说明1 登录窗口的界面说明此登陆界面分为“管理员”和“普通用户”登录。“管理员”需输入用户名和秘密登录“信息管理”窗口;而普通用户则直接单击“登录”按钮进入“普通用户学生学籍窗口”。2 登录窗口界面代码3 （1）管理员登录代码：Private Sub Command1_ Click()Dim db As New ADODB. ConnectionDim rs As New ADODB. RecordsetDim sql As Stringdb.ConnectionString=”Provider=Microsoft.Jet.OLEDB.4.0

27、;DataSource=E:|zlfdb1. mdb;Persist Security Info=False”db.Opensql=”select”* from用户管理表rs.Open sq1, adOpenStatic, adLockReadOnlyWhile rs.EOP=False If rs.Field(0).Value = Text1.Text Then If rs.Field(1).Value = Text2.Text Then 登录界面.Hild 学生学籍信息管理窗口.Show Else Msgbox(“密码错误，请重新输入!”) End IfEnd IfRs.MoveNext

28、Wend End Sub Private Sub Command2_ Click() 登录界面.Hild 主界面.Show End Sub（3） 普通用户窗口代码 Private Sub Command3_ Click() 普通用户学生学籍窗口.Show 登录界面.Hild End Sub Private Sub Command4_ Click() 登录界面.Hide 主界面.Show End Sub6.2 信息管理界面说明1.信息管理界面说面信息管理包括“学生学籍信息管理、学生学籍成绩管理、学生学籍档案管理、用户管理”，下设相应的子菜单。管理员可根据需要进行内容的查询、添加、删除等。2. 信

29、息管理界面代码 （1）（学生学籍信息管理）信息查询窗口弹出代码 Private Sub xxcx_ Click(Index As Integer) 查询学生信息窗口.Show End Sub (2) (学生学籍信息管理) 信息添加窗口弹出代码： Private Sub xxtj_Click(Index As Integer) 添加学生信息窗口.Show End Sub (3) (学生学籍信息管理) 信息修改窗口弹出代码： Private Sub xxg_ Click(Index As Integer) 修改学生信息窗口.Show End Sub (4) (学生学籍成绩管理) 成绩查询窗口弹出代

30、码： Private Sub chjcx_ Click(Index As Integer) 查询学生成绩窗口.Show End Sub (5) (学生学籍成绩管理) 成绩添加窗口弹出代码： Private Sub chjtj_ Click(Index As Integer) 添加学生成绩窗口.Show End Sub (6) (学生学籍成绩管理) 成绩修改窗口弹出代码： Private Sub chjxg_ Click(Index As Integer) 修改学生成绩窗口.Show End Sub (7) (学生学籍档案管理) 档案查询窗口弹出代码： Private Sub dacx_ Cli

31、ck(Index As Integer) 用户档案查询窗口.Show End Sub (8) (学生学籍档案管理) 注册查询窗口弹出代码： Private Sub dazccx_ Click (Index As Integer) 用户注册查询窗口.Show End Sub (9) (用户管理) 用户修改窗口弹出代码： Private Sub yhxg_ Click(Index As Integer) 用户修改窗口.Show End Sub (10) (用户管理) 用户添加窗口弹出代码： Private Sub yhtj_ Click(Index As Integer) 用户添加窗口.Show

32、End Sub (11) 信息管理返回按钮代码： Private Sub Command1_ Click() 学生学籍信息管理窗口.Hide登录界面. Show End Sub 6.3 查询学生信息界面说明 1. 查询学生信息界面说明 用户选择所要查询的对象，单击“确定”按钮，得出相应的信息。 2.查询学生信息界面代码 Private Sub Command1_ Click() Dim kl As StringDim db As New ADODB. ConnectionDim rs As New ADODB. RecordsetDim sql As String Dim rsl As New

33、 ADODB. RecordsetDim sqll As String kl=Combol.Text db.ConnectionString=“Provider=Microsoft.Jet.OLEDB.4.0 Date Source=E:zlfdbl.mdb;persist Security Info=False” db.Open sql= “select * from 学生信息表” db.Open sql= “select * from 学生信息表” sqll= “select * from 学生信息表 where 姓名= “& kl &” rs.Open sqll, db,adOpenst

34、atic,adLockReadonly If rs. RecordCount=0 then MsgBox “表内无记录” 如果为空，弹出对话框 Else Rs.moveFirst 如果不为空，定位到选定的记录 Text1.Text=rsl. Fields(0).Value Text2.Text=rsl. Fields(1).Value Text3.Text=rsl. Fields(2).Value Text4.Text=rsl. Fields(3).Value Text5.Text=rsl. Fields(4).Value Text6.Text= rsl. Fields(5).Value Te

35、xt7.Text= rsl. Fields(6).Value Text8.Text= rsl. Fields(7).Value Text9Text= rsl. Fields(8).Value Text10ext= rsl. Fields(9).Value MsgBox(“查询成功”) Adodc1.Refresh End If End Sub Private Sub Command2_ Click() 查询学生信息窗口.Hide学生学籍信息管理窗口. Show End Sub6.3 添加学生信息界面说明1. 添加学生信息界面说明 管理员在空白栏中正确输入所要添加的信息，“添加”按钮即可添加成功

36、。2. 添加学生信息界面代码 Private Sub Command1_ Click()Dim db As New ADODB. ConnectionDim rs As New ADODB. RecordsetDim sql rt As String Dim zy,bj,xh,xm,xb.jg,csny,jtzz,lxdh,zzmm,bz,AsStringDim sqll As String db.ConnectionString=“Provider=Microsoft.Jet.OLEDB.4.0 Date Source=E:zlfdbl.mdb;persist Security Info=F

37、alse” db.Open sql= “select * from 学生信息表” rs.Open sqll, db,adOpenstatic,adLockOptimistic rs.AddNew rs. Fields(0).Value=Text1.Text rs. Fields(1).Value=Text2.Text rs. Fields(2).Value=Text3.Text rs. Fields(3).Value=Text4.Text rs. Fields(4).Value=Text5.Text rs. Fields(5).Value=Text6.Text rs. Fields(6).Va

38、lue=Text7.Text rs. Fields(7).Value=Text8.Text rs. Fields(8).Value=Text9.Text rs. Fields(9).Value=Text10.Text rs. Fields(10).Value=Text1.Text rs.Update MsgBox(“增加成功”) Text1.Text = “” Text2.Text = “” Text3.Text = “” Text4.Text = “” Text5.Text = “” Text6.Text = “”Text7.Text = “” Text8.Text = “”Text9.Te

39、xt = “” Text10.Text = “” Text11.Text = “” End Sub Private Sub Command2_ Click() Unload Me End Sub 6.4 成绩查询界面说明 1. 成绩查询界面说明 管理员根据需要选择所查询的对象，单击“确定”按钮即可查询成功。2. 成绩查询界面代码 Private Sub Command1_ Click() Dim kl As StringDim db As New ADODB. ConnectionDim rs As New ADODB. RecordsetDim sql As StringDim rsl As

40、 New ADODB. RecordsetDim sql As String Dim rsl As New ADODB. RecordsetDim sqll As String kl=combol.Text db.ConnectionString=“Provider=Microsoft.Jet.OLEDB.4.0Date Source=E:zlfdbl.mdb;persist Security Info=False” db.Open sql= “select * from 学生信息表 1” rs.Open sqll, db,adOpenstatic,adLockReadonly sqll= “

41、select * from 学生信息表1 where 学号= “& kl &” rsl.Open sqll, db,adOpenstatic,adLockReadonly If rs. RecordCount=0 then MsgBox “表内无记录” 如果为空，弹出对话框 Else Rs.MoveFirst 如果不为空，定位到选定的记录 Text1.Text=rsl. Fields(0).Value Text2.Text=rsl. Fields(1).Value Text3.Text=rsl. Fields(2).Value Text4.Text=rsl. Fields(3).Value T

42、ext5.Text=rsl. Fields(4).Value Text6.Text= rsl. Fields(5).Value Text7.Text= rsl. Fields(6).Value Text8.Text= rsl. Fields(7).Value Text9Text= rsl. Fields(8).Value Text10ext= rsl. Fields(9).Value MsgBox(“查询成功”) Adodc1.Refresh End If End Sub Private Sub Command2_ Click() Unload Me End Sub7 系统设计收获和结论经过三周的学习和设计，在老师的指导和帮组下，我们客服了很多困难，保证了课程设计的很好进行， 这次课程设计我们不但收获了我们女里的成果“学院学生学籍学习管理系统”，我们还在其中充分的感受到团队合作的高效性，进一步的巩固了课本知识，也让我们相互信任、了解、各施其责的重要性。这些对我们以后的发展具有深远的影响。参考文献 （1） 管理信息系统及其开发、王小铭 电子工业出版社 （2） VisualBasic6.0实用教材 、杨敏等编，电子科技大学出版社 （3） 中文OFFICE2000基本应用、徐春香等编，中国劳动社会保障出版社 （4） （5） 指导教师评语成绩签字：年 月 日