Изменение записи в одной таблице на основе другой

@PatrickX3 · Регистрация: 24.03.2012

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

На первом скриншоте суть работы формы такая. После выбора чека (1) в ADOTable1 выводятся данные о продаже. К ADOTable1 подключены 2 DBEdit'а.
На втором скриншоте форма с таблицей с товарами.
Нужно сделать такой цикл, чтобы на нажатию на кнопку "Списать" во второй форме из записей в столбце "kolichestvo_na_sklade" автоматически вычиталось "kolichestvo" из первой формы с одинаковыми "id_tovara"

@xxbesoxx · 27.04.2012, 21:01

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

На первом скриншоте суть работы формы такая. После выбора чека (1) в ADOTable1 выводятся данные о продаже. К ADOTable1 подключены 2 DBEdit'а.
На втором скриншоте форма с таблицей с товарами.
Нужно сделать такой цикл, чтобы на нажатию на кнопку "Списать" во второй форме из записей в столбце "kolichestvo_na_sklade" автоматически вычиталось "kolichestvo" из первой формы с одинаковыми "id_tovara"

var s: real;
n: integer;
begin
s:=0;
ADOTable1.First;
for n:=1 to ADOTable1.RecordCount do begin
s := s + ADOTable1.FieldByName('kolichestvo_na_sklade').AsFloat;
ADOTable1.Next;
Edit1.Text :=FloatToStr(s); // Итого

end;

@PatrickX3 · 27.04.2012, 21:59 **[ТС]**

Уже сам вот так додумался, через ADOQuery, если кому пригодится

Delphi

ADOTable1.First;
  while not (ADOTAble1.Eof) do
    begin
      ADOQuery1.Close;
      ADOQuery1.SQL.Clear;
      ADOQuery1.SQL.Add('Select (kolichestvo_na_sklade)+'''+dbedit6.Text+''' from tovari where id_tovara like '''+dbedit5.Text+'''');
      ADOQuery1.Open;
      edit2.text:= IntToStr(adoquery1.fields.fields[0].AsInteger);
      ADOQuery1.Close;
      ADOQuery1.SQL.Clear;
      ADOQuery1.SQL.Add('Update tovari set kolichestvo_na_sklade='''+edit2.text+''' where id_tovara like '''+dbedit5.Text+'''');
      ADOQuery1.ExecSql;
      ADOTable1.Next;
    end;

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

s:=0;

А тут, как я понял, получается, что все записи в одну складываются, а мне нужно, чтобы каждый товар в своей строке уменьшался

@PatrickX3 1 / 1 / 1 Регистрация: 24.03.2012 Сообщений: 138
		1
	Изменение записи в одной таблице на основе другой 27.04.2012, 13:00. Показов 1702. Ответов 2 Метки нет (Все метки) На первом скриншоте суть работы формы такая. После выбора чека (1) в ADOTable1 выводятся данные о продаже. К ADOTable1 подключены 2 DBEdit'а. На втором скриншоте форма с таблицей с товарами. Нужно сделать такой цикл, чтобы на нажатию на кнопку "Списать" во второй форме из записей в столбце "kolichestvo_na_sklade" автоматически вычиталось "kolichestvo" из первой формы с одинаковыми "id_tovara" Миниатюры 0

@xxbesoxx 1134 / 615 / 129 Регистрация: 13.02.2009 Сообщений: 3,554
	27.04.2012, 21:01	2
	Сообщение от PatrickX3 На первом скриншоте суть работы формы такая. После выбора чека (1) в ADOTable1 выводятся данные о продаже. К ADOTable1 подключены 2 DBEdit'а. На втором скриншоте форма с таблицей с товарами. Нужно сделать такой цикл, чтобы на нажатию на кнопку "Списать" во второй форме из записей в столбце "kolichestvo_na_sklade" автоматически вычиталось "kolichestvo" из первой формы с одинаковыми "id_tovara" var s: real; n: integer; begin s:=0; ADOTable1.First; for n:=1 to ADOTable1.RecordCount do begin s := s + ADOTable1.FieldByName('kolichestvo_na_sklade').AsFloat; ADOTable1.Next; Edit1.Text :=FloatToStr(s); // Итого end; 0

	27.04.2012, 21:59

Изменение записи в одной таблице на основе другой

Решение