如何在1个DBGrid中显示2个表的数据，有2个按钮，分别按下是显示的是不同的表中的内容

Question

如题
按钮按下1的时候执行select * from a where a.[id] =:id; DBGrid显示a的内容 
按钮按下2的时候执行select * from b where b.[id] =:id; DBGrid显示b的内容
最好有代码

Answer 1

你在Button控件的Keydown事件里写就是了:

Answer 2

button按下事件我知道
我想知道，buttonClick事件下面的代码如何写，就是让DBGrid重新绑定一次

Answer 3

其他的联接正常，按钮click事件代码如下：procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  Query1.Close();
  Query1.SQL.Text := 'select * from a where a.[id] =:id';
  Query1.ParamByName('id').AsString := '1234';
  Query1.Open();
end;procedure TForm1.BitBtn2Click(Sender: TObject);
begin
  Query1.Close();
  Query1.SQL.Text := 'select * from b where b.[id] =:id';
  Query1.ParamByName('id').AsString := '1234';  
  Query1.Open();
end;

Answer 4

直接用一个ADO查询不就解决了吗?!1、在Button1的单击事件中：
   ADOQuery.Active:= false;
   ADOQuery.SQL.Clear;
   ADOQuery.SQL.Add('select * from a where a.[id] =:id');
   ADOQuery.Parameters.ParamByName('id').Value:= ????????? 
   ADOQuery.Prepared:= true;
   ADOQuery.Active:= true;
2、在Button1的单击事件中：
   ADOQuery.Active:= false;
   ADOQuery.SQL.Clear;
   ADOQuery.SQL.Add('select * from b where b.[id] =:id');
   ADOQuery.Parameters.ParamByName('id').Value:= ????????? 
   ADOQuery.Prepared:= true;
   ADOQuery.Active:= true;
--------------------------------------------------------------------
前提是，ADOQuery与DBGrid是绑定在一起的。

Answer 5

procedure TForm1.Button1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=49 then     //如果是按'1'
begin
 adoquery1.active:=false;
 adoquery1.sql.text:='select * from a where a.[id] =:id' ;
 adoquery1.parameters.ParamByName('ID').Value:=123;
 adoquery1.active:=true;
end
if key=50 then     //如果是按'2'
begin
 adoquery1.active:=false;
 adoquery1.sql.text:='select * from b where b.[id] =:id' ;
 adoquery1.parameters.ParamByName('ID').Value:=123;
 adoquery1.active:=true;
end
end;

Answer 6

也可以用两个Query 和对应的两个DataSource，然后切换DataSource就是了。这样，如果你的查询很慢的话，不用每次切换都要重新发起查询。

Answer 7

我也和上面的朋友的想法是一直的。我以前用过DELPHI，对VC不是很熟，但是DELPHI是可以这么实现的。