Question

怎么获得delphi中某一个dbgrid连接的DataSource的名字，然后和该DataSource连接的ADOQuery的名字

Answer 1

ADOQuery1.SQL.Text:='123254345';
showmessage(Tadoquery(DBGrid1.DataSource.DataSet).SQL.Text);

证明
DBGrid1.DataSource就是 dbgrid连接的DataSource
DBGrid1.DataSource.name 就是它的名字

DBGrid1.DataSource.DataSet就是和DataSource连接的ADOQuery
DBGrid1.DataSource.DataSet.Name就是 adoquery的名字

DBGrid1.DataSource.DataSet是 Tdataset 转换成Tadoquery用
Tadoquery(DBGrid1.DataSource.DataSet)

Answer 2

DBGrid1.DataSource.Name;  //获得datasource的名称
DBGrid1.DataSource.DataSet.Name; //获得datasource连接的dataset 的adoquery名称

Answer 3

dbGridt.DataSource.Name;
dbGridt.DataSource.DataSet.Name;