ITPub博客

首页 > Linux操作系统 > Linux操作系统 > delphi COMBOBOX里显示DBGRID列名

delphi COMBOBOX里显示DBGRID列名

原创 Linux操作系统 作者:zaorv 时间:2019-07-08 20:24:04 0 删除 编辑
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/,如需转载,请注明出处,否则将追究法律责任。

下一篇: MSSQL 社会保险
请登录后发表评论 登录
全部评论

注册时间:2018-09-12

  • 博文量
    192
  • 访问量
    145153