[Yurk@]

Пример импорта данных в базу с использованием проверки на наличие указаной записи. KOD_INN для каждой записи уникален!!!

Код:

if DM.mTableP1.Locate('KOD_INN',DM.exTable.FieldByName('KOD_INN').Value,[]) = True then
      begin
      DM.mTableP1.Edit;
      DM.mTableP1.UpdateRecord;
    L1:
      DM.mTableP1.FieldByName('TIP').Value:=DM.exTable.FieldByName('TIP').Value;
      DM.mTableP1.FieldByName('KOD_INN').Value:=DM.exTable.FieldByName('KOD_INN').Value;
      DM.mTableP1.FieldByName('FAMILY').Value:=DM.exTable.FieldByName('FAMILY').Value;
      DM.mTableP1.FieldByName('NAME').Value:=DM.exTable.FieldByName('NAME').Value;
      DM.mTableP1.FieldByName('OTCHESTVO').Value:=DM.exTable.FieldByName('OTCHESTVO').Value;
      DM.mTableP1.FieldByName('BIRTHDAY').Value:=DM.exTable.FieldByName('BIRTHDAY').Value;
      DM.mTableP1.Post;
      DM.exTable.Next;
      end
        else
        begin
        DM.mTableP1.Insert;
        GoTo L1;
        end;
    end;