Изменение значения через adotable

@ProstoKos · Регистрация: 17.06.2013

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

Всем доброго времени суток. Столкнулся с проблемой.
У меня есть 2 таблицы, - это библиотека и читатель. Когда читатель берет книгу - в бибилиотеке отнимается от текущего количества книг 1.
Реализовал я это при помощи:

Delphi
1
2
3
ADOTable1.edit;
ADOTable1.FieldByName('Текущее кол-во книг').Value:=ADOTable1.FieldByName('Общее количество').Value - 1;
ADOTable1.Post;

Проблема в том, что при добавлении читателя - книга отнимается только у первой записи, при том всего 1 раз.

@Waddonator · 17.06.2013, 12:27

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

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

В приведенном коде не видно, что происходит при добавлении читателя в базу. Изменение происходит текущей записи. Вероятнее всего курсор устанавливается на первую запись, а не на вновь введенную.

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

книга отнимается только у первой записи, при том всего 1 раз.

вы вычитаете 1 книгу из общего количества, а оно у вас (по всей видимости постоянное). Необходимо вычитать из текущего количества:

Delphi
1
ADOTable1.FieldByName('Текущее кол-во книг').Value:=ADOTable1.FieldByName('Текущее кол-во книг').Value - 1;

@ProstoKos · 17.06.2013, 12:30 **[ТС]**

ну да, до второго косяка я допер и пофиксил, а вот первый остался. Код выполняется на кнопку, соответственно курсор не стоит на таблице, хотя выделена не первая запись.

@Waddonator · 17.06.2013, 12:31

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

Код выполняется на кнопку, соответственно курсор не стоит на таблице, хотя выделена не первая запись.

приведите код кнопки

@ProstoKos · 17.06.2013, 12:40 **[ТС]**

Delphi
1
2
3
4
5
adotable1.Edit;
adotable2.Insert;
ADOTable1.FieldByName('Текущее кол-во книг').Value:=ADOTable1.FieldByName('Общее количество').Value - 1;
aotable1.Post;
adotable2.Post;

То-есть при добавлении во вторую таблицу - сразу отнимаем из первой значение

@Waddonator · 17.06.2013, 12:46

ProstoKos, что у вас храниться в ADOTable1 и ADOTable2? Дайте структуру таблиц. И я не пойму, где добавление нового читателя.

@ProstoKos · 17.06.2013, 12:59 **[ТС]**

Читатель в adotable2.
Упростил.

Delphi
1
2
3
4
adotable1.Edit;
ADOTable1.FieldByName('Текущее кол-во книг').Value:=ADOTable1.FieldByName('Текущее кол-во книг').Value - 1;
aotable1.Post;
dbnavigator2.BtnClick(nbinsert); //добавляем читателя

Добавлено через 6 минут
Схема БД.
http://s019. radikal .ru/i620/... badd90.jpg

@Waddonator · 17.06.2013, 13:09

ProstoKos, не понятно, почему у вас связь между данными происходит по ISBN -> Номер читательского билета. В приведенном коде все-равно не видно, при каких условиях осуществляется переход по записям ADOTable1. Попробуйте сначала вычесть книгу из общего числа, а затем уже внести нового читателя:

Delphi
1
2
3
4
5
6
ADOTable1.Edit;
ADOTable1.FieldByName('Текущее кол-во книг').Value:=ADOTable1.FieldByName('Текущее кол-во книг').Value - 1;
ADOTable1.Post;
ADOTable2.Insert;
...
ADOTable2.Post;

@ProstoKos · 17.06.2013, 13:15 **[ТС]**

про связь в точку, но бд делал не я. Сам задаюсь тем-же вопросом - а почему не ISBN->ISBN, но так якобы правильнее.

@Waddonator · 17.06.2013, 13:19

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

про связь в точку, но бд делал не я. Сам задаюсь тем-же вопросом - а почему не ISBN->ISBN, но так якобы правильнее.

Это в корне неверно. В данном случае (один ко многим), нельзя связывать два ключевых поля. Необходимо связывать ключевое поле одной таблицы с полем внешнего ключа другой таблицы, а это и есть ISBN->ISBN.

Новые блоги и статьи Все статьи Все блоги /
Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Programma_Boinc 01.01.2026 Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Сочетание глобально распределённой вычислительной мощности и инновационных. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .

@ProstoKos 0 / 0 / 0 Регистрация: 17.06.2013 Сообщений: 9
	17.06.2013, 12:30 [ТС]
	ну да, до второго косяка я допер и пофиксил, а вот первый остался. Код выполняется на кнопку, соответственно курсор не стоит на таблице, хотя выделена не первая запись. 0

@Waddonator 969 / 644 / 97 Регистрация: 01.11.2012 Сообщений: 1,447
	17.06.2013, 12:46
	ProstoKos, что у вас храниться в ADOTable1 и ADOTable2? Дайте структуру таблиц. И я не пойму, где добавление нового читателя. 0

@ProstoKos 0 / 0 / 0 Регистрация: 17.06.2013 Сообщений: 9
	17.06.2013, 13:15 [ТС]
	про связь в точку, но бд делал не я. Сам задаюсь тем-же вопросом - а почему не ISBN->ISBN, но так якобы правильнее. 0