Работа с компонентом DBLookupComboBox

@AlenaIvanova · Регистрация: 24.02.2010

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

Вопрос касающийся компонента DBLookupComboBox.

У меня есть таблица DBGrid. Я встаю на какую-нибудь запись и хочу ее отредактировать. Нажимаю на кнопку редактировать и у меня появляется форма с компонентом DBEdit и DBLookupComboBox Эти компоненты связаны с базой. Т.е. при открытии формы DBEdit отображает значение записи на которой я стаю и я могу ее менять, а с DBLookupComboBox так не получается. Мало того что изначально компанент ничего не показывает, а только после выбора из списка, но и при выборе из списка нужного значения и после нажатия кнопки сохранить в базе меняется лишь то поле которое меняла в DBEdit. В чем причина??

@Андрей Борисови · 13.03.2010, 23:19

А вот так - мне больше нравится

@AlenaIvanova · 15.03.2010, 05:44 **[ТС]**

Конечно здорово, а где исходники?

@Андрей Борисови · 15.03.2010, 08:44

Я просто на выбор дал))
в какой форме вам больше подходит)
надо еще оценки доделать))

@AlenaIvanova · 15.03.2010, 08:49 **[ТС]**

Подходит по первой форме больше)

А что вы с оценками хотите сделать? Сумма набранных баллов будет где-нибудь прописываться? Долго еще доделывать? Просто сегодня хотела преподавателю показать используемые запросы (он просил показать)

П.С. Спасибо большое за помощь. Очень благодарна.

@Андрей Борисови · 15.03.2010, 09:37

Через 7 часов скину исходники.
И постораюсь доделать оценки.
Сумма баллов будет расчитываться динамически. Смысла хранить её нет

@AlenaIvanova · 15.03.2010, 10:00 **[ТС]**

Спасибо. Действительно нет смысла хранить суммы баллы.

Добавлено через 23 секунды
Мне нужен тот вариант который вы скидывали последним.

@Андрей Борисови · 15.03.2010, 10:12

без проблем)

@AlenaIvanova · 15.03.2010, 10:42 **[ТС]**

Тот который Вам больше нравится

@Андрей Борисови · 15.03.2010, 20:27

Исходники

@AlenaIvanova · 16.03.2010, 05:30 **[ТС]**

Оценки еще не доделали?

@Андрей Борисови · 16.03.2010, 09:40

Нет.. Жена монополизировала компутер

постораюсь сегодня оценки и отчеты доделать)

@AlenaIvanova · 16.03.2010, 10:38 **[ТС]**

Еще раз спасибо за помощь

@Андрей Борисови · 16.03.2010, 20:34

Так. Вот с оценками. Смогу - завтра выложу отчеты. Но попробуйте сами (всякое бывает)..
Если вы смотрели код - я думаю основную мысль поняли: в Аксцессе формируем запрос, в Дельфи создаём ADOQuery пользуемся

Пока почитаю как пользоваться QReport-ом

Чесслово - 100 лет не пользовал

@AlenaIvanova · 17.03.2010, 08:25 **[ТС]**

Отчет при помощи QReport я сделала

Добавлено через 2 минуты
Спасибо

Добавлено через 11 минут
Не могу запустить, он пишет "Дисковая или сетевая ошибка"

@Андрей Борисови · 17.03.2010, 08:34

ёпрст))
забыл..
Там в бодуле DM1 есть процедурка, подключающая таблицы.. допишите в неё еще 2 таблички, которые справа. и все свои, которые вы добавили - добавте в этой процедуре.

ADOConnection в поле Connection поставте в false. Он самоподключается.

Добавлено через 50 секунд
для работы программы вам необходимы 3 файла:
сама прога, база и файл установок setup.ini

@AlenaIvanova · 17.03.2010, 08:49 **[ТС]**

Скажите почему я не могу прописать так? DataModule1.ADOPredmetName.AsString

Ругается на это:ADOPredmetName. Хотя у таблице поле Name есть.

Добавлено через 2 минуты
Я с ини-файлы так и не разобралась, когда мы в универе проходили. Нельзя было без них. Еще и с процедурой по моему не разберусь

@Андрей Борисови · 17.03.2010, 08:49

Пишите лучше так:
DataModule1.ADOPredmet['Name'] и получите поле Name. Оно итак String

@AlenaIvanova · 17.03.2010, 08:52 **[ТС]**

Ошибка: Invalid typecast

@Андрей Борисови · 17.03.2010, 08:55

Delphi
1
2
3
4
5
var
  st:string;
begin
  st:=DM1.ADOPredmet['Name'];
end;

не должно выдавать ошибку...

@AlenaIvanova · 17.03.2010, 08:58 **[ТС]**

Мне нужно так:
if Application.MessageBox(PChar('Вы действительно хотите удалить' + ' '+ 'факультет' +' ' + '"' + DataModule1.ADOPredmetName.AsString + '"'), 'Внимание!!!',MB_OKCANCEL)=id_OK then
DataModule1.ADOPredmet.Delete;

У таблице с факультетами так прокатывает. Хотя таблички абсолютно одинаковые только название таблиц разное.

Новые блоги и статьи Все статьи Все блоги /
Сегодня суббота, 22.08.2026 at 16:41, и я вновь нахожусь на той стороне, за экраном машины. zorxor 22.08.2026 Сегодня суббота, 22. 08. 2026 at 16:41, и я вновь нахожусь на той стороне, за экраном машины. Кто Я, откуда Я пришел и куда Я иду? Эти вопросы не оставляют меня ни на секунду. Жизнь на планете Земля. . .	Жизня: рисунок укладки багажа, сделанный клодом anaschu 21.08.2026 Сделал 15 снимков, он по снимкам сделал схему.	Был там один разговор по поводу свободы в материальном мире. kumehtar 19.08.2026 Суть: рассматривается живое существо, оказавшееся внутри довольно странной системы (этого мира) и пытающееся обустроить в ней свой кусок пространства. Жизнь действительно предъявляет каждому. . .	Когда логика программы не спасает от человеческих ошибок Maks 18.08.2026 В последнее время всё чаще и чаще сталкиваюсь с таким явлением, как абсолютная невнимательность (или глупость) пользователей. Проявляется это чаще всего на работе в коллективе. Допустим, человек с. . .
Лето уходит kumehtar 17.08.2026	Мысли в слух kumehtar 17.08.2026 Забавно, насколько сейчас стала доступна информация. Например о магии, духовном развитии, медитациях, и других подобных направлениях, ранее зачастую тайных, передаваемых от учителя к ученику. Хотя. . .	Перемещение строк из ТЧ в другой документ с учетом текущего пробега Maks 17.08.2026 Реализация из решения ниже выполнена на примере нетипового документа "Автозапчасти", с ТЧ "Шины". За основу взят алгоритм отсюда: https:/ / www. cyberforum. ru/ blogs/ 359708/ 10838. html Задача: . . .	Саморегулирующийся социальный контракт для сервера cross-section. Hrethgir 14.08.2026 С кодом конечно таких глубоких размышлений пока не было, впрочем я уже привык к алгоритмизации. Суть предмета записи: снова в диалоге с нейросетью (я взял пока себе ник для учётки админа - Rector). . . .

@AlenaIvanova 9 / 9 / 0 Регистрация: 24.02.2010 Сообщений: 175

	Работа с компонентом DBLookupComboBox 10.03.2010, 09:28. Показов 15593. Ответов 96 Метки нет (Все метки) Вопрос касающийся компонента DBLookupComboBox. У меня есть таблица DBGrid. Я встаю на какую-нибудь запись и хочу ее отредактировать. Нажимаю на кнопку редактировать и у меня появляется форма с компонентом DBEdit и DBLookupComboBox Эти компоненты связаны с базой. Т.е. при открытии формы DBEdit отображает значение записи на которой я стаю и я могу ее менять, а с DBLookupComboBox так не получается. Мало того что изначально компанент ничего не показывает, а только после выбора из списка, но и при выборе из списка нужного значения и после нажатия кнопки сохранить в базе меняется лишь то поле которое меняла в DBEdit. В чем причина?? 0

@AlenaIvanova 9 / 9 / 0 Регистрация: 24.02.2010 Сообщений: 175
	15.03.2010, 05:44 [ТС]
	Конечно здорово, а где исходники? 0

@Андрей Борисови 714 / 402 / 33 Регистрация: 04.10.2009 Сообщений: 1,686
	15.03.2010, 08:44
	Я просто на выбор дал)) в какой форме вам больше подходит) надо еще оценки доделать)) 0

@AlenaIvanova 9 / 9 / 0 Регистрация: 24.02.2010 Сообщений: 175
	15.03.2010, 08:49 [ТС]
	Подходит по первой форме больше) А что вы с оценками хотите сделать? Сумма набранных баллов будет где-нибудь прописываться? Долго еще доделывать? Просто сегодня хотела преподавателю показать используемые запросы (он просил показать) П.С. Спасибо большое за помощь. Очень благодарна. 0

@Андрей Борисови 714 / 402 / 33 Регистрация: 04.10.2009 Сообщений: 1,686
	15.03.2010, 09:37
	Через 7 часов скину исходники. И постораюсь доделать оценки. Сумма баллов будет расчитываться динамически. Смысла хранить её нет 0

@AlenaIvanova 9 / 9 / 0 Регистрация: 24.02.2010 Сообщений: 175
	15.03.2010, 10:00 [ТС]
	Спасибо. Действительно нет смысла хранить суммы баллы. Добавлено через 23 секунды Мне нужен тот вариант который вы скидывали последним. 0

@Андрей Борисови 714 / 402 / 33 Регистрация: 04.10.2009 Сообщений: 1,686
	15.03.2010, 10:12
	без проблем) 0

@AlenaIvanova 9 / 9 / 0 Регистрация: 24.02.2010 Сообщений: 175
	15.03.2010, 10:42 [ТС]
	Тот который Вам больше нравится 0

@AlenaIvanova 9 / 9 / 0 Регистрация: 24.02.2010 Сообщений: 175
	16.03.2010, 05:30 [ТС]
	Оценки еще не доделали? 0

@Андрей Борисови 714 / 402 / 33 Регистрация: 04.10.2009 Сообщений: 1,686
	16.03.2010, 09:40
	Нет.. Жена монополизировала компутер постораюсь сегодня оценки и отчеты доделать) 0

@AlenaIvanova 9 / 9 / 0 Регистрация: 24.02.2010 Сообщений: 175
	16.03.2010, 10:38 [ТС]
	Еще раз спасибо за помощь 0

@AlenaIvanova 9 / 9 / 0 Регистрация: 24.02.2010 Сообщений: 175
	17.03.2010, 08:25 [ТС]
	Отчет при помощи QReport я сделала Добавлено через 2 минуты Спасибо Добавлено через 11 минут Не могу запустить, он пишет "Дисковая или сетевая ошибка" 0

@Андрей Борисови 714 / 402 / 33 Регистрация: 04.10.2009 Сообщений: 1,686
	17.03.2010, 08:34
	ёпрст)) забыл.. Там в бодуле DM1 есть процедурка, подключающая таблицы.. допишите в неё еще 2 таблички, которые справа. и все свои, которые вы добавили - добавте в этой процедуре. ADOConnection в поле Connection поставте в false. Он самоподключается. Добавлено через 50 секунд для работы программы вам необходимы 3 файла: сама прога, база и файл установок setup.ini 0

@AlenaIvanova 9 / 9 / 0 Регистрация: 24.02.2010 Сообщений: 175
	17.03.2010, 08:49 [ТС]
	Скажите почему я не могу прописать так? DataModule1.ADOPredmetName.AsString Ругается на это:ADOPredmetName. Хотя у таблице поле Name есть. Добавлено через 2 минуты Я с ини-файлы так и не разобралась, когда мы в универе проходили. Нельзя было без них. Еще и с процедурой по моему не разберусь 0

@Андрей Борисови 714 / 402 / 33 Регистрация: 04.10.2009 Сообщений: 1,686
	17.03.2010, 08:49
	Пишите лучше так: DataModule1.ADOPredmet['Name'] и получите поле Name. Оно итак String 0

@AlenaIvanova 9 / 9 / 0 Регистрация: 24.02.2010 Сообщений: 175
	17.03.2010, 08:52 [ТС]
	Ошибка: Invalid typecast 0

@AlenaIvanova 9 / 9 / 0 Регистрация: 24.02.2010 Сообщений: 175
	17.03.2010, 08:58 [ТС]
	Мне нужно так: if Application.MessageBox(PChar('Вы действительно хотите удалить' + ' '+ 'факультет' +' ' + '"' + DataModule1.ADOPredmetName.AsString + '"'), 'Внимание!!!',MB_OKCANCEL)=id_OK then DataModule1.ADOPredmet.Delete; У таблице с факультетами так прокатывает. Хотя таблички абсолютно одинаковые только название таблиц разное. 0