学生学籍管理信息系统分析设计

目录TOC\o"1-3"\h\z\u1.系统的开发意义 2 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关系型数据模型 123.2.2数据库的逻辑设计 124.系统实现 174.1界面、代码设计与实现 175.系统管理维护与评价 455.1系统的日常管理维护 455.2系统的评价 455.3系统设计心得收获与结论 45湖北大学生学籍管理信息系统的设计与开发1.系统的开发意义学籍管理系统是一个教育单位不可缺少的局部,它的内容对于学校的决策者和管理者来说都至关重要,所以学籍管理系统应该能够为用户提供充足的信息和快捷的查询手段。但一直以来人们使用传统人工的方式管理文件档案，这种管理方式存在着许多缺点,如:效率低、保密性差,另外时间一长,将产生大量的文件和数据,这对于查找、更新和维护都带来了不少的困难。随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。作为计算机应用的一局部,使用计算机对学生学籍进展管理,具有手工管理所无法比较的优点.例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、本钱低等。这些优点能够极大地提高学生学籍管理的效率,也是企业的科学化、正规化管理,与世界接轨的重要条件。本系统是由MicrosoftVisualBasic6.0可视化开发软件工具下分析、设计、开发大中专院校的学籍管理系统的过程。通过对计算机硬件和软件解决方案的论证，对应用领域进展调查分析，参考各种资料和进展数据库编程实践，在指导教师的帮助下，已经根本上成功地实现了设计要求。是我们设计的数据库系统能够实现学生信息管理，学生成绩管理，学生档案管理，用户管理等功能。该系统根本上满足了用户在学校信息管理方面的需求，用户界面友好。本系统为了实现学校在校学生、离校学生各项信息资源的查询、统计、添加、删除、维护与管理，方便用户的管理与需求。将学生学籍管理系统分为：学生信息管理，学生成绩管理，学生学籍档案管理和用户管理四个功能模块。1.学生信息管理模块主要对学生信息〔如学号、姓名、性别、班级、家庭住址等〕进展管理，本模块又分为三个子模块。学生信息录入学生信息查询学生信息修改删除2.学生成绩管理模块主要是对学生成绩进展管理，四个子模块。学生成绩录入学生成绩查询学生成绩修改/删除学生成绩统计3.学生学籍档案管理模块主要对学校在校生的档案进展管理。学生、奖惩情况的查询学生报名注册登记表录入在校生档案的查询4.用户管理主要对用户权限设置进展管理。用户名：密码设置〔管理人员和普通用户〕行功能调整。系统分析是指在管理信息系统开发的生命周期中系统分析阶段的各项活动和方法，应用系统思想和系统科学的原理进展分析工作的方法与技术。系统分析阶段的目的，就是按照系统规划所定的某个开发工程范围内明确系统开发的目标和用户的信息需求，提出系统的逻辑方案。系统分析在整个系统开发过程中，是要解决“做什么〞的问题，即根据系统规划所确定的范围，对现行系统进展详细调查，尽可能弄清楚用户对信息的需求，调查原信息系统的资源，输入，处理和输出，描述现行系统的业务流程，指出现行系统的局限性和缺乏之处，确定新系统的根本目标和逻辑功能要求，也即提出新系统的逻辑模型，为下一阶段进展物理方案设计，解决“怎么做〞提供依据。因此，这个阶段又称逻辑设计阶段。系统分析阶段的主要活动有：系统初步调查、可行性研究、系统详细调查、新系统逻辑方案的提出。本系统初步调查采用的主要方式是与本校的教师，尤其是与学籍管理处的教职工进展交流，经过调查研究。本校根本情况为：学校现有教职工200余名，在校在册学生达5000余人。实行校长负责制，下设教务科、财务科、党团支部、学生科、总务科、宿管、人事科、生产实习科、鉴定科、招生就业科、保卫科十二大部门。各部门分别针对各自管辖范围进展具体管理，并向校长负责。在学校的日常教学活动中，学生的学籍管理和培养方向是至关重要的。从学校的行政管理和职能分工角度，得出了组织构造图。〔如图2-1〕本校在日常教学活动中出现的主要问题是：1.学校现行的学籍管理方式仍为基于文本、表格等，纸介质的传统手工处理方式。学籍信息管理没有完全科学化、标准化、处理速度较慢，因此影响教学工作的开展，难以进展有效的信息反应。2.学校领导对整个学校的学生信息在很多时候不能得到全面而又及时的反应，因此不能适时指导教学方向，以至有所影响教育质量。3.部门之间信息交流较少，信息渠道比较单一，在很大程度上不利于协调工作，容易出错。因此，通过建立学籍管理信息系统，使学生学籍管理工作科学化、标准化、程序化，促使提高信息处理的速度和正确性，使学校的信息流程和流向晰化、合理化。第一时间把握学生信息，以提高整体教学水平。校长兼党委书记校长兼党委书记副校长二校长助理副校长一党委副书记教务科宿管学生科保卫科生产实习科总务科人事科团委办招生就业科鉴定科财务科党政办图2-1组织构造图可行性研究是系统分析阶段的第二项活动。此活动的主要目标是：进一步明确系统的目标、规模与功能，对系统开发背景、必要性和意义进展调查分析并根据需要和可能提出开发系统的初步方案与方案。可行性研究是对系统进展全面、概要的分析。通过调查分析，新系统设计方案有以下三个可行性：技术可行性本系统采用Windows98作为操作平台。数据库管理系统选用Access，该数据库管理系统，提供数据库之间的数据复制功能，可代替现有系统单据数据的手工传递工作，降低出错率，提高数据的可用性。本系统的应用程序开发平台选用VisualBasic6.0，这是目前数据库应用软件的主流开发平台。经济可行性采用新的学籍信息管理系统可取代原系统的单据手工传递工作，减少人工开支，节省资金，并且可大大提高信息量的取得，缩短信息处理周期提高学生信息的利用率，使教学质量更上一个台阶。营运可行性(1).本系统操作简单，易于理解，只需通过简单培训，上手较快，学校学籍管理处的教职员以及相关教师均能进展操作，营运环境要求低。(2).面对于系统设计还应该以“标准性、平安性、高效性、保密性、可维护性〞为标准，在着眼于当前实用的根底上，为将来系统的扩展，升级留有余地。软件的开发应能在较长时间内满足学校的开展需要。标准性：系统编写与运行必须符合标准，既可以保证系统运行又可以在此标准上每一项功能运行。可靠性：由于学籍信息的重要性，系统必须稳定可靠，从而防止或减少数据损失。平安性：通过系统权限控制使用者，从而确保使用者无法操作与其无关的数据。高效性：由于学校学生信息每次处理信息量较大，系统对信息处理能力响应能力都应是快捷有效的。可维护性：采用构造化模块设计，便于开发与维护，也有利于情况随时进展经过调查学校的学籍管理业务流程主要分为三大局部：建立学生根本信息、学生综合素质评估、学生学籍档案。1.建立学生根本信息：学生符合入学条件的，学校批准后由专人向学生发放入学通知书。对新生注册，并建立相关的学生个人信息〔如学号、姓名、性别、专业和班级、家庭住址等〕，由本班班主任配合学校学生管理处负责人〔学生科〕统一审核并保存。根据用户权限对数据信息进展相应处理〔如查询、录入、修改、删除〕。1.学生成绩信息：将学生的学期成绩，由学生管理处工作人员将每期成绩结果进展记录并保存。根据用户权限对数据信息进展相应处理〔如查询、录入、修改、删除〕。1.学生学籍档案：学生情况与奖惩情况。包括学生在校期间安康状况，学生参加校内外各项活动记录和奖惩记录进展综合分析与汇总，学生学期评语等有关的在校期间表现进展的记录。由学籍管理处工作人员将评估结果存入学生档案并保存。根据用户权限对数据信息进展相应处理〔如查询、录入、修改、删除〕。新系统的逻辑模型，从本质上说，是规定系统应该做什么，即系统的逻辑描述。它主要包括新系统的业务流程、数据流程，以及对数据和功能的详细分析与描述。这是一种说明系统内各单位，人员之间的业务关系，作业顺序和管理信息流动的流程图，它可以帮助分析人员找出业务流程中的不合理迂回等。学籍管理系统的系统分析的重点是对学籍管理信息系统的业务流程进展描述，通过采用流程图中的局部图形来对学生信息质量的管理活动进展标准化说明。学生学籍管理信息系统学生学籍管理信息系统管理员学生成绩表学生信息表学生学籍管理信息表信息的查、增、删、改学生档案表图2-2学生学籍管理信息流程图从上图的业务流程图中，可以了解到整个学校学生学籍处理的根本业务以及业务动态去向：(1).从新生的入学录取，新生的注册〔安排学号，登记学生个人根本信息〕，由学生管理处人员审阅并维护，最后保存。普通用户可查询。(2).根据学生学号可对应的查找到该生的成绩单，由学生管理处人员审阅并维护，最后保存。普通用户可查询。(3).根据学生学号对应查找，该生在校的情况〔如安康状况、活动情况、奖惩情况等〕和该生报名时登记的本人根本情况，由学生管理处人员审阅并维护，最后保存。普通用户可查询。2.8学生学籍管理信息系统数据流程图。数据流程图描述系统的逻辑模型，不涉及硬、软件，数据结果与文件组织，用图形描述及相关的注释表示系统的逻辑功能。图中没有具体的物理元素，只是描述信息在系统中流动和处理的情况。在对学籍管理信息系统调研阶段的业务流程图进展分析的根底上，从系统的科学性、管理的合理性、实际运用的可行性角度出发，将信息处理功能和彼此之间的联系自顶向下、逐层分解，从逻辑上准确地描述新系统应具有的数据加工功能、数据输入、数据输出、数据存储及数据来源和去向。S01档案单S01档案单成绩单P03P02P01D3D2D1信息单学生学籍信息管理员学生信息录入成绩信息录入档案信息录入信息数据表成绩数据表档案数据表数据库图2-3学生学籍信息管理数据流图1.学生学籍管理员通过学生信息单，学生成绩单，学生档案单分别录入，生成信息数据表，成绩数据表，档案数据表从而成立一个总的数据库。F05F05F04F03F02F01按班级按学号按姓名P01D1S01信息录入学生信息管理员学生信息查询信息数据表F06图2-4学生信息管理数据流图2.学籍信息管理员通过信息单录入学生的信息，建立信息数据表。用户可根据，学号，姓名，班级来查询自己所需的信息，方便而简单。F07F07F05DP1P2按姓名按班级按学号F04F03F02F06成绩统计成绩单F01S01学籍成绩管理员成绩录入成绩查询成绩数据表图2-5学生成绩管理数据流图3.学籍成绩管理人员通过成绩单录入学生的成绩，建立成绩数据表。则用户可根据，学号，姓名，班级查看自己所需的信息。F07F07F06DP2P1按姓名按班级F05F04F03按学号F02档案单F01S01学生档案管理人员档案信息录入档案查询档案数据表图2-6学籍档案管理数据流图4.学籍档案管理员通过档案单录入学生的档案，建立档案数据表。用户可根据，学号，姓名，班级查询学生的根本档案。维护维护数据查询管理添加设置DF06F05F04D03D02D01CVF03F02F01S01系统管理员用户用户信息录入用户权限系统数据表图2-7系统管理数据流图5．系统管理员根据用户需要设置用户及权限，建立系统数据表。使整个系统的维护更具有平安性，保密性。3.学生学籍管理信息系统设计系统设计是管理系统开发的第二个阶段。在这一阶段中我们将根据系统调查与分析阶段的结果，进展新系统的设计工作。系统设计包括两方面的工作：首先是系统总体构造的设计，即把系统的功能分解成许多根本的功能模块，取得它们之间的联系，规定它们的功能和处理流程；其次是系统的详细设计。系统的各项功能，选择具体的设计手段和处理方式。因此，如果说系统研制人员在系统调查与分析阶段的任务是在逻辑上弄清楚系统“做什么〞的话，在系统设计阶段的认为则是在物理上确定系统“如何去做〞。所以系统设计阶段也称为系统的物理设计阶段。系统设计包括如下工作内容1、系统总体构造设计(1).系统功能构造的划分。(2).确定系统的计算机处理流程。(1).系统数据模型设计。(2).数据库的逻辑设计。系统的总体设计是指在系统调查与分析的根底上，对整个系统在构造上的划分，硬软件环境的配置和确定子系统与模块的处理流程。总体设计中最核心的问题是系统总体功能构造确实定和子系统与模块的划分，构造化。学生信息录入学生信息录入学生学籍管理信息系统学生信息管理学生成绩管理学生学籍档案学生信息修改删除学生信息查询学生成绩录入学生成绩查询学生成绩修改学生报名注册登记表录入在校生档案查询学生成绩统计学生奖惩情况查询图3-1学生学籍管理信息系统功能构造图为了让开发人员明确子系统或功能模块中信息的流动、转换、存储和处理等情况，以便进一步明确模块物理设计及日后模块实现的任务和工作要点，从而把系统的总体设计思想落实到每一个子系统和功能模块之中。子系统或模块的计算机处理流程学生个人信息键入学生信息登记学籍信息数据库学籍信息数据库用户管理添加用户管理表学生信息查找和删改学籍信息数据库学籍信息数据库学生学籍档案的录入和查询学籍信息数据库学生成绩的删改和添加成绩表学生个人信息学生个人信息学籍信息数据库用户管理表学生信息登记学生信息的查删改学生成绩查删改，添加统计学生学籍档案录入、查询用户管理添加键入学籍档案表成绩表图3-2计算机处理流程图3．2．1关系型数据模型学生信息表〔专业，班级，学号，姓名，性别，出生年月，家庭住址，联系，备注〕学生成绩表〔专业，班级，学号，姓名，课程名称，备注〕学生档案表〔专业，班级，学号，姓名，民族，籍贯，政治面貌，奖惩，是否留级，表现情况，备注〕学生注册表〔专业，班级，学号，姓名，出生年月，家庭住址，联系，备注〕用户管理表〔用户名，密码，备注〕3．2．2数据库的逻辑设计通过数据库管理系统提供的功能与描述工具，设计出规模恰当，能正确反映实际信息关系，重复数据少，存取效率高并能满足用户数据要求的数据模型。—R图转换成一张张的二维表。班级班级姓名11N1N111NN用户名密码登录管理员/普通用户学生学籍附属学生信息联系学号专业家庭住址出生年月附属学生成绩专业学号课程名称姓名班级附属学生档案专业姓名学号班级政治面貌奖惩是否留级包含注册表专业班级姓名学号出生年月家庭住址联系图3-3学生学籍管理信息系统E-R图E-R图转换成二维表学生信息表学生信息专业班级学号姓名出生年月家庭住址联系学生成绩表学生成绩专业班级学号姓名课程名称学生档案表学生档案专业班级学号姓名政治面貌奖惩是否留级注册表注册专业班级学号姓名出生年月家庭住址联系用户管理表用户用户名密码数据字典是各类数据描述的集合，它是进展详细的数据收集和数据分析后获得的主要成果。数据字典通常包括以下几局部：〔1〕数据项:数据项是不可在分的数据单位。〔2〕数据构造:数据构造反映了数据之间的组合关系。一个数据构造可以由假设干个数据构造组成，或由假设干数据项和数据构造混合组成。〔3〕数据流:数据流是数据构造在系统内传输的路径。〔4〕数据存储:数据存储是数据及构造停留或保存的地方，也是数据流的来源和去向之一。〔5〕处理过程:处理过程的具体处理逻辑一般用判定表或判定树来描述。〔6〕数据字典:是关于数据库中数据的描述，即对原数据的描述。本系统的数据字典如下：学生信息表列名数据类型及长度可否为空主键专业文本型〔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〕NOTNULL学号文本型〔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计算机组成原理数字型〔4〕NOTNULL计算机应用与提高数字型〔4〕NOTNULL管理信息系统数字型〔4〕NOTNULL信息法律规程数字型〔4〕NOTNULL办公软件数字型〔4〕NOTNULL备注备注型〔50〕NOTNULL4.系统实现4.1界面、代码设计与实现主窗口1.主窗口界面说明：用户直接单击“进入〞按钮进入登录界面。2.主窗口界面代码：PrivateSubCommand1_Click()主界面.Hide'隐藏主界面登录界面.Show'显示登录界面EndSub登录窗口此登录界面分为“管理员〞和“普通用户〞登录。“管理员〞需输入用户名和密码登录“信息管理〞窗口；而普通用户则直接单击“登录〞按钮进入“普通用户学生学籍窗口〞。〔1〕管理员登录代码：PrivateSubCommand1_Click()DimsqlAsStringdb.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=E:\zlf\db1.mdb;PersistSecurityInfo=False"sql="select*from用户管理表"rs.Opensql,db,adOpenStatic,adLockReadOnlyWhilers.EOF=FalseIfrs.Fields(0).Value=Text1.TextThenIfrs.Fields(1).Value=Text2.TextThenElseMsgBox("密码错误,请重新输入！")EndIfEndIfWendEndSubPrivateSubCommand2_Click()EndSub〔2〕普通用户窗口代码PrivateSubCommand3_Click()EndSubPrivateSubCommand4_Click()EndSub信息管理窗口信息管理包括“学生学籍信息管理、学生学籍成绩管理、学生学籍档案管理、用户管理〞，下设相应的子菜单。管理员可根据需要进展内容的查询、添加、删除等。〔1〕〔学生学籍信息管理〕信息查询窗口弹出代码：PrivateSubxxcx_Click(IndexAsInteger)EndSub〔2〕〔学生学籍信息管理〕信息添加窗口弹出代码：PrivateSubxxtj_Click(IndexAsInteger)EndSub〔3〕〔学生学籍信息管理〕信息修改窗口弹出代码：PrivateSubxxg_Click(IndexAsInteger)EndSub〔4〕〔学生学籍成绩管理〕成绩查询窗口弹出代码：PrivateSubchjcx_Click(IndexAsInteger)EndSub〔5〕〔学生学籍成绩管理〕成绩添加窗口弹出代码：PrivateSubchjtj_Click(IndexAsInteger)EndSub〔6〕〔学生学籍成绩管理〕成绩修改窗口弹出代码：PrivateSubchjxg_Click(IndexAsInteger)EndSub〔7〕〔学生学籍档案管理〕档案查询窗口弹出代码：PrivateSubdacx_Click(IndexAsInteger)EndSub〔8〕〔学生学籍档案管理〕注册查询窗口弹出代码：PrivateSubdazccx_Click(IndexAsInteger)EndSub〔9〕〔用户管理〕用户修改窗口弹出代码：PrivateSubyhxg_Click(IndexAsInteger)EndSub〔10〕〔用户管理〕用户添加窗口弹出代码：PrivateSubyhtj_Click(IndexAsInteger)EndSub〔11〕信息管理返回按钮代码：PrivateSubCommand1_Click()EndSub查询学生信息窗口用户选择所要查询的对象，单击“确定〞按钮，得出相应信息。PrivateSubCommand1_Click()DimklAsStringDimsqlAsStringDimsql1AsStringdb.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=E:\zlf\db1.mdb;PersistSecurityInfo=False"sql="select*from学生信息表"rs.Opensql,db,adOpenStatic,adLockReadOnlysql1="select*from学生信息表where姓名='"&kl&"'"rs1.Opensql1,db,adOpenStatic,adLockReadOnlyIfrs.RecordCount=0ThenMsgBox"表内无记录"'如果为空，弹出对话框Elsers.MoveFirst'如果不为空，定位到选定的记录Text1.Text=rs1.Fields(0).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=rs1.Fields(7).ValueText9.Text=rs1.Fields(8).ValueText10.Text=rs1.Fields(9).ValueMsgBox("查询成功")EndIfEndSubPrivateSubCommand2_Click()EndSub添加学生信息窗口管理员在空白栏中正确输入所要添加的信息，单击“添加〞按钮即可添加成功。PrivateSubCommand1_Click()Dimsql,rtAsStringDimzy,bj,xh,xm,xb,jg,csny,jtzz,lxdh,zzmm,bzAsStringdb.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=E:\zlf\db1.mdb;PersistSecurityInfo=False"sql="select*from学生信息表"rs.Opensql,db,adOpenStatic,adLockOptimisticMsgBox("增加成功")Text1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""Text5.Text=""Text6.Text=""Text7.Text=""Text8.Text=""Text9.Text=""Text10.Text=""Text11.Text=""EndSubPrivateSubCommand2_Click()UnloadMeEndSub修改学生信息窗口管理员可根据需要对学生信息进展修改〔在相应信息处正确进展修改〕，修改完毕后单击“修改〞按钮即可成功修改学生信息。PrivateSubCommand1_Click()Dimsql,rtAsStringDimz,aAsStringDimzy,bj,xh,xm,xb,jg,csny,jtzz,lxdh,zzmm,bzAsStringdb.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=E:\zlf\db1.mdb;PersistSecurityInfo=False"sql="select*from学生信息表"rs.Opensql,db,adOpenStatic,adLockOptimistica="update学生信息表set专业='"&Text1.Text&"',班级='"&Text2.Text&"',学号='"&Text3.Text&"',姓名='"&Text4.Text&"',性别='"&Text5.Text&"',出生年月='"&Text6.Text&"',家庭住址='"&Text7.Text&"',联系='"&Text8.Text&"',政治面貌='"&Text9.Text&"',备注='"&Text10.Text&"'where姓名='"&z&"'"gg.Opena,db,adOpenStatic,adLockOptimisticMsgBox("修改成功")EndSubPrivateSubCommand2_Click()UnloadMeEndSub成绩查询窗口管理员根据需要选择所要查询的对象，单击“查询〞按钮即可查询成功。PrivateSubCommand1_Click()DimklAsStringDimsqlAsStringDimsql1AsStringdb.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=E:\zlf\db1.mdb;PersistSecurityInfo=False"sql="select*from学生成绩表1"rs.Opensql,db,adOpenStatic,adLockReadOnlysql1="select*from学生成绩表1where学号='"&kl&"'"rs1.Opensql1,db,adOpenStatic,adLockReadOnlyIfrs.RecordCount=0ThenMsgBox"表内无记录"'如果为空，弹出对话框Elsers.MoveFirst'如果不为空，定位到选定的记录Text1.Text=rs1.Fields(0).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=rs1.Fields(7).ValueText9.Text=rs1.Fields(8).ValueText10.Text=rs1.Fields(9).ValueMsgBox("查询成功")EndIfEndSubPrivateSubCommand2_Click()UnloadMeEndSub添加学生成绩窗口管理员在空白栏中正确输入所要添加的信息，单击“添加〞按钮即可添加成功。PrivateSubCommand1_Click()Dimsql,rtAsStringDimzy,bj,xh,xm,jsjwl,jsjzcyl,jsjyyytg,glxxxt,xxflgc,bgrj,bzAsStringdb.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=E:\zlf\db1.mdb;PersistSecurityInfo=False"sql="select*from学生成绩表1"rs.Opensql,db,adOpenStatic,adLockOptimisticMsgBox("增加成功")Text1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""Text5.Text=""Text6.Text=""Text7.Text=""Text8.Text=""Text9.Text=""Text10.Text=""Text11.Text=""EndSubPrivateSubCommand2_Click()UnloadMeEndSub修改学生成绩窗口管理员可根据需要对学生信息进展修改〔在相应信息处正确进展修改〕，修改完毕后单击“修改〞按钮即可成功修改学生信息。PrivateSubCommand1_Click()Dimsql,rtAsStringDimz,aAsStringDimzy,bj,xh,xm,jsjwl,jsjzcyl,jsjyyytg,glxxxt,xxfgc,bgrj,bzAsStringdb.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=E:\zlf\db1.mdb;PersistSecurityInfo=False"sql="select*from学生成绩表1"rs.Opensql,db,adOpenStatic,adLockOptimistica="update学生成绩表1set专业='"&Text1.Text&"',班级='"&Text2.Text&"',学号='"&Text3.Text&"',姓名='"&Text4.Text&"',计算机网络='"&Text5.Text&"',计算机组成原理='"&Text6.Text&"',计算机应用与提高='"&Text7.Text&"',管理信息系统='"&Text8.Text&"',信息法律规程='"&Text9.Text&"',办公软件='"&Text10.Text&"',备注='"&Text10.Text&"'where姓名='"&z&"'"gg.Opena,db,adOpenStatic,adLockOptimisticMsgBox("修改成功")EndSubPrivateSubCommand2_Click()UnloadMeEndSub档案查询窗口管理员根据需要选择所要查询的对象，单击“查询〞按钮即可查询成功。PrivateSubCommand1_Click()DimklAsStringDimsqlAsStringDimsql1AsStringdb.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=E:\zlf\db1.mdb;PersistSecurityInfo=False"sql="select*from学生档案表"rs.Opensql,db,adOpenStatic,adLockReadOnlysql1="select*from学生档案表where学号='"&kl&"'"rs1.Opensql1,db,adOpenStatic,adLockReadOnlyIfrs.RecordCount=0ThenMsgBox"表内无记录"'如果为空，弹出对话框Elsers.MoveFirst'如果不为空，定位到选定的记录Text1.Text=rs1.Fields(0).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=rs1.Fields(7).ValueText9.Text=rs1.Fields(8).ValueText10.Text=rs1.Fields(9).ValueText11.Text=rs1.Fields(10).ValueText12.Text=rs1.Fields(11).ValueText13.Text=rs1.Fields(12).ValueMsgBox("查询成功")EndIfEndSubPrivateSubCommand2_Click()UnloadMeEndSub注册查询窗口管理员根据需要选择所要查询的对象，单击“查询〞得到该对象的注册信息。PrivateSubCommand1_Click()DimklAsStringDimsqlAsStringDimsql1AsStringdb.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=E:\zlf\db1.mdb;PersistSecurityInfo=False"sql="select*from学生注册表"rs.Opensql,db,adOpenStatic,adLockReadOnlysql1="select*from学生注册表where姓名='"&kl&"'"rs1.Opensql1,db,adOpenStatic,adLockReadOnlyIfrs.RecordCount=0ThenMsgBox"表内无记录"'如果为空，弹出对话框Elsers.MoveFirst'如果不为空，定位到选定的记录Text1.Text=rs1.Fields(0).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).ValueMsgBox("查询成功")EndIfEndSubPrivateSubCommand2_Click()UnloadMeEndSub用户修改窗口管理员根据需要修改用户权限信息。单击“修改〞即可成功。PrivateSubCommand1_Click()Dimsql,rtAsStringDimz,aAsStringDimyhm,mm,bzAsStringdb.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=E:\zlf\db1.mdb;PersistSecurityInfo=False"sql="select*from用户管理表"rs.Opensql,db,adOpenStatic,adLockOptimistica="update用户管理表set用户名='"&Text2.Text&"',密码='"&Text3.Text&"',,备注='"&Text1.Text&"'where用户名='"&z&"'"MsgBox("修改成功")EndSubPrivateSubCommand2_Click()UnloadMeEndSub用户添加窗口管理员根据需要添加用户信息。单击“添加〞按钮即可添加成功。PrivateSubCommand1_Click()Dimsql,rtAsStringDimyhm,mm,bzAsStringdb.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=E:\zlf\db1.mdb;PersistSecurityInfo=False"sql="select*from用户管理表"rs.Opensql,db,adOpenStatic,adLockOptimisticMsgBox("增加成功")Text1.Text=""Text2.Text=""Text3.Text=""EndSubPrivateSubCommand2_Click()UnloadMeEndSub普通用户学生学籍管理窗口普通用户学生学籍管理包括“学生学籍信息管理、学生学籍成绩管理、学生学籍档案管理〞的查询。普通用户根据需要对所需的信息进展查询。〔1〕普通用户学生成绩查询窗口弹出代码PrivateSubcjcx_Click()EndSub〔2〕普通用户学生学籍窗口“返回〞代码PrivateSubCommand1_Click()EndSub〔3〕普通用户学生档案查询窗口弹出代码PrivateSubdacx_Click(IndexAsInteger)EndSub〔4〕普通用户学生信息查询窗口弹出代码PrivateSubxxcx_Click(IndexAsInteger)EndSub普通用户学生信息查询窗口普通用户根据需要选择所要查询的对象，单击“确定〞按钮查询成功。PrivateSubCommand1_Click()DimklAsStringDimsqlAsStringDimsql1AsStringdb.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=E:\zlf\db1.mdb;PersistSecurityInfo=False"sql="select*from学生信息表"rs.Opensql,db,adOpenStatic,adLockReadOnlysql1="select*from学生信息表where姓名='"&kl&"'"rs1.Opensql1,db,adOpenStatic,adLockReadOnlyIfrs.RecordCount=0ThenMsgBox"表内无记录"'如果为空，弹出对话框Elsers.MoveFirst'如果不为空，定位到选定的记录Text1.Text=rs1.Fields(0).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=rs1.Fields(7).ValueText9.Text=rs1.Fields(8).ValueText10.Text=rs1.Fields(9).ValueMsgBox("查询成功")EndIfEndSubPrivateSubCommand2_Click()EndSub普通用户学生成绩查询窗口普通用户根据需要选择所要查询的对象，单击“确定〞按钮查询成功。PrivateSubCommand1_Click()DimklAsStringDimsqlAsStringDimsql1AsStringdb.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=E:\zlf\db1.mdb;PersistSecurityInfo=False"sql="select*from学生成绩表1"rs.Opensql,db,adOpenStatic,adLockReadOnlysql1="select*from学生成绩表1where姓名='"&kl&"'"rs1.Opensql1,db,adOpenStatic,adLockReadOnlyIfrs.RecordCount=0ThenMsgBox"表内无记录"'如果为空，弹出对话框Elsers.MoveFirst'如果不为空，定位到选定的记录Text1.Text=rs1.Fields(0).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=rs1.Fields(7).ValueText9.Text=rs1.Fields(8).ValueText10.Text=rs1.Fields(9).ValueMsgBox("查询成功")EndIfEndSubPrivateSubCommand2_Click()EndSub通用户学生档案查询窗口普通用户根据需要选择所要查询的对象，单击“确定〞按钮查询成功。PrivateSubCommand1_Click()DimklAsStringDimsqlAsStringDimsql1AsStringdb.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=E:\zlf\db1.mdb;PersistSecurityInfo=False"sql="select