Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Обработка исключений [D6, Paradox]


Ann123 ©   (2006-08-27 13:28:00) 

Как обработать следующее исключение:
В модальной форме несколько компонентов DBEdit и кнопка.
Нужно если хотя бы один компонент не заполнен то выводилось сообщение о необходимости заполнить этот компонент, если ве компоненты заполнены, то эти данные заносятся в таблицу.


Loginov Dmitry   (2006-08-29 18:21:00) [1]

> valery ©   (28.08.06 20:55) [3]

procedure TDM.RefBeforePost(DataSet: TDataSet);
begin
if DataSet.Fields[1].AsString='' then Abort;
end;


Anatoly Podgoretsky   (2006-08-29 15:42:00) [2]

valery ©   (28.08.06 20:55) [3]
К нам не надо, никому не запрещено задать свой вопрос, не стоит портить чужую ветку.


valery   (2006-08-29 15:35:00) [3]


> Мефисто   (28.08.06 21:31) [4]
>
> Говорит что таблица не находится в режиме редактирования
> или вставки новой записи.

Это я понимаю.
Но я так думаю что Грид сам переводит таблицу в нужный режим.
И при вставке все отменяется нормально.


Мефисто   (2006-08-28 22:06:00) [4]


> Fay ©   (28.08.06 21:42) [5]


Да, пожалуй :( Знаю слово, назвать не смог. Чукча (с).


Fay   (2006-08-28 21:42:00) [5]

2 Мефисто   (28.08.06 21:31) [4]
> Следовательно перед Post (вставкой запси), таблицу
> нужно перевести в режим редактирования
Это, пожалуй, самое любопытное предположение за сегодня.


Мефисто   (2006-08-28 21:31:00) [6]


> valery ©   (28.08.06 20:55) [3]


Говорит что таблица не находится в режиме редактирования или вставки новой записи. Следовательно перед Post (вставкой запси), таблицу нужно перевести в режим редактирования. Скорее всего что-то типа: Table.Edit;


valery   (2006-08-28 20:55:00) [7]

Можно я к вам?:)
Помогите плиз!
Есть таблица с обязательным полем. Редактируется в гриде.
Есть процедура:

procedure TDM.RefBeforePost(DataSet: TDataSet);
begin
 if DataSet.Fields[1].AsString='' then DataSet.Cancel;
end;

При добавлении записи работает. При редактировании ругается:
"Not in Edit Mode"
Что делать?


Мефисто   (2006-08-27 14:09:00) [8]


> Ann123   (27.08.06 13:28) 


В конструкторе таблиц указать, что поля обязательно для заполнения и не должно быть пустым. При попытке ввести пустое значение - приложение само обругает.


Anatoly Podgoretsky   (2006-08-27 14:02:00) [9]

Вопрос не четкий, если хочешь возбудить исключение, то вызови raise


Наверх

Титульная страница Поиск, карта сайта Написать письмо