1.添加items

a.数据库添加（用在查询）。

  str_sql := 'select flmc from zd_flzd order by fl ';
  with qry_show do
  begin
    Close;
    SQL.Clear;
    SQL.Add(str_sql);
    Open;
  end;

  qry_show.First;
  while not qry_show.Eof do
  begin
    cbb_fl.Items.Add(qry_show.fieldbyname('flmc').AsString);
    qry_show.Next;
  end;

b.items选项中自己添加。（用在排序）

2.设置onchange()

    deal_with_dbgrid;
    dxbrbtn36.Enabled := True;
    dxbrbtn37.Enabled := True;
    dxbrbtn38.Enabled := True;

 

本文转自鹅倌51CTO博客，原文链接： http://blog.51cto.com/kaixinbuliao/956020，如需转载请自行联系原作者