《学生学籍管理信息系统分析设计.docx》由会员分享,可在线阅读,更多相关《学生学籍管理信息系统分析设计.docx(47页珍藏版)》请在三一办公上搜索。
1、学生学籍管理信息系统分析设计湖南商学院学年论文 目 录 1.系统的开发意义 . 2 2.系统分析 . 2 2.1系统的需求分析 . 2 2.2系统分析的概况 . 3 2.3系统初步调查 . 3 2.4系统的可行性研究 . 5 2.4.1.技术可行性 . 5 2.4.2.经济可行性 . 5 2.4.3.营运可行性 . 5 2.5现行系统的详细调查 . 5 2.6新系统逻辑方案 . 5 2.7学生学籍管理信息系统业务流程图 . 5 2.8学生学籍管理信息系统数据流程图。 . 7 3.学生学籍管理信息系统设计 . 10 3.1系统的总体设计 . 11 3.1.1系统功能结构的划分 . 11 3.1.
2、2确定计算机的处理流程 . 11 3.2系统的详细设计 . 12 3.2.1关系型数据模型 . 12 3.2.2数据库的逻辑设计 . 12 4.系统实现 . 17 4.1界面、代码设计与实现 . 17 5.系统管理维护与评价 . 45 5.1系统的日常管理维护 . 45 5.2系统的评价 . 45 5.3系统设计心得收获与结论 . 45 第 1 页 共 46 页 湖南商学院学年论文 湖北大学生学籍管理信息系统的设计与开发 1.系统的开发意义 学籍管理系统是一个教育单位不可缺少的部分,它的内容对于学校的决策者和管理者来说都至关重要,所以学籍管理系统应该能够为用户提供充足的信息和快捷的查询手段。但
3、一直以来人们使用传统人工的方式管理文件档案,这种管理方式存在着许多缺点,如:效率低、保密性差,另外时间一长,将产生大量的文件和数据,这对于查找、更新和维护都带来了不少的困难。 随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。 作为计算机应用的一部分,使用计算机对学生学籍进行管理,具有手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高学生学籍管理的效率,也是企业的科学化、正规化管理,与世界接轨的重要条件。 本系统是由Microsoft Visual
4、 Basic 6.0可视化开发软件工具下分析、设计、开发大中专院校的学籍管理系统的过程。通过对计算机硬件和软件解决方案的论证,对应用领域进行调查分析,参考各种资料和进行数据库编程实践,在指导老师的帮助下,已经基本上成功地实现了设计要求。是我们设计的数据库系统能够实现学生信息管理,学生成绩管理,学生档案管理,用户管理等功能。该系统基本上满足了用户在学校信息管理方面的需求,用户界面友好。 2.系统分析 2.1系统的需求分析 本系统为了实现学校在校学生、离校学生各项信息资源的查询、统计、添加、删除、维护与管理,方便用户的管理与需求。将学生学籍管理系统分为:学生信息管理,学生成绩管理,学生学籍档案管理
5、和用户管理四个功能模块。 1.学生信息管理模块主要对学生信息进行管理,本模块又分为三个子模块。 学生信息录入 学生信息查询 学生信息修改删除 第 2 页 共 46 页 湖南商学院学年论文 2.学生成绩管理模块主要是对学生成绩进行管理,四个子模块。 学生成绩录入 学生成绩查询 学生成绩修改/删除 学生成绩统计 3.学生学籍档案管理模块主要对学校在校生的档案进行管理。 学生、奖惩情况的查询 学生报名注册登记表录入 在校生档案的查询 4.用户管理主要对用户权限设置进行管理。 用户名:密码设置 行功能调整。 2.2系统分析的概况 系统分析是指在管理信息系统开发的生命周期中系统分析阶段的各项活动和方法,
6、应用系统思想和系统科学的原理进行分析工作的方法与技术。 系统分析阶段的目的,就是按照系统规划所定的某个开发项目范围内明确系统开发的目标和用户的信息需求,提出系统的逻辑方案。 系统分析在整个系统开发过程中,是要解决“做什么”的问题,即根据系统规划所确定的范围,对现行系统进行详细调查,尽可能弄清楚用户对信息的需求,调查原信息系统的资源,输入,处理和输出,描述现行系统的业务流程,指出现行系统的局限性和不足之处,确定新系统的基本目标和逻辑功能要求,也即提出新系统的逻辑模型,为下一阶段进行物理方案设计,解决“怎么做”提供依据。 因此,这个阶段又称逻辑设计阶段。 系统分析阶段的主要活动有:系统初步调查、可
7、行性研究、系统详细调查、新系统逻辑方案的提出。 2.3系统初步调查 本系统初步调查采用的主要方式是与本校的教师,尤其是与学籍管理处的教职工进行交流,经过调查研究。本校基本情况为:学校现有教职工200余名,在校在册学生达5000余人。实行校长负责制,下设教务科、财务科、党团支部、学生科、总务科、宿管、人事科、生产实习科、鉴定科、招生就业科、保卫科十第 3 页 共 46 页 湖南商学院学年论文 二大部门。各部门分别针对各自管辖范围进行具体管理,并向校长负责。在学校的日常教学活动中,学生的学籍管理和培养方向是至关重要的。从学校的行政管理和职能分工角度,得出了组织结构图。 本校在日常教学活动中出现的主
8、要问题是: 1.学校现行的学籍管理方式仍为基于文本、表格等,纸介质的传统手工处理方式。学籍信息管理没有完全科学化、规范化、处理速度较慢,因此影响教学工作的开展,难以进行有效的信息反馈。 2.学校领导对整个学校的学生信息在很多时候不能得到全面而又及时的反馈,因此不能适时指导教学方向,以至有所影响教育质量。 3.部门之间信息交流较少,信息渠道比较单一,在很大程度上不利于协调工作,容易出错。因此,通过建立学籍管理信息系统,使学生学籍管理工作科学化、规范化、程序化,促使提高信息处理的速度和正确性,使学校的信息流程和流向晰化、合理化。第一时间把握学生信息,以提高整体教学水平。 校长兼党委书记党委副书副校
9、长副校长校长助财务科 鉴定科 招生就业科党政办 团委办 人事科 总务科 生产实习科教务科 宿学生科 保卫科 管图2-1 组织结构图 2.4系统的可行性研究 可行性研究是系统分析阶段的第二项活动。此活动的主要目标是:进一步明第 4 页 共 46 页 湖南商学院学年论文 确系统的目标、规模与功能,对系统开发背景、必要性和意义进行调查分析并根据需要和可能提出开发系统的初步方案与计划。 可行性研究是对系统进行全面、概要的分析。通过调查分析,新系统设计方案有以下三个可行性: 2.4.1技术可行性 本系统采用Windows98作为操作平台。数据库管理系统选用Access,该数据库管理系统,提供数据库之间的
10、数据复制功能,可代替现有系统单据数据的手工传递工作,降低出错率,提高数据的可用性。本系统的应用程序开发平台选用VisualBasic6.0,这是目前数据库应用软件的主流开发平台。 2.4.2经济可行性 采用新的学籍信息管理系统可取代原系统的单据手工传递工作,减少人工开支,节省资金,并且可大大提高信息量的取得,缩短信息处理周期提高学生信息的利用率,使教学质量更上一个台阶。 2.4.3营运可行性 (1).本系统操作简单,易于理解,只需通过简单培训,上手较快,学校学籍管理处的教职员以及相关教师均能进行操作,营运环境要求低。 (2).面对于系统设计还应该以“标准性、安全性、高效性、保密性、可维护性”为
11、标准,在着眼于当前实用的基础上,为将来系统的扩展,升级留有余地。软件的开发应能在较长时间内满足学校的发展需要。 标准性:系统编写与运行必须符合标准,既可以保证系统运行又可以在此标准上每一项功能运行。 可靠性:由于学籍信息的重要性,系统必须稳定可靠,从而避免或减少数据损失。 安全性:通过系统权限控制使用者,从而确保使用者无法操作与其无关的数据。 高效性:由于学校学生信息每次处理信息量较大,系统对信息处理能力响应能力都应是快捷有效的。 可维护性:采用结构化模块设计,便于开发与维护,也有利于情况随时进行 2.5现行系统的详细调查 经过调查学校的学籍管理业务流程主要分为三大部分:建立学生基本信息、学生
12、综合素质评估、学生学籍档案。 1.建立学生基本信息:学生符合入学条件的,学校批准后由专人向学生发放入学通知书。对新生注册,并建立相关的学生个人信息,由本班班主任配合学校学生管理处负责人统一审核并保存。根据用户权限对数据信息进行相应处理。 1.学生成绩信息:将学生的学期成绩,由学生管理处工作人员将每期成绩结果进行记录并保存。根据用户权限对数据信息进行相应处理。 1.学生学籍档案:学生情况与奖惩情况。包括学生在校期间健康状况,学生参加校内外各项活动记录和奖惩记录进行综合分析与汇总,学生学期评语等有关的在校期间表现进行的记录。由学籍管理处工作人员将评估结果存入学生档案并保存。根据用户权限对数据信息进
13、行相应处理。 2.6新系统逻辑方案 新系统的逻辑模型,从本质上说,是规定系统应该做什么,即系统的逻辑描述。它主要包括新系统的业务流程、数据流程,以及对数据和功能的详细分析与描述。 2.7学生学籍管理信息系统业务流程图 这是一种表明系统内各单位,人员之间的业务关系,作业顺序和管理信息流动的流程图,它可以帮助分析人员找出业务流程中的不合理迂回等。学籍管理系统的系统分析的重点是对学籍管理信息系统的业务流程进行描述,通过采用流程图中的部分图形来对学生信息质量的管理活动进行规范化说明。 - 图2-2学生学籍管理信息流程图 管理员 学生信息表 学生档案表 信息的查、增、删、改 学生学籍管理信息表 学生成绩
14、表 学生学籍管理信息系统 第 6 页 共 46 页 湖南商学院学年论文 从上图的业务流程图中,可以了解到整个学校学生学籍处理的基本业务以及业务动态去向: (1).从新生的入学录取,新生的注册,由学生管理处人员审阅并维护,最后保存。普通用户可查询。 (2).根据学生学号可对应的查找到该生的成绩单,由学生管理处人员审阅并维护,最后保存。普通用户可查询。 (3).根据学生学号对应查找,该生在校的情况和该生报名时登记的本人基本情况,由学生管理处人员审阅并维护,最后保存。普通用户可查询。 2.8学生学籍管理信息系统数据流程图。 数据流程图描述系统的逻辑模型,不涉及硬、软件,数据结果与文件组织,用图形描述
15、及相关的注释表示系统的逻辑功能。图中没有具体的物理元素,只是描述信息在系统中流动和处理的情况。在对学籍管理信息系统调研阶段的业务流程图进行分析的基础上,从系统的科学性、管理的合理性、实际运用的可行性角度出发,将信息处理功能和彼此之间的联系自顶向下、逐层分解,从逻辑上精确地描述新系统应具有的数据加工功能、数据输入、数据输出、数据存储及数据来源和去向。 P01 D1 学生信息录入 信息单 S01 P02 信息数据表 D2 数据库 学生学籍信息管理员 成绩单 成绩信息录入 成绩数据表 P03 档案单 D3 档案信息录入 档案数据表 图2-3学生学籍信息管理数据流图 第 7 页 共 46 页 湖南商学
16、院学年论文 1.学生学籍管理员通过学生信息单,学生成绩单,学生档案单分别录入,生成信息数据表,成绩数据表,档案数据表从而成立一个总的数据库。 F01 信息录入 S01 学生信息管理员 D1 F05 信息数据表 F02 P01 F03 F04 按姓名 F06 按学号 按班级 学生信息查询 图2-4学生信息管理数据流图 2.学籍信息管理员通过信息单录入学生的信息,建立信息数据表。用户可根据,学号,姓名,班级来查询自己所需的信息,方便而简单。 PF01 S01 成绩成绩录入 F05 D 学籍成绩管理员 成绩统F07 成绩数据表 F02 F03 F04 按姓按学按班P成绩查询 F06 图2-5学生成绩
17、管理数据流图 第 8 页 共 46 页 湖南商学院学年论文 3.学籍成绩管理人员通过成绩单录入学生的成绩,建立成绩数据表。则用户可根据,学号,姓名,班级查看自己所需的信息。 S01 学生档案管理人员 F01 F02 档案单 P1 档案信息录入 F06 D F03 F04 F05 P2 按学号 档案数据表 F07 档案查询 按班级 按姓名 图2-6学籍档案管理数据流图 4.学籍档案管理员通过档案单录入学生的档案,建立档案数据表。用户可根据,学号,姓名,班级查询学生的基本档案。 F01 S01 系统管理员 管理 D01CV 用户 F04 查询 D F02 数据 D02 F05 用户信息录入 添加
18、系统数据表 F03 设置 D03 用户权限 F06 维护 第 9 页 共 46 页 湖南商学院学年论文 图2-7系统管理数据流图 5系统管理员根据用户需要设置用户及权限,建立系统数据表。使整个系统的维护更具有安全性,保密性。 3.学生学籍管理信息系统设计 系统设计是管理系统开发的第二个阶段。在这一阶段中我们将根据系统调查与分析阶段的结果,进行新系统的设计工作。系统设计包括两方面的工作:首先是系统总体结构的设计,即把系统的功能分解成许多基本的功能模块,取得它们之间的联系,规定它们的功能和处理流程;其次是系统的详细设计。系统的各项功能,选择具体的设计手段和处理方式。因此,如果说系统研制人员在系统调
19、查与分析阶段的任务是在逻辑上弄清楚系统“做什么”的话,在系统设计阶段的认为则是在物理上确定系统“如何去做”。所以系统设计阶段也称为系统的物理设计阶段。 系统设计包括如下工作内容 1、系统总体结构设计 (1).系统功能结构的划分。 (2).确定系统的计算机处理流程。 1.系统详细的设计 (1).系统数据模型设计。 (2).数据库的逻辑设计。 3.1系统的总体设计 系统的总体设计是指在系统调查与分析的基础上,对整个系统在结构上的划分,硬软件环境的配置和确定子系统与模块的处理流程。 3.1.1系统功能结构的划分 总体设计中最核心的问题是系统总体功能结构的确定和子系统与模块的划分,结构化。 第 10
20、页 共 46 页 湖南商学院学年论文 学生学籍管理信息系统 学生信息管理 学生成绩管理 学生学籍档案 学生信息录入 学生信息查询 学生信息修改删除 学生成绩录入 学生成绩查询 学生成绩修改 学生成绩统计 学生奖惩情况查询 学生报名注册登记表录入 在校生档案查询 图3-1学生学籍管理信息系统功能结构图 3.1.2确定计算机的处理流程 为了让开发人员明确子系统或功能模块中信息的流动、转换、存储和处理等情况,以便进一步明确模块物理设计及日后模块实现的任务和工作要点,从而把系统的总体设计思想落实到每一个子系统和功能模块之中。 子系统或模块的计算机处理流程 学生个人信息 键入 学生信息登记 学籍信息数据
21、库 共 46 页 第 11 页湖南商学院学年论文 学籍信息数据库 用户管理添加 用户管理表 学生信息查找和删改 学籍信息数据库 学籍信息数据库 学生学籍档案的录入和查询 学籍信息数据库 学生成绩的删改和添加 成绩表 学生个人信息 用户管理添加 用户管理表 键入 学籍档案表 学生信息登记 学生学籍档案录入、查询 学生信息的查删改 学籍信息数据库 学生成绩查删改,添加成绩表 图3-2计算机处理流程图 3.2系统的详细设计 321关系型数据模型 学生信息表 学生成绩表 学生档案表 学生注册表 用户管理表 322数据库的逻辑设计 通过数据库管理系统提供的功能与描述工具,设计出规模恰当,能正确反映实际信
22、息关系,重复数据少,存取效率高并能满足用户数据要求的数据模型。 1.系统逻辑设计的主要工作就是将ER图转换成一张张的二维表。 第 12 页 共 46 页 湖南商学院学年论文 用户名 密码 登录 管理员/普通用出生年月 专业 学号 户 N 学号 专业 姓名 1 班级 学生信息 姓名 联系电话 家庭住址 N 从属 1 学生学籍 1 从属 学生成绩 1 班级 课程名称 从属 专业 政治面貌 N 学号 学生档案 班级 是否留级 姓名 奖惩 1 包含 1 专业 注册表 学号 联系电话 家庭住址 班级 姓名 出生年月 图3-3 学生学籍管理信息系统E-R图 共 46 页 第 13 页湖南商学院学年论文 E
23、-R图 转换成二维表 学生信息表 学生信息 专业 班级 学号 姓名 出生年家庭住月 址 联系电话 学生成绩表 学生成绩 专业 学生档案表 学生档案 注册表 注册 用户管理表 用户 2.数据字典 数据字典是各类数据描述的集合,它是进行详细的数据收集和数据分析后获得的主要成果。数据字典通常包括以下几部分: 数据项:数据项是不可在分的数据单位。 数据结构:数据结构反映了数据之间的组合关系。一个数据结构可以由若干用户名 密码 专业 班级 学号 姓名 出生年家庭住联系电月 址 话 专业 班级 学号 姓名 政治面貌 奖惩 是否留级 班级 学号 姓名 课程名称 第 14 页 共 46 页 湖南商学院学年论文
24、 个数据结构组成,或由若干数据项和数据结构混合组成。 数据流:数据流是数据结构在系统内传输的路径。 数据存储:数据存储是数据及结构停留或保存的地方,也是数据流的来源和去向之一。 处理过程:处理过程的具体处理逻辑一般用判定表或判定树来描述。 数据字典:是关于数据库中数据的描述,即对原数据的描述。 本系统的数据字典如下: 学生信息表 列名 专业 班级 学号 姓名 性别 籍贯 出生年月 家庭住址 联系电话 政治面貌 备注 数据类型及长度 文本型 文本型 文本型 文本型 逻辑型 文本型 日期型 文本型 文本型 文本型 备注型(50) 可否为空 NOTNULL NOTNULL NOTNULL NOTNU
25、LL NOTNULL NOTNULL NOTNULL NOTNULL NOTNULL NOTNULL NOTNULL 主键 主键 注册表 列名 用户名 密码 共 46 页 第 15 页数据类型及长度 文本型 文本型 可否为空 NOTNULL NOTNULL 主键 湖南商学院学年论文 学生档案表 列名 专业 班级 学号 姓名 性别 民族 籍贯 家庭住址 联系电话 奖惩情况 留级情况 表现情况 备注 数据类型及长度 文本型 文本型 文本型 文本型 文本型 文本型 文本型 文本型 文本型 文本型 文本型 文本型 备注型 可否为空 NOTNULL NOTNULL NOTNULL NOTNULL NOT
26、NULL NOTNULL NOTNULL NOTNULL NOTNULL NOTNULL NOTNULL NOTNULL NOTNULL 主键 主键 学生成绩表 列名 专业 班级 学号 姓名 计算机网络 计算机组成原理 数据类型及长度 文本型 文本型 文本型 文本型 数字型 数字型 可否为空 NOTNULL NOTNULL NOTNULL NOTNULL NOTNULL NOTNULL NOTNULL NOTNULL NOTNULL NOTNULL NOTNULL 主键 主键 计算机应用与提高 数字型 管理信息系统 信息法律规程 办公软件 备注 数字型 数字型 数字型 备注型 第 16 页 共
27、 46 页 湖南商学院学年论文 4.系统实现 4.1界面、代码设计与实现 主窗口 1.主窗口界面说明:用户直接单击“进入”按钮进入登录界面。 2.主窗口界面代码: Private Sub Command1_Click 主界面.Hide 隐藏主界面 登录界面.Show 显示登录界面 End Sub 共 46 页 第 17 页湖南商学院学年论文 登录窗口 1.登录窗口界面说明 此登录界面分为“管理员”和“普通用户”登录。“管理员”需输入用户名和密码登录“信息管理”窗口;而普通用户则直接单击“登录”按钮进入“普通用户学生学籍窗口”。 2.登录窗口界面代码 管理员登录代码: Private Sub C
28、ommand1_Click Dim db As New ADODB.Connection Dim rs As New ADODB.Recordset Dim sql As String db.ConnectionString=Provider=Microsoft.Jet.OLEDB.4.0;DataSource=E:zlfdb1.mdb;Persist Security Info=False db.Open sql = select * from 用户管理表 rs.Open sql, db, adOpenStatic, adLockReadOnly While rs.EOF = False I
29、f rs.Fields(0).Value = Text1.Text Then If rs.Fields(1).Value = Text2.Text Then 登录界面.Hide 学生学籍信息管理窗口.Show Else MsgBox (密码错误,请重新输入!) End If End If rs.MoveNext Wend End Sub 第 18 页 共 46 页 湖南商学院学年论文 Private Sub Command2_Click 登录界面.Hide 主界面.Show End Sub 普通用户窗口代码 Private Sub Command3_Click 普通用户学生学籍窗口.Show
30、登录界面.Hide End Sub Private Sub Command4_Click 登录界面.Hide 主界面.Show End Sub 信息管理窗口 1.信息管理界面说明 信息管理包括“学生学籍信息管理、学生学籍成绩管理、学生学籍档案管理、用户管理”,下设相应的子菜单。管理员可根据需要进行内容的查询、添加、删除 共 46 页 第 19 页湖南商学院学年论文 等。 2.信息管理界面代码 信息查询窗口弹出代码: Private Sub xxcx_Click(Index As Integer) 查询学生信息窗口.Show End Sub 信息添加窗口弹出代码: Private Sub xxt
31、j_Click(Index As Integer) 添加学生信息窗口.Show End Sub 信息修改窗口弹出代码: Private Sub xxg_Click(Index As Integer) 修改学生信息窗口.Show End Sub 成绩查询窗口弹出代码: Private Sub chjcx_Click(Index As Integer) 查询学生成绩窗口.Show End Sub 成绩添加窗口弹出代码: Private Sub chjtj_Click(Index As Integer) 添加学生成绩窗口.Show End Sub 成绩修改窗口弹出代码: Private Sub ch
32、jxg_Click(Index As Integer) 修改学生成绩窗口.Show End Sub 档案查询窗口弹出代码: Private Sub dacx_Click(Index As Integer) 用户档案查询窗口.Show 第 20 页 共 46 页 湖南商学院学年论文 End Sub 注册查询窗口弹出代码: Private Sub dazccx_Click(Index As Integer) 用户注册查询窗口.Show End Sub 用户修改窗口弹出代码: Private Sub yhxg_Click(Index As Integer) 用户修改窗口.Show End Sub 用
33、户添加窗口弹出代码: Private Sub yhtj_Click(Index As Integer) 用户添加窗口.Show End Sub 信息管理返回按钮代码: Private Sub Command1_Click 学生学籍信息管理窗口.Hide 登录界面.Show End Sub 查询学生信息窗口 共 46 页 第 21 页湖南商学院学年论文 1.查询学生信息界面说明 用户选择所要查询的对象,单击“确定”按钮,得出相应信息。 2.查询学生信息界面代码 Private Sub Command1_Click Dim kl As String Dim db As New ADODB.Conn
34、ection Dim rs As New ADODB.Recordset Dim sql As String Dim rs1 As New ADODB.Recordset Dim sql1 As String kl = Combo1.Text db.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:zlfdb1.mdb;Persist Security Info=False db.Open sql = select * from 学生信息表 rs.Open sql, db, adOpenStatic, adLoc
35、kReadOnly sql1 = select * from 学生信息表 where 姓名= & kl & rs1.Open sql1, db, adOpenStatic, adLockReadOnly If rs.RecordCount = 0 Then MsgBox 表内无记录 如果为空,弹出对话框 Else rs.MoveFirst 如果不为空,定位到选定的记录 Text1.Text = rs1.Fields(0).Value Text2.Text = rs1.Fields(1).Value 显示相应字段的内容 Text3.Text = rs1.Fields(2).Value Text4
36、.Text = rs1.Fields(3).Value Text5.Text = rs1.Fields(4).Value Text6.Text = rs1.Fields(5).Value Text7.Text = rs1.Fields(6).Value 第 22 页 共 46 页 湖南商学院学年论文 Text8.Text = rs1.Fields(7).Value Text9.Text = rs1.Fields(8).Value Text10.Text = rs1.Fields(9).Value MsgBox (查询成功) Adodc1.Refresh End If End Sub Priva
37、te Sub Command2_Click 查询学生信息窗口.Hide 学生学籍信息管理窗口.Show End Sub 添加学生信息窗口 1.添加学生信息界面说明 管理员在空白栏中正确输入所要添加的信息,单击“添加”按钮即可添加成功。 2.添加学生信息界面代码 Private Sub Command1_Click Dim db As New ADODB.Connection Dim rs As New ADODB.Recordset 共 46 页 第 23 页湖南商学院学年论文 Dim sql, rt As String Dim zy, bj, xh, xm, xb, jg, csny, jt
38、zz, lxdh, zzmm, bz As String db.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:zlfdb1.mdb;Persist Security Info=False db.Open sql = select * from 学生信息表 rs.Open sql, db, adOpenStatic, adLockOptimistic rs.AddNew rs.Fields(0).Value = Text1.Text rs.Fields(1).Value = Text2.Text rs.Fiel
39、ds(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).Value = Text7.Text rs.Fields(7).Value = Text8.Text rs.Fields(8).Value = Text9.Text rs.Fields(9).Value = Text10.Text rs.Fields(10).Value = Text11.Text rs.Update MsgBox
40、 (增加成功) Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = Text7.Text = Text8.Text = 第 24 页 共 46 页 湖南商学院学年论文 Text9.Text = Text10.Text = Text11.Text = End Sub Private Sub Command2_Click Unload Me End Sub 修改学生信息窗口 1.修改学生信息界面说明 管理员可根据需要对学生信息进行修改,修改完毕后单击“修改”按钮即可成功修改学生信息。 2.修改学
41、生信息界面代码 Private Sub Command1_Click Dim db As New ADODB.Connection Dim rs As New ADODB.Recordset Dim gg As New ADODB.Recordset Dim sql, rt As String 共 46 页 第 25 页湖南商学院学年论文 Dim z, a As String Dim zy, bj, 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=False db.Open sql = select * from 学生信息表 rs.Open sql, db, adOpenStatic, adLockOptimistic a = update 学生信息表 set 专业= & Text1.Text & ,班级= & Text2.Text & ,学号= & Text3.Text & ,姓名=