Условия на проверку режима таблицы

@LeopollD · Регистрация: 14.12.2016

Студворк — интернет-сервис помощи студентам

Здравствуйте, есть проблема. Пытаюсь проверить условия включена ли таблица в режиме редактирования или добавления и если да, то вывести сообщение об этом, где пользователь должен выбрать сохранить изменения или отменить их. Естественно при выборе сохранить, то сохраняет и закрывает или нет, то отменяет действия и закрывает. Но у меня выскакивает такая ошибка: with message 'Stack over flow', что в переводе означает, что стак переполнен. И я ни как ни могу решить этот вопрос.
Вот код:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
begin
 if dm.T_pk.State in [dsEdit, dsInsert] then
  bS := MessageDlg('Сохранить изменения?',mtWarning, mbOKCancel, 0);
   if bS = mrOK then
     begin
      dm.T_pk.Post; DBGrid1.ReadOnly:=true;
      close;
     end  else if bS = mrCancel then
    begin
     dm.T_pk.Cancel; DBGrid1.ReadOnly:=true;  close;
    end;
  close; 
end;

P.S. Работаю в Delphi 6, а СУБД dbForge

@qwertehok · 13.06.2018, 14:00

Используйте SQL запросы для работы с субд и тогда не нужно будет так делать

И dbForge это просто программа

@LeopollD · 13.06.2018, 14:03 **[ТС]**

Я к сожалению профан в sql запросах, и лишний раз ни хочется объяснять как он работает. А без sql запросов можно как-нибудь обойтись?

@D1973 · 13.06.2018, 17:38

Сообщение от LeopollD

а СУБД dbForge

это не СУБД, а оболочка... А СУБД какая? MS SQL, MySQL, Oracle, что-то еще???

@krapotkin · 14.06.2018, 01:09

код-то у вас в общем верный
видимо место вы выбрали для его размещения ну очень неудачное
а какое - не показали ))

@D1973 · 14.06.2018, 04:55

Ну и оптимизировать бы...

Delphi
1
2
3
4
if dm.T_pk.State in [dsEdit, dsInsert] then
  if MessageDlg('Сохранить изменения?', mtWarning, mbOKCancel, 0) = mrOK then dm.T_pk.Post;
DBGrid1.ReadOnly := true; //вообще не вижу смысла в этой строке, если форма все равно закрывается...
Close;

Новые блоги и статьи Все статьи Все блоги /
делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .

@qwertehok 5975 / 4550 / 1095 Регистрация: 29.08.2013 Сообщений: 28,170 Записей в блоге: 3
	13.06.2018, 14:00
	Используйте SQL запросы для работы с субд и тогда не нужно будет так делать И dbForge это просто программа 0

@LeopollD 0 / 0 / 0 Регистрация: 14.12.2016 Сообщений: 21
	13.06.2018, 14:03 [ТС]
	Я к сожалению профан в sql запросах, и лишний раз ни хочется объяснять как он работает. А без sql запросов можно как-нибудь обойтись? 0

@krapotkin 6849 / 4676 / 1464 Регистрация: 14.04.2014 Сообщений: 20,671 Записей в блоге: 21
	14.06.2018, 01:09
	код-то у вас в общем верный видимо место вы выбрали для его размещения ну очень неудачное а какое - не показали )) 0