Работа с компонентом 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;

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

Новые блоги и статьи Все статьи Все блоги /
Часы электронные Uhbif79 12.08.2026 Выкладываю программу часов. Программа позволяет: 1. Использовать системное время и дату, 2. Есть возможность вводить время и дату вручную. 3. Реализованы 2 будильника: начало и конец рабочего дня. . . .	Часы с будильником на основе класса QLCDNumber Uhbif79 12.08.2026 Всем добрый день, выкладываю программу часов с будильником на основе класса QLCDNumber. Здесь я пробовал самостоятельно создавал классы, впервые столкнулся с видимостью переменной одного класса из. . .	Установка MinGW GCC 16.2 и CMake 8Observer8 10.08.2026 VK Видео: https:/ / vkvideo. ru/ video-240781534_456239017 YouTube: eY5-5PyI9NM Текстовая версия	Неделя из жизни имитационной модели склада: мои кривые руки растут, откуда надо anaschu 10.08.2026 Неделя из жизни имитационной модели склада: как я почти написал неправильную логику и что с этим делать Работаю сейчас над учебно-рабочим проектом: строю в AnyLogic имитационную модель процессов. . .
Калькулятор для расчета родства russiannick 07.08.2026 1. Задача: Создать калькулятор для расчета родства. Родственных связей существует 8 ступеней, такие как: p - отец P - мать q - муж Q - жена b - брат B - сестра s - сын S - дочь	Мир по моей воле kumehtar 07.08.2026 Когда-то кажется, что всё просто. Ты весь такой светлый. Причиняешь добро. Борешься за справедливость в этом тёмном мире. Потом начинаешь замечать одну неприятную вещь. Почти каждый хороший. . .	Кредитный калькулятор Maks 05.08.2026 Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .	У нас сейчас поговорку "Опять 25" нужно переделать на "Опять +35". kumehtar 04.08.2026 С ностальгией вспоминаю времена моего детства, когда у нас и правда +25 - была максимальная температура летом. Раньше +25 °C реально казались вершиной жары, когда можно было весь день пропадать на. . .

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

	Работа с компонентом DBLookupComboBox 10.03.2010, 09:28. Показов 15567. Ответов 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