教学管理系统的设计数据库课程设计论文

1、 .PAGE60 / NUMPAGES60数据库技术中南大学教学管理系统论文学院：信息科学与工程学院专业：电气工程与其自动化班级：摘 要中南大学教学管理系统的工作主要是对学生，教师，课程，基本情况和用户进行管理的现代化的信息管理系统。每个管理模块都包括数据查询、修改、删除、添加等功能，中南大学教学管理系统能高效、准确地完成这些功能，并达到界面美观友好、使用方便。其开发主要包括前端应用程序的开发以与后台数据库的建立和维护两个方面。对于前者要求应用程序功能完备,易使用等特点。而对于后者则要求建立起数据一致性和完整性强、数据安全性好的库。实现的方法主要用Borland Delphi 7和Micros

2、oft公司的 SQL Server 2000 开发工具来完成界面与数据库的开发工作。关键词：管理, 一致性, 完整性, 安全性目录 TOC o 1-3 h z HYPERLINK l _Toc132865173摘要2HYPERLINK l _Toc1328651751.引言 PAGEREF _Toc132865175 h 5HYPERLINK l _Toc1328651761.1项目开发背景 PAGEREF _Toc132865176 h 5HYPERLINK l _Toc1328651771.2.项目开发的目标 PAGEREF _Toc132865177 h 5HYPERLINK l _To

3、c1328651832.系统分析 PAGEREF _Toc132865183 h 6HYPERLINK l _Toc1328651842.1.可行性研究 PAGEREF _Toc132865184 h 6HYPERLINK l _Toc1328651852.1.1经济可行性研究 PAGEREF _Toc132865185 h 6HYPERLINK l _Toc1328651862.1.2.技术可行性研究 PAGEREF _Toc132865186 h 6HYPERLINK l _Toc1328651872.2.业务流程图7HYPERLINK l _Toc1328651912.3. 系统功能分解

4、图 PAGEREF _Toc132865191 h 8HYPERLINK l _Toc1328651922.4系统分析邀请8HYPERLINK l _Toc1328651882.4.1功能需求8HYPERLINK l _Toc1328651892.4.2.性能需求8HYPERLINK l _Toc1328651902.4.3.运行需求8HYPERLINK l _Toc1328651953.系统设计 PAGEREF _Toc132865195 h 9HYPERLINK l _To要设计 PAGEREF _Toc132865196 h 9HYPERLINK l _Toc1

5、328651983.1.1模块结构9HYPERLINK l _Toc1328652003.1.2.系统的总体布局方案 PAGEREF _Toc132865200 h 10HYPERLINK l _Toc1328652023.2.系统详细设计 PAGEREF _Toc132865202 h 11HYPERLINK l _Toc1328652033.2.1.功能模块设计 PAGEREF _Toc132865203 h 11HYPERLINK l _Toc1328652043.2.2.数据库设计 PAGEREF _Toc132865204 h 11HYPERLINK l _Toc1328652053

6、.2.3.对话设计 PAGEREF _Toc132865205 h 14HYPERLINK l _Toc1328652053.2.4.学生信息算法说明 PAGEREF _Toc132865205 h 15HYPERLINK l _Toc1328652103.3.管理系统的实现 PAGEREF _Toc132865210 h 16HYPERLINK l _Toc1328652113.3.1.系统开发平台 PAGEREF _Toc132865211 h 16HYPERLINK l _Toc1328652123.3.2.菜单的实现 PAGEREF _Toc132865212 h 17HYPERLIN

7、K l _Toc1328652133.3.3.用户管理员登录菜的实现17HYPERLINK l _Toc1328652143.3.4.学生基本信息表单添加的实现18HYPERLINK l _Toc1328652153.3.5.学生基本信息修改和删除菜单的实现19HYPERLINK l _Toc1328652163.3.6.学生成绩查询表单的实现20HYPERLINK l _Toc1328652224.总结21HYPERLINK l _To系统在的问题 PAGEREF _Toc132865223 h 21HYPERLINK l _Toc1328652254.2.心得体会

8、 PAGEREF _Toc132865225 h 21HYPERLINK l _Toc132865226参考文献 PAGEREF _Toc132865226 h 21HYPERLINK l _Toc132865227附录221.引言1.1项目开发背景 本系统作为大三第一学期数据库技术课程的作业。要求采用Borland Delphi 7 和Microsoft SQL Server 2000 做为开发工具开发一个中南大学教学管理系统。1.2.项目开发的目标 建立一个教务信息管理系统，主要功能为实现对学生，教师，班级，系部，选修，课程，授课和用户等基本信息的添加，修改，删除和查询。因为时间不足，而且

9、第一次接触Borland Delphi 7和Mircosoft SQL Server 2000这两个开发工具，所以并没有设立权限，也没有建立索引和视图等来优化系统功能。只是实现了对信息的基本处理功能。 1.4.数据库系统的选择原则（1）数据库系统采用易于集成的，开放的技术。（2）产品质量优异，可靠性高，适于长期运行，能支持关键应用。（3）数据安全，保安型高。（4）能提供分布式数据库功能。（5）支持多种开发环境，软件开发容易。（6）扩充性和升级能力强。2.系统分析2.1.可行性研究2.1.1经济可行性研究经济可行性估计开发费用以与最终从开发成功的系统所获得的收入或利益,衡量比较支出的费用和收到的

10、利益。对于一个基于计算机系统的研制项目要在经济方面评价其是否合理，成本效益分析要估计出研制开发的花费并与收益（包括有形的可以用货币计数的与无形的利益）衡量比较。而该系统的设计只是通过网络自己下载免费开发工具来开发，所以经济方面可行。2.1.2.技术可行性研究技术可行性分析功能,性能以与限制条件,能否是一个技术上可实现的系统。开发该软件的基本要求与功能是实现教务信息数据的管理与操作处理,基于数据库系统的数据管理使该软件有更优异的性能。系统的基本数据流动为教务数据的输入,学生信息,课程信息,教师信息，授课信息，班级信息，选修信息，系部信息和用户信息的添加与修改,以与有关用户提出的对教务信息查询要求

11、所产生的数据输出。数据的输入与输出处理流程都依靠数据库的支持。MicrosoftSQLServer 2000数据的完整性保证性能比较令人满意,该软件设计中保持与其他一些数据库的基本兼容。就目前使用的开发技术来说系统的功能目标应该能够达到；利用现有的技术在规定的期限开发工作基本能够完成。22业务流程图经过系统的调查与系统分析得到学生基本信息的基本业务流程图如下：添加信息查询结果删除信息删除模块修改信息查询信息教务信息管理数据库添加模块修改模块查询模块添加结果图2.1学生表操作业务流程图图2.2给出了教务信息管理业务流程图，图中表明在学生管理模块中要建立一个学生数据库，学生管理工作中的输入、编辑和

12、查询都与此数据库发生业务。2.3.系统功能分解图图2.1粗略给出了整个系统的框架，中南大学教学管理系统分为学生、教师、课程表操作子功能：对学生的一些基本的信息进行管理工作如：学生的学号、等进行管理。2.4.系统需求分析2.4.1功能需求1、能够查询学生，教师，班级，专业，课程等所有信息2、能够通过知道学生，教师，教师课程的一个信息找到其它的相关信息（例如：知道学生的能够找到该学生的所有有关的信息）3、通过一条信息找到与之匹配的信息（例如：查询同一专业或同班级的所有学生）4、管理人员能对学生，教师，和课程信息进行管理（例如：因为学生有关情况不是固定不变的所以一旦学生信息发生改变就要对原有信息进行

13、诸如添加，删除，修改等的操作）2.4.2.性能需求1、数据精确度查询时应保证查全率，所有相应域包含查询关键字的记录都应能查到 2、时间特性一般操作的响应时间应在1-2秒 3、适应性对运行环境要求普遍适应性2.4.3.运行需求1、用户界面利用菜单界面驱动方式，对用户友好。必须对鼠标和键盘单独支持2、硬件接口支持一般奔腾,128兆以上存的pc机。3、软件接口运行于Windows9X与更高版本具有WIN32API的操作系统上3.系统设计31概要设计针对以上系统要完成的功能，本系统总体设计采用自顶向下，逐步细化的方法将功能层次结构的各个部分组合起来，以完成整个系统的实现细节。3.1.1模块结构中南大学

14、教学管理系统教师表操作课程表 安全退出学生表操作系部班级信息系部班级信息系部班级信息系部班级信息系部班级信息 添加课程信息 修改课程信息 删除课程信息 查询课程信息 退出 删除学生信息 修改学生信息 查询学生信息 添加学生信息 添加教师信息 删除教师信息 修改教师信息 查询教师信息图3.1 系统功能结构图有关功能说明:学生表操作功能：以分类形式录入在校学生的基本基本信息存放在学生基本数据库文件中。并同时具有对学生基本数据库文件进行查询，添加，修改和删除记录功能。本模块又分为三个子模块： （1）学生信息添加 （2）学生信息查询 （3）学生信息编辑(修改/删除)2教师表操作，课程表模块和学生表操作

15、模块功能相似。3.1.2.系统的总体布局方案中南大学教学管理系统分为学生表操作、教师表操作，课程表，安全退出七个子系统。用户在进入此系统时首先必须在进行身份的确认，只有是合法用户才能进入此系统，否则将无法使用此系统。如果是合法用户，就可以进行对学生表操作、教师表操作，课程表进行管理工作（如添另、更新、删除、查询等操作）。3.2.系统详细设计3.2.1.功能模块设计一、用户管理模块 在用户管理模块中又把此模块分为三个小的模块分别为：1添加 在输入模块过在表单中的一个确定按钮使得用户在界面过键盘或通过标输入的数据插入到数据库中的学生基本信息表中，通过退出按钮结束学生信息的添加。2修改和删除当用户进

16、入修改和删除窗口时，编辑窗口中的数据绑定型控件都与学生基本信息表中的字段进行绑定。3查询 当用户进入查询窗口时，在查询窗口的文本框中输入要查询的关键字如性名或学号时，并点确定按钮，按钮中的SQL查询语句就会执行，使得结果显示在此表单的下方的表格中。二、学生表操作、教师表操作，课程表，系统安全这四个模块的每一个模块都包含以上的三个小模块，在此不再重复。3.2.2.数据库设计一、数据库概念结构设计这一设计阶段是在需求分析的基础上,设计出能够满足用户需求的各种实体,以与它们之间的关系,为后面的逻辑结构设计打下基础,可以用实体-关系模型来描述.实体-关系模型(Entity-relationship M

17、ode,简称E-R模型)是数据库设计常用的方法.E-R图中的矩形表示实体,菱形表示实体之间的联系,联系的类型可以用1:1或1:M或M：N表示，圆角矩形表示实体的有关属性，椭圆表示实体的具体属性。下图是学生表操作系统各个实体的E-R图。性别学号 学生信息年龄老师籍贯专业XX3-1学生实体E-R图 年龄专业性别住址教师号 XX教师信息3-2教师实体E-R图教师老师学分课程名课号课程信息3-3课程实体E-R图二、数据库逻辑设计下面需要将数据库概念结构转化为SQL Sever数据库系统所支持的实际数据模型，也就是数据库的逻辑结构。在上面的实体以与实体之间关系的基础上，形成数据库中的表格以与各个表格之间

18、的关系。设计一个项目，项目名为教务管理信息系统并在此项目中创建一个数据库，数据库名为EducationManagerSystem此数据库中包含学生、课程、教师、用户表。表结构如下：学生表操作(student)课程表(course) 教师表(teacher) 用户表(login)3.2.3.对话设计 在对话设计的过程中遵循了对话设计的原则：1对话要清楚、没有二义性。2对用户的响应要快，而且要进行了回答的有效性检验。3对话比较适合用户的要求与习惯，应该问的问题问了，问得不频繁。4注意询问格式的美观、实用，而且采用了统一的格式，体现了一定的风格。首先系统判断用户在主菜单上所输入的功能选择码是否合法，

19、并根据选择码进入相应功能模块。3.2.4.学生基本信息算法说明录入过程用户添加数据。系统检查用户输入的学生基本信息的合法性，如学生的学号的宽度与学生的出生日期的合法性等。检查错误时，弹出一个错误的对话框并提示用户如何操作。当检查正确后将在录入表单的数据插入到学生基本信息数据库表文件中。结束。查询过程用户输入要查询的学生的学号或等其它信息。系统根据用户输入的学生的学号先从学生基本信息数据库表文件中读出该记录。若找不到，则不显示。结束。修改过程用户输入要修改的学生的学号名字。系统根据用户输入的学号或名字先从学生基本信息数据库表文件中读出该记录。如找不到，则不显示。用户输入修改数据。检查输入数据合法

20、性。结束。删除记录用户输入要删除的学生的学号或。系统根据用户输入的学生的学号先从学生基本信息数据库表文件中读出该记录。用户确定删除数据。从主文件中删除该记录。结束。学生表操作、教师表操作，课程表，系统安全这四个模块的算法说明基本一样。3.3.管理系统的实现3.3.1.系统开发平台管理系统是在如下配置中进行的：硬件：AMD5400+,2G兆存320G的硬盘的pc机软件：Windows XP 操作系统，Borland Delphi 7,Microsoft SQL Server 20003.3.2.菜单的实现 用户在进行用户确认后进入如图4-1菜单：图4-1用户进入界面3.3.3.用户管理员认证表单

21、的实现系统管理员在作为普通用户进入系统后，必须再经过如图4-2中表单的确认后方可进行用户管理。 图4-2 登陆界面在其界面中系统管理名与系统管理员口令都运用了文本框让使用者输入其目的就增加其性。3.3.4.学生基本信息表单添加的实现图4-3学生信息录入3.3.5.学生信息修改表单的实现图4-4课程信息编辑图4.5是学生信息修改和删除界面，此界面由于是修改和删除界面所以所有的数据绑定控件均为文本框，每一个文本框都与课程表的一个字段进行绑定。3.3.6.学生信息查询的实现图4-5学生成绩查询图4.6是学生个人信息查询界面，此界面过在组合框中选择要查询的学号、课程代号、专业和班级代号等多种查询手段，

22、并在其后的文本框中输入要查询的值，然后单击确定按钮在下方的表格中就会显示出查询的结果。4.总结4.1.系统在的问题教务管理信息系统开发完成后，由于开发设计的时间较短，对开发工具Microsoftt SQL Server 2000和Borland Delphi 7 不熟悉，所以说本系统的存在的问题一是作为一个完全教务处能够运行的系统可能功能不够完善；二，没有设置权限。三没有建立索引等来优化系统功能。4.2.心得体会 通过自己查询相关书藉和对网络资源的利用，可以让我们对Borland Delphi 7 和Microsoft SQL Server 2000这两个开发工具有了具体的了解，从而上升到运用

23、的层次；同时了解了开发一个系统所要做的具体工作。参考文献1萨师煊 王珊 “数据库系统概论”，高等教育，1999附件：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB, StdCtrls, jpeg, ExtCtrls;type TForm1 = class(TForm) Image1: TImage; Label1: TLabel; Edit1: TEdit; Label2: TLabel; Edit2: T

24、Edit; Button1: TButton; Button2: TButton; ADOQuery1: TADOQuery; DataSource1: TDataSource; ADOConnection1: TADOConnection; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private Private declarations public Public declarations end;var Form1: TForm1;implementation$R *

25、.dfmuses unit2;procedure TForm1.Button1Click(Sender: TObject);var username,password:string;beginusername :=trim(edit1.Text); password :=trim(edit2.Text); if username= then begin ShowMessage(用户名不能为空); end else if password= then begin ShowMessage(密码不能为空); end else begin adoquery1.Close; adoquery1.SQL.

26、Clear; adoquery1.SQL.Add(select * from login where username=+username+ and password =+password+); adoquery1.Open; if adoquery1.RecordCount 1 then begin showmessage(用户名或密码错误); end else begin Form1.Hide; Form2.Show; end; end;end;procedure TForm1.Button2Click(Sender: TObject);begin Application.Terminat

27、e;end;end.unit Unit2;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, StdCtrls, jpeg, ExtCtrls;type TForm2 = class(TForm) MainMenu1: TMainMenu; N1: TMenuItem; N2: TMenuItem; N3: TMenuItem; N4: TMenuItem; N5: TMenuItem; N6: TMenuItem; Image1: TI

28、mage; Label1: TLabel; Label2: TLabel; procedure N2Click(Sender: TObject); procedure N3Click(Sender: TObject); procedure N5Click(Sender: TObject); procedure N6Click(Sender: TObject); procedure N4Click(Sender: TObject); private Private declarations public Public declarations end;var Form2: TForm2;impl

29、ementationuses Unit3, Unit4, Unit5, Unit6;$R *.dfmprocedure TForm2.N2Click(Sender: TObject);beginform2.Hide;form3.show;end;procedure TForm2.N3Click(Sender: TObject);beginform2.hide;form4.show;end;procedure TForm2.N5Click(Sender: TObject);beginform2.close;end;procedure TForm2.N6Click(Sender: TObject)

30、;beginform2.hide;form5.show;end;procedure TForm2.N4Click(Sender: TObject);begin form2.hide;form6.show;end;end.unit Unit3;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, StdCtrls, DB, ADODB;type TForm3 = class(TForm) Label1: TLabel; La

31、bel2: TLabel; Edit1: TEdit; Label3: TLabel; Edit2: TEdit; Label4: TLabel; Edit3: TEdit; Label5: TLabel; Edit4: TEdit; Label6: TLabel; Edit5: TEdit; Label7: TLabel; Edit6: TEdit; Button1: TButton; Label8: TLabel; ComboBox1: TComboBox; Label9: TLabel; Edit7: TEdit; Button2: TButton; DBGrid1: TDBGrid;

32、ComboBox2: TComboBox; Label10: TLabel; Label11: TLabel; Edit8: TEdit; Label12: TLabel; Edit9: TEdit; Button3: TButton; Label13: TLabel; Label14: TLabel; ComboBox3: TComboBox; Edit10: TEdit; Button5: TButton; ADOQuery1: TADOQuery; DataSource1: TDataSource; Button4: TButton; ADOConnection1: TADOConnec

33、tion; procedure Button5Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button4Click(Sender: TObject); private Private declarations public Public declarations end;var Form3: TForm3;implementat

34、ionuses Unit2;$R *.dfmprocedure TForm3.Button5Click(Sender: TObject);beginform3.hide;form2.show;end;procedure TForm3.Button2Click(Sender: TObject);beginif combobox1.ItemIndex=0 then begin adoquery1.Close; Adoquery1.sql.Clear; adoquery1.sql.Add(select * from 学生表 where 学号=+edit7.Text+); adoquery1.open

35、; if adoquery1.RecordCount=0 then showmessage(对不起，没有此学号，请重新输入); dbgrid1.Visible:=true; end else if combobox1.ItemIndex=1 then begin adoquery1.Close; Adoquery1.sql.Clear; adoquery1.sql.Add(select *from 学生表 where =+edit7.Text+); adoquery1.open; if adoquery1.RecordCount=0 then showmessage(对不起，没有此，请重新输入

36、); dbgrid1.Visible:=true; end else if combobox1.ItemIndex=2 then begin adoquery1.Close; Adoquery1.sql.Clear; adoquery1.sql.Add(select *from 学生表 where 籍贯=+edit7.Text+); adoquery1.open; if adoquery1.RecordCount=0 then showmessage(对不起，没有此籍贯，请重新输入); dbgrid1.Visible:=true; end else if combobox1.ItemIndex

37、=3 then begin adoquery1.Close; Adoquery1.sql.Clear; adoquery1.sql.Add(select *from 学生表 where 专业=+edit7.Text+); adoquery1.open; if adoquery1.RecordCount=0 then showmessage(对不起，没有此专业，请重新输入); dbgrid1.Visible:=true; end else if combobox1.ItemIndex=4 then begin adoquery1.Close; Adoquery1.sql.Clear; adoqu

38、ery1.sql.Add(select *from 学生表 where 年龄=+edit7.Text+); adoquery1.open; if adoquery1.RecordCount=0 then showmessage(对不起，没有此年龄，请重新输入); dbgrid1.Visible:=true; end else if combobox1.ItemIndex=5 then begin adoquery1.Close; Adoquery1.sql.Clear; adoquery1.sql.Add(select *from 学生表 where 性别=+edit7.Text+); ado

39、query1.open; if adoquery1.RecordCount=0 then showmessage(对不起，没有此性别，请重新输入); dbgrid1.Visible:=true; endend;procedure TForm3.Button3Click(Sender: TObject);begin if combobox2.ItemIndex=1then beginadoquery1.Close; Adoquery1.sql.Clear; adoquery1.sql.Add(update 学生表 set =+edit9.Text+ where =+edit8.Text+); a

40、doquery1.ExecSQL; showmessage(修改学生信息记录成功！);adoquery1.Close; Adoquery1.sql.Clear; adoquery1.sql.Add(select *from 学生表 where =+edit9.Text+); adoquery1.Open; dbgrid1.Visible:=true; endelse if combobox2.ItemIndex=2 then beginadoquery1.Close; Adoquery1.sql.Clear; adoquery1.sql.Add(update 学生表 set 籍贯=+edit9

41、.Text+ where 籍贯=+edit8.Text+ and 学号=+edit7.Text+); adoquery1.ExecSQL; showmessage(修改学生信息记录成功！);adoquery1.Close; Adoquery1.sql.Clear; adoquery1.sql.Add(select *from 学生表 where 籍贯=+edit9.Text+ ); adoquery1.Open; dbgrid1.Visible:=true; endelse if combobox2.ItemIndex=3 then beginadoquery1.Close; Adoquery

42、1.sql.Clear; adoquery1.sql.Add(update 学生表 set 专业=+edit9.Text+ where 专业=+edit8.Text+ and 学号=+edit7.Text+); adoquery1.ExecSQL; showmessage(修改学生信息记录成功！);adoquery1.Close; Adoquery1.sql.Clear; adoquery1.sql.Add(select *from 学生表 where 专业=+edit9.Text+ and 学号=+edit7.Text+); adoquery1.Open; dbgrid1.Visible:=

43、true; endelse if combobox2.ItemIndex=4then beginadoquery1.Close; Adoquery1.sql.Clear; adoquery1.sql.Add(update 学生表 set 年龄=+edit9.Text+ where 年龄=+edit8.Text+ and 学号=+edit7.Text+); adoquery1.ExecSQL; showmessage(修改学生信息记录成功！);adoquery1.Close; Adoquery1.sql.Clear; adoquery1.sql.Add(select *from 学生表 wher

44、e 年龄=+edit9.Text+ and 学号=+edit7.Text+); adoquery1.Open; dbgrid1.Visible:=true; endelse if combobox2.ItemIndex=5then beginadoquery1.Close; Adoquery1.sql.Clear; adoquery1.sql.Add(update 学生表 set 性别=+edit9.Text+ where 性别=+edit8.Text+ and 学号=+edit7.Text+); adoquery1.ExecSQL; showmessage(修改学生信息记录成功！); ado

45、query1.Close; Adoquery1.sql.Clear; adoquery1.sql.Add(select *from 学生表 where 性别=+edit9.Text+ and 学号=+edit7.Text+); adoquery1.Open; dbgrid1.Visible:=true; endend;procedure TForm3.Button1Click(Sender: TObject);beginadoquery1.Close; Adoquery1.sql.Clear; adoquery1.sql.Add(insert into 学生表 (学号 ,籍贯 ,专业,年龄,性

46、别) values(+edit1.Text+ ,+edit2.Text+ ,+edit3.Text+,+edit4.Text+,+edit5.Text+,+edit6.Text+); adoquery1.ExecSQL; showmessage(添加学生信息记录成功！);adoquery1.Close;Adoquery1.sql.Clear; adoquery1.sql.Add(select *from 学生表); adoquery1.Open; dbgrid1.Visible:=true;end;procedure TForm3.Button4Click(Sender: TObject);b

47、eginif combobox3.ItemIndex=0 then begin adoquery1.Close; Adoquery1.sql.Clear; adoquery1.sql.Add(delete from 学生表 where 学号=+edit10.Text+ ); adoquery1.ExecSQL; showmessage(删除学生记录成功！);adoquery1.Close; Adoquery1.sql.Clear; adoquery1.sql.Add(select *from 学生表 ); adoquery1.open; dbgrid1.Visible:=true;endels

48、e if combobox3.ItemIndex=1 then begin adoquery1.Close; Adoquery1.sql.Clear; adoquery1.sql.Add(delete from 学生表 where =+edit10.Text+ ); adoquery1.ExecSQL; showmessage(删除学生记录成功！);adoquery1.Close; Adoquery1.sql.Clear; adoquery1.sql.Add(select *from 学生表 ); adoquery1.open; dbgrid1.Visible:=true; end else

49、if combobox3.ItemIndex=2 then begin adoquery1.Close; Adoquery1.sql.Clear; adoquery1.sql.Add(delete from 学生表 where 籍贯=+edit10.Text+ ); adoquery1.ExecSQL; showmessage(删除学生记录成功！);adoquery1.Close; Adoquery1.sql.Clear; adoquery1.sql.Add(select *from 学生表 ); adoquery1.open; dbgrid1.Visible:=true; end else

50、if combobox3.ItemIndex=3 then begin adoquery1.Close; Adoquery1.sql.Clear; adoquery1.sql.Add(delete from 学生表 where 专业=+edit10.Text+ ); adoquery1.ExecSQL; showmessage(删除学生记录成功！);adoquery1.Close; Adoquery1.sql.Clear; adoquery1.sql.Add(select *from 学生表 ); adoquery1.open; dbgrid1.Visible:=true; end else

51、if combobox3.ItemIndex=4 then begin adoquery1.Close; Adoquery1.sql.Clear; adoquery1.sql.Add(delete from 学生表 where 年龄=+edit10.Text+ ); adoquery1.ExecSQL; showmessage(删除学生记录成功！);adoquery1.Close; Adoquery1.sql.Clear; adoquery1.sql.Add(select *from 学生表 ); adoquery1.open; dbgrid1.Visible:=true; end else

52、if combobox3.ItemIndex=5 then begin adoquery1.Close; Adoquery1.sql.Clear; adoquery1.sql.Add(delete from 学生表 where 性别=+edit10.Text+ ); adoquery1.ExecSQL; showmessage(删除学生记录成功！);adoquery1.Close; Adoquery1.sql.Clear; adoquery1.sql.Add(select *from 学生表 ); adoquery1.open; dbgrid1.Visible:=true; end end;e

53、nd.unit Unit4;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids, DBGrids, DB, ADODB;type TForm4 = class(TForm) Label1: TLabel; Label2: TLabel; Edit1: TEdit; Label3: TLabel; Edit2: TEdit; Label4: TLabel; Edit3: TEdit; Label5: TLabel; Edi

54、t4: TEdit; Label6: TLabel; Edit5: TEdit; Label7: TLabel; Edit6: TEdit; Label8: TLabel; Edit7: TEdit; Label9: TLabel; Edit8: TEdit; Button1: TButton; ADOQuery1: TADOQuery; DataSource1: TDataSource; DBGrid1: TDBGrid; Label10: TLabel; ComboBox1: TComboBox; Label11: TLabel; Edit9: TEdit; Button2: TButto

55、n; Label12: TLabel; ComboBox2: TComboBox; Label13: TLabel; Edit10: TEdit; Button3: TButton; Label14: TLabel; ComboBox3: TComboBox; Label15: TLabel; Edit11: TEdit; Label16: TLabel; Edit12: TEdit; Button4: TButton; Button5: TButton; ADOConnection1: TADOConnection; procedure Button5Click(Sender: TObjec

56、t); procedure Button2Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button3Click(Sender: TObject); private Private declarations public Public declarations end;var Form4: TForm4;implementationuses Unit2;$R *.dfmprocedure TForm4.Butt

57、on5Click(Sender: TObject);beginform4.Hide;form2.show;end;procedure TForm4.Button2Click(Sender: TObject);beginif combobox1.ItemIndex=0 then begin adoquery1.Close; Adoquery1.sql.Clear; adoquery1.sql.Add(select * from 教师表 where 教师号=+edit9.Text+); adoquery1.open; if adoquery1.RecordCount=0 then showmess

58、age(对不起，没有此教师号，请重新输入); dbgrid1.Visible:=true; end else if combobox1.ItemIndex=1 then begin adoquery1.Close; Adoquery1.sql.Clear; adoquery1.sql.Add(select * from 教师表 where =+edit9.Text+); adoquery1.open; if adoquery1.RecordCount=0 then showmessage(对不起，没有此，请重新输入); dbgrid1.Visible:=true; end else if co

59、mbobox1.ItemIndex=2 then begin adoquery1.Close; Adoquery1.sql.Clear; adoquery1.sql.Add(select * from 教师表 where 住址=+edit9.Text+); adoquery1.open; if adoquery1.RecordCount=0 then showmessage(对不起，没有此住址，请重新输入); dbgrid1.Visible:=true; end else if combobox1.ItemIndex=3 then begin adoquery1.Close; Adoquery

60、1.sql.Clear; adoquery1.sql.Add(select * from 教师表 where 专业=+edit9.Text+); adoquery1.open; if adoquery1.RecordCount=0 then showmessage(对不起，没有此专业，请重新输入); dbgrid1.Visible:=true; end else if combobox1.ItemIndex=4 then begin adoquery1.Close; Adoquery1.sql.Clear; adoquery1.sql.Add(select * from 教师表 where =