如题
按钮按下1的时候执行select * from a where a.[id] =:id; DBGrid显示a的内容
按钮按下2的时候执行select * from b where b.[id] =:id; DBGrid显示b的内容
最好有代码
按钮按下1的时候执行select * from a where a.[id] =:id; DBGrid显示a的内容
按钮按下2的时候执行select * from b where b.[id] =:id; DBGrid显示b的内容
最好有代码
我想知道,buttonClick事件下面的代码如何写,就是让DBGrid重新绑定一次
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;
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是绑定在一起的。
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;