запись в дбгрид

[BaiAs]

Здраствуйте.
помогите с кодом

procedure TForm3.Button1Click(Sender: TObject);
var i :integer;
begin
DataModule1.cdsPrih.Insert;
DataModule1.cdsPrihdata.Value:=DateTimePicker1.Date;
DataModule1.cdsPrihnomer.Value:=DBEdit1nomer.Field.CurValue;
DataModule1.cdsPrihPostav.Value:=lookPOStav.ListField;
DataModule1.cdsPrihSklaD.Value:=lookSklad.listField;
DataModule1.cdsPrih.Append;
i:=DataModule1.cdsPrih.ApplyUpdates(10);
DataModule1.cdsPrih.Active:=false;
DataModule1.cdsPrih.Active:=true;
DataModule1.cdsPrihSlave.Insert;
DataModule1.cdsPrihSlavetovar.Value:=looktovar.listField;
DataModule1.cdsPrihSlavekolvo.Value:=DBEdit1kolvo.Field.AsInteger;
DataModule1.cdsPrihSlave.Append;
i:=DataModule1.cdsPrihSlave.ApplyUpdates(10);
DataModule1.cdsPrihSlave.Active:=false;
DataModule1.cdsPrihSlave.Active:=true;
close;

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

[artemavd]

А че бы запросом не вставлять запись?

[vovk]

DataModule1.cdsPrih.Insert;
//Вставляем новую пустую запись в набор данных
DataModule1.cdsPrihdata.Value:=DateTimePicker1.Date;
//записываем в поле data этой записи дату из DateTimePicker1
DataModule1.cdsPrihnomer.Value:=DBEdit1nomer.Field.CurValue;
//записываем в поле nomer текущее значение поля подключенного к
// DBEdit1nomer с учетом изменений, внесенных другими пользователями.
//(вот ещё интересно к какому датасету этот компонент подключен)
DataModule1.cdsPrihPostav.Value:=lookPOStav.ListField;
// записываем в поле Postav Имя поля в источнике ListSource компонента
//lookPOStav (интерестно зачем?)
DataModule1.cdsPrihSklaD.Value:=lookSklad.listField;
//ну тут на предыдущеепохоже
//внимание самое интерестное
DataModule1.cdsPrih.Append;
//Добавляет новую пустую запись в конец набора данных
i:=DataModule1.cdsPrih.ApplyUpdates(10);
//Отправляет измененные данные провайдеру для записи в базу данных
DataModule1.cdsPrih.Active:=false;//закрыли
DataModule1.cdsPrih.Active:=true;//открыли
DataModule1.cdsPrihSlave.Insert;// тут не интерестно всё поновой сначала
DataModule1.cdsPrihSlavetovar.Value:=looktovar.listField;
DataModule1.cdsPrihSlavekolvo.Value:=DBEdit1kolvo.Field.AsInteger;
DataModule1.cdsPrihSlave.Append;
i:=DataModule1.cdsPrihSlave.ApplyUpdates(10);
DataModule1.cdsPrihSlave.Active:=false;
DataModule1.cdsPrihSlave.Active:=true;
close;//тут форму вроде закрыли

Итак после всех этих действий у нас в табличку добавится дата и названия 2 полей (если свойство выствавлено). И всё это произодёт 2 раза.
Кто вас этому научил? если книга выкинте немедленно.
Если уж так, то добавляем запись

ClientDataSet1.Append; //добавляем в конец пустую запись
//заполняем поля этой пустой записи
//Лучше обращатся по имени поля в наборе и нагляднее и контролируем
//тип данных (это уже имхо)
ClientDataSet1.Fields.FieldByName('data').AsDateTime:=DateTimePicker1.Date;
ClientDataSet1.Fields.FieldByName('имя поля1').AsDateTime:=<какието данные>;
ClientDataSet1.Fields.FieldByName('имя поля2').AsDateTime:=<какието данные>;
ClientDataSet1.Fields.FieldByName('имя поля3').AsDateTime:=<какието данные>;
....
ClientDataSet1.post. //сохраняем
ClientDataSet1.ApplyUpdates(-1);//

както так

[BaiAs]

хочу сделать как в 1с ввод приходной накладной
мастер детайл знаю как связать как на один документ оформить несколько товаров?

[vovk]

ММ ну незнаю как у вас там с таблицами, у меня б в базе как минимум были таблицы, товаров, поставшиков,и таблицы прихода, и отпуска товара(возможно в 1 таблице) вот к примеру в таблице прихода как минимум поля № этого прихода-отпуска, № товара №, поставщика, дата, (возможно кто принимал из таблицы сотрудников), (возможно № склада куда отгрузили) и ещё много возможно в зависимости от местных условий (ну от организации для которой эта база существует).
ПРи приёме добавляем поставщика в таблицу поставщиков (если поставщик новый), добавляем товар в таблицу товаров (опять же если товар новый), добавляем количество товара в таблицу товаров(спорный вопрос надо ли) и добавляем записи в таблицу прихода ну к примеру № прихода (скорее всего должен назначатся автоматически) № товара, № поставщика, количество товара, фио кто принял, фио кто сдал, дата (и возможно ещё сопутствующая информация, предположим № путевого листа, да мало ли) если товаров несколько то добавляем все с ОДНИМ номером прихода (запросом гораздо проще поверьте). Потом по № прихода можно запросит информацию и сформировать приходный документ.. В общем както так. Если где ошибся надеюсь поправят..

Если о том что выше, то делаем добавление записи N раз а после ClientDataSet1.ApplyUpdates(-1); вот и добавятся в базу все записи

[BaiAs]

дело в том что у меня на сервере адо тейблы и много
если все менять то это вообще...
мои поля в табл:

таб Приходмастер с полями(все не буду переч) дата(лукап),номер(числ),поставщик(л укап),склад-получ(лукап)

таб Приходслейв с полями
товар(лукап), кол-во(числ), сумма(вычисляемое)

в форме ввода стоят дблукапкомбобоксы под лукап поля и дбедиты под числовые поля

[vovk]

ну и слава богу, у всех этих компонентов выбранное значение находится в свойстве Text, его и используйте..
Честно говоря всё что происходит я на 80% "телепачу" вы знаете телепат из меня так себе, устаю быстро.
непонятно ни куда записываем ни что надо записать, ни состав таблиц, ни БД в общем мой телепатор даёт сбои

[BaiAs]

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

[vovk]

Боже ж мой, а я чем занимаюсь по вашему? мои посты по информативности, и количеству символов больше ваших..
НЕ заморачивайтесь, будет понятный вопрос будут и ответы. Это очень хороший форум, тут принято помогать, по крайней мере если человек чтото сам делает, а не просит чтоб просто дали код всего что надо.

[BaiAs]

я уже делаю много дней, в конце хочу получить как в приложениях
форму ввода удалил(хотел хоть как то сдел) теперь мышкой выбираю значенияиз дбгрида, навигаторами сохраняю(см прил "мое.джпг") код не прошу
проэкт свой могу выслать, нехватает опыта