Текущий архив: 2006.09.17;
Скачать: CL | DM;
Вниз
Обработка исключений Найти похожие ветки
← →
Ann123 (2006-08-27 13:28) [0]Как обработать следующее исключение:
В модальной форме несколько компонентов DBEdit и кнопка.
Нужно если хотя бы один компонент не заполнен то выводилось сообщение о необходимости заполнить этот компонент, если ве компоненты заполнены, то эти данные заносятся в таблицу.
← →
Anatoly Podgoretsky © (2006-08-27 14:02) [1]Вопрос не четкий, если хочешь возбудить исключение, то вызови raise
← →
Мефисто (2006-08-27 14:09) [2]
> Ann123 (27.08.06 13:28)
В конструкторе таблиц указать, что поля обязательно для заполнения и не должно быть пустым. При попытке ввести пустое значение - приложение само обругает.
← →
valery © (2006-08-28 20:55) [3]Можно я к вам?:)
Помогите плиз!
Есть таблица с обязательным полем. Редактируется в гриде.
Есть процедура:
procedure TDM.RefBeforePost(DataSet: TDataSet);
begin
if DataSet.Fields[1].AsString="" then DataSet.Cancel;
end;
При добавлении записи работает. При редактировании ругается:
"Not in Edit Mode"
Что делать?
← →
Мефисто (2006-08-28 21:31) [4]
> valery © (28.08.06 20:55) [3]
Говорит что таблица не находится в режиме редактирования или вставки новой записи. Следовательно перед Post (вставкой запси), таблицу нужно перевести в режим редактирования. Скорее всего что-то типа: Table.Edit;
← →
Fay © (2006-08-28 21:42) [5]2 Мефисто (28.08.06 21:31) [4]
> Следовательно перед Post (вставкой запси), таблицу
> нужно перевести в режим редактирования
Это, пожалуй, самое любопытное предположение за сегодня.
← →
Мефисто (2006-08-28 22:06) [6]
> Fay © (28.08.06 21:42) [5]
Да, пожалуй :( Знаю слово, назвать не смог. Чукча (с).
← →
valery © (2006-08-29 15:35) [7]
> Мефисто (28.08.06 21:31) [4]
>
> Говорит что таблица не находится в режиме редактирования
> или вставки новой записи.
Это я понимаю.
Но я так думаю что Грид сам переводит таблицу в нужный режим.
И при вставке все отменяется нормально.
← →
Anatoly Podgoretsky © (2006-08-29 15:42) [8]valery © (28.08.06 20:55) [3]
К нам не надо, никому не запрещено задать свой вопрос, не стоит портить чужую ветку.
← →
Loginov Dmitry © (2006-08-29 18:21) [9]> valery © (28.08.06 20:55) [3]
procedure TDM.RefBeforePost(DataSet: TDataSet);
begin
if DataSet.Fields[1].AsString="" then Abort;
end;
Страницы: 1 вся ветка
Текущий архив: 2006.09.17;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.033 c
