Установка курсора на новую запись в DBGrid

[Nomiko]

Доброго времени суток!
Подскажите пожалуйста как установить курсор на только что добавленную запись в DBGrid?
ДОбавляю записи через Append и FieldByName, все отлично добавляется, но курсор устанавливается в первую запись, а у меня проблема что после формы с добавлением записей открывается форма добавления других записей в другую таблицу, но связаны они по коду. Получается что во вторую таблицу добавляются записи из первой но с данными из первой записи, а не с новой
Таблицы: первая Client (cod_cl, fam, name, otch), вторая Protocol (cod_cl, data_p, summa) связаны соответсвенно по cod_cl.

[_SERGEYX_]

Client.Locate('cod_cl',{то, что добавлялось},[loCaseInsensitive])

[Nomiko]

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

procedure Tposetiteli.Button6Click(Sender: TObject);
begin
Pos:=TPos.Create(self);
Pos.ShowModal;
if Pos.ModalResult=mrOk then
begin
posetiteli.dsprosmotr.Append;
posetiteli.dsprosmotr.FieldByName(' fam').AsString:=pos.edit1.text;
posetiteli.dsprosmotr.FieldByName(' name').AsString:=pos.edit2.text;
posetiteli.dsprosmotr.FieldByName(' otch').AsString:=pos.edit3.text;
posetiteli.dsprosmotr.FieldByName(' data_roj').AsDateTime:=pos.DateTime Picker1.Date;
posetiteli.dsprosmotr.FieldByName(' cod_st').AsInteger:=StrToInt(pos.ed it4.Text);
posetiteli.dsprosmotr.post;
posetiteli.dsprosmotr.Locate('cod_c l', fam, name, otdh, data_roj, cod_st, [loCaseInsensitive]);
posetiteli.dsprosmotr.Active:=false ;
posetiteli.dsprosmotr.Active:=true;
end;
pos.Free;
end;

[soleil@mmc]

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

begin
Pos:=TPos.Create(self);

if Pos.ShowModal=mrOk then
begin
posetiteli.dsprosmotr.Append;
posetiteli.dsprosmotr.FieldByName(' fam').AsString:=pos.edit1.text;
posetiteli.dsprosmotr.FieldByName(' name').AsString:=pos.edit2.text;
posetiteli.dsprosmotr.FieldByName(' otch').AsString:=pos.edit3.text;
posetiteli.dsprosmotr.FieldByName(' data_roj').AsDateTime:=pos.DateTime Picker1.Date;
posetiteli.dsprosmotr.FieldByName(' cod_st').AsInteger:=StrToInt(pos.ed it4.Text);
posetiteli.dsprosmotr.post;
/*posetiteli.dsprosmotr.Locate('cod_c l', fam, name, otdh, data_roj, cod_st, [loCaseInsensitive]);
posetiteli.dsprosmotr.Active:=false ;
posetiteli.dsprosmotr.Active:=true;*/
end;
pos.Free;
end;

либо локейт все-таки делать, но после переоткрытия таблички

posetiteli.dsprosmotr.Active:=false ;
posetiteli.dsprosmotr.Active:=true;
posetiteli.dsprosmotr.Locate('cod_cl', cod_cl, []);

cod_cl - это поле заполняется на триггере генератором/сиквенсом?
если ваша БД позволяет использовать ХП, то лучше добавление/изменение/удаление записей реализовать на ХП и из нее же получать значение ключевого поля добавленной записи
либо использовать компоненты, которые умеют получать значения ключ.поля вставленной записи

Таблицы: первая Client (cod_cl, fam, name, otch), вторая Protocol (cod_cl, data_p, summa) связаны соответсвенно по cod_cl.

а из этого получается, что ваша таблица просто разбита на 2 куска

[Nomiko]

Это поле заполняется генератором.
А при использовании Locate выдает ошибку
Вообще задача стоит в то, чтобы внести посетителя в списки и указать сумму, которую он заплатил. Для сохранения используется таблица client, а для сохранения суммы Protocol. Может тогда кто нить подскажет как это подругому можно сделать? Это последнее что мне в дипломе сделать осталось! )

[Nomiko]

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

[soleil@mmc]

ты там что-то про гриды говорил
а вот это какого типа в проге объявлено?
posetiteli?
posetiteli.dsprosmotr?
и чего за БД?

[Nomiko]

БД в Firebird. Posetiteli - имя формы, dsprosmotr-DataSet

[soleil@mmc]

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

БД в Firebird. Posetiteli - имя формы, dsprosmotr-DataSet

и какие компоненты ты используешь?
тебе же сам файрберд велел заюзать компоненты FIB+
ищи книжку с авторами Ковязин, Востриков (здесь на форуме в этом же разделе была в списке литературы) и читай там главу про фибовские компоненты

[Nomiko]

Большое спасибо всем разобралась, сделала