初始化Tcombobox下拉框的值

初始化Tcombobox

  //初始化cbbbusinesstype
  with TADOQuery.Create(nil) do
  begin
    try
      connection := TADOConnection(GDBConnection);
      SQL.Text := 'SELECT distinct tb.c_businname  FROM vaml_request tc, tbusinflag tb ' +#13#10
                + ' WHERE tc.c_businflag=tb.c_businflag '+#13#10
                + ' order by tb.c_businname ';
      cbbbusinesstype.Items.Clear;
      cbbbusinesstype.Items.Add('');
      Open;
      while not EOF do
      begin
        cbbbusinesstype.Items.Add(Fields[0].AsString);
        Next;
      end;
    finally
      Close;
      Free;
    end;
  end;