【文件属性】：
文件名称：Delphi 使用复合查询一次查询多个数据表.rar
文件大小：9KB
文件格式：RAR
更新时间：2022-07-30 12:44:02
Delphi源码-数据库实例
Delphi 复合查询数据库的例子，一次查询三个表，主要是这句SQL实现复合查询：select distinct 学生.姓名,班级.班级,班级.班主任,教师.年龄 as 教师年龄 from 学生,教师,班级 where 学生.班级=班级.班级 and 班级.班主任=教师.姓名，在很多Delphi数据库系统中，都有用到SQL复合查询的需求。下面是具体代码：
table1.DatabaseName:=dir1 '\data';
table2.DatabaseName:=table1.DatabaseName;
table3.DatabaseName:=table1.DatabaseName;
query1.DatabaseName:=table1.DatabaseName;
table1.TableName:='学生.db';
table2.TableName:='教师.db';
table3.TableName:='班级.db';
table1.Open;
table2.Open;
table3.Open;
except
showmessage('数据库读取错误！！');
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
with query1 do
begin
close;
sql.Clear;
sql.Add('select distinct 学生.姓名,班级.班级,班级.班主任,教师.年龄 as 教师年龄 from 学生,教师,班级 where 学生.班级=班级.班级 and 班级.班主任=教师.姓名');
open;
end;
end;
【文件预览】：
srcfans.com
----Delphi 复合查询实例()
--------Project1.res(876B)
--------data()
--------Unit1.dfm(4KB)
--------Unit1.ddp(51B)
--------Project1.cfg(434B)
--------Unit1.pas(2KB)
--------Project1.dpr(188B)
--------Project1.dof(2KB)
--------Unit1.dcu(6KB)