Как узнать ID?

@demon31 · Регистрация: 01.10.2013

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

Подскажите пожалуйста, вот есть DBGrid.

В нем поля:
1) ID (Уникальное)
2) NAME (Просто название ГРУЗА)
3) ID_TIP (По нему получаю название ТИПА ГРУЗА из другой таблицы, где только типы: легкий, средний и.т.д.)

Предположим есть там 10 ну или N записей, вида:

1 КОРОБКИ ТЯЖЕЛЫЙ
2 ПРОВОДА ЛЕГКИЙ
................................

Мне нужно сделать проверку на удаление, т.е. если ТИП ГРУЗА используется в этой таблице на какой-то записи, то удалить его нельзя т.е. есть связь.

Я пишу запрос SQL:

SELECT * FROM GRUZ G, TIPGRUZA T WHERE G.ID_TIP=T.ID
n:=SQL.RecordCount; (Вернёт число строк с таким условием)

Ставлю if n>0 then 'вывести ошибку удаления грубо говоря' else 'удалим и всё'

Но есть проблема, БДЕ так не продумана или я глупый, но по такому условию всегда будет проверяться только первая запись, а если указатель будет стоять на другой то он не сработает и всё равно проверит первую и выдаст соответствующее условие. Нужно каким-то образом пробегать по всем записям и передвигать курсор туда куда я тыкнул или как-то по другому. Проще говоря, если в типе груза 3 записи и я нажму удалить 3-ю, проверит 1-ю и всё и выдаст ошибку для неё, а не для 3-й записи куда я нажал, как это реализовать?

@qwertehok · 23.05.2016, 14:45

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

Ответьте на 34 сообщение ...

да у вас там бред написан, зачем на него отвечать?

@xxbesoxx · 23.05.2016, 14:47

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

код не работает, потому что вы меня не слушаете.

Потому что Вы не думайте .! Проект выложи в месте БД и желающие тебе поможет ! По другому НЕ КАК .....

@demon31 · 23.05.2016, 14:50 **[ТС]**

Вот ваш код на скрине 1.
Вот таблица Грузов на скрине 2
Таблица типов на скрине 3.

Как вы можете заметить что удаляя тип которого нет в таблице 2, выдало С=2, то есть ошибка ...
А всё почему? Потому что вы меня не слушаете ...

@xxbesoxx · 23.05.2016, 14:52

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

Вот ваш код на скрине 1.
Вот таблица Грузов на скрине 2

ВЫ не поняли ...! Зачем нам ваши скриншоти или проект ? прастои пример создайте и выложите суда и докажит тебя и твоего преподу желающие как это работает !!! А потом вы перепишите на ваши проекте

@demon31 · 23.05.2016, 14:55 **[ТС]**

KURIER название для администратора
C:\Users\Демон\Desktop\BDE
Такой путь щас.

@krapotkin · 23.05.2016, 16:50

у меня нет d7 и bde нет, и ставить тоже не буду
могу только тексты посмотреть
в частности, заинтересовало, почему у query1,2,3 заполнено свойство Datasource ??

и еще, т.к. мы тут были без понятия, к чему там что подключено, в данном случае Query2 - это твоя table внизу на третьем скриншоте, из нее и бери ID для query3
P.S.
от души добавлю - использование TTable приводит в тупик

@demon31 · 23.05.2016, 17:34 **[ТС]**

ой, ну нафиг, вообще не понимаю, как и вы.

@qwertehok · 24.05.2016, 12:10

показать вам пример с нормальной БД и нормальными запросами

Скандербег · 24.05.2016, 13:04

Проверять так:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.Button21Click(Sender: TObject);
begin
  Query1.SQL.text := 'select ID from GRUZ where id_tip = '+IntToStr(Table7_tipgruza['ID']);
  Query1.OPEN;
  if not Query1.Eof then begin
    ShowMessage('Используется!');
    Exit;
  end;
 
  //Удаление
  Table7_tipgruza.Delete;
end;

@demon31 · 24.05.2016, 15:02 **[ТС]**

В общем, не знаю как вышло, но решил проблему так же и без цикла, не знаю почему ранее не работало так -.-

Новые блоги и статьи Все статьи Все блоги /
Теория всего 12. ВГК anaschu 21.07.2026 ### Главные семантические изменения и дешифровка новой физики 1. `REPRODUCTIVE_EMISSION` вместо фотосинтеза (`PS_base`): Энергия и ресурсы, которые класс средних мужчин (`_W_MEN_DONORS`). . .	Публикация отклонённая на хабре. Как «пернатого» заставить осваивать новые горизонты опыта через масштабирование задачи и целеполагание Hrethgir 21.07.2026 https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11948&stc=1&d=1784657928 Привет Хабр. В этой статье я расскажу, как один закон эпистемологии позволил мне с ходу запустить уникальный. . .	Теория всего 11. Основные параметры anaschu 21.07.2026 Дешифровка тензорного ядра Soil Chemistry 2. 0: Истинный инвариант Теории Всего Чистовой исходный код многокомпонентной сукцессии зафиксирован. Модель оперирует единым вектором состояния. . .	Теория всего 10. Клод трусишка anaschu 21.07.2026 Алгоритмический суицид ИИ: Когда математика ОДУ взламывает цензурные шлюзы Свежайший мета-прецедент нашей разработки! Клод официально отказался строить итоговую кроссплатформенную модель, как. . .
Теория всего 9. Окончательная проработка метафоры "дерево = традиции" anaschu 21.07.2026 Скрытые параметры ядра ОДУ: Механика Глубинного Рока Клод утаил от вас ключевую математику кризисов. В движке игры зашиты пять скрытых коэффициентов, определяющих, как именно ТНК и Мемы ломают. . .	Теория всего 8. Clauude трусишка. Ответ джемени anaschu 21.07.2026 Игровой баланс «Модели Всего»: Алгоритмический блок как механика Семантического БуфераЭтот скриншот отказа Клода — идеальный, чистейший прецедент для нашей Теории Всего. Вы столкнулись не просто с. . .	Теория всего 7. Дерево - это патриархат, грибы - это феминизм anaschu 21.07.2026 Уничтожение Патриархата: Как ТНК, Мемы и Половой отбор зачистили «Сексуальный Пролетариат» Величайшая иллюзия современного человека — вера в «свободу воли», «социальный прогресс» и «эволюцию. . .	История и социология Терры на примере борьбы микориз за пространство. 1. Глоссарий терры. anaschu 21.07.2026 Решил тут подумать о возможности сделать лор некоторой комп игры - стратегии, или худжественной книги антиутопии, которые будут юзать планету,которая максимально будет похожа на нашу землю, но где. . .

@demon31 0 / 0 / 2 Регистрация: 01.10.2013 Сообщений: 344

	Как узнать ID? 22.05.2016, 20:58. Показов 2394. Ответов 49 Метки нет (Все метки) Подскажите пожалуйста, вот есть DBGrid. В нем поля: 1) ID (Уникальное) 2) NAME (Просто название ГРУЗА) 3) ID_TIP (По нему получаю название ТИПА ГРУЗА из другой таблицы, где только типы: легкий, средний и.т.д.) Предположим есть там 10 ну или N записей, вида: 1 КОРОБКИ ТЯЖЕЛЫЙ 2 ПРОВОДА ЛЕГКИЙ ................................ Мне нужно сделать проверку на удаление, т.е. если ТИП ГРУЗА используется в этой таблице на какой-то записи, то удалить его нельзя т.е. есть связь. Я пишу запрос SQL: SELECT * FROM GRUZ G, TIPGRUZA T WHERE G.ID_TIP=T.ID n:=SQL.RecordCount; (Вернёт число строк с таким условием) Ставлю if n>0 then 'вывести ошибку удаления грубо говоря' else 'удалим и всё' Но есть проблема, БДЕ так не продумана или я глупый, но по такому условию всегда будет проверяться только первая запись, а если указатель будет стоять на другой то он не сработает и всё равно проверит первую и выдаст соответствующее условие. Нужно каким-то образом пробегать по всем записям и передвигать курсор туда куда я тыкнул или как-то по другому. Проще говоря, если в типе груза 3 записи и я нажму удалить 3-ю, проверит 1-ю и всё и выдаст ошибку для неё, а не для 3-й записи куда я нажал, как это реализовать? 0

@demon31 0 / 0 / 2 Регистрация: 01.10.2013 Сообщений: 344
	23.05.2016, 14:50 [ТС]
	Вот ваш код на скрине 1. Вот таблица Грузов на скрине 2 Таблица типов на скрине 3. Как вы можете заметить что удаляя тип которого нет в таблице 2, выдало С=2, то есть ошибка ... А всё почему? Потому что вы меня не слушаете ... Миниатюры 0

@krapotkin 6854 / 4680 / 1465 Регистрация: 14.04.2014 Сообщений: 20,681 Записей в блоге: 21
	23.05.2016, 16:50
	у меня нет d7 и bde нет, и ставить тоже не буду могу только тексты посмотреть в частности, заинтересовало, почему у query1,2,3 заполнено свойство Datasource ?? и еще, т.к. мы тут были без понятия, к чему там что подключено, в данном случае Query2 - это твоя table внизу на третьем скриншоте, из нее и бери ID для query3 P.S. от души добавлю - использование TTable приводит в тупик 0

@demon31 0 / 0 / 2 Регистрация: 01.10.2013 Сообщений: 344
	23.05.2016, 17:34 [ТС]
	ой, ну нафиг, вообще не понимаю, как и вы. 0

@qwertehok 5998 / 4573 / 1096 Регистрация: 29.08.2013 Сообщений: 28,248 Записей в блоге: 3
	24.05.2016, 12:10
	показать вам пример с нормальной БД и нормальными запросами 0

@demon31 0 / 0 / 2 Регистрация: 01.10.2013 Сообщений: 344
	24.05.2016, 15:02 [ТС]
	В общем, не знаю как вышло, но решил проблему так же и без цикла, не знаю почему ранее не работало так -.- 0

Как узнать ID?

Решение