|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#16
|
||||
|
||||
Ну плин вы даете!
Судя по прошлым постам у вас на форме есть компонент ADOQuery1. У него есть в свою очередь перечень полей. У каждого поля есть событие OnGetText Вот в этом событии вам и надо добавить строчку: Код:
Text := Sender.AsString; ПС: Если у вас текст запроса для Query1 постоянно меняется и набор полей соответственно тоже меняется, то событие на нужное поле вам уже придется делать динамически. Если же набор полей неизменен, то можно в Query1 прямо в дизайнере написать запрос с перечнем этих полей, тем самым заставив его создать нужные вам поля с событиями. Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. Последний раз редактировалось Страдалецъ, 13.06.2015 в 14:30. |
#17
|
|||
|
|||
Цитата:
|
#18
|
|||
|
|||
Цитата:
|
#19
|
||||
|
||||
Тяжело в деревне без нагана.
Ладно пойдем другим путем. В запросе который вы формируете: Код:
Select [Название], [Цена], [Количество] FROM ... Если это так, то вставьте в свойство AdoQuery1.SQL текст запроса: Код:
Select [Название], [Цена], [Количество] FROM Table1 Цель этой операции получить список полей для AdoQuery1. Их можно увидеть вызвав свойства для иконки AdoQuery1 в разделе Fields editor... Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#20
|
|||
|
|||
Цитата:
|
#21
|
||||
|
||||
Да и бог с ним с именем таблицы. Главное, что имена полей одинаковы и следовательно событие OnGetText для полей тоже будет одинаково, независимо от источника.
Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#22
|
|||
|
|||
Цитата:
|
#23
|
||||
|
||||
Вот вам демка. Думаю этого хватит для понимания.
Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
Этот пользователь сказал Спасибо Страдалецъ за это полезное сообщение: | ||
Вовайн (13.06.2015)
|
#24
|
|||
|
|||
Цитата:
|
#25
|
||||
|
||||
Это еще что за приколы? У меня все нормально собирается и работает.
Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#26
|
|||
|
|||
Цитата:
|
#27
|
||||
|
||||
У вас Delphi7 я так понял? Я это собирал на D2010. Ну не ставить же семерку для этой ерунды. Есть у кого D7? Посмотрите, что там не так срабатывает.
Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#28
|
||||
|
||||
О! У меня же машинка виртуальная есть с установленой дельфой7. Ща глянем.
Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#29
|
||||
|
||||
Вы бы поставили чего поновее, проблем было бы меньше. jmp $ ; Happy End! The Cake Is A Lie. |
#30
|
||||
|
||||
Тэкс, понятно. Не знает D7 еще ничего о WideString. Не беда. Держите для D7 вариант.
Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
Этот пользователь сказал Спасибо Страдалецъ за это полезное сообщение: | ||
Вовайн (14.06.2015)
|