学生成绩管理系统设计说明书

1、版本号日期“学生成绩管理系统”软件设计说明书姓名班级学号完成日期指导老师目录目录 21引言 41.1 编写目的 41.2范围 41.3定义 51.4参考资料 52项目概述 52.1产品描述 52.2产品功能 62.3用户特点 72.4一般约束 72.5假设和依据 73具体需求 83.1 功能需求 83.2行为需求 103.3数据需求 103.4外部接口需求 113.4.1 用户接口 113.4.2 硬件接口 113.4.3 软件接口 123.5性能需求 123.6设计约束 123.6.1 其他标准的约束 123.6.2 硬件的限制 133.7安全性 133.8可维护性 133.9可转移转换性

2、133.10数据库 134总体设计 144.1 运行环境 144.2基本设计概念和处理流程 144.3系统结构 154.4接口设计 15用户接口 15内部接口 154.5功能需求与程序的关系 164.6人工处理过程 164.7尚未问决的问题 165详细设计 175.1系统数据结构设计 17逻辑结构设计要点 17物理结构设计要点 185.2模块设计说明 19模块描述 19522功能 19523性能 20输入项 20输出项 20设计方法（算法） 21流程逻辑 25接口 26存储分配 265.2.10 注释设计 265.2.11 限制条件 26测试计划 26尚未解决的问题 275.3运行设计 27运

3、行模块组合 27运行控制 28运行时间 285.4系统出错处理设计 28出错信息 285.4.2 补救措施 295.5系统维护设计 30附录： 311引言1.1编写目的此软件需求说明书是针对所开发的【成绩管理系统】进行详细解释说明。预期读者范围：使用本系统的教师，学生，教务人员以及对本软件进行维护修改 的程序人员。1.2范围软件系统的名称：成绩管理系统软件将为学生及教师提供一个成绩信息获取上传修改的平台，软件将为教师提供 上传、修改、查询学生成绩的功能，为本科生提供成绩查询以及排名查询功能， 能够获取教师所上传的成绩数据进行汇总分析并排名显示给本科生。本软件能够大幅度提高本科生成绩管理的效率，

4、 实现成绩查询录入等功能的自动 化与系统化。功能范围：（1）用户登录此功能将使用用户进行分权限处理（分为学生，教师，教务管理人员）。此 功能可以通过与教务网络系统连接来获取学生，教师，教务人员的信息数据库， 运用用户名（学工号）与密码键入的方式进行用户身份验证。（2）成绩管理此功能针对不同权限的用户分成三个功能模块：A. 学生：只能对个人成绩进行查询操作；B. 教师：可以对成绩进行录入，删除，修改操作，对成绩汇总分析进行查询操作；C. 教务人员：可以对成绩进行汇总分析，校对，分类，制图，删除等操作。（3）基本信息管理此功能针对不同权限的用户分成三个功能模块：A. 学生：只能对个人基本信息进行录

5、入，修改，查询，删除操作；B. 教师：可以对教师个人信息进行录入，修改，查询，删除操作，对学生基本信息进行查询操作；C. 教务人员：可以对学生及教师基本信息进行修改，查询，删除操作1.3定义本科生成绩管理：基于本科生成绩的录入，修改，删除，查询等一系列操作。1.4参考资料软件工程导论（第五版）张海藩 清华大学出版社软件工程任永昌，清华大学出版社软件工程课程设计 李龙澍，郑诚编著2项目概述2.1产品描述开发意图：系统采用计算机对我校学生成绩进行管理，实现学生成绩管理工作的系统化 以及自动化，减少人力资源投资。应用目标：成绩录入：在教务人员监督下由教师录入学生成绩；成绩查询：从年级院系至班级个人，

6、从整体到单科成绩进行汇总分析，得出 平均成绩及成绩排名排名；成绩修改：教师获取教务人员认可情况下对学生成绩进行修改删除等操作；外部交流：保证本软件从外部所连接的信息管理系统及时获取信息进行交流 使用；分权限登陆：确保学生，教师，教务人员以相应权限使用本软件；作用范围：全体学生及教师、教务人员外部接口：本软件的功能至基于学生成绩，因此需要与【教务网络管理系统】【学生信息 管理系统】等系统进行外部连接以及信息上传与获取。冃景材料：随着学校规模的扩大，学生数量增多，可供选择的课程愈加多样化，有关学 生成绩管理的信息量也成倍增长， 需要大量的人力资源进行管理，工作量大，效 率低，易出错。本系统基于计算

7、机管理我校本科生成绩，在学生查询，教师录入 等方面具有较大的实用意义。提高了信息开放性，准确性以及有效性。大大提高 了学生成绩管理的效率。本软件应用系统与教务管理系统中其他系统如学生选课系统，学生信息查询 系统，图书管理系统等均是我校教务管理系统功能中的一部分。互相之间信息具 有交流性与可读性。2.2产品功能 登录管理：要求使用者提供合法的用户名、密码和相关权限等，通过对不同用户 的权限限制，登录以后会有不同的权限。对个人成绩进行查询对个人基本信息进行查询对个人基本信息进行修改对个人成绩分析进行查询成绩管理系统对学生成绩进行录入对学生成绩进行查询对学生成绩进行修改对成绩汇总分析进行查询对教师信

8、息进行修改查询汇总分析学生成绩查询修改学生基本信息查询修改教师基本信息监督教师对成绩进行操作查询学生成绩教务人员成绩管理：由老师或教务人员录入，修改，删除成绩。这个功能模块要用到学生 的信息、课程的信息等。成绩查询：登录以后，学生可以对已经学过的课程进行成绩查询， 在查询过程中 学生可以对所有的成绩进行查询； 也可以对某一学期的成绩进行查询； 还可以对 某一课程号或课程名进行查询。汇总功能：系统对成绩进行分类汇总，形成相应及格率图表，成绩排名等。2.3用户特点成绩管理系统应用软件是面向学校，其使用人员是本校全体在读学生以及教 师及教务人员。使用频度：非考试周：10000次/天，考试周：5000

9、0次/天2.4 般约束A. 硬件的限制：本软件基于PC计算机（win dows2000以上操作系统,内存 在512M以上）；B. 与其他应用间的接口：与教务管理系统连接C. 审查功能：由教务人员完成；D. 控制功能：由登陆用户完成；E. 所需的高级语言：SQL语言，DelphiF. 通信协议：安全保密G. 应用的临界点：60000次/天H. 安全和保密方面的考虑：使用登陆对用户进行分权限操作，对应用户名 和密码存储至数据库中。2.5假设和依据假设系统一天访问频度超过了一般约束，理论上这个操作是不可能进行的，需求说明要进行相应的改变。假设规定用户以外人员登录系统进行操作，实际上这种操作系统是不可

10、能进行的，需求说明要进行相应的改变3具体需求3.1功能需求成绩输入成绩修改成绩查询用户注销管理功能部分：本学生成绩管理系统中分为教务人员模块、教师模块、学生模块。其主要管理功能有：卫迖成绩进行查询T对个人基本信息进行查询盘学生成绩进齐录入对学生成绩些空查询学生成绩对个人基本信息进行修改茨学生成绩进彳亍修改教 师并人峻分析进行查谊对威绩汇总分析越亍查询教务A员H 3匚总分析学生成绩查询修改学生基本信息一查询修改教师基本信息帀信息进行鶴改查询监督教师对成绩进行換作3.2行为需求3.3数据需求教学管理数据库的简单功能实现包含课程，学生，教师的基本情况，以及学生 成绩的录入等功能学生表：学号，学生姓名

11、，性别，年龄，入学年份，系别教师表：教师号，教师姓名，性别，系别课程表：课号，课程名，学分，成绩成绩表：学号，学生姓名，教师号，教师姓名，课号，课程名，成绩E-R图3.4外部接口需求341用户接口学生信息系统采用的浏览器与服务器的形式， 系统通过网页的形式为不同身 份的用户提供登录界面，不同身份的用户通过自身的身份验证登录系统，实现自己权限范围内的各种操作硬件接口学生信息管理系统，以游览器与服务器的形式，通过查询数据库服务器，查 询相关信息。并通过鼠标、键盘、显示器输入与输出相关信息。343软件接口数据库使用SQL Server 2000，前台界面使用 Delphi7 ,操作系统是 Windo

12、ws98 以上版本，可联网的机器即可使用。3.5性能需求为了满足用户的要求，系统必须要有高的运作速度，用户填写的信息输入到 系统，系统必须能快速及时作出响应，迅速处理各项数据、信息，显示出所有必 需信息，所以要求很高的信息量速度和大的主存容量；由于要存贮大量的数据和信息，也还要有足够大的磁盘容量；安全性也是系统最重要的性能需求之一，学生信息管理系统必须有可靠的安全措施，以保证用户的各项信息安全。3.6设计约束其他标准的约束a. 报表格式；学生（学号，姓名，性别，年龄，入学年份）学号为主键，不能为空，系号为外键学生是参照关系，系是被参照关系设置规则年龄在16到25岁之间系号为空值或等于系中系号的

13、主码值课程（课号，课程名，学分）课号为主键，不能为空设置规则学分在0到5之间成绩（课号，学号，成绩）（课号，学号）为主键，不能为空课程号为外键，不能为空，等于课程中课程号的主码值学号为外键，不能为空，等于学生中学号的主码值设置规则成绩在0到100之间教师（教师号，姓名，性别）教师编号为主键，不能为空b. 数据命名；学生表：学号，学生姓名，性别，年龄，入学年份教师表：教师号，教师姓名课程表：课号，课程名，学分，成绩成绩表：学号，学生姓名，教师号，教师姓名，课号，课程名，成绩362 硬件的限制无3.7安全性1. 要能够抵御用户可能的误操作，保证软件的健壮性要对数据进行检验，保证 数据有效性在数据被

14、破坏时，具有数据恢复能力2. 数据要绝对安全防止有意无意的破坏数据。若数据遭到破坏，系统具有数据 恢复功能，不可恢复的数据仅限于当日录入和修改的数据。3.8可维护性本网站的维护主要包括以下内容：1. 权限维护。管理员需要对用户的用户名、密码和权限进行维护，给每名学生 分配享用的用户名和密码，确定查询级别。2. 考试信息管理。考试时间安排及是否有成绩信息要经常进行更新。3. 成绩管理。及时发布已经出来的成绩，以供学生查阅。4. 课程管理。有无新课程或课程号，课程名有所修改。5. 学生管理。新生到来、老生离去以及学生的各种信息的管理。3.9可转移转换性在windows98以上系统下均可运行。3.1

15、0数据库本科生成绩管理系统_Data本科生成绩管理系统_Log4总体设计4.1运行环境该系统建设高速核心网络，数据库服务器、应用服务器、核心网络设备之间应该 通畅可靠。系统要求可靠、稳定、查询效率高。操作系统平台： windows xp 与 win 7数据库平台：SQL2000开发软件：SQL2000 Delphi7运行平台：开发完成将网站放到装有IIS的服务器上，客户端用IE或者其他浏 览器即可。4.2基本设计概念和处理流程4.3系统结构中南犬学本科生成绩官理系统用户登录口对个人咸绿逬彳亍査询一“对个人基本信邑进行查询 卜对个A.基本信息进行修改一 口对个人腿分析进行查诲T对学生成塢进行录入

16、H对学生成绩进行查询 教 师卜对学生成绩进行修改对成绩汇总分析进行查询对教师信息进行修改査询誉询学生成细新H汇总分析学生成绩务/人-査询修改学生基本信息, 员'卩查询修改教师基本信息J监督教师对成绩进彳ift作4.4接口设计用户接口在用户界面部分，根据需求分析的结果，用户需要一个用户友善界面。在界 面设计上，应做到简单明了，易于操作，并且要注意到界面的布局，应突出的显 示重要以及出错信息。外观上也要做到合理化，考虑到用户多对WINDOWS格较熟悉，应尽量向这一方向靠拢。在设计语言上，已决定使用Visual C+进行编程。总的来说，系统的用户界面应作到可靠性、简单性、易学习和使用。内部接

17、口内部接口方面，各模块之间采用函数调用、参数传递、返回值的方式进行信 息传递。具体参数的结构将在下面数据结构设计的内容中说明。 接口传递的信息 将是以数据结构封装了的数据，以参数传递或返回值的形式在各模块间传输 。4.5功能需求与程序的关系学生基本信息学生成绩信息修改学 牛基本 信息修改增 加删除 成绩信 息统计全 体学生 成绩成 绩信息查询教 师信息修改教师信息学生模 块VV教师模 块VVVVVV教务人员模块VVVVVVV4.6人工处理过程学生成绩管理系统所有的管理工作是通过软件来实现，但是对于一些打印的信息需要相关人员签字后才能确认信息的真实性。4.7尚未问决的问题由于学生成绩管理系统所需

18、的数据量大，在系统实施过程中受网络速率的影 响，系统的响应时间肯能不及时，其次在当前的网络环境中，面临这各种的威胁, 病毒、密码、蠕虫的攻击，系统可能受攻击，在安全性方面不够高。5详细设计5.1系统数据结构设计逻辑结构设计要点（一）学生信息表数据项类型长度限制学号n char10主键姓名char10性别char2年龄tin yi nt1所在班级int4系别n char10（二）课程信息表数据项类型长度限制课号n char10主键课名n char10学时int4学分float8授课教师号int4（三）教师信息表数据项类型长度限制教师号n char10主键姓名n char10性别n char2系别

19、n char10（四）成绩表数据项类型长度限制学号n char10主键课程名n char10平时成绩float8实验成绩float8期末成绩float8物理结构设计要点模块功能访问数据库方 法保密条件登录模块登录直接访问帐号与密码学籍管理模块查看信息查询数据库信 息并显示无选课管理模块查询选择课程 信息查询数据库中 的选课信息表，无成绩管理模块查看成绩信息查询成绩数据 库，得到成绩无用户管理查看用户信息查询学生与老 师信息无5.2模块设计说明521模块描述模块名称描述学生子模块该模块是本系统分权管理用户的一个子模块。面向使用本系统的学生进行 相应的操作显示。教师子模块该模块是本系统分权管理用户

20、的一个子模块。面向使用本系统的教师进行 相应的操作显示。教务人员子模块该模块是本系统分权管理用户的一个子模块。面向使用本系统的教务人员 进行相应的操作显示。功能模块名称功能学生子模块该模块支持学生可以在该模块中进行个人成绩查询，并且还可以对自己的 个人信息进行增删查改等操作教师子模块该模块支持教师可以在该模块中进行成绩录入，删除，修改等并且还可以 对自己的个人信息进行增删查改等操作教务人员子模块该模块支持管理员可以对教师学生的个人信息以及学生成绩进行增删查改 等操作，还可以监督教师对学生的成绩进行增删查改的操作。还可以对学 生成绩进行汇总分析得出各类分析图表。523性能模块名称性能学生子模块该

21、模块可以为学生提供登陆界面，查询成绩功能，修改查询信息功能教师子模块该模块可以为教师提供登陆界面，成绩查录修改功能，个人信息增删查改 功能教务人员子模块该模块可以为教务人员提供登陆界面，提供对教师学生的个人信息以及学 生成绩进行增删查改等功能及界面。提供学生成绩进汇总分析分析图表功 能。524输入项模块名称输入项学生子模块学生登录名，用户密码教师子模块教师登录名，用户密码教务人员子模块教务人员登录名，用户密码输出项模块名称输出项学生子模块对学生信息数据库操作是否成功教师子模块对教师信息数据库操作是否成功；对学生成绩数据库操作是否成功教务人员子模块对学生信息数据库操作是否成功；对教师信息数据库操

22、作是否成功；对学 生成绩数据库操作是否成功；成绩分析图表526设计方法（算法）主程序流程图学生子模块流程图教师子模块流程图教务人员子模块流程图527流程逻辑528 接口A.内部接口本科生成绩管理系统的内部接口有：信息管理、成绩管理、课程管理、用户 管理、密码管理。B.外部接口本科生成绩管理系统，以游览器与服务器的形式，通过查询数据库服务器， 查询相关信息。并通过鼠标、键盘、显示器输入与输出相关信息。529存储分配无特殊要求。注释设计课程信息表Class :（课程号，课程名，教师号，学分，学时）学生信息表Student :（学号，姓名，性别，年龄，专业，系别）成绩表score ：（学号，课程名，

23、成绩比例，平时成绩，实验成绩，期中成绩，期末成绩） 教师信息表Teacher:（教师号，教师名，性别，系别）限制条件根据不同的硬件环境与操作系统，系统的运行时间不确定，当硬件达到要求 配置时，运行的时间很短。系统运行查询占用的资源与时间最多， 查询操作要与 数据库的信息进行匹配，当数据库中的信息很多时，系统有一定的延迟。测试计划设计检查列表按照需求文档的功能、性能和接口 3个列表，设计出概要设计检查列表，以 检查概要设计是否覆盖需求分析，没有覆盖就是不符合项，并将检查结果列出。尚未解决的问题(1) 学生众多，信息量大，在对其进行录入，修改，删除时需要大量时间。(2) 在对大量数据进行长时间操作

24、时，操作人由于疲劳很容易造成数据误差。5.3运行设计531运行模块组合信息管理模块运行时通过与学生信息数据库连接， 搜素学生信息，并将结果 显示给用户，可以修改学生学籍信息。成绩管理模块运行时通过与成绩管理数据库连接，老师可以录入、修改、删 除学生成绩表中的相关信息，学生通过查询条件，找到匹配的成绩信息，显示给 学生。用户管理模块运行时通过与用户数据库相连， 管理员查询老师与学生信息数 据库，得到老师与学生信息。管理员可以修改学生与老师数据库，可以增加、删 除老师与学生信息。密码管理模块运行时通过与不同身份的密码数据库连接，可以修改自身的密码信息硬件环境要求操作系统用 Windows 2000

25、以上的版本，Windows Xp最好。因为本系统将在 WindowsXp环境下开发。要求支持并安装 SQLServer 2005、vs2008。一台电脑, 如果有大量数据的话要加一台服务器。电脑要求 CPU1.6GH以的的主频，内存 1G,硬盘 160。软件环境数据库用 Microsoft SQL server2005运行时使用Delphi7532运行控制信息管理查询信息已管理员身份登录系统后，进入界面， 通过学号或者教师号查询信息。修改信息已管理员身份登录系统后，进入学籍界 面，对信息发生变化的学生或教师，进 行信息修改。成绩管理统计查询成绩信息学生登录系统后，进入成绩查询界面， 查询课程成

26、绩信息。增加、删除、修改成 绩信息老师或教务人员登录系统后，在成绩页 面，可以录入、修改、删除学生成绩， 保存退出。用户管理增加删除用户用户进入系统后在相关界面进行删除增加用户密码管理修改密码与数据库连接，用户进入系统后使用原 密码登陆.修改密码-1 J533运行时间根据不同的硬件环境与操作系统，系统的运行时间不确定，当硬件达到要求配置 时，运行的时间很短。系统运行查询占用的资源与时间最多， 查询操作要与数据 库的信息进行匹配，当数据库中的信息很多时，系统有一定的延迟。5.4系统出错处理设计出错信息出错原因系统输出形式处理方法登录时输入的帐号与密码 不一致。系统提示帐号与密码 错误。返回登录页

27、面重新输 入。由于收网络因素影响，登 录没有响应。系统没有任何错误提 示信息。刷新页面，重新登录输入的查询条件有误输出没有想要的查询 结果。审查查询条件选中的课程，课时安排信 息查询不到，收网络原因 影响提交速率慢。系统没有提示出错信 息。选中课程后，等30秒以后查询退选课程，查询不到收网 络原因影响，提交速率慢系统没有提示出错信 息。选中课程后，等30秒以后查询查询浏览时，系统不响应系统没有提示出错信 息。刷新页面，冉查询542补救措施任何系统都有出错情况发生，学生信息管理系统也不例外，下面是该系统出 错时可采用的变通措施：定期对系统进行更新，备份；当原始系统数据万一丢失时启用副本的建立和启

28、动技术，例如周期性地把磁 盘信息记录到磁带上去就是对于磁盘媒体的一种后备技术；系统可能受自然灾害与网络病毒因素的影响， 为了保护系统所有数据，做好 异地备份，提高系统的可靠性。降效技术准备采用的后备技术，使用另一个效率稍低的系统或方法来求得所 需结果的某些部分，例如一个自动系统的降效技术可以是手工操作和数据的人工 记录。恢复及再启动技术，将使用的恢复再启动技术，使软件从故障点恢复执行或 使软件从头开始重新运行的方法。5.5系统维护设计学生信息管理系统，在整个系统的运行过程中，系统的维护和管理是始终贯 穿其中的，包括进行系统应用程序的维护、代码的维护、数据的备份与恢复、硬 件设备维护。系统在运行

29、时，也要随着环境的变化根据不同的需求及变化对系统 进行必要的修改，使得系统功能更加完善。系统维护工作贯穿于系统的整个运行过程中，包括：系统应用程序的维护、 数据的维护、代码的维护、硬件设备维护，系统维护的重点是系统应用软件的维 护工作。而系统维护工作不应总是被动的等待用户提出要求后才进行，应进行主动的预防性维护。附录：Delphi7学生成绩管理系统代码unit Uni t1;in terfaceusesWin dows. Messages, SysUtils, Varia nts. Classes, Graphics, Con trols, Forms,Dialogs, StdCtrls, D

30、B, ADODB, jpeg, ExtCtrls;typeTForm1 = class(TForm)DataSource1: TDataSource;ADOCo nn ectio n1: TADOCo nn ectio n;Label1: TLabel;Label2: TLabel;ComboBox1: TComboBox;Edit1: TEdit;Edit2: TEdit;Butto n1: TButt on;Butto n2: TButt on;ADOQuery1: TADOQuery;Image1: TImage;Image2: TImage;Label3: TLabel;procedu

31、re Butto n2Click(Se nder: TObject);procedure Butto n1Click(Se nder: TObject);procedure FormClose(Se nder: TObject; var Acti on: TCloseAct ion);privatepass:boolea n;public Public declarati ons en d;varForml: TForml;impleme ntati onuses Unit4,un it5, un it6;$R *.dfmprocedure TForm1.Butt on 2Click(Se n

32、der: TObject);beginform1.Close;en d;procedure TForm1.Butt on 1Click(Se nder: TObject);beginwith adoquery1 doif combobox1.text='学生'thenbegin close; sql.Clear;sql.Add('select=”'+edit2.Text+”)；* from 学生表 where 学号="'+edit1.text+"'and 学号ope n;if recordco un t=0 the nbegi

33、nedit2.SetFocus; /使edit2获得焦点edit2.SelectAll; /全选edit2中的文本showmessage('账号或密码错误');endelseform6.Show;forml.Hide;en d;beginwith adoqueryl doif combobox1.Text=' 教师'thenbegi nclose;sql.Clear;sql.Add('select* from 教师表 where 工号=”'+edit1.text+”'and 工号=”'+edit2.Text+”);ope n;if

34、 recordco un t=0 the nbegin使edit2获得焦点全选edit2中的文本edit2.SetFocus; /edit2.SelectAll; /showmessage('账号或密码错误');endelseform4.Show;form1.Hide;en d;en d;if combobox1.Text='' the nshowmessage('请选择登陆类型'); en d;procedure TForm1.FormClose(Se nder: TObject; var Action: TCloseActi on); beg

35、inif pass the nform1.Closeelseapplicati on. Term in ate;en d;en d.unit Un it6;in terfaceusesWin dows. Messages, SysUtils, Varia nts. Classes, Graphics, Con trols, Forms,Dialogs, StdCtrls, jpeg, ExtCtrls;typeTForm6 = class(TForm)Edit1: TEdit;Butto n1: TButt on;Butto n2: TButt on;Butto n3: TButt on;Bu

36、tto n4: TButt on;Image1: TImage;Label1: TLabel;Label2: TLabel;procedure Butto n4Click(Se nder: TObject);procedure FormClose(Se nder: TObject; var Acti on: TCloseAct ion);procedure Butto n1Click(Se nder: TObject);procedure Butto n2Click(Se nder: TObject);procedure Butto n3Click(Se nder: TObject);priv

37、ate Private declarati ons public Public declarati ons en d;varForm6: TForm6;impleme ntati onuses un itl, un it7, un it8, un it9;$R *.dfmprocedure TForm6.Butt on 4Click(Se nder: TObject);beginform6.Close;en d;procedure TForm6.FormClose(Se nder: TObject; var Action: TCloseActi on);beginapplicati on. T

38、erm in ate;en d;procedure TForm6.Butt on 1Click(Se nder: TObject);beginwith form7.ADOQuery1 dobeginif Active the nClose;SQL.Clear;SQL.Add('select * from 学生表 where 学号ope n;学号'姓名'年龄'性别'入学年份'所在班级'籍贯'en d;form7.Show;form6.Hide;en d;procedure TForm6.Butt on 2Click(Se nder:

39、 TObject);beginform8.Show;form1.Hide;en d;procedure TForm6.Butt on 3Click(Se nder: TObject);beginform9.Show;form1.Hide;en d;en d.unit Un it7;in terfaceusesWin dows, Messages, SysUtils, Varia nts. Classes, Graphics, Con trols, Forms,Dialogs, StdCtrls, DB, ADODB, jpeg, ExtCtrls;typeTForm7 = class(TFor

40、m)Butto n1: TButt on;Label1: TLabel;Edit2: TEdit;Label2: TLabel;Edit3: TEdit;Label3: TLabel;Edit4: TEdit;Label4: TLabel;Edit5: TEdit;Label5: TLabel;Edit6: TEdit;Editl: TEdit;Edit7: TEdit;Label6: TLabel;Label7: TLabel;DataSourcel: TDataSource;ADOQueryl: TADOQuery;Imagel: TImage;procedure Butto n1Clic

41、k(Se nder: TObject);private Private declarati ons public Public declarati ons en d;varForm7: TForm7;impleme ntati onuses un it1, un it6;$R *.dfmprocedure TForm7.Butt on 1Click(Se nder: TObject); beginform6.Show;form7.Hide;en d;en d.unit Un it8;in terfaceusesWin dows. Messages, SysUtils, Varia nts. C

42、lasses, Graphics, Con trols, Forms,Dialogs, StdCtrls, DB, ADODB, Grids, DBGrids, jpeg, ExtCtrls;typeTForm8 = class(TForm)Edit1: TEdit;Butto n1: TButt on;ADOQuery1: TADOQuery;DataSource1: TDataSource;DBGrid1: TDBGrid;Butto n3: TButt on;Image1: TImage;Label1: TLabel;procedure Butto n1Click(Se nder: TO

43、bject);procedure Butto n2Click(Se nder: TObject);procedure Butto n3Click(Se nder: TObject);private Private declarati ons public Public declarati ons en d;varForm8: TForm8;impleme ntati onuses un it1, un it6;$R *.dfmprocedure TForm8.Butt on 1Click(Se nder: TObject);beginform6.Show;form8.Hide;en d;pro

44、cedure TForm8.Butt on 2Click(Se nder: TObject);beginwith ADOQuery1 dobeginif Active the nClose;SQL.Clear ;SQL.Add('select * from 学生 where 学号=”'+edit1.Text+""); ope n;en d;en d;procedure TForm8.Butt on 3Click(Se nder: TObject);beginwith ADOQueryl dobeginif Active the nClose;SQL.Clea

45、r ;SQL.Add('select * from 选课表 where 学号="'+edit1.Text+"'order by 成绩desc');ope n;en d;en d;en d.unit Un it4;in terfaceusesWin dows. Messages, SysUtils, Varia nts. Classes, Graphics, Con trols. Forms,Dialogs, StdCtrls, jpeg, ExtCtrls;typeTForm4 = class(TForm)Butto n1: TButt on

46、;Butto n2: TButt on;Butto n3: TButt on;Butto n4: TButt on;Image1: TImage;Label1: TLabel;procedure Butto n2Click(Se nder: TObject);procedure Butto n1Click(Se nder: TObject);procedure Butto n4Click(Se nder: TObject);procedure FormClose(Se nder: TObject; var Acti on: TCloseAct ion);procedure Butto n3Cl

47、ick(Se nder: TObject);private Private declarati ons public Public declarati ons en d;varForm4: TForm4;impleme ntati onuses un it1, un it2, un it3, un it5;$R *.dfmprocedure TForm4.Butt on 2Click(Se nder: TObject);beginform2.Show;form4.Hide;en d;procedure TForm4.Butt on 1Click(Se nder: TObject);beginf

48、orm3.Show;form4.Hide;en d;procedure TForm4.Butt on 4Click(Se nder: TObject);beginform4.Close;en d;procedure TForm4.FormClose(Se nder: TObject; var Action: TCloseActi on);beginapplicati on. Term in ate;en d;procedure TForm4.Butt on 3Click(Se nder: TObject);beginform5.Show;form4.Hide;en d;en d.unit Un

49、 it3;in terfaceusesWin dows, Messages, SysUtils, Varia nts. Classes, Graphics, Con trols, Forms,Dialogs, StdCtrls, DB, ADODB, Grids, DBGrids, jpeg, ExtCtrls;typeTForm3 = class(TForm)DBGridl: TDBGrid;DataSourcel: TDataSource;ADOQueryl: TADOQuery;Label1: TLabel;Edit1: TEdit;Label2: TLabel;Edit2: TEdit

50、;Label3: TLabel;Edit3: TEdit;Label4: TLabel;Edit4: TEdit;Label5: TLabel;Edit5: TEdit;Label6: TLabel;Edit6: TEdit;Label7: TLabel;Edit7: TEdit;Butto n1: TButt on;Butto n2: TButt on;Butto n3: TButt on;DataSource2: TDataSource;ADOTable1: TADOTable;Image1: TImage;procedure Butto n1Click(Se nder: TObject)

51、;procedure Butto n2Click(Se nder: TObject);procedure Butto n3Click(Se nder: TObject);private Private declarati ons public Public declarati ons en d;varForm3: TForm3;impleme ntati onuses un it1, uni t4;$R *.dfmprocedure TForm3.Butt on 1Click(Se nder: TObject);beginwith ADOQuery1 dobeginif Active the

52、nClose;SQL.Clear ;SQL.Add('select * from 学生表 where 学号="'+ edit1.Text+"");execsql;ope n;edit2.Text:=fieldvalues'姓名'edit3.Text:=fieldvalues'年龄'edit4.Text:=fieldvalues'性别'edit5.Text:=fieldvalues'入学年份'edit6.Text:=fieldvalues'所在班级'edit7.Text:=fieldvalues'籍贯'en d;en d;procedure TForm3.Butt on 2Click(Se nder: TObject); beginwith ADOQueryl dobeginif Active the nClose;SQ