教务管理管理系统实验报告
《教务管理管理系统》
设计报告
学 院:
班 级:
学 号:
姓 名:
第一章绪论.................................................................................................................... 3
1.1数据库技术的国内外发展与应用现状 ........................... 3
1.2、教务管理数据库应用系统开发的意义 ......................... 4
1.3数据库应用系统开发方法概述 ................................. 5
第二章系统需求分析.................................................................................................... 6
2.1 概述 ..................................................... 6
2.2 系统功能需求与数据需求 .................................... 6
1.2.1 数据流图............................................................................................ 6
1.2.2 系统功能需求.................................................................................... 6
1.2.3 系统数据需求(数据字典)............................................................ 7
第三章 系统设计 ................................................... 8
3.1 概念设计(E-R 图) ......................................... 8
3.1.1 设计方法及关键技术........................................................................ 8
3.2 逻辑设计(E-R 图) ......................................... 9
3.2.1 设计方法及关键技术........................................................................ 9
3.2.2 系统的逻辑模型................................................................................ 9
3.3.3系统的完整性与安全性设计............................................................. 9
3.3 系统功能设计(E-R 图) ..................................... 9
3.4 系统开发平台选择 ......................................... 9
第四章 数据库应用系统的实现 .................................. 10
4.1 数据库的定义 ............................................. 10
4.1.1 数据库的定义 ........................................... 10
4.2 应用系统的开发.................................................................................. 11
4.3小结 ..................................................... 17
第五章 结束语.......................................................................................................... 18 附件----------------------------------------------------------------------------------------------------19
第一章绪论
1.1数据库技术的国内外发展与应用现状
数据库技术是现代信息科学与技术的重要组成部分,是计算机数据处理与信息管理系统的核心。数据库技术研究和解决了计算机信息处理过程中大量数据有效地组织和存储的问题,在数据库系统中减少数据存储冗余、实现数据共享、保障数据安全以及高效地检索数据和处理数据。
随着计算机技术与网络通信技术的发展,数据库技术已成为信息社会中对大量数据进行组织与管理的重要技术手段及软件技术,是网络信息化管理系统的基础。本章主要介绍数据库技术的应用与发展、关系模型的基本概念、关系数据库的设计理论及数据库设计方法等内容,是学习和掌握现代数据库技术的基础。
1.1 数据库技术的发展与应用
从20世纪60年代末期开始到现在,数据库技术已经发展了30多年。在这30多年的历程中,人们在数据库技术的理论研究和系统开发上都取得了辉煌的成就,而且已经开始对新一代数据库系统的深入研究。数据库系统已经成为现代计算机系统的重要组成部分。
1.1.1 数据库技术与信息技术
信息技术(Information Technology,IT) 是当今使用频率最高的名词之一,它随着计算机技术在工业、农业以及日常生活中的广泛应用,已经被越来越多的个人和企业作为自己赶超世界潮流的标志之一。而数据库技术则是信息技术中一个重要的支撑。没有数据库技术,人们在浩瀚的信息世界中将显得手足无措。
数据库技术是计算机科学技术的一个重要分支。从20世纪50年代中期开始,计算机应用从科学研究部门扩展到企业管理及政府行政部门,人们对数据处理的要求也越来越高。1968年,世界上诞生了第一个商品化的信息管理系统
IMS(Information Management System),从此,数据库技术得到了迅猛发展。在互联网日益被人们接受的今天,Internet 又使数据库技术、知识、技能的重要性得到了充分的放大。现在数据库已经成为信息管理、办公自动化、计算机辅助设计等应用的主要软件工具之一,帮助人们处理各种各样的信息数据。
1.1.2 数据库技术的应用及特点
数据库最初是在大公司或大机构中用作大规模事务处理的基础。后来随着个人计算机的普及,数据库技术被移植到PC 机(Personal Computer,个人计算机) 上,供单用户个人数据库应用。接着,由于PC 机在工作组内连成网,数据库技术就移植到工作组级。现在,数据库正在Internet 和内联网中广泛使用。
20世纪60年代中期,数据库技术是用来解决文件处理系统问题的。当时的数据库处理技术还很脆弱,常常发生应用不能提交的情况。20世纪70年代关系模型的诞生为数据库专家提供了构造和处理数据库的标准方法,推动了关系数据库的发展和应用。1979年,Ashton-Tate 公司引入了微机产品dBase Ⅱ,并称之为关系数据库管理系统,从此数据库技术移植到了个人计算机上。20世纪80年代中期到后期,终端用户开始使用局域网技术将独立的计算机连接成网络,终端之间共享数据库,形成了一种新型的多用户数据处理,称为客户机/服务器数据库结构。现在,数据库技术正在被用来同Internet 技术相结合,以便在机构内联网、部门局域网甚至WWW 上发布数据库数据。
1.1.3 数据库技术发展历史
数据模型是数据库技术的核心和基础,因此,对数据库系统发展阶段的划分应该以数据模型的发展演变作为主要依据和标志。按照数据模型的发展演变过程,数据库技术从开始到现在短短的30年中,主要经历了三个发展阶段:第一代是网状和层次数据库系统,第二代是关系数据库系统,第三代是以面向对象数据模型为主要特征的数据库系统。数据库技术与网络通信技术、人工智能技术、面向对象程序设计技术、并行计算技术等相互渗透、有机结合,成为当代数据库技术发展的重要特征。
1.2、教务管理系统数据库应用系统开发的意义 教务管理系统是教学领域中一个重要的系统。随着计算机的普及,人们迫切希望在计算机上能够实现教务管理操作,希望把人从教学资源,教学评估,编排课程,教学检查等等这些繁琐的工作中解放出来。教务管理系统从人们的需求出发,具有智能化辅助教务人员管理教务工作,并且计算机发挥了它本身的优势,能够存贮大量信息数据。与以往手工的教务相比,教务管理系统软件的出现,使教务工作变得更简单,可靠,安全,方便。为了能让教务管理人员从繁重的工作中解脱出来,使他们在使用一个软件以后能极其容易地对所有教务工作进行管理,并且准确无误,轻松自如。因此开发一个教务管理系统软件是当务之急,也是我们云比特技术有限公司为学校教务管理系统的研发而不懈奋斗的重要原因和意义。
教务管理系统是教学活动中一个最重要的部分,系统将教学资源与老师,学生,课程,学生与老师,老师与课程,课程与学生相互间联系起来,而且联系错综复杂,相互联系,相互排斥,因而需要系统应具备较完善的检验防错功能,冲突处
理功能,从而根据系统的运行及反馈信息高质量,高效率地管理系统流通部门的全部功能。
1.3数据库应用系统开发方法概述 一、数据库应用系统开发的基本思路:将 SQL 语言嵌入到高级语言中, SQL 语句负责操纵数据库,高级语言负责控制程序流程,完成各种复杂的数据库应用。
二、嵌入式 SQL:
使用嵌入式 SQL 在编写程序时,必须从普通的编程语言开始(宿主语言),再把 SQL 加入到程序中。也就是说嵌入式 SQL 就是将 SQL 语句直接嵌入到程序的源代码中,与其他程序设计语言混合。 处理过程:为了区分 SQL 语句和宿主语言语句,所有 SQL 语句必须加前缀, 前缀一般格式:EXEC SQL
三、应用程序开发模式
C/S:客户机/服务器,基于企业内部网络的应用系统,不依赖企业外网环境,也就是说无论企业是否能上网,都不影响应用。B/S:浏览器/服务器。
第二章系统需求分析
2.1 概述
学校教务管理系统是针对学校的大量信息处理工作而开发的管理软件。根据用户的要求,实现对学校学生信息、教师信息、图片几个方面的管理功能。 用户在学生管理模块里面,通过输入学生的基本信息, 系统自行生成相应的统计数据及各类统计报表以供用户查询、打印, 另外用户还可以对这些基本信息进行定期的更新和删除。在教师管理模块里,用户可以很方便的查找教师的相关信息。另外,教务管理系统还建立了图片管理模块,它可以对学校的所有图片信息进行描述和管理,该模块运用了数据库对图片进行管理,避免了图片的丢失,具有较好的安全性。 学校教务管理系统力求给用户方便快捷的途径去管理这些繁琐的数据。
2.2 系统功能需求与数据需求
2.2.1 数据流图
2.2.2系统功能需求
(1) 用户登录
(2) 管理员管理学生信息
(3) 管理员管理教师信息
(4) 学生查看老师信息
(5) 学生选课
2.2.3系统数据需求(数据字典)
1. 数据录入和处理的准确性和实时性
数据的输入是否准确是数据处理的前提,错误的输入会导致系统输出的不正确和不可用,从而使系统的工作失去意义。数据的输入来源是手工输入。手工输入要通过系统界面上的安排系统具有容错性,并且对操作人员要进行系统的培训。
在系统中,数据的输入往往是大量的,因此系统要有一定的处理能力,以保证迅速的处理数据。
2. 数据的一致性与完整性
由于系统的数据是共享的,在不同的客户端中,教务文件是共享数据,所以如何保证这些数据的一致性,是系统必须解决的问题。要解决这一问题,要有一定的人员维护数据的一致性,在数据录入处控制数据的去向,并且要求对数据库的数据完整性进行严格的约束。
对于输入的数据,要为其定义完整性规则,如果不能符合完整性约束,系统应该拒绝该数据。
3. 数据的共享与独立性
整个教务管理系统的数据是共享的。然而,从系统开发的角度上看,共享会给设计和调试带来困难。因此,应该提供灵活的配置,使各个分系统能够独立运行,而通过人工干预的手段进行系统数据的交换。这样,也能提供系统的强壮性。
第三章 系统设计
3.1 概念设计(E-R 图)
3.1.1 设计方法及关键技术
设计概念结构通常有四类方法:
● 自顶向下
● 自底向上
● 逐步扩张
● 混合策略
3.1.2 系统的E-R 图
3.2 逻辑设计(E-R 图)
3.2.1 设计方法及关键技术
(1)将概念转换为一般的关系、网状、层次模型;
(2)将转换来的关系、网状、层次模型向特定的DBMS 支持下的数据模型转换;
(3)对数据模型进行优化。
3.2.2 系统的逻辑模型
3.3系统开发平台选择
在老师的建议下我们都选择了可视化delphi ,Delphi 是一门真正的面向对象的开发工具,并且是完全的可视化。 Delphi使用了真编译,可以让你的代码编译成为可执行的文件,而且编译速度非常快。
Delphi 具有强大的数据库开发能力,可以让你轻松地开发数据库。
第四章 数据库应用系统的实现
4.1 数据库的定义
4.1.1 数据库的定义
1. 数据库的创建
(1)单击开始“按钮”,选择“程序”|Microsoft SQL Server|“企业管理器”命令,打开“企业管理器”,然后再“企业管理器”中打开服务器;
(2)用鼠标右键单击“数据库”,在弹出的快捷菜单命令中选择“新建数据库”命令;
(3)弹出“数据库属性”对话框,在“常规”选项卡的“名称”框中输入数据库的名称“教务管理”,然后单击“确定”。这样就完成了数据库的建立工作。
2. 数据库对象的定义
利用SQL 语句创建数据库的表、视图、关系表,如下图所示
1.2 应用系统的开发
1. 登陆界面
学生登录和管理
和密码都被我设
时学生和管理员员登陆的四组账号置的相同,所以此可以互访。若是账号和密码输入正确,则可以进入到管理员管理界面或是学生选课系统。若是输入错误则会有系统提醒。
管理员的账号和密码输入正确后就进入管理员的管理界面,如右图
。点击学生信息查询按钮则
进入学生信息管理界面,如下图
,点击
查看学生信息后在DBGrid 的窗口中显示学生的信息。若要录入学生信息,则在窗口下面的五个Edit 里面输入要录入的学生信息,点击添加学生信息按钮则完成添加。在学号的Edit 栏里面输入要删除的学号,然后点击删除学生信息则完成删除。点击返回按钮则返回到管理员的操作界面,接着点击教师信息查询按
钮则进入到教师信息管理界面
。其操作流程与学生信息管理一样,这里就不再赘述。
重新通过登陆界面进入到学生选课系统,出现如下界面。
。必须的同时输入课程编号和教师编号才能进行选课。若不是同时输入课程编号和教师编号则不能进行选课。选课之前必须得查看教师信息,点击教师信息按钮再点击显示全部信息则出现如下界面
。然后返
回选课界面进行选课,选课成功则会出现提示信息,如下图
。学生也可以修改自己的密码,如此就不再细述。
在任何一个界面点击关闭窗口时则会出现最后一个窗口,如下图
。
2.SQL 数据库表的设计
1学生表(xuesheng)
4.3小结
为实现delphi 程序与数据联系
和
件。
用于建立起数据与delphi 程序之间建立连接,属于数据连接控
用于在数据和表之间建立连接,是属于数据访问控件。
第五章 结束语(心得体会)
数周的课堂认知学习、实验课操作熟练和课外自己研学,在老师的指导和同学的帮助下,我从对数据库的一无所知到现在能够完成一个简单的教务管理系统,不得不说是个艰难的蜕变。但过程是艰辛的,但结果却是完美的,同时这个过程是个自己不断探索不断更新自己的一个过程,我从中受益匪浅。 刚开始接触数据库时,看到书上尽是说明文格式的解释,概念层出不穷,我就有种想退缩的冲动,但是在老师形象的ppt 讲解下,我逐渐的知道数据库系统的核心和基础是数据模型,我们首先的是要将现实世界的具体事物抽象的认知成为我们熟知的信息世界,有了一点概念模型后再将其转换成为我们要得到的数据模型。接着老师主要讲解了关系数据模型。接着我们开始了学习SQL Server2000,在第一堂实验课上学习了怎样建数据库,建表,视图,关系图和默认,初次会用SQL 软件,让我重拾了学习数据库的信心。
建好数据库后就要开始用delphi 软件制作调用数据的前台程序,初次使用时是在老师的指引下完成的。但是我对上面很多控件并不是熟悉,然后我从老师发给我们的delphi 的课件上面开始了解delphi 的知识,有了这些基础的知识确实远远不够的。因为大多数我们添加的控件是要求在其unit-pas 上面编写程序的,可这编程的基础的知识与我们上学期学的C 语言知识不大相同,一时我苦恼不已。最后在同学的帮助下开始慢慢懂得程序的意思,接着自己慢慢着手编写程序。在运行程序的时候有时候也会遇到新的问题,比如我在刚完成执行程序后,我在这之前修改的并没有反应到执行的程序当中,最后才发现我虽然关闭了执行的窗口,但是在资源管理器里面我所执行的project1.exe 并没有消失,我尝试先停止掉资源管理器里面的project1.exe ,然后再执行我所修改的窗体,惊喜的发现我所做的修改被写了进去。这虽然不是一个很重大的进展,但却是给了我不小的激励。在我所有的程序里面,我主要运用了SQL 的查询、插入、删除、功能。
也是由于时间比较仓促,其他功课也不能落下,我所做的程序还是比较简单和基础的,很多功能都没能开发和创建,很遗憾的是我没有能很好的掌握combobox 这个控件的运用,但是我会在以后的时间里自己渐渐的学习的增长自己的数据库知识。课程虽然停止了,但是学习没有停止。做出这个教学管理系统是个漫长难熬的过程,但其中所收获的意义远远超越了我们所承受的。
最后感谢老师的教育和指导让我对数据库、SQL Sever2000和delphi 有了初步的认识和了解,并且能够做出自己的系统。并且还教会了我们一种自主学习的思想。我将把这种实践和学习的思想用到未来各种知识的学习中去,也会继续学习数据库,继续完善系统,做出真正实用的完备的系统。
参考文献
1、《Delphi 技术手册》 Ray Liscbner著 中国电力出版社 2. 《Delphi 程序设计基础》-李文池-电子教案
3. 《Delphi7实用教程—入门及其提高》 张增强 著 中国铁道出版社
附件
unit Unit1;
interface
uses
Windows, Messages, SysUtils, 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;
Label3: 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;
implementation
uses Unit2, Unit4, Unit8, Unit9;
{$R *.dfm}
procedure 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
Form1.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);
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.Play;
end;
end.
unit Unit2;
interface
uses
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: 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: TObject);
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 declarations }
end;
var
Form2: TForm2;
implementation
uses Unit3, Unit1, Unit7, Unit8;
{$R *.dfm}
procedure 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_name,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.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.Clear;
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 TForm2.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);
begin
end;
end.
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, 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 Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
implementation
uses Unit2;
{$R *.dfm}
procedure TForm3.Button1Click(Sender: TObject);
var
sql:string;
begin
sql:='select t_no 教师编号,t_name 教师姓名,course_no 课程编号, course_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);
begin
end;
end.
unit Unit4;
interface
uses
Windows, Messages, SysUtils, Variants, 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 FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form4: TForm4;
implementation
uses Unit5, Unit1, Unit6, Unit8;
{$R *.dfm}
procedure TForm4.Button1Click(Sender: TObject);
begin
Form4.Hide;
Form5.Show;
end;
procedure TForm4.Button2Click(Sender: TObject);
begin
Form4.Hide;
Form6.Show;
end;
procedure TForm4.Button3Click(Sender: TObject);
begin
Form4.Close;
Form8.Show;
end;
procedure TForm4.FormCreate(Sender: TObject);
begin
end;
end.
unit Unit5;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, StdCtrls, DB, ADODB, 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: TADOQuery;
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 FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form5: TForm5;
implementation
uses Unit4;
{$R *.dfm}
procedure 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)
values('''+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);
end;
procedure TForm5.Button3Click(Sender: TObject);
begin
Form5.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;
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);
begin
end; end.
unit Unit6;
interface
uses
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: TLabel;
Label3: TLabel;
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);
procedure Button5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form6: TForm6;
implementation
uses Unit4;
{$R *.dfm}
procedure TForm6.Button1Click(Sender: TObject);
var
sql:string;
begin
sql:='select t_no 教师编号,t_name 教师姓名,course_no 课程编号, course_name 课程名称 from laoshi';
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+''')');
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;
Form4.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;
interface
uses
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: TLabel;
Label3: TLabel;
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);
procedure Button5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form6: TForm6;
implementation
uses Unit4;
{$R *.dfm}
procedure TForm6.Button1Click(Sender: TObject);
var
sql:string;
begin
sql:='select t_no 教师编号,t_name 教师姓名,course_no 课程编号, course_name 课程名称 from laoshi';
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+''')');
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;
Form4.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 Unit8;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, jpeg, ExtCtrls;
type
TForm8 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
procedure Image1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form8: TForm8;
implementation
{$R *.dfm}
procedure TForm8.Image1Click(Sender: TObject); begin
close;
end;
end.