Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.032 c