学生学籍管理信息系统分析设计复习过程

1、目录 1. 系统的开发意义 22. 系统分析 22.1 系统的需求分析 . 22.2 系统分析的概况 . 32.3 系统初步调查 . 32.4 系统的可行性研究 . 52.4.1. 技术可行性 52.4.2. 经济可行性 52.4.3. 营运可行性 52.5 现行系统的详细调查 . 52.6 新系统逻辑方案 . 52.7 学生学籍管理信息系统业务流程图 . 52.8 学生学籍管理信息系统数据流程图。 . 73. 学生学籍管理信息系统设计 103.1 系统的总体设计 . 113.1.1 系统功能结构的划分. 113.1.2 确定计算机的处理流程 . 113.2 系统的详细设计 . 123.2.1

2、 关系型数据模型 . 123.2.2 数据库的逻辑设计 . 124. 系统实现 174.1 界面、代码设计与实现 . 175. 系统管理维护与评价 455.1 系统的日常管理维护 . 455.2 系统的评价 . 455.3 系统设计心得收获与结论 . 45湖北大学生学籍管理信息系统的设计与开发1. 系统的开发意义学籍管理系统是一个教育单位不可缺少的部分 , 它的内容对于学校的决策者 和管理者来说都至关重要 , 所以学籍管理系统应该能够为用户提供充足的信息和 快捷的查询手段。 但一直以来人们使用传统人工的方式管理文件档案， 这种管理 方式存在着许多缺点 ,如:效率低、保密性差 ,另外时间一长 ,

3、将产生大量的文件和 数据, 这对于查找、更新和维护都带来了不少的困难。随着科学技术的不断提高 , 计算机科学日渐成熟 ,其强大的功能已为人们深 刻认识, 它已进入人类社会的各个领域并发挥着越来越重要的作用。 作为计算机应用的一部分 , 使用计算机对学生学籍进行管理 , 具有手工管理所无 法比拟的优点 . 例如: 检索迅速、查找方便、可靠性高、存储量大、保密性好、寿 命长、成本低等。这些优点能够极大地提高学生学籍管理的效率 , 也是企业的科 学化、正规化管理 , 与世界接轨的重要条件。本系统是由 Microsoft Visual Basic 6.0可视化开发软件工具下分析、设计、开发大中专院校的

4、学籍管理系统的过程。 通过对计算机硬件和软件解决方案 的论证， 对应用领域进行调查分析， 参考各种资料和进行数据库编程实践， 在指 导老师的帮助下， 已经基本上成功地实现了设计要求。 是我们设计的数据库系统 能够实现学生信息管理，学生成绩管理，学生档案管理，用户管理等功能。该系 统基本上满足了用户在学校信息管理方面的需求，用户界面友好。2. 系统分析2.1 系统的需求分析本系统为了实现学校在校学生、 离校学生各项信息资源的查询、 统计、添加、 删除、维护与管理，方便用户的管理与需求。将学生学籍管理系统分为：学生信 息管理，学生成绩管理，学生学籍档案管理和用户管理四个功能模块。1. 学生信息管理

5、模块主要对学生信息 （如学号、姓名、性别、班级、家庭住址等） 进行管理，本模块又分为三个子模块。学生信息录入学生信息查询学生信息修改删除2. 学生成绩管理模块主要是对学生成绩进行管理，四个子模块。学生成绩录入学生成绩查询学生成绩修改 / 删除学生成绩统计3. 学生学籍档案管理模块主要对学校在校生的档案进行管理。学生、奖惩情况的查询学生报名注册登记表录入在校生档案的查询4. 用户管理主要对用户权限设置进行管理。 用户名：密码设置（管理人员和普通用户） 行功能调整。2.2 系统分析的概况系统分析是指在管理信息系统开发的生命周期中系统分析阶段的各项活动 和方法，应用系统思想和系统科学的原理进行分析工

6、作的方法与技术。 系统分析阶段的目的， 就是按照系统规划所定的某个开发项目范围内明确系统开 发的目标和用户的信息需求，提出系统的逻辑方案。系统分析在整个系统开发过程中，是要解决“做什么”的问题，即根据系统 规划所确定的范围，对现行系统进行详细调查， 尽可能弄清楚用户对信息的需求， 调查原信息系统的资源，输入，处理和输出，描述现行系统的业务流程，指出现 行系统的局限性和不足之处， 确定新系统的基本目标和逻辑功能要求， 也即提出 新系统的逻辑模型，为下一阶段进行物理方案设计，解决“怎么做”提供依据。 因此，这个阶段又称逻辑设计阶段。系统分析阶段的主要活动有：系统初步调查、可行性研究、系统详细调查、

7、 新系统逻辑方案的提出。2.3 系统初步调查本系统初步调查采用的主要方式是与本校的教师， 尤其是与学籍管理处的教 职工进行交流，经过调查研究。本校基本情况为：学校现有教职工 200 余名，在 校在册学生达 5000 余人。实行校长负责制，下设教务科、财务科、党团支部、 学生科、总务科、宿管、人事科、生产实习科、鉴定科、招生就业科、保卫科十二大部门。各部门分别针对各自管辖范围进行具体管理，并向校长负责。 在学校 的日常教学活动中，学生的学籍管理和培养方向是至关重要的。 从学校的行政管 理和职能分工角度，得出了组织结构图。（如图2-1）本校在日常教学活动中出现的主要问题是：1. 学校现行的学籍管理

8、方式仍为基于文本、 表格等，纸介质的传统手工处理方式。 学籍信息管理没有完全科学化、规范化、 处理速度较慢，因此影响教学工作的开 展，难以进行有效的信息反馈。2. 学校领导对整个学校的学生信息在很多时候不能得到全面而又及时的反馈，因此不能适时指导教学方向，以至有所影响教育质量。3. 部门之间信息交流较少，信息渠道比较单一，在很大程度上不利于协调工作， 容易出错。因此，通过建立学籍管理信息系统，使学生学籍管理工作科学化、规 范化、程序化，促使提高信息处理的速度和正确性， 使学校的信息流程和流向晰 化、合理化。第一时间把握学生信息，以提高整体教学水平。生产实习科教务科图2-1 组织结构图2.4系统

9、的可行性研究可行性研究是系统分析阶段的第二项活动。此活动的主要目标是：进一步明 确系统的目标、规模与功能， 对系统开发背景、 必要性和意义进行调查分析并根 据需要和可能提出开发系统的初步方案与计划。 可行性研究是对系统进行全面、概要的分析。 通过调查分析， 新系统设计方案有 以下三个可行性：2.4.1 技术可行性本系统采用 Windows98作为操作平台。数据库管理系统选用 Access，该数 据库管理系统， 提供数据库之间的数据复制功能， 可代替现有系统单据数据的手 工传递工作，降低出错率， 提高数据的可用性。 本系统的应用程序开发平台选用 VisualBasic6.0 ，这是目前数据库应用

10、软件的主流开发平台。2.4.2 经济可行性 采用新的学籍信息管理系统可取代原系统的单据手工传递工作， 减少人工开 支，节省资金， 并且可大大提高信息量的取得， 缩短信息处理周期提高学生信息 的利用率，使教学质量更上一个台阶。2.4.3 营运可行性(1) . 本系统操作简单，易于理解，只需通过简单培训，上手较快，学校学籍管理 处的教职员以及相关教师均能进行操作，营运环境要求低。(2) . 面对于系统设计还应该以“标准性、安全性、高效性、保密性、可维护性” 为标准，在着眼于当前实用的基础上，为将来系统的扩展，升级留有余地。软件 的开发应能在较长时间内满足学校的发展需要。标准性：系统编写与运行必须符

11、合标准， 既可以保证系统运行又可以在此标准上 每一项功能运行。可靠性：由于学籍信息的重要性， 系统必须稳定可靠， 从而避免或减少数据损失。 安全性：通过系统权限控制使用者，从而确保使用者无法操作与其无关的数据。 高效性：由于学校学生信息每次处理信息量较大， 系统对信息处理能力响应能力 都应是快捷有效的。可维护性：采用结构化模块设计，便于开发与维护，也有利于情况随时进行2.5 现行系统的详细调查 经过调查学校的学籍管理业务流程主要分为三大部分：建立学生基本信息、 学生综合素质评估、学生学籍档案。1. 建立学生基本信息： 学生符合入学条件的， 学校批准后由专人向学生发放入学 通知书。对新生注册，并

12、建立相关的学生个人信息(如学号、姓名、性别、专业 和班级、家庭住址等），由本班班主任配合学校学生管理处负责人（学生科）统 一审核并保存。根据用户权限对数据信息进行相应处理（如查询、录入、修改、 删除）01.学生成绩信息：将学生的学期成绩，由学生管理处工作人员将每期成绩结果进 行记录并保存。根据用户权限对数据信息进行相应处理（如查询、录入、修改、 删除）01.学生学籍档案：学生情况与奖惩情况。包括学生在校期间健康状况，学生参加 校内外各项活动记录和奖惩记录进行综合分析与汇总，学生学期评语等有关的在校期间表现进行的记录。由学籍管理处工作人员将评估结果存入学生档案并保 存。根据用户权限对数据信息进行

13、相应处理（如查询、录入、修改、删除）。2.6新系统逻辑方案新系统的逻辑模型，从本质上说，是规定系统应该做什么，即系统的逻辑描 述。它主要包括新系统的业务流程、数据流程，以及对数据和功能的详细分析与 描述。2.7学生学籍管理信息系统业务流程图这是一种表明系统内各单位，人员之间的业务关系，作业顺序和管理信息流 动的流程图，它可以帮助分析人员找出业务流程中的不合理迂回等。学籍管理系 统的系统分析的重点是对学籍管理信息系统的业务流程进行描述， 通过采用流程 图中的部分图形来对学生信息质量的管理活动进行规范化说明。图2-2学生学籍管理信息流程图从上图的业务流程图中，可以了解到整个学校学生学籍处理的基本业

14、务以及 业务动态去向：(1) .从新生的入学录取，新生的注册(安排学号，登记学生个人基本信息)，由学生管理处人员审阅并维护，最后保存。普通用户可查询。(2) .根据学生学号可对应的查找到该生的成绩单，由学生管理处人员审阅并维 护，最后保存。普通用户可查询。(3) .根据学生学号对应查找，该生在校的情况(如健康状况、活动情况、奖惩情 况等)和该生报名时登记的本人基本情况，由学生管理处人员审阅并维护，最后 保存。普通用户可查询。2.8学生学籍管理信息系统数据流程图。数据流程图描述系统的逻辑模型，不涉及硬、软件，数据结果与文件组织，用图形描述及相关的注释表示系统的逻辑功能。图中没有具体的物理元素，只

15、是描述信息在系统中流动和处理的情况。在对学籍管理信息系统调研阶段的业务流 程图进行分析的基础上，从系统的科学性、 管理的合理性、实际运用的可行性角 度出发，将信息处理功能和彼此之间的联系自顶向下、逐层分解，从逻辑上精确地描述新系统应具有的数据加工功能、 数据输入、数据输出、数据存储及数据来 源和去向。P0D1A1.学生学籍管理员通过学生信息单，学生成绩单，学生档案单分别录入，生成信 息数据表，成绩数据表，档案数据表从而成立一个总的数据库。图2-4学生信息管理数据流图2. 学籍信息管理员通过信息单录入学生的信息，建立信息数据表。用户可根据, 学号，姓名，班级来查询自己所需的信息，方便而简单。p3

16、. 学籍成绩管理人员通过成绩单录入学生的成绩，建立成绩数据表。则用户可根 据，学号，姓名，班级查看自己所需的信息。图2-6学籍档案管理数据流图4. 学籍档案管理员通过档案单录入学生的档案，建立档案数据表。用户可根据, 学号，姓名，班级查询学生的基本档案。图 2-7 系统管理数据流图5系统管理员根据用户需要设置用户及权限，建立系统数据表。使整个系统的 维护更具有安全性，保密性。3. 学生学籍管理信息系统设计系统设计是管理系统开发的第二个阶段。 在这一阶段中我们将根据系统调查 与分析阶段的结果，进行新系统的设计工作。系统设计包括两方面的工作： 首先 是系统总体结构的设计， 即把系统的功能分解成许多

17、基本的功能模块， 取得它们 之间的联系，规定它们的功能和处理流程； 其次是系统的详细设计。 系统的各项 功能，选择具体的设计手段和处理方式。 因此，如果说系统研制人员在系统调查 与分析阶段的任务是在逻辑上弄清楚系统“做什么”的话， 在系统设计阶段的认 为则是在物理上确定系统“如何去做” 。所以系统设计阶段也称为系统的物理设 计阶段。系统设计包括如下工作内容 1、系统总体结构设计(1). 系统功能结构的划分。(2). 确定系统的计算机处理流程。1. 系统详细的设计(1). 系统数据模型设计。(2). 数据库的逻辑设计。3.1 系统的总体设计系统的总体设计是指在系统调查与分析的基础上， 对整个系统

18、在结构上的划 分，硬软件环境的配置和确定子系统与模块的处理流程。3.1.1 系统功能结构的划分 总体设计中最核心的问题是系统总体功能结构的确定和子系统与模块的划分， 结 构化。图3-1学生学籍管理信息系统功能结构图确定计算机的处理流程为了让开发人员明确子系统或功能模块中信息的流动、 转换、存储和处理等 情况，以便进一步明确模块物理设计及日后模块实现的任务和工作要点， 从而把 系统的总体设计思想落实到每一个子系统和功能模块之中。子系统或模块的计算机处理流程学生个人信息 一键入一学生信息登记-一学籍信息数据库学籍信息数据库 一用户管理添加-f 用户管理表学生信息查找和删改一-学籍信息数据库 学籍信

19、息数据库-f 学生学籍档案的录入和查询学籍信息数据库一学生成绩的删改和添加-一成绩表图3-2计算机处理流程图3.2系统的详细设计3. 2. 1关系型数据模型学生信息表（专业，班级，学号，姓名，性别，出生年月，家庭住址，联系电话， 备注）学生成绩表（专业，班级，学号，姓名，课程名称，备注）学生档案表（专业，班级，学号，姓名，民族，籍贯，政治面貌，奖惩，是否留级，表现情况，备注）学生注册表（专业，班级，学号，姓名，出生年月，家庭住址，联系电话，备注） 用户管理表（用户名，密码，备注）3. 2. 2数据库的逻辑设计通过数据库管理系统提供的功能与描述工具， 设计出规模恰当，能正确反映 实际信息关系，重

20、复数据少，存取效率高并能满足用户数据要求的数据模型。1.系统逻辑设计的主要工作就是将 E R图转换成一张张的二维表。管理员/普通用户用户名密码联系电话从属政治面貌专业N学号奖惩班级是否留级1姓名包含学号N1从属联系电话家庭住址姓名班级专业出生年月学号班级姓名专业从属专业学号姓名课程名称班级家庭住址学生学籍学生档案学生成绩注册表登录学生信息 出生年月图3-3学生学籍管理信息系统E-R图E-R图转换成二维表学生信息表学生信息专业班级学号姓名出生年月家庭住址联系电话学生成绩表学生成绩专业班级学号姓名课程名称学生档案表学生档案专业班级学号姓名政治面貌奖惩是否留级注册表注册专业班级学号姓名出生年月家庭住

21、址联系电话用户管理表用户用户名密码2.数据字典数据字典是各类数据描述的集合，它是进行详细的数据收集和数据分析后获得的 主要成果。数据字典通常包括以下几部分：（1）数据项：数据项是不可在分的数据单位。（2）数据结构:数据结构反映了数据之间的组合关系。 一个数据结构可以由若干个数据结构组成，或由若干数据项和数据结构混合组成。（3）数据流：数据流是数据结构在系统内传输的路径。（4）数据存储:数据存储是数据及结构停留或保存的地方， 也是数据流的来源和 去向之一。（5）处理过程：处理过程的具体处理逻辑一般用判定表或判定树来描述。（6）数据字典：是关于数据库中数据的描述，即对原数据的描述。本系统的数据字典

22、如下：学生信息表列名数据类型及长度可否为空主键专业文本型（20）NOTNULL班级文本型（20）NOTNULL学号文本型（8）NOTNULL主键姓名文本型（8）NOTNULL性别逻辑型（2）NOTNULL籍贯文本型（8）NOTNULL出生年月日期型（8）NOTNULL家庭住址文本型（60）NOTNULL联系电话文本型（12）NOTNULL政治面貌文本型（4）NOTNULL备注备注型（50）NOTNULL注册表列名数据类型及长度可否为空主键用户名文本型（16）NOTNULL密码文本型（16）NOTNULL学生档案表列名数据类型及长度可否为空主键专业文本型（20）NOTNULL班级文本型（20）N

23、OTNULL学号文本型（8）NOTNULL主键姓名文本型（8）NOTNULL性别文本型（4）NOTNULL民族文本型（8）NOTNULL籍贯文本型（8）NOTNULL家庭住址文本型（60）NOTNULL联系电话文本型（12）NOTNULL奖惩情况文本型（100）NOTNULL留级情况文本型（60）NOTNULL表现情况文本型（200）NOTNULL备注备注型（50）NOTNULL学生成绩表列名数据类型及长度可否为空主键专业文本型（20）NOTNULL班级文本型（20）NOTNULL学号文本型（8）NOTNULL主键姓名文本型（8）NOTNULL计算机网络数字型（4）NOTNULL计算机组成原理

24、数字型（4）NOTNULL计算机应用与提高数字型（4）NOTNULL管理信息系统数字型（4）NOTNULL信息法律规程数字型（4）NOTNULL办公软件数字型（4）NOTNULL备注备注型（50）NOTNULL4系统实现4.1界面、代码设计与实现主窗口1. 主窗口界面说明：用户直接单击“进入”按钮进入登录界面2. 主窗口界面代码：Private Sub Comma nd1_Click()主界面.Hide 隐藏主界面登录界面.Show 显示登录界面End Sub莒理员登录! x|普通用尸登录用戶名密码|取消登录取消登录窗口1. 登录窗口界面说明此登录界面分为“管理员”和“普通用户”登录。 “管理

25、员”需输入用户名和密 码登录“信息管理”窗口；而普通用户则直接单击“登录”按钮进入“普通用户 学生学籍窗口”。2. 登录窗口界面代码(1) 管理员登录代码：Private Sub Command1_Click()Dim db As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim sql As String db.ConnectionString=Provider=Microsoft.Jet.OLEDB.4.0;DataSource=E:z lfdb1.mdb;Persist Security Info=Falsedb.Opensql =

26、 select * from用户管理表 rs.Open sql, db, adOpenStatic, adLockReadOnlyWhile rs.EOF = FalseIf rs.Fields(0).Value = Text1.Text ThenIf rs.Fields(1).Value = Text2.Text Then登录界面 .Hide 学生学籍信息管理窗口 .ShowElseMsgBox (密码错误 , 请重新输入！ )End IfEnd Ifrs.MoveNextWendEnd SubPrivate Sub Comma nd2_Click() 登录界面.Hide主界面.ShowEn

27、d Sub(2) 普通用户窗口代码Private Sub Comma nd3_Click() 普通用户学生学籍窗口 .Show 登录界面.HideEnd SubPrivate Sub Comma nd4_Click() 登录界面.Hide主界面.ShowEnd Sub信息管理窗口1信息管理界面说明信息管理包括“学生学籍信息管理、学生学籍成绩管理、学生学籍档案管理、用 户管理”，下设相应的子菜单。管理员可根据需要进行内容的查询、添加、删除 2. 信息管理界面代码 （1）（学生学籍信息管理）信息查询窗口弹出代码： Private Sub xxcx_Click（Index As Integer） 查

28、询学生信息窗口 .ShowEnd Sub（ 2）（学生学籍信息管理）信息添加窗口弹出代码：Private Sub xxtj_Click（Index As Integer） 添加学生信息窗口 .ShowEnd Sub（3）（学生学籍信息管理）信息修改窗口弹出代码： Private Sub xxg_Click（Index As Integer） 修改学生信息窗口 .ShowEnd Sub（4）（学生学籍成绩管理）成绩查询窗口弹出代码： Private Sub chjcx_Click（Index As Integer） 查询学生成绩窗口 .ShowEnd Sub（5）（学生学籍成绩管理）成绩添加窗口

29、弹出代码： Private Sub chjtj_Click（Index As Integer） 添加学生成绩窗口 .ShowEnd Sub（6）（学生学籍成绩管理）成绩修改窗口弹出代码： Private Sub chjxg_Click（Index As Integer） 修改学生成绩窗口 .ShowEnd Sub（7）（学生学籍档案管理）档案查询窗口弹出代码： Private Sub dacx_Click（Index As Integer） 用户档案查询窗口 .ShowEnd Sub（8）（学生学籍档案管理）注册查询窗口弹出代码:Private Sub dazccx_Click（l ndex

30、As In teger）用户注册查询窗口 .ShowEnd Sub（9）（用户管理）用户修改窗口弹出代码：Private Sub yhxg_Click（l ndex As In teger）用户修改窗口 .ShowEnd Sub（10）（用户管理）用户添加窗口弹出代码：Private Sub yhtj_Click（I ndex As In teger）用户添加窗口 .ShowEnd Sub（11）信息管理返回按钮代码：Private Sub Comma nd1_Click（）学生学籍信息管理窗口 .Hide登录界面.ShowEnd Sub查询学生信息窗口1. 查询学生信息界面说明 用户选择所要

31、查询的对象，单击“确定”按钮，得出相应信息。2. 查询学生信息界面代码Private Sub Command1_Click()Dim kl As StringDim db As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim sql As StringDim rs1 As New ADODB.RecordsetDim sql1 As Stringkl = Combo1.Textdb.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:zlfdb1.mdb;P

32、ersist Security Info=Falsedb.Opensql = select * from学生信息表 rs.Open sql, db, adOpenStatic, adLockReadOnlysql1 = select * from 学生信息表 where 姓名 = & kl & rs1.Open sql1, db, adOpenStatic, adLockReadOnlyIf rs.RecordCount = 0 ThenMsgBox 表内无记录 如果为空，弹出对话框Elsers.MoveFirst 如果不为空，定位到选定的记录Text1.Text = rs1.Fields(0

33、).ValueText2.Text = rs1.Fields(1).Value 显示相应字段的内容Text3.Text = rs1.Fields(2).ValueText4.Text = rs1.Fields(3).ValueText5.Text = rs1.Fields(4).ValueText6.Text = rs1.Fields(5).ValueText7.Text = rs1.Fields(6).ValueText8.Text = rsl.Fields .ValueText9.Text = rs1.Fields(8).ValueTextIO.Text = rs1.Fields(9).V

34、alueMsgBox ( 查询成功)AdodcI.RefreshEnd IfEnd SubPrivate Sub Comma nd2_Click()查询学生信息窗口 .Hide学生学籍信息管理窗口 .ShowEnd Sub添加学生信息窗口1. 添加学生信息界面说明管理员在空白栏中正确输入所要添加的信息，单击“添加”按钮即可添加成功2. 添加学生信息界面代码Private Sub Comma nd1_Click()Dim db As New ADODB.Co nn ectio nDim rs As New ADODB.RecordsetDim sql, rt As StringDim zy, b

35、j, xh, xm, xb, jg, csny, jtzz, lxdh, zzmm, bz As String db.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:zlfdb1.mdb;Persist Security Info=Falsedb.Opensql = select * from学生信息表 rs.Open sql, db, adOpenStatic, adLockOptimisticrs.AddNewrs.Fields(0).Value = Text1.Textrs.Fields(1).Value

36、 = Text2.Textrs.Fields(2).Value = Text3.Textrs.Fields(3).Value = Text4.Textrs.Fields(4).Value = Text5.Textrs.Fields(5).Value = Text6.Textrs.Fields(6).Value = Text7.Textrs.Fields(7).Value = Text8.Textrs.Fields(8).Value = Text9.Textrs.Fields(9).Value = Text10.Textrs.Fields(10).Value = Text11.Textrs.Up

37、dateMsgBox (增加成功 )Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = Text7.Text = Text8.Text = Text9.Text =TextIO.Text =Textll.Text =End SubPrivate Sub Comma nd2_Click()Un load MeEnd Sub修改学生信息窗口1修改学生信息界面说明，修改完管理员可根据需要对学生信息进行修改(在相应信息处正确进行修改) 毕后单击“修改”按钮即可成功修改学生信息。2修改学生信息界面代码

38、Private Sub Comma nd1_Click()Dim db As New ADODB.Co nn ectio nDim rs As New ADODB.RecordsetDim gg As New ADODB.RecordsetDim sql, rt As StringDim 乙 a As Stri ngDim zy, bj, xh, xm, xb, jg, csny, jtzz, Ixdh, zzmm, bz As Stringdb.Co nn ectio nStri ng= Provider=Microsoft .J et.OLEDB.4.0;DataSource=E:zlfd

39、b1.mdb;Persist Security In fo=Falsedb.Ope nsql = select * from学生信息表rs.Ope n sql, db, adOpe nStatic, adLockOptimistica = update 学生信 息表 set 专业=& Textl.Text & ,班级=&Text2.Text & , 学号=& Text3.Text & , 姓名=& Text4.Text & , 性别=& Text5.Text & ,出生年月=& Text6.Text & , 家庭住址=&Text7.Text & ,联系电话=& Text8.Text & ,政治

40、面貌=& Text9.Text& ,备注=& TextIO.Text & where姓名=& z & ”gg.Ope n a, db, adOpe nStatic, adLockOptimisticMsgBox (修改成功)End SubPrivate Sub Comma nd2_Click()Un load MeEnd Sub成绩查询窗口1. 成绩查询界面说明 管理员根据需要选择所要查询的对象，单击“查询”按钮即可查询成功。2. 成绩查询界面代码Private Sub Command1_Click()Dim kl As StringDim db As New ADODB.Connection

41、Dim rs As New ADODB.RecordsetDim sql As StringDim rs1 As New ADODB.RecordsetDim sql1 As Stringkl = Combo1.Textdb.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;DataSource=E:zlfdb1.mdb;Persist Security Info=Falsedb.Opensql = select * from学生成绩表 1rs.Open sql, db, adOpenStatic, adLockReadOnlysql1 =

42、 select * from学生成绩表 1 where 学号 = & kl & rs1.Open sql1, db, adOpenStatic, adLockReadOnlyIf rs.RecordCount = 0 ThenMsgBox 表内无记录如果为空，弹出对话框Elsers.MoveFirst如果不为空，定位到选定的记录显示相应字段的内容Text1.Text = rs1.Fields(0).ValueText2.Text = rs1.Fields(1).ValueText3.Text = rs1.Fields(2).ValueText4.Text = rs1.Fields(3).Val

43、ueText5.Text = rs1.Fields(4).ValueText6.Text = rs1.Fields(5).ValueText7.Text = rsl.Fields (6).ValueText8.Text = rsl.Fields .ValueText9.Text = rs1.Fields(8).ValueTextIO.Text = rs1.Fields(9).ValueMsgBox ( 查询成功)AdodcI.RefreshEnd IfEnd SubPrivate Sub Comma nd2_Click()Un load MeEnd Sub添加学生成绩窗口1. 添加学生成绩界面

44、说明管理员在空白栏中正确输入所要添加的信息，单击“添加”按钮即可添加成功2. 添加学生成绩界面代码Private Sub Comma nd1_Click()Dim db As New ADODB.Co nn ectionDim rs As New ADODB.RecordsetDim sql, rt As StringDim zy, bj, xh, xm, jsjwl, jsjzcyl, jsjyyytg, glxxxt, xxflgc, bgrj, bzAs Stringdb.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;DataSo

45、urce=E:zlfdb1.mdb;Persist Security Info=False db.Opensql = select * from学生成绩表 1rs.Open sql, db, adOpenStatic, adLockOptimisticrs.AddNewrs.Fields(0).Value = Text1.Textrs.Fields(1).Value = Text2.Textrs.Fields(2).Value = Text3.Textrs.Fields(3).Value = Text4.Textrs.Fields(4).Value = Text5.Textrs.Fields(

46、5).Value = Text6.Textrs.Fields(6).Value = Text7.Textrs.Fields(7).Value = Text8.Textrs.Fields(8).Value = Text9.Textrs.Fields(9).Value = Text10.Textrs.UpdateMsgBox (增加成功 )Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = Text7.Text = Text8.Text = Text9.Text =TextIO.Text =Te

47、xtll.Text =End SubPrivate Sub Comma nd2_Click()Un load MeEnd Sub修改学生成绩窗口1修改学生成绩界面说明，修改完管理员可根据需要对学生信息进行修改(在相应信息处正确进行修改) 毕后单击“修改”按钮即可成功修改学生信息。2修改学生成绩界面代码Private Sub Comma nd1_Click()Dim db As New ADODB.Co nn ectio nDim rs As New ADODB.RecordsetDim gg As New ADODB.RecordsetDim sql, rt As StringDim 乙 a

48、As Stri ngDim zy, bj, xh, xm, jsjwl, jsjzcyl, jsjyyytg, glxxxt, xxfgc, bgrj, bz AsStri ngdb.Co nn ectio nStri ng= Provider=Microsoft .J et.OLEDB.4.0;DataSource=E:zlfdb1.mdb;Persist Security In fo=Falsedb.Ope nsql = select * from学生成绩表 1rs.Ope n sql, db, adOpe nStatic, adLockOptimistica = update学生成绩表1

49、 set 专业=& Textl.Text & ,班级=&Text2.Text & , 学号=& Text3.Text & , 姓名=& Text4.Text & , 计算机网络=& Text5.Text & ,计算机组成原理=& Text6.Text & ,计算机应用与提高=& Text7.Text & ,管理信息系统=& Text8.Text & , 信息法律规程=& Text9.Text & ,办公软件=& TextIO.Text & , 备注=& TextIO.Text & where 姓名=& z & ” gg.Ope n a, db, adOpe nStatic, adLockOpt

50、imisticMsgBox (修改成功)DataGridl.RefreshEnd SubPrivate Sub Comma nd2_Click()Un load MeEnd Sub档案查询窗口1. 档案查询界面说明 管理员根据需要选择所要查询的对象，单击“查询”按钮即可查询成功。2. 档案查询界面代码Private Sub Command1_Click()Dim kl As StringDim db As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim sql As StringDim rs1 As New ADODB.Recordse

51、tDim sql1 As Stringkl = Combo1.Textdb.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:zlfdb1.mdb;Persist Security Info=Falsedb.Opensql = select * from学生档案表 rs.Open sql, db, adOpenStatic, adLockReadOnlysql1 = select * from学生档案表 where 学号 = & kl & rs1.Open sql1, db, adOpenStatic, adLo

52、ckReadOnlyIf rs.RecordCount = 0 ThenMsgBox 表内无记录如果为空，弹出对话框Elsers.MoveFirst如果不为空，定位到选定的记录显示相应字段的内容Text1.Text = rs1.Fields(0).ValueText2.Text = rs1.Fields(1).ValueText3.Text = rs1.Fields(2).ValueText4.Text = rs1.Fields(3).ValueText5.Text = rs1.Fields(4).ValueText6.Text = rs1.Fields(5).ValueText7.Text = rsl.Fields (6).ValueText8.Text = rsl.Fields .ValueText9.Text = rs1.Fields(8).ValueTextIO.Text = rs1.Fields(9).ValueTextll.Text = rs1.Fields(10).ValueText12.Text = rs1.Fields(11).ValueText13.Text = rs1.Fields(12).Value MsgBox ( 查询成功) Adod