Combobox使用总结

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;

转载于:https://blog.51cto.com/kaixinbuliao/956020