Combobox и Items

@yuoras · Регистрация: 07.08.2013

Author24 — интернет-сервис помощи студентам

Казалось бы , тема разобрана по крошкам.
Суть така , пишу поисковик данных в таблице sql.
Никак не могу разобраться с Combobox.
Хочу что бы при клапании Combobox выпадал список данных одной колонки из таблицы (что бы не писать вручную).
Если вручную забить в Combobox данные через items и выбирать с этого списка , всё работает.

Как мне автоматом считывать данные с колонки и записывать их в items, а потом только выбрать с выпадающегося меню.

@droider · 01.01.2015, 18:33

yuoras, используйте компонент DBComboBox вместо обычного.

@xxbesoxx · 01.01.2015, 19:59

Сообщение от yuoras

Хочу что бы при клапании Combobox выпадал список данных одной колонки из таблицы

Ну что мешаеть написать так ?

Delphi

procedure TfrmMain.UserCombobox;
begin
   with DM.msqryUsers do
   begin
     Close;
     SQL.Clear;
     SQL.Add('select u_Login from users order by u_Login asc');
     Open;
   end;
    cbbUsers.Items.Clear;
    while not  DM.msqryUsers.Eof do
    begin
      cbbUsers.Items.Add(DM.msqryUsers.Fields[0].AsString);
      DM.msqryUsers.Next;
    end;
end;

Добавлено через 3 минуты

Сообщение от droider

используйте компонент DBComboBox вместо обычного.

Можно да. Но, Я не люблю применять пректе это " DBComboBox и DBEdit " всегда лучше написать на стандартного компонента все что хочешь. А то если чуть-чуть усложнит это задачу ! На пример
Т.З отбрпсивать-не отображать то данних который повторяетсия в таблице . DBComboBox это невозможно.
А на моего примере Я спаскойно магу написать

T-SQL

1 2	SELECT DISTINCT [Поля] FROM [табле_наме]

Разработчик всегда должен написать что то своего . и не привикать все это стандартное " DBComboBox и DBEdit "

@droider · 01.01.2015, 20:34

xxbesoxx, а разработчики Delphi от делать нечего придумали DBComboBox?

@xxbesoxx · 01.01.2015, 21:04

Сообщение от droider

делать нечего придумали DBComboBox?

Придумали .... Но, смотрите в начале заказчик просить что все данных можно было выбрать из ComboBox и на это случи можно применять DBComboBox
А когда одно и тоже запись повторяетсия в таблице, что потом делать на это DBComboBox?

@droider · 01.01.2015, 21:20

Перепутал DBLookupComboBox c DBComboBox, хотя изначально подразумевал именно его. Это сути не меняет.

Сообщение от xxbesoxx

Когда одно и тоже запись повторяетсия в таблице, что потом делать

1. В правильно спроектированной БД они повторяться не будут.
2. Можно использовать запрос типа

SQL

1	SELECT DISTINCT имя_поля FROM имя_таблицы;

и подключить DBLookupComboBox к запросу, тем самым, удалив из него повторяющиеся записи конкретного поля.

Сообщение от xxbesoxx

Разработчик всегда должен написать что то своего . и не привикать все это стандартное " DBComboBox и DBEdit

Это да. Только TComboBox не менее "стандартен", даже наоборот.

Опять же: отдельную категорию компонент для работы с БД не просто так выделили и сохраняют ее до сих пор.

@xxbesoxx · 01.01.2015, 21:38

Сообщение от droider

1. В правильно спроектированной БД они повторяться не будут.
2. Можно использовать запрос типа
Код SQL
1
SELECT DISTINCT имя_поля FROM имя_таблицы;
и подключить DBLookupComboBox к запросу, тем самым, удалив из него повторяющиеся записи конкретного поля.

1) Бывает, как вы правильно не проектировали что то повторяетсия (Такого бывает)
2) Запрос да , Я это тоже говорю . Но, подключить DBLookupComboBox к запросу заказчик не хочеть отбрасивать данных для просмотра , Он хочеть только при выборе DBLookupComboBox В таком случи зачем это ( DBLookupComboBox и DBComboBox ) ?
Магу спокоино выбрать еще одно ADOQuery и в цикле while заполнять стандартние ComboBox ... Можно и так тоже , Кому как удобно и зависить от (Тех. задачи) ....

@yuoras · 01.01.2015, 22:00 **[ТС]**

Delphi

procedure TfrmMain.UserCombobox;
begin
   with DM.msqryUsers do // это что такое? Тут должно быть adoquery1?
   begin
     Close;
     SQL.Clear;
     SQL.Add('select u_Login from users order by u_Login asc');
     Open;
   end;
    cbbUsers.Items.Clear;  // тут combobox ?
    while not  DM.msqryUsers.Eof do
    begin
      cbbUsers.Items.Add(DM.msqryUsers.Fields[0].AsString);
      DM.msqryUsers.Next;
    end;
end;

Не могу разобраться

@xxbesoxx · 01.01.2015, 22:22

Сообщение от yuoras

Не могу разобраться

Так понятно ?

Delphi

procedure TForm1.FormShow(Sender: TObject);
begin
  with ADOQuery do  
   begin
     Close;
     SQL.Clear;
     SQL.Add('select Имя_поля from Имя_таблица order by Имя_поля asc');
     Open;
   end;
    combobox.Items.Clear;   
    while not  ADOQuery.Eof do
    begin
      combobox.Items.Add(ADOQuery.Fields[0].AsString);
      ADOQuery.Next;
    end;
end;

Привикайте все компоненту назвать осмислене имя . Иначе, ваши проект будеть непонятно даже для вас

@yuoras · 01.01.2015, 22:22 **[ТС]**

Разобрался .Я только неделю Delphi учу.
Не ругайте строго
Всем по плюсу

@yuoras 1 / 1 / 0 Регистрация: 07.08.2013 Сообщений: 55
	01.01.2015, 22:22 [ТС]	10
	Разобрался .Я только неделю Delphi учу. Не ругайте строго Всем по плюсу 1

@yuoras 1 / 1 / 0 Регистрация: 07.08.2013 Сообщений: 55
		1
	MS SQL Combobox и Items 01.01.2015, 16:35. Показов 3554. Ответов 9 Метки нет (Все метки) Казалось бы , тема разобрана по крошкам. Суть така , пишу поисковик данных в таблице sql. Никак не могу разобраться с Combobox. Хочу что бы при клапании Combobox выпадал список данных одной колонки из таблицы (что бы не писать вручную). Если вручную забить в Combobox данные через items и выбирать с этого списка , всё работает. Как мне автоматом считывать данные с колонки и записывать их в items, а потом только выбрать с выпадающегося меню. 0

@droider 4912 / 2781 / 853 Регистрация: 04.10.2012 Сообщений: 10,121
	01.01.2015, 18:33	2
	yuoras, используйте компонент DBComboBox вместо обычного. 0

@droider 4912 / 2781 / 853 Регистрация: 04.10.2012 Сообщений: 10,121
	01.01.2015, 20:34	4
	xxbesoxx, а разработчики Delphi от делать нечего придумали DBComboBox? 0

@xxbesoxx 1134 / 615 / 129 Регистрация: 13.02.2009 Сообщений: 3,553
	01.01.2015, 21:04	5
	Сообщение от droider делать нечего придумали DBComboBox? Придумали .... Но, смотрите в начале заказчик просить что все данных можно было выбрать из ComboBox и на это случи можно применять DBComboBox А когда одно и тоже запись повторяетсия в таблице, что потом делать на это DBComboBox? Миниатюры 0

@xxbesoxx 1134 / 615 / 129 Регистрация: 13.02.2009 Сообщений: 3,553
	01.01.2015, 21:38	7
	Сообщение от droider 1. В правильно спроектированной БД они повторяться не будут. 2. Можно использовать запрос типа Код SQL 1 SELECT DISTINCT имя_поля FROM имя_таблицы; и подключить DBLookupComboBox к запросу, тем самым, удалив из него повторяющиеся записи конкретного поля. 1) Бывает, как вы правильно не проектировали что то повторяетсия (Такого бывает) 2) Запрос да , Я это тоже говорю . Но, подключить DBLookupComboBox к запросу заказчик не хочеть отбрасивать данных для просмотра , Он хочеть только при выборе DBLookupComboBox В таком случи зачем это ( DBLookupComboBox и DBComboBox ) ? Магу спокоино выбрать еще одно ADOQuery и в цикле while заполнять стандартние ComboBox ... Можно и так тоже , Кому как удобно и зависить от (Тех. задачи) .... 1

Combobox и Items

Решение