-
Delphi 使用复合查询一次查询多个数据表.rar下载
资源介绍
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;