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