подсчет суммы в stringgrid

[Михаил_К]

получилось вот такое чудо, добавляет только последнюю запись в SG

begin
 for i:= stringgrid1.FixedRows + 1 to stringgrid1.RowCount - 1 do
 begin
  with datamodule4.Table1 do
  begin
   append;
   edit;
   fieldbyname('Nom_nar').AsInteger:= strtoint(label2.Caption);
   fieldbyname('Dat_nar').AsDateTime:= strtodate(label3.Caption);
   fieldbyname('Paci').AsString:= edit1.text;
   fieldbyname('Adres').AsString:= edit2.text;
   fieldbyname('Date_birth').AsDateTime:= datetimepicker1.Date;
   fieldbyname('Vrach').AsString:= dblookupcombobox3.Text;
   fieldbyname('UET_varch').AsInteger:= dbtext3.Field.AsInteger;
   fieldbyname('Tehnik').AsString:= dblookupcombobox4.Text;
   fieldbyname('UET_teh').AsInteger:= dbtext4.Field.AsInteger;

   fieldbyname('Usluga').AsString:= stringgrid1.Cells[1,i];
   fieldbyname('Kol_us').AsInteger:= strtoint(stringgrid1.Cells[2,i]);
   fieldbyname('Cena').AsInteger:= strtoint(stringgrid1.Cells[3,i]);

   fieldbyname('ED').AsString:= dbtext5.Field.AsString;
   post;
  end;
 end;

[Serge_Bliznykov]

edit; не нужен.

Сообщение от Михаил_К

добавляет только последнюю запись в SG

а разве вы же в цикле не пытаетесь одно и тоже добавить?

почему у Вас Nom_nar, Dat_nar, Paci и т.д. не берутся из грида?

Сообщение от Михаил_К

fieldbyname('Nom_nar').AsInteger:= strtoint(label2.Caption);
   fieldbyname('Dat_nar').AsDateTime:= strtodate(label3.Caption);
   fieldbyname('Paci').AsString:= edit1.text;
   fieldbyname('Adres').AsString:= edit2.text;

[Михаил_К]

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

[Serge_Bliznykov]

Сообщение от Михаил_К

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

очень странная логика.
а зачем в таблице нужны повторяющиеся записи (с одинаковыми полями)?
Вы про нормализацию что-нибудь слышали?
а ключевое поле в таблице есть? и какое?


p.s. у меня такое впечатление складывается, что это не Вам, а мне нужно, чтобы у Вас программа работала... Вы зачем в "партизана" играете?

[Михаил_К]

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

очень странная логика.
а зачем в таблице нужны повторяющиеся записи (с одинаковыми полями)?
Вы про нормализацию что-нибудь слышали?
а ключевое поле в таблице есть? и какое?


p.s. у меня такое впечатление складывается, что это не Вам, а мне нужно, чтобы у Вас программа работала... Вы зачем в "партизана" играете?

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

[Serge_Bliznykov]

Сообщение от Михаил_К

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

читайте про нормализацию данных!

если кратенько - то все повторяющиеся записи должны остаться в виде ОДНОЙ записи, а всё, что является "на одного человека может быть несколько услуг" должно уйти в отдельную таблицу (или таблицы).

Сообщение от Михаил_К

ключевое поле иметься Nom_nar

если ключевое поле "Nom_nar" то, исходя из определения ключевого поля, в таблице может быть только ОДНА запись с уникальным Nom_nar. Что Вы, собственно, и получаете в итоге.

[Михаил_К]

получается если делать отдельную таблицу для услуг, то ключевым полем будет не Nom_nar я правильно понял ?

[Serge_Bliznykov]

Сообщение от Михаил_К

получается если делать отдельную таблицу для услуг, то ключевым полем будет не Nom_nar я правильно понял ?

смотря в какой таблице. в старой таблице так и останется ключевым полем.
в таблице услуг нет, там должен быть свой уникальный ключ (ID, например).
а NOM_nar будет в таблице в услуг в качестве внешнего ключа (FK) - для связи с основной таблицей.

читайте теорию, уверен, что она для Вас не будет лишней!

[Михаил_К]

спасибо большое за помощь, и за терпение )

[Serge_Bliznykov]

Это завсегда пожалуйста!

форум же для этих целей (помогать друг другу) и создан!