добавление данных в бд

[Дюша]

Здравствуйте,вообщем есть программа ,там список работников,их анкета и т.д.Там есть записи некоторых работников и с ними все хорошо добавляется,а вот если я добавляю нового работника происходят проблемы,попробую объяснить:

1.Я добавляю нового работника,перехожу например в раздел анкета и заполняю,жму сохранить,все поля становятся пустыми.
2.Закрываю окно анкеты,выбираю анкету другого работника,захожу и закрываю.
3.Потом перехожу снова к новому сотруднику и там уже то,что я тогда вводил отображается,в чем проблема?

procedure TForm11.Button3Click(Sender: TObject);
begin
DM.ADODSkursi.Active:=True;
DM.ADODSkursi.FieldByName('id').AsInteger:=Dm.ADODSuch.FieldByName('id').AsInteger;
DM.ADODSkursi.Post;
button1.Enabled:=true;
end;

кнопка для сохранения ,после чего все исчезает

p.s Использую adoconection,adodataset,datasourse

[eval]

погодите ка, сейчас спросим у звезд........ нет молчат они, противные

[xxbesoxx]

Сообщение от Дюша

Здравствуйте,вообщем есть программа ,там список работников,их анкета и т.д.Там есть записи некоторых работников и с ними все хорошо добавляется,а вот если я добавляю нового работника происходят проблемы,попробую объяснить:

1.Я добавляю нового работника,перехожу например в раздел анкета и заполняю,жму сохранить,все поля становятся пустыми.
2.Закрываю окно анкеты,выбираю анкету другого работника,захожу и закрываю.
3.Потом перехожу снова к новому сотруднику и там уже то,что я тогда вводил отображается,в чем проблема?

procedure TForm11.Button3Click(Sender: TObject);
begin
DM.ADODSkursi.Active:=True;
DM.ADODSkursi.FieldByName('id').AsInteger:=Dm.ADODSuch.FieldByName('id').AsInteger;
DM.ADODSkursi.Post;
button1.Enabled:=true;
end;

кнопка для сохранения ,после чего все исчезает

p.s Использую adoconection,adodataset,datasourse

Если так ...

procedure TForm11.Button3Click(Sender: TObject);
begin
 DM.ADODSkursi.Insert;
  DM.ADODSkursi.FieldByName('id').AsInteger:=Dm.ADODSuch.FieldByName('id').AsInteger;
 DM.ADODSkursi.Post;
end;

[Дюша]

нет с инсерт ошибка,может кто подсказать? всю голову сломал

[Streletz]

Сообщение от Дюша

нет с инсерт ошибка

Очень информативно. Что, конкретно, за ошибка?
Ошибку в студию!

[xxbesoxx]

Дюша Пишите подробно что за ошибка .............. Скриншоты выложите и проект тоже...... А то на ваши вопросе отвечать сложно

[Stilet]

всю голову сломал

id дублируется? А ты проверяй с помошью метода locate существует ли вставляемый id и если да - не пиши.