如何让多个DBGRID使用同一个ADOQUERY.同一个DBNAVIGATE和同一个DATASOURCE

Question

我现在正在制作一个学生管理系统,由于希望提高系统可移植性,所以请各们高手帮忙

Answer 1

procedure btnTest(Sender: Object);
begin
  DBGrid1.DataSource := DataSource1;
  DataSource1.DataSet := ADOQuery1;
  With ADOQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('Select * From table1 ');
    Open;
  end;  DBGrid2.DataSource := DataSource1;
  DataSource1.DataSet := ADOQuery1;
  With ADOQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('Select * From table2 ');
    Open;
  end;
end;

Answer 2

当然，可以把ADOQuery1放在DataModule中

Answer 3

那不一样吗？把ADO的数据库连接组件放在一个DataModule中 然后在你调用的地方包含DataModule的头文件就可以了