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

《学生成绩管理系统设计说明书》由会员分享，可在线阅读，更多相关《学生成绩管理系统设计说明书（49页珍藏版）》请在装配图网上搜索。

1、word版本号日期“学生成绩管理系统”软件设计说明书班级学号完成日期指导老师目录目录21 引言31.1 编写目的31.2 围31.3 定义41.4 参考资料42 项目概述42.1 产品描述42.2 产品功能52.3 用户特点62.4 一般约束72.5 假设和依据73 具体需求73.1 功能需求73.2 行为需求103.3 数据需求103.4 外部接口需求113.4.1 用户接口113.4.2 硬件接口113.4.3 软件接口123.5 性能需求123.6 设计约束123.6.1 其他标准的约束123.6.2 硬件的限制13133.8 可维护性133.9 可转移 转换性13134 总体设计141

2、414154.4 接口设计1515部接口151616165 详细设计171717181919192020205.2.6设计方法（算法）21252626262626275.3 运行设计2727282929293030附录：311引言1.1 编写目的此软件需求说明书是针对所开发的【成绩管理系统】进行详细解释说明。预期读者围：使用本系统的教师，学生，教务人员以及对本软件进行维护修改的程序人员。1.2 围软件系统的名称：成绩管理系统软件将为学生及教师提供一个成绩信息获取上传修改的平台，软件将为教师提供上传、修改、查询学生成绩的功能，为本科生提供成绩查询以及排名查询功能，能够获取教师所上传的成绩数据进行

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

4、对不同权限的用户分成三个功能模块： A.学生：只能对个人基本信息进行录入，修改，查询，删除操作； B.教师：可以对教师个人信息进行录入，修改，查询，删除操作，对学生基本信息进行查询操作； C.教务人员：可以对学生及教师基本信息进行修改，查询，删除操作。1.3 定义本科生成绩管理：基于本科生成绩的录入，修改，删除，查询等一系列操作。1.4 参考资料软件工程导论（第五版） 海藩 清华大学软件工程任永昌，清华大学软件工程课程设计 龙澍，诚编著2 项目概述2.1 产品描述开发意图：系统采用计算机对我校学生成绩进行管理，实现学生成绩管理工作的系统化以及自动化，减少人力资源投资。 应用目标：成绩录入：在教

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

6、进行管理，工作量大，效率低，易出错。本系统基于计算机管理我校本科生成绩，在学生查询，教师录入等方面具有较大的实用意义。提高了信息开放性，准确性以及有效性。大大提高了学生成绩管理的效率。本软件应用系统与教务管理系统中其他系统如学生选课系统，学生信息查询系统，图书管理系统等均是我校教务管理系统功能中的一部分。互相之间信息具有交流性与可读性。2.2 产品功能 成绩管理系统 用户登录学生教务人员教师查询学生成绩对学生成绩进行录入对个人成绩进行查询汇总分析学生成绩对学生成绩进行查询对个人基本信息进行查询对学生成绩进行修改查询修改学生基本信息对个人基本信息进行修改查询修改教师基本信息对成绩汇总分析进行查询

7、对个人成绩分析进行查询监督教师对成绩进行操作对教师信息进行修改查询登录管理：要求使用者提供合法的用户名、密码和相关权限等，通过对不同用户的权限限制，登录以后会有不同的权限。成绩管理：由老师或教务人员录入，修改，删除成绩。这个功能模块要用到学生的信息、课程的信息等。成绩查询：登录以后，学生可以对已经学过的课程进行成绩查询，在查询过程中学生可以对所有的成绩进行查询；也可以对某一学期的成绩进行查询；还可以对某一课程号或课程名进行查询。汇总功能：系统对成绩进行分类汇总，形成相应及格率图表，成绩排名等。2.3 用户特点成绩管理系统应用软件是面向学校，其使用人员是本校全体在读学生以及教师及教务人员。使用频

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

9、录系统进行操作，实际上这种操作系统是不可能进行的，需求说明要进行相应的改变。3 具体需求功能需求成绩输入成绩修改汇总排名成绩查询 信息管理 成绩管理用户登录添加信息修改信息删除信息查询信息 本科生成绩管理系统 用户登录用户注销管理功能部分：本学生成绩管理系统中分为教务人员模块、教师模块、学生模块。其主要管理功能有：3.2 行为需求3.3 数据需求教学管理数据库的简单功能实现包含课程，学生，教师的基本情况，以及学生成绩的录入等功能学生表：学号，学生，性别，年龄，入学年份，系别教师表：教师号，教师，性别，系别课程表：课号，课程名，学分，成绩成绩表：学号，学生，教师号，教师，课号，课程名，成绩E-R

10、图3.4 外部接口需求3.4.1 用户接口学生信息系统采用的浏览器与服务器的形式，系统通过网页的形式为不同身份的用户提供登录界面，不同身份的用户通过自身的身份验证登录系统，实现自己权限围的各种操作3.4.2 硬件接口学生信息管理系统，以游览器与服务器的形式，通过查询数据库服务器，查询相关信息。并通过鼠标、键盘、显示器输入与输出相关信息。3.4.3 软件接口数据库使用SQL Server 2000，前台界面使用Delphi7，操作系统是Windows98以上版本，可联网的机器即可使用。3.5 性能需求为了满足用户的要求，系统必须要有高的运作速度，用户填写的信息输入到系统，系统必须能快速及时作出响

11、应，迅速处理各项数据、信息，显示出所有必需信息，所以要求很高的信息量速度和大的主存容量；由于要存贮大量的数据和信息，也还要有足够大的磁盘容量；安全性也是系统最重要的性能需求之一，学生信息管理系统必须有可靠的安全措施，以保证用户的各项信息安全。3.6 设计约束3.6.1 其他标准的约束a 报表格式；学生（学号，性别，年龄，入学年份）学号为主键，不能为空，系号为外键学生是参照关系，系是被参照关系设置规则年龄在16到25岁之间 系号为空值或等于系中系号的主码值课程 （课号，课程名，学分）课号为主键，不能为空设置规则学分在0到5之间成绩（课号，学号，成绩）（课号，学号）为主键，不能为空课程号为外键，不

12、能为空，等于课程中课程号的主码值学号为外键，不能为空，等于学生中学号的主码值设置规则成绩在0到100之间教师（教师号，性别）教师编号为主键，不能为空b 数据命名；学生表：学号，学生，性别，年龄，入学年份教师表：教师号，教师课程表：课号，课程名，学分，成绩成绩表：学号，学生，教师号，教师，课号，课程名，成绩3.6.2 硬件的限制无1. 要能够抵御用户可能的误操作，保证软件的健壮性要对数据进行检验，保证数据有效性在数据被破坏时，具有数据恢复能力2. 数据要绝对安全防止有意无意的破坏数据。若数据遭到破坏，系统具有数据恢复功能，不可恢复的数据仅限于当日录入和修改的数据。3.8 可维护性本的维护主要包括

13、以下容：1. 权限维护。管理员需要对用户的用户名、密码和权限进行维护，给每名学生分配享用的用户名和密码，确定查询级别。2. 考试信息管理。考试时间安排及是否有成绩信息要经常进行更新。3. 成绩管理。及时发布已经出来的成绩，以供学生查阅。4. 课程管理。有无新课程或课程号，课程名有所修改。5. 学生管理。新生到来、老生离去以及学生的各种信息的管理。3.9 可转移 转换性在windows98以上系统下均可运行。本科生成绩管理系统_Data本科生成绩管理系统_Log4 总体设计4.1运行环境该系统建设高速核心网络，数据库服务器、应用服务器、核心网络设备之间应该通畅可靠。系统要求可靠、稳定、查询效率高

14、。操作系统平台：windows xp 与 win 7数据库平台：SQL2000开发软件：SQL2000 Delphi7运行平台：开发完成将放到装有IIS的服务器上，客户端用IE或者其他浏览器即可。4.4 接口设计用户接口在用户界面部分，根据需求分析的结果，用户需要一个用户友善界面。在界面设计上，应做到简单明了，易于操作，并且要注意到界面的布局，应突出的显示重要以及出错信息。外观上也要做到合理化，考虑到用户多对WINDOW 风格较熟悉，应尽量向这一方向靠拢。在设计语言上，已决定使用Visual C+进行编程。总的来说，系统的用户界面应作到可靠性、简单性、易学习和使用。部接口部接口方面，各模块之间

15、采用函数调用、参数传递、返回值的方式进行信息传递。具体参数的结构将在下面数据结构设计的容中说明。接口传递的信息将是以数据结构封装了的数据，以参数传递或返回值的形式在各模块间传输。4.5功能需求与程序的关系学生基本信息学生成绩信息修改学生基本信息修改增加删除成绩信息统计全体学生成绩成绩信息查询教师信息修改教师信息学生模块教师模块教务人员模块4.6人工处理过程学生成绩管理系统所有的管理工作是通过软件来实现，但是对于一些打印的信息需要相关人员签字后才能确认信息的真实性。4.7尚未问决的问题由于学生成绩管理系统所需的数据量大，在系统实施过程中受网络速率的影响，系统的响应时间肯能不及时，其次在当前的网络

16、环境中，面临这各种的威胁，病毒、密码、蠕虫的攻击，系统可能受攻击，在安全性方面不够高。5 详细设计逻辑结构设计要点（一）学生信息表数据项类型长度限制学号nchar10主键char10性别char2年龄tinyint1所在班级int4系别nchar10（二）课程信息表数据项类型长度限制课号nchar10主键课名nchar10学时int4学分float8授课教师号int4数据项类型长度限制教师号nchar10主键nchar10性别nchar2系别nchar10（三）教师信息表（四）成绩表数据项类型长度限制学号nchar 10主键课程名nchar 10平时成绩float8实验成绩float8期末成绩

17、float8物理结构设计要点模块功能访问数据库方法条件登录模块登录直接访问与密码学籍管理模块查看信息查询数据库信息并显示无选课管理模块查询选择课程信息查询数据库中的选课信息表，无成绩管理模块查看成绩信息查询成绩数据库，得到成绩无用户管理查看用户信息查询学生与老师信息无模块名称描述学生子模块该模块是本系统分权管理用户的一个子模块。面向使用本系统的学生进行相应的操作显示。教师子模块该模块是本系统分权管理用户的一个子模块。面向使用本系统的教师进行相应的操作显示。教务人员子模块该模块是本系统分权管理用户的一个子模块。面向使用本系统的教务人员进行相应的操作显示。模块名称功能学生子模块该模块支持学生可以在

18、该模块中进行个人成绩查询，并且还可以对自己的个人信息进行增删查改等操作教师子模块该模块支持教师可以在该模块中进行成绩录入，删除，修改等并且还可以对自己的个人信息进行增删查改等操作教务人员子模块该模块支持管理员可以对教师学生的个人信息以及学生成绩进行增删查改等操作，还可以监督教师对学生的成绩进行增删查改的操作。还可以对学生成绩进行汇总分析得出各类分析图表。模块名称性能学生子模块该模块可以为学生提供登陆界面，查询成绩功能，修改查询信息功能教师子模块该模块可以为教师提供登陆界面，成绩查录修改功能，个人信息增删查改功能教务人员子模块该模块可以为教务人员提供登陆界面，提供对教师学生的个人信息以及学生成绩

19、进行增删查改等功能及界面。提供学生成绩进汇总分析分析图表功能。模块名称输入项学生子模块学生登录名，用户密码教师子模块教师登录名，用户密码教务人员子模块教务人员登录名，用户密码模块名称输出项学生子模块对学生信息数据库操作是否成功教师子模块对教师信息数据库操作是否成功；对学生成绩数据库操作是否成功教务人员子模块对学生信息数据库操作是否成功；对教师信息数据库操作是否成功；对学生成绩数据库操作是否成功；成绩分析图表5.2.6设计方法（算法）主程序流程图学生子模块流程图教师子模块流程图教务人员子模块流程图A.部接口本科生成绩管理系统的部接口有：信息管理、成绩管理、课程管理、用户管理、密码管理。B.外部接

20、口本科生成绩管理系统，以游览器与服务器的形式，通过查询数据库服务器，查询相关信息。并通过鼠标、键盘、显示器输入与输出相关信息。无特殊要求。课程信息表Class：（课程号，课程名，教师号，学分，学时）学生信息表Student：（学号，性别，年龄，专业，系别）成绩表score：（学号，课程名，成绩比例，平时成绩，实验成绩，期中成绩，期末成绩）教师信息表Teacher：（教师号，教师名，性别，系别）根据不同的硬件环境与操作系统，系统的运行时间不确定，当硬件达到要求配置时，运行的时间很短。系统运行查询占用的资源与时间最多，查询操作要与数据库的信息进行匹配，当数据库中的信息很多时，系统有一定的延迟。设计

21、检查列表按照需求文档的功能、性能和接口3个列表，设计出概要设计检查列表，以检查概要设计是否覆盖需求分析，没有覆盖就是不符合项，并将检查结果列出。（1）学生众多，信息量大，在对其进行录入，修改，删除时需要大量时间。 （2）在对大量数据进行长时间操作时，操作人由于疲劳很容易造成数据误差。5.3 运行设计运行模块组合信息管理模块运行时通过与学生信息数据库连接，搜素学生信息，并将结果显示给用户，可以修改学生学籍信息。成绩管理模块运行时通过与成绩管理数据库连接，老师可以录入、修改、删除学生成绩表中的相关信息，学生通过查询条件，找到匹配的成绩信息，显示给学生。用户管理模块运行时通过与用户数据库相连，管理员

22、查询老师与学生信息数据库，得到老师与学生信息。管理员可以修改学生与老师数据库，可以增加、删除老师与学生信息。密码管理模块运行时通过与不同身份的密码数据库连接，可以修改自身的密码信息硬件环境要求操作系统用Windows 2000以上的版本，Windows Xp最好。因为本系统将在Windows Xp环境下开发。要求支持并安装SQL Server 2005、vs2008。一台电脑，如果有大量数据的话要加一台服务器。电脑要求 CPU1.6GH以的的主频，存 1G，硬盘160。 软件环境数据库用Microsoft SQL server2005运行时使用Delphi7运行控制信息管理查询信息已管理员身份

23、登录系统后，进入界面，通过学号或者教师号查询信息。修改信息已管理员身份登录系统后，进入学籍界面，对信息发生变化的学生或教师，进行信息修改。成绩管理统计查询成绩信息学生登录系统后，进入成绩查询界面，查询课程成绩信息。增加、删除、修改成绩信息老师或教务人员登录系统后，在成绩页面，可以录入、修改、删除学生成绩，保存退出。用户管理增加删除用户用户进入系统后在相关界面进行删除增加用户密码管理修改密码与数据库连接，用户进入系统后使用原密码登陆，修改密码运行时间根据不同的硬件环境与操作系统，系统的运行时间不确定，当硬件达到要求配置时，运行的时间很短。系统运行查询占用的资源与时间最多，查询操作要与数据库的信息

24、进行匹配，当数据库中的信息很多时，系统有一定的延迟。出错信息出错原因系统输出形式处理方法登录时输入的与密码不一致。系统提示与密码错误。返回登录页面重新输入。由于收网络因素影响，登录没有响应。系统没有任何错误提示信息。刷新页面，重新登录输入的查询条件有误输出没有想要的查询结果。审查查询条件选中的课程，课时安排信息查询不到，收网络原因影响提交速率慢。系统没有提示出错信息。选中课程后，等30秒以后查询退选课程，查询不到收网络原因影响，提交速率慢系统没有提示出错信息。选中课程后，等30秒以后查询查询浏览时，系统不响应系统没有提示出错信息。刷新页面，再查询补救措施任何系统都有出错情况发生，学生信息管理系

25、统也不例外，下面是该系统出错时可采用的变通措施：定期对系统进行更新，备份；当原始系统数据万一丢失时启用副本的建立和启动技术，例如周期性地把磁盘信息记录到磁带上去就是对于磁盘媒体的一种后备技术；系统可能受自然灾害与网络病毒因素的影响，为了保护系统所有数据，做好异地备份，提高系统的可靠性。降效技术准备采用的后备技术，使用另一个效率稍低的系统或方法来求得所需结果的某些部分，例如一个自动系统的降效技术可以是手工操作和数据的人工记录。恢复及再启动技术，将使用的恢复再启动技术，使软件从故障点恢复执行或使软件从头开始重新运行的方法。5.5系统维护设计学生信息管理系统，在整个系统的运行过程中，系统的维护和管理

26、是始终贯穿其中的，包括进行系统应用程序的维护、代码的维护、数据的备份与恢复、硬件设备维护。系统在运行时，也要随着环境的变化根据不同的需求及变化对系统进行必要的修改，使得系统功能更加完善。系统维护工作贯穿于系统的整个运行过程中，包括：系统应用程序的维护、数据的维护、代码的维护、硬件设备维护，系统维护的重点是系统应用软件的维护工作。而系统维护工作不应总是被动的等待用户提出要求后才进行，应进行主动的预防性维护。附录：Delphi7学生成绩管理系统代码unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Gra

27、phics, Controls, Forms, Dialogs, StdCtrls, DB, ADODB, jpeg, ExtCtrls;type TForm1 = class(TForm) DataSource1: TDataSource; ADOConnection1: TADOConnection; Label1: TLabel; Label2: TLabel; boBox1: TboBox; Edit1: TEdit; Edit2: TEdit; Button1: TButton; Button2: TButton; ADOQuery1: TADOQuery; Image1: TIma

28、ge; Image2: TImage; Label3: TLabel; procedure Button2Click(Sender: TObject); procedure Button1Click(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); private pass:boolean; public Public declarations end;var Form1: TForm1;implementation uses Unit4,unit5,unit6;$R *.dfmp

29、rocedure TForm1.Button2Click(Sender: TObject);beginform1.Close;end;procedure TForm1.Button1Click(Sender: TObject);begin with adoquery1 do if bobox1.text=学生 then begin close; sql.Clear; sql.Add(select * from 学生表 where 学号=+edit1.text+ and 学号=+edit2.Text+); open; if recordcount=0 then begin edit2.SetFo

30、cus; / 使edit2获得焦点 edit2.SelectAll; / 全选edit2中的文本 showmessage(账号或密码错误); end else form6.Show; form6.Edit1.Text:=self.Edit1.Text; form1.Hide; end; begin with adoquery1 do if bobox1.Text=教师 then begin close; sql.Clear; sql.Add(select * from 教师表 where 工号=+edit1.text+ and 工号=+edit2.Text+); open; if record

31、count=0 then begin edit2.SetFocus; / 使edit2获得焦点 edit2.SelectAll; / 全选edit2中的文本 showmessage(账号或密码错误); end else form4.Show; form1.Hide; end; end; if bobox1.Text= then showmessage(请选择登陆类型); end;procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);beginif pass thenelseapplication.Termin

32、ate;end;end.unit Unit6;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, jpeg, ExtCtrls;type TForm6 = class(TForm) Edit1: TEdit; Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; Image1: TImage; Label1: TLabel; Label2: T

33、Label; procedure Button4Click(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); private Private declarations public Public declarations end;var F

34、orm6: TForm6;implementation uses unit1,unit7,unit8,unit9;$R *.dfmprocedure TForm6.Button4Click(Sender: TObject);beginform6.Close;end;procedure TForm6.FormClose(Sender: TObject; var Action: TCloseAction);beginapplication.Terminate;end;procedure TForm6.Button1Click(Sender: TObject);beginwith form7.ADO

35、Query1 dobeginif Active thenClose;SQL.Clear;SQL.Add(select * from 学生表 where 学号= + form1.Edit1.Text+);open;form7.Edit1.Text:=fieldvalues学号;form7.Edit2.Text:=fieldvalues;form7.edit3.Text:=fieldvalues年龄;form7.edit4.Text:=fieldvalues性别;form7.edit5.Text:=fieldvalues入学年份;form7.edit6.Text:=fieldvalues所在班级;

36、form7.edit7.Text:=fieldvalues籍贯;end; form7.Show; form6.Hide;end;procedure TForm6.Button2Click(Sender: TObject);begin form8.Show; form8.Edit1.Text:=self.Edit1.Text; form1.Hide;end;procedure TForm6.Button3Click(Sender: TObject);begin form9.Show; form9.Edit1.Text:=self.Edit1.Text; form1.Hide;end;end.un

37、it Unit7;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, ADODB, jpeg, ExtCtrls;type TForm7 = class(TForm) Button1: TButton; Label1: TLabel; Edit2: TEdit; Label2: TLabel; Edit3: TEdit; Label3: TLabel; Edit4: TEdit; Label4: TLabel; Edit5:

38、 TEdit; Label5: TLabel; Edit6: TEdit; Edit1: TEdit; Edit7: TEdit; Label6: TLabel; Label7: TLabel; DataSource1: TDataSource; ADOQuery1: TADOQuery; Image1: TImage; procedure Button1Click(Sender: TObject); private Private declarations public Public declarations end;var Form7: TForm7;implementation uses

39、 unit1,unit6;$R *.dfmprocedure TForm7.Button1Click(Sender: TObject);begin form6.Show; form7.Hide;end;end.unit Unit8;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, ADODB, Grids, DBGrids, jpeg, ExtCtrls;type TForm8 = class(TForm) Edit1:

40、TEdit; Button1: TButton; ADOQuery1: TADOQuery; DataSource1: TDataSource; DBGrid1: TDBGrid; Button3: TButton; Image1: TImage; Label1: TLabel; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); private Private declarations public

41、Public declarations end;var Form8: TForm8;implementation uses unit1,unit6;$R *.dfmprocedure TForm8.Button1Click(Sender: TObject);begin form6.Show; form8.Hide;end;procedure TForm8.Button2Click(Sender: TObject);beginwith ADOQuery1 dobeginif Active thenClose;SQL.Clear ;SQL.Add(select * from 学生 where 学号

42、= +edit1.Text+);open;end;end;procedure TForm8.Button3Click(Sender: TObject);beginwith ADOQuery1 dobeginif Active thenClose;SQL.Clear ;SQL.Add(select * from 选课表 where 学号= + edit1.Text+ order by 成绩 desc);open;end;end;end.unit Unit4;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics

43、, Controls, Forms, Dialogs, StdCtrls, jpeg, ExtCtrls;type TForm4 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; Image1: TImage; Label1: TLabel; procedure Button2Click(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button4Click(Sender: TOb

44、ject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure Button3Click(Sender: TObject); private Private declarations public Public declarations end;var Form4: TForm4;implementation uses unit1,unit2,unit3,unit5;$R *.dfmprocedure TForm4.Button2Click(Sender: TObject);begin form2

45、.Show; form4.Hide;end;procedure TForm4.Button1Click(Sender: TObject);begin form3.Show; form4.Hide;end;procedure TForm4.Button4Click(Sender: TObject);begin form4.Close;end;procedure TForm4.FormClose(Sender: TObject; var Action: TCloseAction);beginapplication.Terminate;end;procedure TForm4.Button3Clic

46、k(Sender: TObject);begin form5.Show; form4.Hide;end;end.unit Unit3;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, ADODB, Grids, DBGrids, jpeg, ExtCtrls;type TForm3 = class(TForm) DBGrid1: TDBGrid; DataSource1: TDataSource; ADOQuery1: T

47、ADOQuery; Label1: TLabel; Edit1: TEdit; Label2: TLabel; Edit2: TEdit; Label3: TLabel; Edit3: TEdit; Label4: TLabel; Edit4: TEdit; Label5: TLabel; Edit5: TEdit; Label6: TLabel; Edit6: TEdit; Label7: TLabel; Edit7: TEdit; Button1: TButton; Button2: TButton; Button3: TButton; DataSource2: TDataSource;

48、ADOTable1: TADOTable; Image1: TImage; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); private Private declarations public Public declarations end;var Form3: TForm3;implementation uses unit1,unit4;$R *.dfmprocedure TForm3.Butt

49、on1Click(Sender: TObject);beginwith ADOQuery1 dobeginif Active thenClose;SQL.Clear ;SQL.Add(select * from 学生表 where 学号= + edit1.Text+);execsql;open;edit2.Text:=fieldvalues;edit3.Text:=fieldvalues年龄;edit4.Text:=fieldvalues性别;edit5.Text:=fieldvalues入学年份;edit6.Text:=fieldvalues所在班级;edit7.Text:=fieldval

50、ues籍贯;end;end;procedure TForm3.Button2Click(Sender: TObject);beginwith ADOQuery1 dobeginif Active thenClose;SQL.Clear ;sql.Add(update 学生表 set =+edit2.Text+ where 学号= + edit1.Text+);showmessage(修改成功);ExecSQL;end;With ADOTable1 dobeginActive := False;Open;Locate(学号, edit1.Text, );end;end;procedure TFo

51、rm3.Button3Click(Sender: TObject);begin form4.Show; form3.Hide;end;end.unit Unit2;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB, StdCtrls, Grids, DBGrids, ExtCtrls, jpeg;type TForm2 = class(TForm) DataSource1: TDataSource; DBGrid1: TDBGri

52、d; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Edit4: TEdit; Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; ADOQuery1: TADOQuery; ADOTable1: TADOTable; DataSource2: TDataSource; DataSource3: TDataSource; ADOStored

53、Proc1: TADOStoredProc; DBGrid2: TDBGrid; Button5: TButton; Button6: TButton; Button7: TButton; ADOTable1DSDesigner: TWideStringField; ADOTable1DSDesigner2: TWideStringField; ADOTable1DSDesigner3: TWideStringField; ADOTable1DSDesigner4: TFloatField; Image1: TImage; procedure Button1Click(Sender: TObj

54、ect); procedure Button3Click(Sender: TObject); procedure Edit4KeyPress(Sender: TObject; var Key: Char); procedure Button2Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure Button5Click(Sender: TObject); procedure Button6Click(Sender: TObject); procedure Button7Click(Sender: TObject); private Private declarations public Public declarations end;var Form2: TForm2;implementation