База данных ... вычитание из таблицы

@br4o · Регистрация: 17.06.2010

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

Все доброго времени суток

появилась такая вот проблема
есть таблица "каталог"
в ней хранятся количества товаров.

мне нужно в другой таблице заказать n количество товаров
и чтобы из таб "каталог" вычиталось это количество

не подскажите через какие запросы можно это сделать?

@SAMZ · 11.02.2011, 17:53

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

через какие запросы можно это сделать?

Это абсолютно стандартная задача и реализация в определенной степени зависит от СУБД, которую Вы пользуете. Можно на клиенте "ЗАКАЗАТЬ" товар, создавая соответствующую запись в таблице заказов и синхронно обновлять данные в каталоге, модифицируя необходимую запись. Можно, если СУБД поддерживает такие объекты, как триггеры, делать это (обновление каталога) в тригерре. Хорошо, если СУБД поддерживает механизм транзакций, а используемые средства доступа (компоненты) поддерживают механизм управления транзакциями. Тогда есть возможность выполнять эти операции в контексте одной транзакции, стартуя и завершая ее тогда, когда это необходимо.

@br4o · 11.02.2011, 17:59 **[ТС]**

не могли бы привести пример
я не много не допонял, как это реализовать

Можно на клиенте "ЗАКАЗАТЬ" товар, создавая соответсивующую запись в тоблице заказов и синхронно обновлять данные в каталоге, модифицируя необходимую запись.

@SAMZ · 11.02.2011, 18:13

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

не могли бы привести пример

Пример только абстрактный, т.к. информации о модель БД Вы не приводите. Пусть есть таблица
CATALOG с полями
ID - первичный ключ (код товара)
NAME - наименование товара
COLVO - количество товара

и таблица заказов
ZAKAZ с полями
ID - первичный ключ
IDCATALOG - код товара
COLVO - количество заказанного товара
IDZAKAZCHIK - код заказчика
ZAKAZDT - дата заказа

Тогда, новый заказ

SQL
1
2
INSERT INTO ZAKAZ (ID, IDCATALOG, COLVO, IDZAKAZCHIK, ZAKAZDT)
VALUES(:ID, :IDCATALOG, :COLVO, :IDZAKAZCHIK, :ZAKAZDT)

и корректировка каталога

SQL
1
2
3
UPDATE CATALOG C
SET C.COLVO = C.COLVO - :COLVO
WHERE C.ID = :IDCATALOG

@Toen · 11.02.2011, 18:15

Тоже хотелось бы узнать об этом поподробней если можно пожалуйста и как нибудь по проще

p.s. В sql не шарю

Комментарий модератора

Бери литературу по SQL и читай до посинения.

@br4o · 12.02.2011, 17:39 **[ТС]**

Добавление в заказе

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 procedure TForm1.btZakAddClick(Sender: TObject);
 var
    KOL: Integer;
 begin
  // Проверка полей ввода
  try
   KOL:=StrToInt(ZakKol.Text);
  except
   ZakKol.SelectAll;
   ZakKol.SetFocus;
   ShowMessage('Количество должно быть числом');
   exit;
  end;
  if Trim(ZakFIO.Text)='' then
   begin
    ZakFIO.SetFocus;
    ShowMessage('Выберите клиента');
    exit;
   end;
  if Trim(ZakAvto.Text)='' then
   begin
    ZakAvto.SetFocus;
    ShowMessage('Выберите клиента');
    exit;
   end;
  // Добавляем запись в базу
  tbZakaz.Insert;
  tbZakaz['ID_AUTO']:=ZakAvto.KeyValue;
  tbZakaz['ID_KlIENT']:=ZakFIO.KeyValue;
  tbZakaz['KOL']:=KOL;
  tbZakaz['DATE_PRODA']:=ZakDat.Date;
  tbZakaz['sum']:=Sum;
  tbZakaz.Post;
 end;

а это на всякий случай в каталоге

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
procedure TForm1.btCatAddClick(Sender: TObject);
 var
    KOL,CENA,GOD,PROB: integer;
 begin
  try
   KOL:=StrToInt(CatNum.Text);
  except
   CatNum.SelectAll;
   CatNum.SetFocus;
   ShowMessage('Количество должно быть числом');
   exit;
  end;
  try
   CENA:=StrToInt(CatPrice.Text);
  except
   CatPrice.SelectAll;
   CatPrice.SetFocus;
   ShowMessage('Цена должна быть числом');
   exit;
  end;
  try
   GOD:=StrToInt(CatYear.Text);
  except
   CatYear.SelectAll;
   CatYear.SetFocus;
   ShowMessage('Год должен быть числом');
   exit;
  end;
  try
   PROB:=StrToInt(CatProbeg.Text);
  except
   CatProbeg.SelectAll;
   CatProbeg.SetFocus;
   ShowMessage('Пробег должен быть числом');
   exit;
  end;
  if Trim(CatKuzov.Text)='' then
   begin
    CatKuzov.SelectAll;
    CatKuzov.SetFocus;
    ShowMessage('Выберите кузов');
    exit;
   end;
  if Trim(CatColor.Text)='' then
   begin
    CatColor.SelectAll;
    CatColor.SetFocus;
    ShowMessage('Выберите цвет');
    exit;
   end;
  if Trim(CatGear.Text)='' then
   begin
    CatGear.SelectAll;
    CatGear.SetFocus;
    ShowMessage('Выберите КПП');
    exit;
   end;
  if Trim(CatReg.Text)='' then
   begin
    CatReg.SelectAll;
    CatReg.SetFocus;
    ShowMessage('Выберите регион');
    exit;
   end;
  if (KOL<0) or (CENA<0) or (GOD<0) or (PROB<0) then
   begin
    ShowMessage('Неверный формат чисел, все числа должны быть положительны');
    exit;
   end;
  // Добавляем запись в базу
  tbCatalog.Insert;
  tbCatalog['ID_AUTO']:=CatName.KeyValue;
  tbCatalog['KOL_Auto']:=KOL;
  tbCatalog['Cena']:=CENA;
  tbCatalog['God_vipusk']:=GOD;
  tbCatalog['Probeg']:=PROB;
  tbCatalog['Kuzov']:=CatKuzov.Text;
  tbCatalog['COLOR']:=CatColor.Text;
  tbCatalog['KPP']:=CatGear.Text;
  tbCatalog['REGION']:=CatReg.text;
  tbCatalog.Post;
 end;

можешь подредактировать?
в скле плохо понимаю

Добавлено через 23 часа 7 минут
Спасибо уже все сделал

@Toen · 12.02.2011, 17:55

как сделал?

@br4o · 12.02.2011, 18:53 **[ТС]**

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
  tbCatalog.Filter:='ID_AUTO ='+IntToStr(ZakAvto.KeyValue);
 
  tbCatalog.Filtered:=True;
 
  tbCatalog.First;
 
  if not tbCatalog.Eof then
 
   begin
 
    // Добавляем запись в базу
 
    if tbCatalog['KOL_AUTO']<KOL then
 
    ShowMessage('Недостаточно авто для заказа')
 
    else
 
    begin
 
  tbZakaz.Insert;
 
  tbZakaz['ID_AUTO']:=ZakAvto.KeyValue;
 
  tbZakaz['ID_KlIENT']:=ZakFIO.KeyValue;
 
  tbZakaz['KOL']:=KOL;
 
  tbZakaz['DATE_PRODA']:=ZakDat.Date;
 
  tbZakaz.Post;
 
    //Удаляем из каталога
 
          tbCatalog.Edit;
 
          tbCatalog['KOL_AUTO']:=tbCatalog['KOL_AUTO']-StrToInt(ZakKol.Text);
 
          tbCatalog.Post;
 
          ShowMessage('Заказ успешно добавлен');
 
    end
 
  end
 
  else ShowMessage('Авто не найден!!!');
 
  tbCatalog.Filtered:=False;

вот тот кусочек, сделано через фильтр
пробовал через Локейт...косячно получалось

@Toen · 12.02.2011, 21:55

я все равно плаваю...

как вычесть ,на форме 2 дб грида, нужно что бы при вводе в первый дб грид например в поле "количество " вычиталось из второго дбгрида например из поля "в наличии"

@br4o · 12.02.2011, 22:22 **[ТС]**

ну вот вычитание
tbCatalog['KOL_AUTO']:=tbCatalog['KOL_AUTO']-StrToInt(ZakKol.Text);
это tbCatalog['KOL_AUTO'] где должно вычитаться (результат)
StrToInt(ZakKol.Text) где ты вычитаешь (ну когда вводишь)

Новые блоги и статьи Все статьи Все блоги /
Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем

@br4o 1 / 1 / 0 Регистрация: 17.06.2010 Сообщений: 47

	База данных ... вычитание из таблицы 11.02.2011, 15:02. Показов 2875. Ответов 9 Метки нет (Все метки) Все доброго времени суток появилась такая вот проблема есть таблица "каталог" в ней хранятся количества товаров. мне нужно в другой таблице заказать n количество товаров и чтобы из таб "каталог" вычиталось это количество не подскажите через какие запросы можно это сделать? 0

@Toen 0 / 0 / 3 Регистрация: 30.11.2010 Сообщений: 53
	12.02.2011, 17:55
	как сделал? 0

@Toen 0 / 0 / 3 Регистрация: 30.11.2010 Сообщений: 53
	12.02.2011, 21:55
	я все равно плаваю... как вычесть ,на форме 2 дб грида, нужно что бы при вводе в первый дб грид например в поле "количество " вычиталось из второго дбгрида например из поля "в наличии" Миниатюры 0

@br4o 1 / 1 / 0 Регистрация: 17.06.2010 Сообщений: 47
	12.02.2011, 22:22 [ТС]
	ну вот вычитание tbCatalog['KOL_AUTO']:=tbCatalog['KOL_AUTO']-StrToInt(ZakKol.Text); это tbCatalog['KOL_AUTO'] где должно вычитаться (результат) StrToInt(ZakKol.Text) где ты вычитаешь (ну когда вводишь) 1