Форум программистов, компьютерный форум, киберфорум
Delphi: Базы данных
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.67/9: Рейтинг темы: голосов - 9, средняя оценка - 4.67
Romariok24
1

Выпадающий список

06.10.2014, 11:29. Показов 1832. Ответов 4
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Как сделать, чтобы при выборе пункта в выпадающем списке, открывалась соответствующая таблица?
Например, выбираю марку Samsung и открывается таблица с Самсунгами.
Помогите пожалуйста
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.10.2014, 11:29
Ответы с готовыми решениями:

Выпадающий список
Кто может подсказать как записать в коде выпадающего списка, а точнее как згинерировать выпадающий...

Выпадающий список
Как сделать что бы при нажатии на кнопке "посмотреть список продуктов" можно было выбрать с...

Выпадающий список
Добрый день! Помогите пожалуйста с программой. Задача такая: Есть список фабрик, у каждой фабрики...

выпадающий список
Всем привет. Нужно сделать выпадающий список(не комбо бокс). Вот как я себе его представляю. Тема...

4
670 / 560 / 242
Регистрация: 26.11.2012
Сообщений: 2,191
06.10.2014, 12:04 2
Создается отдельная форма. На форме распологаются необходимые компонетны для отображения и подключения к БД. В модуле главной формы создается глобальная переменная для передачи названия таблицы.
По средствам этой переменной название требуемой таблицы помещается в запрос сформированный на форме.
Останется вызвать форму и все.
Код Формы1
Delphi
1
2
3
4
5
6
7
8
9
10
11
Var MyForm: TForm2;
     MyTable: string;
 
implementation
 
procedure TForm1.N11Click(Sender: TObject);
Begin
MyTable:='Sumsung';
MyForm:=TForm2.Create(Form1);
MyForm.ShowModal;
end;
Код Формы2
Delphi
1
2
3
4
5
6
7
procedure TForm2.FormCreate(Sender: TObject);
Begin
ADOQuery.Close;
ADOQuery.SQL.Clear;
ADOQuery.SQL.Add('SELECT * FROM ' + MyTable);
ADOQuery.Open;
end;
0
2 / 2 / 1
Регистрация: 23.04.2012
Сообщений: 115
08.10.2014, 17:06 3
Воу воу Зачем так всё усложнять? Самсунг это всего лишь торговая марка, если у вас товары раскиданы по маркам в отдельной таблице, это абсолютно не правильный подход к архитектуре проекта. А если у нас появится марка SamsungNew вы будите создавать ещё одну таблицу?
Все товары нужно хранить в одно таблице, одним из полей это таблице будет ссылка на фирму производителя самсунг или асус или ещё чего-то там...
А дальше вы делаете фильтрацию данных таблицы по значению
Delphi
1
2
table.Filter:='fieldFirmaName = Combobox1.text';
table.filtered:=true;
Отфильтруются товары выбраной фирмы
0
670 / 560 / 242
Регистрация: 26.11.2012
Сообщений: 2,191
09.10.2014, 05:24 4
Доцент, читаем условие ТС
Цитата Сообщение от Romariok24 Посмотреть сообщение
открывалась соответствующая таблица
И если предлогаешь, то нормальное, а не фигню....
Для создания многопользовательской системы использование компонент типо Table категорически не рекомендуется. Читай, что такое транзакция, уровень изоляции и думай.
0
2 / 2 / 1
Регистрация: 23.04.2012
Сообщений: 115
09.10.2014, 10:21 5
Можно и на тейблах, но это совсем не лучший вариант.
Какую базу используете? Давайте, скрин и код тоже бы не помешал, сложно додумывать вашу реализацию по 3 предложениям
0
09.10.2014, 10:21
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.10.2014, 10:21
Помогаю со студенческими работами здесь

Выпадающий список
какой компонент можно подключить, чтобы был раскрывающий список типа combobox? чтобы этот компонент...

Выпадающий список
Доброго дня. Есть таблица в БД- Table Equip| Date | Author |Comment A |02.02.2016 |...

Выпадающий список в GridEh
Подскажите, наверняка можно в GridEh сделать так что бы была колонка с выпадающем списком в виде...

DBGridEh и выпадающий список
Создаю выпадающий список в DBGridEh. Поле с выпадающем списком находится в ADOTable1, а данные для...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru