блокировка таблицы при одновременном доступе

[dalien]

Добрый день всем форумчанам. Начну с описания проблемы.
Есть БД, сервер MSSQL. доступ к таблицам БД Осуществляется через ADOConnection, связь с таблицами-ADOTable.
Имеется таблица contract.В неё пользователи вносят данные по договорам.Добавление записей происходит следующим образом:После нажатия на кнопку "сохранить" указатель перемещаем на последнюю запись таблицы,считываем id этой строки(id_contract),и прибавляем +1 к следующей(код приведен ниже)..Возникла ситуация,когда несколько пользователей одновременно считали этот id,и хотят сохранить свои данные.У пользователей возникла ошибка доступа к данным (duplicate primary key....).Как я понял,сервер не может внести данные с повторяющимся id (т.к. это поле ключевое).Как исключить эту проблему,чтобы на момент считывания id_contract и выполнения post одного пользователя,другие не смогли считать этот id и добавить свои данные.
Извините,если коряво написано.
С уважением,dalien

//регистрация договора
procedure TForm1.SpeedButton4Click(Sender: TObject);
var i,j:integer;
tmp:string;
begin
        DM.contract.Active:=true;
        DM.contract.Open;
        DM.contract.Last;
        i:=DM.contract.FieldByName('id_contract').AsInteger;
        DM.contract.Insert;
        DM.contract.FieldByName('id_contract').AsInteger:=i+1;
        DM.contract.FieldByName('contract_number').AsString:=edit5.Text;
        DM.contract.FieldByName('contract_subject').AsString:=trim(edit7.Text);
        DM.contract.Post;
        DM.contract.Active:=false;
        DM.contract.Close;
      
Application.MessageBox('Данные сохранены','Сообщение',MB_ICONASTERISK);
end;

[soleil@mmc]

а в МССКЛ раве нет что-то наподобие сиквенсов/генераторов?

[pu4koff]

Новый ИД вам нигде не требуется, судя по всему, так почему бы не объявить поле id_contract как identity и пусть СУБД сама думает как это сделать?
Генераторов с скюле до последнего времени вроде бы не было. Может там в 2005 каком-нибудь и появились. Ну это можно протестить запросом "create sequence tryam"
В стандарте SQL за 2003 год вроде бы только sequence описаны.

[dalien]

спасибо,попробую