学生学籍管理系统

1、学生学籍管理系统设计报告摘要学生学籍管理系统是一个教育单位不可缺少的部分， 它的内容对于学校的决策者和管理者来说都至关重要。本文介绍了学生学籍管理系统的开发整个过程， 阐述了系统分析、 系统设计、数据库设计和系统实施的整个过程。 在开发方法上本系统利用了软件工程化的思想和方法， 总体上采用结构化生命周期开发方法， 具体模块实施采用了原型法和面向对象系统开发方法。并采用delphi7.0 作为开发工具， SQL Server 2000 作为后台数据库。本数据库系统主要设计学生、教师、成绩、课程、专业、院系等实体， 并详细的介绍了本数据库的概念、 逻辑设计和实现， 同时对实体之间的相互联系进行了详

2、细的剖析。【关键字】：学生学籍管理系统、软件工程、概念设计、逻辑设计第一章绪论4.1.1 数据库技术的国内外发展与应用现状4.1.2 、学生学籍管理数据库应用系统开发的意义5.1.3 数据库应用系统开发方法概述5.1.4 、小结 5.第二章系统需求分析6.2.1 概述 6.2.2 系统功能需求与数据需求 数据流图 系统功能需求 系统数据需求（数据字典） 7.2.3 小结 9.第三章 系统设计 9.3.1 概念设计（ E-R 图） 设计方法及关键技术 系统的 E-R 图1.03.2 逻辑设计（ E-R 图） 1.03.2

3、.1 设计方法及关键技术1.03.2.2 系统的逻辑模型系统的完整性与安全性设计 1.83.3 物理设计 系统功能设计（ E-R 图） 2.33.5 系统开发平台选择2.43.6 小结 数据库应用系统的实现2.54.1 数据库的定义.1 数据库的定义 应用系统的开发2.74.3 小结 4.2.第五章 结束语 4.3.第一章绪论1.1 数据库技术的国内外发展与应用现状高校管理信息化就是在现代教育思想指导下， 运用信息管理理论和信息管理方法， 以现代信息技术为核心技术， 充分考虑外界变量和信息， 组织和配置教学信息资源，

4、进行信息化教学管理活动， 从而高效率地达到既定的教学目标。 目前国内外各类高校应用的学生管理信息系统各式各样，按照不同的方式可以分为：开发方式包括：独立开发、委托开发、合作开发、直接购买现成软件等；开发方法分为：生命周期法、原型法、面向对象系统法等；结构形式：浏览器服务器（B/S）和客户服务器（C/S）以及两者结合的结构形式；开发平台包括： NT.netware 等，同时系统所采用的前台开发软件和后台数据库管理系统又是各具特色；系统使用的范围分为：单个部门使用、局域网部门间联合使用、整个校园Intranet 使用以及整个Internet 上使用等。按照系统开发主体面向对象分为： 通信信息管理系

5、统和针对特定单位的专用管理信息系统。在信息化社会和知识经济时代， 信息化、 数字化校园建设是国内外高校的建设热点。 在国外， 数字化校园建设具有发展早、 起点高、 投资大和速度快的特点。数字化校园概念最早由美国的麻省理工学院在上世纪70 年代提出，经过多年的努力， 已经构建出一个较成熟的数字化校园模型。 在美欧， 由于政府的强力支持，各学校纷纷对校务管理和教学进行了数字化改造。据调查， 90 年代以来，西方发达国家大部分名牌高校均已较成功地完成了数字化校园建设工作。 而国外较关注数字资源的提供， 较少强调高度的系统集成， 关注学生的活动本身， 协同科研，信息管理系统在数字校园中相对弱化。 根据

6、国内的实际情况信息管理系统应该是国内数字化校园建设的重点。 在国内， 数字化校园建设具有以下几个特点： 首先从整体来看， 高等教育信息化仍处于起步阶段。 部分高校起步较早， 多数高校已具有相当基础。 如清华大学和北京大学的校园网络化建设是在90 年代初开始的，经过十几年的建设， 现已基本建成了以高速校园网为核心， 包括学术研究、 网络 教学、信息资源、社区服务和办公管理为功能的数字化教育系统。1.2 、学生学籍管理数据库应用系统开发的意义学生学籍管理系统是一个教育单位不可缺少的部分。 一个功能齐全、 简单易用的学生学籍管理系统不但能有效地减轻学校相关工作人员的工作负担， 它的内容对于学校的决策

7、者和管理者来说都至关重要。 所以学生学籍管理系统应该能够为用户提供充足的信息和快捷的查询手段。 但一直以来人们使用传统人工的方式管理文件档案、 统计和查询数据， 这种管理方式存在着许多缺点 , 如 : 效率低、 保密性差 , 人工的大量浪费； 另外时间一长, 将产生大量的文件和数据, 这对于查找、更新和维护都带来了不少困难。 随着科学技术的不断提高 , 计算机科学日渐成熟,其强大的功能已为人们深刻认识 , 它已进入人类社会的各个领域并发挥着来越重要的作用。作为计算机应用的一部分, 使用计算机对学校的各类信息进行管理, 具有手工管理所无法比拟的优点 . 例如 : 检索迅速、查询方便、效率高、可靠

8、性好、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高学校信息管理的效率 , 也是一个单位科学化、正规化管理, 与世界接轨的重要条件。1.3 数据库应用系统开发方法概述本系统利用了软件工程化的思想和方法， 总体上采用结构化生命周期开发方法，具体模块实施采用了原型法和面向对象系统开发方法。并采用 delphi7.0作为开发工具， SQLServer 2000 作为后台数据库，本数据库系统主要设计学生、教师、成绩、课程、专业、院系等实体，并详细的介绍了本数据库的概念、逻辑设计和实现，同时对实体之间的相互联系进行了详细的剖析。1.4 、小结本章主要介绍了数据库技术国内外发展与应用现状，

9、让我们了解到了数据库技术国外起步较早， 在国内， 数据库技术起步的标志是清华北大校园网络的建设，实现了信息管理的高速化和数字化。 同时， 向我们阐述了学生学籍管理应用系统开发的意义和系统的开发方法。第二章系统需求分析2.1 概述本系统结合了数据库设计的“三分技术、七分管理，十二分基础数据”的特 点，进行了详细的需求分析，如下所示：一个学校有多个院系，一个院系有多个专业，一个专业有多个学生；每个学生通过一个唯一的学号来标识，学籍管理系统存储学生的各种信息 如：姓名、学号、年龄等内容，同时每个学生需要学习多门课程，对于有多门课 程的成绩。而每门课程有多名学生学习，所有学生和课程之间存在多对多的关系

10、。2.2 系统功能需求与数据需求1.2.1 数据流图1.2.2 系统功能需求不同角色对本学生学籍管理系统享有不同的权限和功能，具体如下：管理员的功能：可以对学生、教师基本信息进行录入、查询、修改、删除等 操作；可以管理用户，即对用户进行添加、删除等；可以录入、修改、查询、删 除课程信息；教辅人员：可以对学生成绩进行录入、修改、删除、查询、统计、排序等操 作；学生：可以对全部课程信息进行查询；并且在选课操作时，可以先查看该课 程的教师信息，然后再进行选课，同时可以进行退选课程，可以查询自己的课表 等；1.2.3 系统数据需求（数据字典）以下将对本数据库设计中的各个数据名称进行解释: 清单：表名解

11、释Student学生表Course课程表Department院系表Major专业表Teacher教师表Teachercourse教师授课表Xuanke学生选课表tb Briefness User用户管理表表名：student解释：学生表Student是否主键字段名字段描述数据类型长度可空备注是Sno学号Varchar10gno毕业证号Varchar20VSname姓名Varchar10Ssex性别Char10VMno专业号Varchar10VDmpno院系号Varchar10VAge年龄Char10VSymbol政治面貌Char10_ V _ID身份证Varchar50VHomeaddr籍贯V

12、archar20一 V 一Intime入学时间Char30V表名：course解释：课程表Course是否主键字段名字段描述数据类型长度可空备注是Cno课程号Varchar10Cname课程名Char10VCredit学分Char10V表名：department解释：院系表Department是否主键字段名字段描述数据类型长度可空备注是Dmpno院系号Varchar10Dname院系名Varchar20VDmphead院长Varchar20V表名：major 解释：专业表Major是否主键字段名字段描述数据类型长度可空备注是Mno专业号VarcharP 10Dmpno院系号Varcharr i

13、oMname专业名Char10V表名：teacher解释：教师表Teacher是否主键r字段名字段描述数据类型长度可空备注是Tno工号Varchar20Tname姓名Char10VDmpno院系号Varchar10Profess职称Char10VTsex性别Char10VTel电话Varchar20V表名：Teachercourse解释：教师授课表Teacher是否主键字段名字段描述数据类型长度可空备注是Cno课程号Varchar10是Tno工号Varchar20表名：Xuanke解释：学生选课表Xuanke是否主键字段名字段描述数据类型长度可空备注是Sno学号Varchar10是Cno课程号

14、Varcharr ioGrade成绩Int4V表名：tb_Briefness_User 解释： 用户管理表tb Briefness User是否主键字段名字段描述数据类型长度可空备注User_Name用户名Varchar20User_Pass密码Varchar202.3小结本章主要对该学生学籍管理系统做了一个简要的概述，向我们阐述了该系统各个实体之间的需求关系，同时通过清晰明了的数据流图让我们明白了该系统的 各个需求功能，通过数据字典让我们清楚地明白了各个表的及其字段名的含义 等。第三章系统设计3.1 概念设计（E-R图）3.1.1 设计方法及关键技术自顶向下：即首先定义全局概念结构的框架，然

15、后逐步细化；自顶向上：即首先定义各局部应用的概念结构， 然后将他们集成起来，得到 全局概念结构；逐步扩张：首先定义最重要的核心概念结构， 然后向外扩充，以滚雪球的方 式逐步生成其他概念结构，直至总体概念结构；混合策略:即将自顶向下和自顶向上相结合，用自顶向下的策略设计一个全 局概念结构的框架，以它为骨架集成由自底向上策略中设计的各局部概念结构。3.1.2 系统的E-R图3.2 逻辑设计（E-R图）3.2.1 设计方法及关键技术本系统的逻辑结构设计按以下步骤进行：1）、根据概念结构设计阶段设计好的基本 E-R图转换为与选用DBMS"品所 支持的数据模型相符合的逻辑结构，同时设计出基本的

16、关系模型。设计基本关系 模式主要从E-R图出发，将其直接转换成关系模式。根据转换规则，这个 E-R 图转换的关系模式为：学生（三、姓名、性别、年龄、毕业证编号、专业号、院系名）；选课（学号、课程号、成绩）；课程（课程号、课程名、学分）；授课（工号、课程号）;教师院系专业（工号、姓名、性别、院系号、职称、电话）；（院号、院系名、院长）；（专业号、专业名、院系号）；2）、在设计好了关系模式并确定好了每个关系模式的主码后，再看一下这 些关系模式之间的关联关系，即确定关系模式的外码，可通过E-R图中的联系实 体发现:学生选课关系中，学生学号和课程号是外码，分别参照学生关系中的学号和 课程关系中的课程号

17、；但他们合并起来作为选课关系的主码；专业关系中的院系号为外码,在院系关系中作为主码,实现院系和专业之间教师授课关系中，教师工号和课程号是外码，分别参照教师关系中的工号和 课程关系中的课程号；但他们合并起来作为授课关系的主码;的一对多的关系;学生关系中的专业号为外码, 的一对多的关系；在专业关系中作为主码,实现专业和学生之间教师关系中的院系号为外码,在院系关系中作为主码,实现院系和教师之间的一对多的关系;3）、确定表中各属性的详细信息，包括数据类型和长度等;3.2.2 系统的逻辑模型各个表的定义可以参考数据字典里对表的说明，现将各个表的截图呈现出 来：学生表（student ）:表星牲一stud

18、ent常规iff名称西：student权限出）.所有者：dbo创建日期： 2010-1222 0:18:51文件批PRIMARY行：3列：键 ID 名漏数据类型大小空戳X置;snovanchar1Dgnovanchar20snamevanchar10ssexchar10mnovarchar10drrrpnovarchar10agechar10III碓定取消帮助课程表（course）表屋性course常规善名瓶迎：course权F艮政.所有者dbo创建日期2G10-12-2613:55:(X文件姻;PRIMARY确定取消帮助行:列二键1D名称数据类型大小空默X值|enovanchar10cnam

19、echar10srcreditchar10sr选课表（xuanke）:教师表(teacher ):表厘性一包加卜包常规iff 名称妙 teacher权限。所有者：曲口创建日期： 201012 30 0:23：2文伴姐：PRIMARY行&列：键旧名称数据类型大小空 默认值|tnovanchar2Dtnamechar10dmpnovarchar10professchar10tsexcharwtelvarchar20ilb确定取消帮助授课表(teachercourse ):表屈性 teadiercourse常规dbo痔 名航网：teachercourse所有者创建日期:2010-12-021

20、0:03:07文件组PR MARY确定取消帮助列醒nb名称数据类型大小.至默认值CFiQinovarchar10varchar20院系表(department ):表层性一-department常规每名称如:department权限。所有音dbo创建日期2010-12-J0 0:0S27交件组：PRIMARY行：3列:键 ID名称数据类型大小一空 默认值qdmpnovancfiarWdnameY日向的20dmpheadvanchar20百41 一 1八二确定取消帮助专业表(major):3.3.3系统的完整性与安全性设计系统各个表的主外键和参照完整性已在上面做了详细的阐述，现在仅就用户自定义完

21、整性（约束、默认值与规则），安全性做说明：约束：约束学生性别只能是男或女；截图如下：默认值：默认教师表中教师的职称为教授；截图如下:规则：性别规则sexguize；截图如下:常规名称西：文本：sex_guize-男 sex_guize 二女绑定UDT(U).绑定列取消帮助将规则绑定到列sex quize常规1醇1规则：sex_guize表Ddbo,student1未绑定的列M：绑定列：名称数据类型1名称数据类型1国snovarcharssexchar国gnovarchar匐 snamevarcharJ国mnovarchar2 1肉 dmpnovarchar国agechar国 symbolcha

22、r国IDvarchar国 homeaddrvarchar国| Intimechar确定取消1应用®帮助安全性：本系统用户权限分为三类，分别为数据库系统管理员，教辅人员、学 生。在实现时，将每一类用户作为一个角色实现，这样在授权时，只需对角色授 权，而无需对每个具体的用户授权。用户登录时都需要向系统提供用户口令.系统通过对用户账号与口令的检查 决定用户是否有权使用本系统.如用户尚未注册账号，则系统为用户提供账号注 册的入口.由于不同用户的权限不同，所以各个用户凡第一次进入本系统时都需要向管理员 注册一个用户名，并完整的填写相关个人信息，同时存入数据库表中。之后 ，管 理员即可赋予每个用

23、户相应的权限。用户则只能根据自身的权限进行相应的操 作。系统的用户权限已在第二章系统功能介绍做了详细阐述，请参考！3.3 物理设计建立索引（主键索引）：建立存储过程:3.4 系统功能设计(E-R图)登录系统k)用户注册教辅人员登管理员登录学生登录录录入、管理课程信息( 、 修改密码<>录入、查询、修改、删除学 生、教师信息/小询全部课程和已选课程信息I)氤课、退选、课程；查看教师信息I)录入、查询、修改、删除、统计学生成 绩<J备理系统用户的用户名一 >修改密码修改密码3.5 系统开发平台选择该学生学籍管理系统的开发采用 delphi7.0 作为前台开发工具， SQLS

24、erver2000作为后台数据库。3.6 小结本章主要介绍了如何进行该学生学籍管理系统的概念设计，即设计E-R 图，同时阐述了将通过概念设计好的E-R图转换成关系模式，进行逻辑设计，在进行逻辑设计时， 我们要考虑好系统的完整性， 包括参照完整性和用户自定义完整性， 同时应考虑系统的安全性， 权限问题， 这些都是完成后台数据库建库的必不可少的一部分；本章最后介绍了详细的系统功能E-R图，让我们对该系统的功能一目了然，为下面的前台界面设计做好准备。第四章数据库应用系统的实现4.1 数据库的定义4.1.1 数据库的定义1 .数据库的创建本系统是直接在sqlserver2000企业管理器中创建的；操作

25、简便；2 .数据库对象的定义本系统的各个表即采用了在查询分析器中建表的方法。又用了在企业管理器中建 表的方法；但更多的是在企业管理器直接建的表； 由于在企业管理器建表的界面 已在第三章给出，现就在查询分析器建立的 course表做一下说明：（截图如下）*二查揖- 201009071231学生学器营理系藐.2010（的07create table course(eno varchar (10) not niill primary ame char 110 ?credit char ： 1叱)服务器：消息丽L城别16,状态6,谷1 数据库中已存在名为1 course1的对象。门网格由消

26、息由于主键定义、外键定义、默认值、规则、约束、索引的定义已在第三章做了详细阐述，现仅就视图做以下说明：以下是学生基本信息表的一个视图创建的界面：将设计的数据库表用SQL语言(create table * )或企业管理器定义(界面)4.2应用系统的开发系统主界面：登录功能：用户选择自己的角色后，正确的输入用户名和密码，即可登录系统, 截图如下：如果用户名和密码不匹配，则会提示：对不起请重痂输入0K登录成功后，系统将返回主窗体，根据不同的角色有不同的操作权限， 这点在第 二章系统概述里面已经做了详细的阐述，这里就不多做介绍了；下面将就不同角 色的主要权限做一下介绍：管理员：录入学生、教师、课程信息

27、功能，现只对录入学生基本信息做详细介绍， 其他两个类似，录入课程基本信息界面如下截图：ProjectI里若录入重复课程，则会提示:该课程已存在，*，同时还可以在此窗口上查询、修改、删除课程信息等; 查询学生基本信息界面：教辅人员：可以实现对学生成绩的录入、查询和统计，截图如下:军录入统计或微信息口”查询返回Mi学号:0903 录程号：|sr 成缱：病一Prniertl此条记录已存在，话重新录入，0K若该门课程成绩已经录入，则会提示： 同时还可以对成绩进行修改、删除等操作；教师统计、排序学生总成绩界面如下：学生：学生可以查询课程信息、选课、查看教师信息、退选课程；选课界面如下:若该门课程已选，则

28、会提示:学生在选课前可以查看该门课程所对的教师信息，如下截图:学生查看成绩信息界面:不同角色的用户登录系统后都可进行密码修改，密码修改界面如下:各个窗体的主要功能的程序：登录功能：procedure TForm2.Button1Click(Sender: TObject); varpara2:string;beginusno:=edit1.Text;para2:=maskedit1.Text;case combobox1.ItemIndex of0:beginwith adoquery1 dobeginClose;sql.Clear;sql.Add（'select * from tb_

29、briefness_User where User_Name=: 用户名 and User_Pass=: 密码 '）;parameters.ParamByName（' 用户名 '）.Value:=usno;parameters.ParamByName（' 密码 '）.Value:=para2;open;if RecordCount>0 thenbeginshowmessage（' 恭喜您，登录成功！ '）;form2.close;form7.Show;form7.N2.Enabled:=false;form7.N6.Enabled:

30、=true;form7.N7.Enabled:=false;form7.N8.Enabled:=false;form7.N9.Enabled:=true;form7.N10.Enabled:=true;form7.N11.Enabled:=true;form7.N16.Enabled:=true;form7.N17.Enabled:=false;form7.N18.Enabled:=true;form7.N23.Enabled:=false;endelsebeginshowmessage（' 对不起，请重新输入 '）;edit1.Text:=''maskedit

31、1.Text:=''end;end;end;1: beginwith adoquery1 dobeginClose;sql.Clear;sql.Add（'select * from tb_briefness_User where User_Name=: 用户名 and User_Pass=: 密码 '）;parameters.ParamByName（' 用户名 '）.Value:=usno;parameters.ParamByName（' 密码 '）.Value:=para2;open;if RecordCount>0 th

32、enbeginshowmessage（' 恭喜您，登录成功！ '）;form2.close;form7.Show;form7.N2.Enabled:=false;form7.N6.Enabled:=True;form7.N7.Enabled:=false;form7.N8.Enabled:=true;form7.N16.Enabled:=false;form7.N17.Enabled:=false;form7.N18.Enabled:=true;form7.N23.Enabled:=true;endelsebeginshowmessage（' 对不起，请重新输入 

33、9;）;edit1.Text:=''maskedit1.Text:=''end;end;end;2:beginwith adoquery1 dobeginClose;sql.Clear;sql.Add（'select * from tb_briefness_User where User_Name=: 用户名 and User_Pass=: 密码 '）;parameters.ParamByName（' 用户名 '）.Value:=usno;parameters.ParamByName（' 密码 '）.Value:=

34、para2;open;if RecordCount>0 thenbeginshowmessage（' 恭喜您 , 登陆成功 !'）;form2.Close;form7.Show;form7.N2.Enabled:=false;form7.N4.Enabled:=true;form7.N5.Enabled:=true;form7.N6.Enabled:=true;form7.N7.Enabled:=true;form7.N8.Enabled:=false;form7.N14.Enabled:=true;form7.N15.Enabled:=true;form7.N16.En

35、abled:=false;form7.N17.Enabled:=false;form7.N18.Enabled:=true;form7.N20.Enabled:=true;form7.N21.Enabled:=true;form7.N22.Enabled:=true;form7.N23.Enabled:=false;endelsebeginshowmessage（' 对不起，请重新输入 '）;edit1.Text:=''maskedit1.Text:=''end;end;end;end;end;管理员录入课程信息：procedure TForm5

36、.Button1Click（Sender: TObject）;varpara1:string;beginpara1:=edit1.Text;with adoquery1 dobeginclose;sql.Clear;sql.Add（'select cno from course where cno=:课程号'）;parameters.ParamByName（' 课程号 '）.Value:=para1;open;if recordcount>0 thenbeginshowmessage（' 该课程已存在！ '）;edit1.Text:=

37、9;'edit1.SetFocus;exit;endelsebeginsql.Clear;sql.Add('insert into course values(:temp1,:temp2,:temp3)');parameters.ParamByName('temp1').Value:=edit1.Text;parameters.ParamByName('temp2').Value:=edit2.Text;parameters.ParamByName('temp3').Value:=edit3.Text;execsql;sh

38、owmessage(' 恭喜您，录入成功！ ');end;end;end;管理员查询学生基本信息：procedure TForm1.Button10Click(Sender: TObject);beginADOQuery1.Close;ADOQuery1.SQL.Clear;para1:=trim(edit1.Text);para2:=trim(edit2.Text);para3:=trim(edit3.Text);para4:=trim(edit4.Text);case combobox1.ItemIndex of0:beginwith adoquery1 dobeginSQ

39、L.Add('selectstudent.sno,student.sname,student.ssex,student.age,major.mname,depart ment.dname,student.gno,student.symbol,student.ID,student.homeaddr,stu dent.Intime from student,major,department');sql.Add('where student.mno=major.mno and major.dmpno=department.dmpno and student.sno=: 学号

40、');parameters.ParamByName(' 学号 ').Value:=para1;Open;end;end;1:beginwith adoquery1 dobeginSQL.Add('selectstudent.sno,student.sname,student.ssex,student.age,major.mname,depart ment.dname,student.gno,student.symbol,student.ID,student.homeaddr,stu dent.Intime from student,major,departmen

41、t');sql.Add('where student.mno=major.mno and major.dmpno=department.dmpno and student.sname=: 姓名 ');parameters.ParamByName(' 姓名 ').Value:=para2;open;end;end;2:beginwith adoquery1 dobeginSQL.Add('selectstudent.sno,student.sname,student.ssex,student.age,major.mname,depart ment.

42、dname,student.gno,student.symbol,student.ID,student.homeaddr,stu dent.Intime from student,major,department');sql.Add('where student.mno=major.mno and major.dmpno=department.dmpno and student.mno=: 专业号 ');parameters.ParamByName(' 专业号 ').Value:=para3;open;end;end;3:beginwith adoque

43、ry1 dobeginSQL.Add('selectstudent.sno,student.sname,student.ssex,student.age,major.mname,depart ment.dname,student.gno,student.symbol,student.ID,student.homeaddr,stu dent.Intime from student,major,department');sql.Add('where student.mno=major.mno and major.dmpno=department.dmpno and stud

44、ent.dmpno=: 院号 ');parameters.ParamByName(' 院号 ').Value:=para4;open;end;end;end;end;管理员删除学生基本信息：procedure TForm1.Button5Click(Sender: TObject);varpara5:string;beginpara5:=edit12.Text;if edit12.Text='' thenshowmessage('请输入要删除学生的学号！)elsebeginshowmessage('删除成功！')；with ado

45、query1 dobeginclose;sql.Clear;sql.Add('delete student where sno=: 学号 ');parameters.ParamByName(' 学号 ').Value:=para5;execsql;end;end;end;教辅人员录入成绩：procedure TForm4.Button1Click(Sender: TObject); varpara1,para2,para3:string; beginpara2:=edit1.Text;para3:=edit2.Text;para1:=edit3.Text;wit

46、h ADOQuery1 do beginclose;sql.Clear;学号 and cno=: 课程号 andsql.Add('select *from xuanke where sno=:学号 ').Value:=para1;课程号 ').Value:=para2;成绩 ').Value:=para3;grade=: 成绩 ');parameters.ParamByName( parameters.ParamByName( parameters.ParamByName(open;if RecordCount>0 thenbeginshowmes

47、sage(' 此条记录已存在，请重新录入！ ');edit3.Text:=''edit3.SetFocus;exit;endelsebeginshowmessage(' 恭喜您，录入成功 !');sql.Clear;sql.Add('update xuanke set grade=:temp3 where sno=:temp1 and cno=:temp2');parameters.ParamByName('temp1').Value:=edit3.Text;parameters.ParamByName('

48、temp2').Value:=edit1.Text;parameters.ParamByName('temp3').Value:=edit2.Text;adoconnection1.Connected:=true;ExecSQL;end;end;end;教辅人员删除成绩：procedure TForm4.Button3Click(Sender: TObject);varpara6,para7:string;beginpara6:=edit3.Text;para7:=edit1.Text;with adoquery1 dobeginclose;sql.Clear;sql.

49、Add('update xuanke set grade=null where sno=:学号 and cno=: 课程号');parameters.ParamByName(' 学号 ').Value:=para6;parameters.ParamByName(' 课程号 ').Value:=para7;execsql;end;end;教辅人员统计、排序学生成绩：procedure TForm4.Button7Click(Sender: TObject);beginwith adoquery1 dobeginclose;sql.Clear;sql

50、.Add('select sno,SUM(grade)AS 总成绩 from xuanke group by sno');sql.Add('order by 总成绩 DESC');open;end;end;学生选课：procedure TForm6.Button2Click(Sender: TObject);varpara2:string;beginpara2:=edit2.Text;with adoquery1 dobeginclose;sql.Clear;sql.Add('select *from xuanke where sno=:学号 and c

51、no=: 课程号 ');parameters.ParamByName(' 学号 ').Value:=unit2.usno;parameters.ParamByName(' 课程号 ').Value:=para2;open;if recordcount>0 thenbeginshowmessage('止匕课程已选，请重新选择！)；endelsebeginsql.Clear;sql.Add('insert into xuanke(sno,cno) values (:temp1,:temp2)');parameters.ParamByName('temp1').Value:=unit2.usno;parameters.ParamByName('temp2').Value:=edit2.Text;EXECSQL;showmessage('恭喜您,选课成功！');end;end;end;学生退选课程：procedure TForm6.Button4Click(Sender: TObject);varpara3,para4:string;beginpara3:=unit2.usno;para4: