delphi COMBOBOX里显示DBGRID列名

COMBOBOX里显示DBGRID列名。
{ DBGRID1里有三个列名（编号，名称，备注）
查询语句：
select * from tb where combobox1.text = edit1.text
DBGRID所有列名都作为了查询条件了。
}[@more@]

procedure TForm1.ComboBox1DropDown(Sender: TObject);
var
i:integer;
begin
combobox1.Clear;
//for i:=0 to 2 do //这里的2 最好用获取DBGRID列数。
for i:=0 to adoquery1.FieldCount-1 do
begin
combobox1.Items.Add(dbgrid1.Columns[i].Title.caption ) ;
end;
end;

{COMBOBOX显示数据表的列名。
TB表 有TNO,TNAME,TMEMO三个列名。
注：TB表列名添加 到adoquery1.Fields 里 。
}
procedure TForm1.ComboBox2DropDown(Sender: TObject);
var
ii:integer;
begin
combobox2.clear;
for ii:=0 to adoquery1.FieldCount-1 do
begin
combobox2.Items.Add(adoquery1.Fields[ii].FieldName );
// combobox2.Items.add( adoquery1.Fields[ii].DisplayLabel ); //将列名命名为中文。
end;
end;（完）

查询语句：
select * from tb where combobox2.text = edit1.text
数据表所有列名都作为了查询条件了。
数据表列名一般用英文书写。给用户使用英文列名，可能带来很滑稽问题。因此COMBOBOX里还是要显示中文。

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/729024/viewspace-1022051/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/729024/viewspace-1022051/