2022年教务管理管理系统实验报告

1、教务管理管理系统设计汇报学 院： 班 级: 学 号：姓 名： TOC o 1-3 h z u HYPERLINK l _Toc6 第一章绪论3 HYPERLINK l _Toc7 1.1数据库技术国内外发展与应用现实状况 PAGEREF _Toc7 h 4 HYPERLINK l _Toc8 1.2、教务管理数据库应用系统开发意义 PAGEREF _Toc8 h 4 HYPERLINK l _Toc9 1.3数据库应用系统开发措施概述5 HYPERLINK l _Toc1 第二章系统需求分析6 HYPERLINK l _Toc2 2.1 概述6 HYPERLINK l _Toc3 2.2 系统

2、功能需求与数据需求6 HYPERLINK l _Toc4 1.2.1 数据流图6 HYPERLINK l _Toc5 1.2.2 系统功能需求6 HYPERLINK l _Toc6 1.2.3 系统数据需求（数据字典）7 HYPERLINK l _Toc7 HYPERLINK l _Toc8 第三章 系统设计8 HYPERLINK l _Toc9 3.1 概念设计（E-R图）8 HYPERLINK l _Toc0 3.1.1 设计措施及关键技术8 HYPERLINK l _Toc2 3.2 逻辑设计（E-R图）9 HYPERLINK l _Toc3 3.2.1 设计措施及关键技术9 HYPER

3、LINK l _Toc4 3.2.2 系统逻辑模型9 HYPERLINK l _Toc5 3.3.3系统完整性与安全性设计9 HYPERLINK l _Toc7 3.3 系统功能设计（E-R图）9 HYPERLINK l _Toc8 3.4 系统开发平台选择9 HYPERLINK l _Toc9 HYPERLINK l _Toc0 第四章 数据库应用系统实现10 HYPERLINK l _Toc1 4.1 数据库定义10 HYPERLINK l _Toc2 4.1.1 数据库定义10 HYPERLINK l _Toc3 4.2 应用系统开发11 HYPERLINK l _Toc4 4.3小结1

4、7 HYPERLINK l _Toc5 第五章 结束语18附件19第一章绪论1.1数据库技术国内外发展与应用现实状况数据库技术是现代信息科学与技术重要构成部分，是计算机数据处理与信息管理系统关键。数据库技术研究和处理了计算机信息处理过程中大量数据有效地组织和存储问题，在数据库系统中减少数据存储冗余、实现数据共享、保障数据安全以及高效地检索数据和处理数据。伴随计算机技术与网络通信技术发展，数据库技术已成为信息社会中对大量数据进行组织与管理重要技术手段及软件技术，是网络信息化管理系统基础。本章重要简介数据库技术应用与发展、关系模型基本概念、关系数据库设计理论及数据库设计措施等内容，是学习和掌握现代

5、数据库技术基础。1.1 数据库技术发展与应用从20世纪60年代末期开始到目前，数据库技术已经发展了30数年。在这30数年历程中，人们在数据库技术理论研究和系统开发上都获得了辉煌成就，并且已经开始对新一代数据库系统深入研究。数据库系统已经成为现代计算机系统重要构成部分。1.1.1 数据库技术与信息技术信息技术(Information Technology，IT)是当今使用频率最高名词之一，它伴随计算机技术在工业、农业以及平常生活中广泛应用，已经被越来越多个人和企业作为自己赶超世界时尚标志之一。而数据库技术则是信息技术中一种重要支撑。没有数据库技术，人们在浩瀚信息世界中将显得手足无措。数据库技术是

6、计算机科学技术一种重要分支。从20世纪50年代中期开始，计算机应用从科学研究部门扩展到企业管理及政府行政部门，人们对数据处理规定也越来越高。1968年，世界上诞生了第一种商品化信息管理系统IMS(Information Management System)，从此，数据库技术得到了迅猛发展。在互联网日益被人们接受今天，Internet又使数据库技术、知识、技能重要性得到了充足放大。目前数据库已经成为信息管理、办公自动化、计算机辅助设计等应用重要软件工具之一，协助人们处理多种各样信息数据。1.1.2 数据库技术应用及特点数据库最初是在大企业或大机构中用作大规模事务处理基础。后来伴随个人计算机普及，

7、数据库技术被移植到PC机(Personal Computer，个人计算机)上，供单顾客个人数据库应用。接着，由于PC机在工作组内连成网，数据库技术就移植到工作组级。目前，数据库正在Internet和内联网中广泛使用。20世纪60年代中期，数据库技术是用来处理文献处理系统问题。当时数据库处理技术还很脆弱，常常发生应用不能提交状况。20世纪70年代关系模型诞生为数据库专家提供了构造和处理数据库原则措施，推进了关系数据库发展和应用。1979年，Ashton-Tate企业引入了微机产品dBase ，并称之为关系数据库管理系统，从此数据库技术移植到了个人计算机上。20世纪80年代中期到后期，终端顾客开始

8、使用局域网技术将独立计算机连接成网络，终端之间共享数据库，形成了一种新型多顾客数据处理，称为客户机/服务器数据库构造。目前，数据库技术正在被用来同Internet技术相结合，以便在机构内联网、部门局域网甚至WWW上公布数据库数据。1.1.3 数据库技术发展历史数据模型是数据库技术关键和基础，因此，对数据库系统发展阶段划分应当以数据模型发展演变作为重要根据和标志。按照数据模型发展演变过程，数据库技术从开始到目前短短30年中，重要经历了三个发展阶段：第一代是网状和层次数据库系统，第二代是关系数据库系统，第三代是以面向对象数据模型为重要特性数据库系统。数据库技术与网络通信技术、人工智能技术、面向对象

9、程序设计技术、并行计算技术等互相渗透、有机结合，成为现代数据库技术发展重要特性。1.2、教务管理系统数据库应用系统开发意义教务管理系统是教学领域中一种重要系统。伴随计算机普及，人们迫切但愿在计算机上可以实现教务管理操作，但愿把人从教学资源，教学评估，编排课程，教学检查等等这些繁琐工作中解放出来。教务管理系统从人们需求出发，具有智能化辅助教务人员管理教务工作，并且计算机发挥了它自身优势，可以存贮大量信息数据。与以往手工教务相比，教务管理系统软件出现，使教务工作变得更简朴，可靠，安全，以便。为了能让教务管理人员从繁重工作中解脱出来，使他们在使用一种软件后来能极其轻易地对所有教务工作进行管理，并且精

10、确无误，轻松自如。因此开发一种教务管理系统软件是当务之急，也是我们云比特技术有限企业为学校教务管理系统研发而不懈奋斗重要原因和意义。 教务管理系统是教学活动中一种最重要部分，系统将教学资源与老师，学生，课程，学生与老师，老师与课程，课程与学生互相间联络起来，并且联络错综复杂，互相联络，互相排斥，因而需要系统应具有较完善检查防错功能，冲突处理功能，从而根据系统运行及反馈信息高质量，高效率地管理系统流通部门所有功能。1.3数据库应用系统开发措施概述一、数据库应用系统开发基本思绪：将 SQL 语言嵌入到高级语言中， SQL 语句负责操纵数据库，高级语言负责控制程序流程，完毕多种复杂数据库应用。 二、

11、嵌入式 SQL： 使用嵌入式 SQL 在编写程序时，必须从一般编程语言开始（宿主语言），再把 SQL 加入到程序中。也就是说嵌入式 SQL 就是将 SQL 语句直接嵌入到程序源代码中，与其他程序设计语言混合。 处理过程：为了辨别 SQL 语句和宿主语言语句，所有 SQL 语句必须加前缀, 前缀一般格式：EXEC SQL 三、应用程序开发模式 C/S：客户机/服务器，基于企业内部网络应用系统，不依赖企业外网环境，也就是说无论企业与否能上网，都不影响应用。B/S：浏览器/服务器。第二章系统需求分析 概述学校教务管理系统是针对学校大量信息处理工作而开发管理软件。根据顾客规定，实现对学校学生信息、教师

12、信息、图片几种方面管理功能。顾客在学生管理模块里面，通过输入学生基本信息,系统自行生成对应记录数据及各类记录报表以供顾客查询、打印,此外顾客还可以对这些基本信息进行定期更新和删除。在教师管理模块里，顾客可以很以便查找教师有关信息。此外，教务管理系统还建立了图片管理模块，它可以对学校所有图片信息进行描述和管理，该模块运用了数据库对图片进行管理，防止了图片丢失，具有很好安全性。 学校教务管理系统力争给顾客以便快捷途径去管理这些繁琐数据。系统功能需求与数据需求2.2.1 数据流图登录界面管理员登陆学生顾客登录学生信息管理教师信息管理添加、删除学生信息添加和删除教师信息学生选课系统修改密码查询教师信息

13、欢迎使用2.2.2系统功能需求顾客登录管理员管理学生信息管理员管理教师信息学生查看老师信息学生选课2.2.3系统数据需求（数据字典）1.数据录入和处理精确性和实时性数据输入与否精确是数据处理前提，错误输入会导致系统输出不对和不可用，从而使系统工作失去意义。数据输入来源是手工输入。手工输入要通过系统界面上安排系统具有容错性，并且对操作人员要进行系统培训。在系统中，数据输入往往是大量，因此系统要有一定处理能力，以保证迅速处理数据。2.数据一致性与完整性由于系统数据是共享，在不一样客户端中，教务文献是共享数据，因此怎样保证这些数据一致性，是系统必须处理问题。要处理这一问题，要有一定人员维护数据一致性

14、，在数据录入处控制数据去向，并且规定对数据库数据完整性进行严格约束。对于输入数据，要为其定义完整性规则，假如不能符合完整性约束，系统应当拒绝该数据。3.数据共享与独立性整个教务管理系统数据是共享。然而，从系统开发角度上看，共享会给设计和调试带来困难。因此，应当提供灵活配置，使各个分系统可以独立运行，而通过人工干预手段进行系统数据互换。这样，也能提供系统强健性。第三章 系统设计3.1 概念设计（E-R图）3.1.1 设计措施及关键技术设计概念构造一般有四类措施：自顶向下自底向上逐渐扩张混合方略3.1.2 系统E-R图学生教师管理者学号姓名年龄专业编号课程名教师号教师名3.2 逻辑设计（E-R图）

15、3.2.1 设计措施及关键技术（1）将概念转换为一般关系、网状、层次模型；（2）将转换来关系、网状、层次模型向特定DBMS支持下数据模型转换；（3）对数据模型进行优化。3.2.2 系统逻辑模型教师基本信息学生基本信息管理员管理管理查看并选课课 3.3系统开发平台选择在老师提议下我们都选择了可视化delphi，Delphi是一门真正面向对象开发工具，并且是完全可视化。 Delphi使用了真编译，可以让你代码编译成为可执行文献，并且编译速度非常快。 Delphi具有强大数据库开发能力，可以让你轻松地开发数据库。 第四章 数据库应用系统实现4.1 数据库定义4.1.1 数据库定义1.数据库创立（1）

16、单击开始“按钮”，选择“程序”|Microsoft SQL Server|“企业管理器”命令，打开“企业管理器”，然后再“企业管理器”中打开服务器；（2）用鼠标右键单击“数据库”，在弹出快捷菜单命令中选择“新建数据库”命令；（3）弹出“数据库属性”对话框，在“常规”选项卡“名称”框中输入数据库名称“教务管理”，然后单击“确定”。这样就完毕了数据库建立工作。2.数据库对象定义运用SQL语句创立数据库表、视图、关系表，如下图所示应用系统开发1.登陆界面学生登录和管理员登陆四组账号和密码都被我设置相似，因此此时学生和管理员可以互访。若是账号和密码输入对，则可以进入到管理员管理界面或是学生选课系统。若

17、是输入错误则会有系统提醒。管理员账号和密码输入对后就进入管理员管理界面，如右图。点击学生信息查询按钮则进入学生信息管理界面，如下图，点击查看学生信息后在DBGrid窗口中显示学生信息。若要录入学生信息，则在窗口下面五个Edit里面输入要录入学生信息，点击添加学生信息按钮则完毕添加。在学号Edit栏里面输入要删除学号，然后点击删除学生信息则完毕删除。点击返回按钮则返回到管理员操作界面，接着点击教师信息查询按钮则进入到教师信息管理界面。其操作流程与学生信息管理同样，这里就不再赘述。重新通过登陆界面进入到学生选课系统，出现如下界面。必须同步输入课程编号和教师编号才能进行选课。若不是同步输入课程编号和

18、教师编号则不能进行选课。选课之前必须得查看教师信息，点击教师信息按钮再点击显示所有信息则出现如下界面。然后返回选课界面进行选课，选课成功则会出现提醒信息，如下图。学生也可以修改自己密码，如此就不再细述。在任何一种界面点击关闭窗口时则会出现最终一种窗口，如下图。2.SQL数据库表设计 1学生表(xuesheng)字段名代码类型学号s_nochar(10)姓名s_namechar(10)性别s_sexchar(10)年龄s_agechar(10)登陆密码s_passworschar(10)专业s_majorchar（10）教师表(laoshi) 字段名代码类型教师编码t_nochar(10)教师姓

19、名t_namechar(10)课程编码course_nochar(10)课程名course_namechar(10)课程表（kecheng）字段名代码类型课程编码course_nochar(10)课程名course_namechar(10)教师编码t_nochar(10)教师姓名t_namechar(10)登录表(login) 字段名代码类型顾客编码l_nochar(10)顾客密码l_passwordchar(10) 4.3小结为实现delphi程序与数据联络 和用于建立起数据与delphi程序之间建立连接，属于数据连接控件。用于在数据和表之间建立连接，是属于数据访问控件。第五章 结束语（心得

20、体会） 数周课堂认知学习、试验课操作纯熟和课外自己研学，在老师指导和同学协助下，我从对数据库一无所知到目前可以完毕一种简朴教务管理系统，不得不说是个艰难蜕变。但过程是艰苦，但成果却是完美，同步这个过程是个自己不停探索不停更新自己一种过程，我从中受益匪浅。 刚开始接触数据库时，看到书上尽是阐明文格式解释，概念层出不穷，我就有种想退缩冲动，不过在老师形象ppt讲解下，我逐渐懂得数据库系统关键和基础是数据模型，我们首先是要将现实世界详细事物抽象认知成为我们熟知信息世界，有了一点概念模型后再将其转换成为我们要得到数据模型。接着老师重要讲解了关系数据模型。接着我们开始了学习SQL Server，在第一堂

21、试验课上学习了怎样建数据库，建表，视图，关系图和默认，初次会用SQL软件，让我重拾了学习数据库信心。 建好数据库后就要开始用delphi软件制作调用数据前台程序，初次使用时是在老师指导下完毕。不过我对上面诸多控件并不是熟悉，然后我从老师发给我们delphi课件上面开始理解delphi知识，有了这些基础知识确实远远不够。由于大多数我们添加控件是规定在其unit-pas上面编写程序，可这编程基础知识与我们上学期学C语言知识不大相似，一时我苦恼不已。最终在同学协助下开始慢慢懂得程序意思，接着自己慢慢着手编写程序。在运行程序时候有时候也会碰到新问题，例如我在刚完毕执行程序后，我在这之前修改并没有反应到

22、执行程序当中，最终才发现我虽然关闭了执行窗口，不过在资源管理器里面我所执行project1.exe并没有消失，我尝试先停止掉资源管理器里面project1.exe，然后再执行我所修改窗体，惊喜发现我所做修改被写了进去。这虽然不是一种很重大进展，但却是给了我不小鼓励。在我所有程序里面，我重要运用了SQL查询、插入、删除、功能。 也是由于时间比较仓促，其他功课也不能落下，我所做程序还是比较简朴和基础，诸多功能都没能开发和创立，很遗憾是我没有能很好掌握combobox这个控件运用，不过我会在后来时间里自己渐渐学习增长自己数据库知识。课程虽然停止了，不过学习没有停止。做出这个教学管理系统是个漫长难熬过

23、程，但其中所收获意义远远超越了我们所承受。 最终感谢老师教育和指导让我对数据库、SQL Sever和delphi有了初步认识和理解，并且可以做出自己系统。并且还教会了我们一种自主学习思想。我将把这种实践和学习思想用到未来多种知识学习中去，也会继续学习数据库，继续完善系统，做出真正实用完备系统。参照文献1、Delphi 技术手册 Ray Liscbner著 中国电力出版社 2. Delphi程序设计基础-李文池-电子教案3.Delphi7实用教程入门及其提高 张增强 著 中国铁道出版社附件unit Unit1;interfaceuses Windows, Messages, SysUtils,

24、Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB, StdCtrls, jpeg, ExtCtrls, MPlayer;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; Edit1: TEdit; Edit2: TEdit; ADOQuery1: TADOQuery; ADOConnection1: TADOConnection; Label1: TLabel; Label2: TLabel; Label

25、3: TLabel; MediaPlayer1: TMediaPlayer; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure FormCreate(Sender: TObject); private Private declarations public Public declarations end;var Form1: TForm1;implementationuses Un

26、it2, Unit4, Unit8, Unit9;$R *.dfmprocedure TForm1.Button1Click(Sender: TObject);var sql:string;begin sql:=select * from xuesheng where s_no=+edit1.Text+ and s_password=+edit2.Text+; ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add(sql); ADOQuery1.Open; if ADOQuery1.RecordCount0 then begin For

27、m1.Hide; Form2.Show; end else begin MessageDlg(输入顾客名或密码错误，请重新输入,mtError,mbOK,1); exit; end;end;procedure TForm1.Button2Click(Sender: TObject);var sql:string;begin sql:=select * from login where l_no=+edit1.Text+ and l_password=+edit2.Text+; ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add(sql

28、); ADOQuery1.Open; if ADOQuery1.RecordCount0 then begin Form1.Hide; Form4.Show; end else begin MessageDlg(输入顾客名或密码错误，请重新输入,mtError,mbOK,1); exit; end;end;procedure TForm1.Button3Click(Sender: TObject);begin Form1.Hide; Form8.Show;end;procedure TForm1.FormCreate(Sender: TObject);begin MediaPlayer1.Pl

29、ay;end;end.unit Unit2;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids, DBGrids, DB, ADODB, jpeg, ExtCtrls;type TForm2 = class(TForm) Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Edit4: TEdit; Button2: TButton; Button3: TButton; Button4:

30、TButton; DataSource1: TDataSource; ADOConnection1: TADOConnection; ADOQuery1: TADOQuery; DBGrid1: TDBGrid; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Button5: TButton; Button6: TButton; Button7: TButton; procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TOb

31、ject); procedure Button1Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure Button5Click(Sender: TObject); procedure Button6Click(Sender: TObject); procedure Button7Click(Sender: TObject); procedure FormCreate(Sender: TObject); private Private declarations public Public declar

32、ations end;var Form2: TForm2;implementationuses Unit3, Unit1, Unit7, Unit8;$R *.dfmprocedure TForm2.Button2Click(Sender: TObject);begin if(edit1.Text=)or(edit3.Text=) then ShowMessage(课程编号和教师编号不能为空) else begin ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add(insert kecheng (course_no,course_n

33、ame,t_no,t_name) values(+edit1.Text+,+edit2.Text+,+edit3.Text+,+edit4.Text+); ADOQuery1.ExecSQL; Button1Click(nil); ShowMessage(选课成功!);end;end;procedure TForm2.Button3Click(Sender: TObject);begin if(edit1.Text=)or(edit3.Text=) then ShowMessage(课程编号和教师编号不能为空) else begin ADOQuery1.Close; ADOQuery1.SQL

34、.Clear; ADOQuery1.SQL.Add(delete kecheng where course_no=+edit1.Text+); ADOQuery1.ExecSQL; Button1Click(nil);end;end;procedure TForm2.Button1Click(Sender: TObject);var sql:string;begin sql:=select course_no 课程编号, course_name 课程名称,t_no 教师编号 ,t_name 教师姓名 from kecheng; ADOQuery1.Close; ADOQuery1.SQL.Cl

35、ear; ADOQuery1.SQL.Add(sql); ADOQuery1.open;end;procedure TForm2.Button4Click(Sender: TObject);begin Form2.Hide;Form3.Show;end;procedure TForm2.Button5Click(Sender: TObject);begin Form2.Hide;Form7.Show;end;procedure TForm2.Button6Click(Sender: TObject);begin Form2.Hide;Form8.Show;end;procedure TForm

36、2.Button7Click(Sender: TObject);begin ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add(select * from kecheng where course_no=+edit1.Text+); ADOQuery1.open;end;procedure TForm2.FormCreate(Sender: TObject);beginend;end.unit Unit3;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Gra

37、phics, Controls, Forms, Dialogs, DB, ADODB, StdCtrls, Grids, DBGrids, jpeg, ExtCtrls;type TForm3 = class(TForm) Button1: TButton; Button2: TButton; ADOConnection1: TADOConnection; ADOQuery1: TADOQuery; DataSource1: TDataSource; DBGrid1: TDBGrid; procedure Button1Click(Sender: TObject); procedure But

38、ton2Click(Sender: TObject); procedure FormCreate(Sender: TObject); private Private declarations public Public declarations end;var Form3: TForm3;implementationuses Unit2;$R *.dfmprocedure TForm3.Button1Click(Sender: TObject);var sql:string;begin sql:=select t_no 教师编号,t_name 教师姓名,course_no 课程编号, cour

39、se_name 课程名称 from laoshi; ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add(sql); ADOQuery1.open;end;procedure TForm3.Button2Click(Sender: TObject);begin Form3.Hide;Form2.Show;end;procedure TForm3.FormCreate(Sender: TObject);beginend;end.unit Unit4;interfaceuses Windows, Messages, SysUtils, Va

40、riants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, jpeg, ExtCtrls;type TForm4 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure FormCrea

41、te(Sender: TObject); private Private declarations public Public declarations end;var Form4: TForm4;implementationuses Unit5, Unit1, Unit6, Unit8;$R *.dfmprocedure TForm4.Button1Click(Sender: TObject);begin Form4.Hide;Form5.Show;end; procedure TForm4.Button2Click(Sender: TObject);begin Form4.Hide;For

42、m6.Show; end; procedure TForm4.Button3Click(Sender: TObject); begin Form4.Close; Form8.Show; end;procedure TForm4.FormCreate(Sender: TObject);beginend;end.unit Unit5;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, StdCtrls, DB, ADODB,

43、 jpeg, ExtCtrls;type TForm5 = class(TForm) DBGrid1: TDBGrid; Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Edit4: TEdit; Edit5: TEdit; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; ADOQuery1: TADOQu

44、ery; ADOConnection1: TADOConnection; DataSource1: TDataSource; Button5: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure Button5Click(Sender: TObject); procedure Form

45、Create(Sender: TObject); private Private declarations public Public declarations end;var Form5: TForm5;implementationuses Unit4;$R *.dfmprocedure TForm5.Button1Click(Sender: TObject);begin ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add(insert xuesheng (s_name,s_no,s_sex,s_age,s_major) value

46、s(+edit1.Text+,+edit2.Text+,+edit3.Text+,+edit4.Text+,+edit5.Text+); ADOQuery1.ExecSQL; Button4Click(nil);end;procedure TForm5.Button2Click(Sender: TObject);begin ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add(delete xuesheng where s_no=+edit2.Text+); ADOQuery1.ExecSQL; Button4Click(nil);en

47、d;procedure TForm5.Button3Click(Sender: TObject);beginForm5.Hide;Form4.Show;end;procedure TForm5.Button4Click(Sender: TObject);var sql:string;begin sql:=select s_name 姓名,s_no 学号,s_sex 性别, s_age 年龄,s_major 专业 from xuesheng; ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add(sql); ADOQuery1.Open;

48、end;procedure TForm5.Button5Click(Sender: TObject);begin ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add(select * from xuesheng where s_no=+edit2.Text+); ADOQuery1.open; end;procedure TForm5.FormCreate(Sender: TObject);beginend;end.unit Unit6;interfaceuses Windows, Messages, SysUtils, Varian

49、ts, Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls, jpeg, ExtCtrls;type TForm6 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Edit4: TEdit; Label1: TLabel; Label2: TLabel; Label3: TLab

50、el; Label4: TLabel; DBGrid1: TDBGrid; ADOQuery1: TADOQuery; ADOConnection1: TADOConnection; DataSource1: TDataSource; Button5: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button4Click(Sender: TObject);

51、procedure Button5Click(Sender: TObject); private Private declarations public Public declarations end;var Form6: TForm6;implementationuses Unit4;$R *.dfmprocedure TForm6.Button1Click(Sender: TObject);var sql:string;begin sql:=select t_no 教师编号,t_name 教师姓名,course_no 课程编号, course_name 课程名称 from laoshi;

52、ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add(sql); ADOQuery1.open;end;procedure TForm6.Button2Click(Sender: TObject);begin ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add(insert laoshi (t_no,t_name,course_no,course_name) values(+edit1.Text+,+edit2.Text+,+edit3.Text+,+edit4.Text+);

53、 ADOQuery1.ExecSQL; Button1Click(nil);end;procedure TForm6.Button3Click(Sender: TObject);begin ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add(delete laoshi where t_no=+edit1.Text+); ADOQuery1.ExecSQL; Button1Click(nil);end;procedure TForm6.Button4Click(Sender: TObject);begin Form6.Hide;Form

54、4.Show;end;procedure TForm6.Button5Click(Sender: TObject);begin ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add(select * from laoshi where t_no=+edit1.Text+); ADOQuery1.open;end;end.unit Unit6;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls, jpeg, ExtCtrls;type TForm6 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Edit4: TEdit; Label1: TLabel; Label2: