Этот баннер — требование Роскомнадзора для исполнения 152 ФЗ.
«На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика. Продолжая использовать сайт, вы даёте согласие с использованием данных технологий».
Политика конфиденциальности
Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
|
15.06.2003, 09:05
|
|||
|---|---|---|---|
|
|||
Обязательные для ввода поля |
|||
|
#18+
Подскажите, кто знает... Сделал форму для редактирования записи Как сделать так, чтобы, если некоторое поле не введено то окно не закрывалось (а то возникает ошибка выполнения), а к примеру выводило сообщение об ошибке или еще что? Геннадий ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
15.06.2003, 11:46
|
|||
|---|---|---|---|
Обязательные для ввода поля |
|||
|
#18+
try...exception ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
15.06.2003, 12:07
|
|||
|---|---|---|---|
|
|||
Обязательные для ввода поля |
|||
|
#18+
Извините, непонял. (Я недавно изучаю Delphi) Если в форме просмотра я вызываю другую - fm_Edit_pf_batch ..DM.qu_pf_batch.Append; ..if fm_Edit_pf_batch.ShowModal = mrOk then ....begin .....DM.qu_pf_batch.Post; .....DM.qu_pf_batch.UpdateBatch; ....end ..else .....DM.qu_pf_batch.Cancel; А в форме fm_Edit_pf_batch на кнопке Ok установлено ModalResult mrOK То куда поставить try...exception??? Если можно вставьте хоть маленький примерчик.... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
15.06.2003, 13:26
|
|||
|---|---|---|---|
Обязательные для ввода поля |
|||
|
#18+
try...exception В Хелпе понятно описано , DM.qu_pf_batch.Append; if fm_Edit_pf_batch.ShowModal = mrOk then begin try begin DM.qu_pf_batch.Post; DM.qu_pf_batch.UpdateBatch; exception (...) (сорри непомню как в делфях) do .... end end else DM.qu_pf_batch.Cancel; что то в таком духе ... но если ты используешь TEdit-ы то лутьше их сначала преред закрытем фомы проверять на "пустоту" ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
15.06.2003, 14:20
|
|||
|---|---|---|---|
|
|||
Обязательные для ввода поля |
|||
|
#18+
Не, похоже он не try ... except хочет. Если Table1 - это твой Dataset, и форма редатирования записи Form1 выводится модально, то: procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); var I: Integer; S: String; begin S := ''; with Table1 do begin for I := 0 to Fields.Count - 1 do begin if Fields .Required and (Fields.Value = Null) then begin S := S + 'Поле "' + Fields.DisplayLabel + '" необходимо заполнить !' + #13 + #10; end;//if end;//for end; if S <> '' then begin Application.MessageBox(PChar(S), 'Неполный ввод данных', MB_OK + MB_ICONWARNING); ModalResult := mrNone; end;//if end; ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
15.06.2003, 14:23
|
|||
|---|---|---|---|
|
|||
Обязательные для ввода поля |
|||
|
#18+
Опа, как покоцало то ! Внутри for цикла Fields заменить на Fields ессно ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
15.06.2003, 14:26
|
|||
|---|---|---|---|
|
|||
Обязательные для ввода поля |
|||
|
#18+
А .... понятно, форум превращает I в квадратных кавычках в в Italic шрифт. Ну ты понял, что внутри for используются элементы свойства-массива Fields ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
start [/forum/topic.php?fid=58&tablet=1&tid=2118015]: |
0ms |
get settings: |
9ms |
get forum list: |
14ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
81ms |
get topic data: |
12ms |
get forum data: |
3ms |
get page messages: |
44ms |
get tp. blocked users: |
2ms |
| others: | 271ms |
| total: | 440ms |
| 0 / 0 |
