delphi实验7报告册

实验七
实验题目：使用TQuery组件进行简单查询设计
实验目的：学会使用TQuery组件进行简单查询设计，为后面的动态查询打下基础实验类型：验证性
实验内容：TQuery组件查询属性SQL设计，手动查询设计，程序方式查询设计，SQL多表查询设计。

一．通过TQuery组件从“教学”数据库中查询出教师编号为“01001”教师的授课情况。

要求在设计时执行SQL-SELECT语句来实现查询。

相关代码为：
select * from 教学表
where 教学表.教师编号="01001"
二．实现步骤如下。

（1）新建一个项目，在窗体上增加一个TQuery组件。

（Query1）
(2 ) 设置TQuery组件的databasename属性。

（3）选中Query1组件的SQL组件的SQL属性，单击“…”按扭，在窗口中输入要完成所需功能的SQL语句。

（4）在窗口中添加一个TDataSource组件，设置它的Dataset属性值为Query1。

再在窗口中添加一个TDBGrid组件，设置相关属性。

（5）选中Query1组件，把它的Active属性设置为True。

结果如图所示：
二．通过TQuery组件从数据库中查询每个学生的学生姓名和平均成绩，并按平均成绩的降序排列。

要求通过程序代码执行SQL语句实现该查询。

该程序的设计界面如图所示：运行时单击“执行查询”将查询的执行结果显示在DBGrid1组件中。

并设置所有组件的重要属性。

运行结果如图：
程序代码如下：
procedure TForm1.Button1Click(Sender: TObject);
Begin
with query1 do
begin
close;
sql.Clear;
sql.Add('select 学生表.姓名,A VG(成绩表.成绩)AS 平均成绩');
sql.Add('from 学生表,成绩表where 学生表.学号=成绩表.学号');
sql.Add('group by 学生表.姓名order by 2');
open;
end;
end;
三．使用TQuery组件执行insert, delete, update 语句来实现增加记录，删除记录和修改记录的功能。

设计一个应用程序，程序界面如图所示，实现增加，删除，修改记录的功能。

程序代码如下：
procedure TForm1.Button1Click(Sender: TObject);
begin
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('insert into 学生表(学号,姓名,性别,年龄,班级) values("0301011","
李小花","女","21","O3信息管理")');
query1.ExecSQL;
button2.Enabled:=true;
button1.Enabled:=false;
table1.Refresh;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('delete from 学生表where 姓名="李华"');
query1.ExecSQL;
button3.Enabled:=true;
button2.Enabled:=false;
table1.Refresh;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('update 学生表SET 年龄=年龄+1 where 性别="男"');
query1.ExecSQL;
button3.Enabled:=false;
table1.Refresh; End
实验总结：。