求在Access数据库中已SQL语句实现如下目的查询找小型企业财务软件

记账软件版1楼: A B
1 张
1 三
2 李
2 四

结果
A B
1 张三
2 李四

注意：是Access数据库！！！

2楼: 全部查出来, 用程序合并吧. 如永久免费的记账软件

3楼: 如果记录不多的话，就分开来一个一个利用临时表或者定义变量合并

4楼: unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, DB, ADODB;

type
TForm1 = class(TForm)
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
ADOQuery2: TADOQuery;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
ADOQuery3: TADOQuery;
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
type
xofarray=array[0..1] of string;
procedure TForm1.BitBtn1Click(Sender: TObject);
var
i,j:integer;
x,y:xofarray;

begin
ADOQuery1.Connection:=ADOConnection1;
ADOQuery2.Connection:=ADOConnection1;
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add(＇＇select * from tab00 where A=1＇＇);
ADOQuery1.Open;
for i:=0 to 1 do
begin
x[i]:=ADOQuery1.Fields[1].AsString;
ADOQuery1.Next;
end;
ADOQuery2.Close;
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Add(＇＇select * from tan00 where A=2＇＇);
ADOQuery2.Open;
for j:=0 to 1 do
begin
y[j]:=ADOQuery2.Fields[1].AsString;
ADOQuery2.Next;
end;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
var
i:integer;
n:xofarray;

begin
ADOQuery3.Connection:=ADOConnection1;//加上这个
ADOQuery3.Close;
ADOQuery3.SQL.Clear;
ADOQuery3.SQL.Add(＇＇select * from tab01);
ADOQuery3.Open;
for i:=0 to 1 do
begin
ADOQuery3.Append;
ADOQuery3.Fields[0].AsString:=i+1;
ADOQuery3.Fields[1].AsString:=x[i]+y[i];
ADOQuery3.Next;
end;
end;

end.
=======================
这只是一个思路；你试试！