Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как запретить вызов метода Post, В зависимости от результа проверки ввода 
V
    Опции темы
m6a6g6
Дата 10.10.2009, 10:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 28
Регистрация: 13.8.2009
Где: Волгоград

Репутация: нет
Всего: нет
Всем доброго дня.
Создаю приложение для работы с БД. Использую ADO.
На форме расположены следующие компоненты: dbEdit1, dbComboBox1 и dbNavigator1.
Задача: необходимо проводить проверку ввода всех полей в БД и не допускать чтобы они были пустыми.

Я решил это сделать так: в событии BeforePost набора данных делать проверку заполнения полей компонентов ввода, если они не заполнены выводить соответствующее сообщение. Но пока я не пойму как не допустить вызов Post. Ведь сообщение появляется, а Post вызывается в любом случае, как прервать "цепь событий"?
PM MAIL WWW ICQ Jabber   Вверх
Akella
Дата 10.10.2009, 12:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 29
Всего: 329
В BeforePost
Код

if условие = false then
  abort;
PM MAIL   Вверх
m6a6g6
Дата 10.10.2009, 12:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 28
Регистрация: 13.8.2009
Где: Волгоград

Репутация: нет
Всего: нет
Akella, спасибо. 
PM MAIL WWW ICQ Jabber   Вверх
m6a6g6
Дата 10.10.2009, 12:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 28
Регистрация: 13.8.2009
Где: Волгоград

Репутация: нет
Всего: нет
Еще один вопрос появился. А как проверить выбрал ли пользователь что-то в dbComboBox? С проверкой ItemIndex не получается.
Проверку для dbEdit я сделал, так:
Код

if dbEdit1.Field.text='' then 
PM MAIL WWW ICQ Jabber   Вверх
Данкинг
Дата 10.10.2009, 13:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 35
Всего: 130
Цитата(m6a6g6 @  10.10.2009,  13:57 Найти цитируемый пост)
С проверкой ItemIndex не получается.

Почему? Если ItemIndex=-1, то ничего и не выбрано.


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
m6a6g6
Дата 10.10.2009, 14:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 28
Регистрация: 13.8.2009
Где: Волгоград

Репутация: нет
Всего: нет
Цитата(Данкинг @ 10.10.2009,  13:23)
Почему? Если ItemIndex=-1, то ничего и не выбрано.

Да работает, я просто немного запутался.
Вот получившийся код:
Код

if (dbEdit1.Field.Text='') or (dbComboBox1.ItemIndex=-1) then //Что-то делаем
PM MAIL WWW ICQ Jabber   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Базы данных и репортинг"
Vit
Петрович

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


Обязательно указание:

1. Базы данных (Paradox, Oracle и т.п.)

2. Способа доступа (ADO, BDE и т.д.)


  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • Вопросы по SQL и вопросы по базам данных не связанные с Дельфи задавать здесь

FAQ раздела лежит здесь!

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Vit, Петрович.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Базы данных и репортинг | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0953 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.