Копирование поля из одной таблицы в другую(ADO)

[RamireZ]

Здравствуйте.В базах данных я не особо силен.Работу делаю с пом. ADO.
Имеется вот такой код, взял я его с какой то книжки:
При нажатии на кнопке Удалить:

procedure TForm1.Button3Click(Sender: TObject);
begin
if Application.MessageBox(PChar('Вы действительно хотите удалить запись :'
+DataModule1.ADOTable1DSDesigner.Asstring+' '+DataModule1.ADOTable1DSDesigner2.Asstring
+' '+DataModule1.ADOTable1DSDesigner3.Asstring), 'Внимание!!!',
MB_OKCANCEL)=id_OK then
begin
DataModule1.ADOTable1.Delete;
end;
end;

Но перед удалением мне нужно скопировать удаляемое поле в другую таблицу(напр table_arxiv), а из этой таблицы(напр. table_main) удалить эту запись.
Проблема вроде простая, но я не могу понять, как получить,идентификатор, так чтоли сказать; т.е я не могу объяснить программе, какую имеено запись ему нужно скопировать в table_arxiv, т.к не пойму, где это прописывается.
Работаю с компонентами ADOConnection, ADOTable,DataSource и DBGrid.
Скрин прикладываю для наглядности.

[soleil@mmc]

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

[RamireZ]

Сообщение от soleil@mmc

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

БД будет распологаться локально, на одном компьютере

[mihali4]

как получить,идентификатор

А номер очереди в таблице? Чем не идентификатор?

[pu4koff]

1. Серверная часть в данном случае - это СУБД, а без неё никуда, хоть БД будет и на локальном компьютере. Какая СУБД используется? access, oracle, sql server,...?
2. У ADOTable должно быть событие что-то вроде OnBeforeDelete. Вот там через ADOTable1.FieldByName(...) можно получить значения всех полей таблицы и вставить их в другую таблицу:

ADOTable2.Append;
ADOTable2.FieldByName('xxx').Value := ADOTable1.FieldByName('xxx').Value;
...
ADOTable2.Post;

[RamireZ]

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

1. Серверная часть в данном случае - это СУБД, а без неё никуда, хоть БД будет и на локальном компьютере. Какая СУБД используется? access, oracle, sql server,...?
2. У ADOTable должно быть событие что-то вроде OnBeforeDelete. Вот там через ADOTable1.FieldByName(...) можно получить значения всех полей таблицы и вставить их в другую таблицу:

ADOTable2.Append;
ADOTable2.FieldByName('xxx').Value := ADOTable1.FieldByName('xxx').Value;
...
ADOTable2.Post;

Cпасибо, помогло
До этого пытался пользовался такой моделью:

    ADOTable2.Append;
    ADOTable2.Edit;
    for i:= 0 to ADOTable1.FieldCount-1 do
      ADOTable2.Fields[i]:= ADOTable1.Fields[i];
    ADOTable2.Post;

На это он мне выдавал ошибку на поле, где вводилась дата рождения , что то типа того, что "нельзя совместить типы Ole(str) и Date", хотя у меня там OLE и не пахнет...