Редактирование записей

[royun]

Добрый день.
Есть СУБД MS SQL 2005 с таблицей t_nomer в которой есть колонки nomer, kross, dlu_int, polka_blok, modul_slot, port и форма MainForm на которой расположены ADOConnection1, DataSource1, ADOQuery1, DBGrid1 и кнопки "Добавить", "Редактировать", "Удалить" соответственно для добавления, редактирования и удаления записей. Добавление и удаление записей сделал, никак не могу решить задачу с редактированием.
При редактировании записи надо учесть следующее:
1. Номера не должны повторяться
2. Могут присутствовать пустые записи.
Сделал следующее:

procedure TMainForm.EditBtnClick(Sender: TObject);
begin
With ADOQuery1 do begin
if (Trim(AbNomerEdit.Text) <> '') then begin
    Active:=False;
    SQL.Clear;
    SQL.Add('SELECT nomer, kross, dlu_int, polka_blok, modul_slot, port FROM t_nomer WHERE nomer='+AbNomerEdit.Text);
    Active:=True;
    ExecSQL;
    if not IsEmpty then begin
      Application.MessageBox('Такой номер уже существует', 'Внимание!', mb_OK);      
      SQL.Clear;
      SQL.Add('SELECT nomer, kross, dlu_int, polka_blok, modul_slot, port FROM t_nomer');
      Active:=True;
    end
    else begin
       Active:=False;
       SQL.Clear;
       SQL.Add('SELECT nomer, kross, dlu_int, polka_blok, modul_slot, port FROM t_nomer');
       Active:=True;
       SQL.Clear;
       SQL.Add('UPDATE ewsd SET nomer ='+AbNomerEdit.Text+' where nomer='+FieldByName('nomer').AsString);
       ExecSQL;
       AbNomerEdit.Clear;
     end;
end  
else begin
  Edit;
  FieldByName('Nomer').AsString := AbNomerEdit.Text;
  Post;
  Sort:='Nomer';
  AbNomerEdit.Clear;
end;
end;
end;

Работает правильно, если в AbNomerEdit ввели пустое значение и ввели номер, который уже имеется. Если ввести не существующий номер, то выходит ошибка на строке 22 "ADOQuery1: Field nomer not found". И это правильно, т.к. после выполнения запроса на строке 7, если нет удовлетворяющего номера, то я получается пытаюсь изменить пустое поле. В общем надо исправить участок кода на строках с 17 по 24.

[evg_m]

а на что надо исправить?
что надо сделать-то

если нет удовлетворяющего номера,

исправить несуществующую запись?
и где какая (7/ 22/ 17/ 24/....) строчка?

[royun]

Может не красиво, но работает так как мне надо.

else begin
      ADOConnection1.Connected:=False;
      Active:=False;
      SQL.Clear;
      ADOConnection1.Connected:=True;
      SQL.Add('SELECT nomer, kross, dlu_int, polka_blok, modul_slot, port FROM t_nomer');
      Active:=True;
      Edit;
      FieldByName('Nomer').AsString:=AbNomerEdit.Text;
      Post;     
      AbNomerEdit.Clear;      
     end;

Спасибо всем участникам за помощь.

[royun]

Намного правильный вариант:

procedure TMainForm.EditBtnClick(Sender: TObject);
begin
With ADOQuery1 do begin
  if (Trim(AbNomerEdit.Text) <> '') then begin
    if not Locate('nomer',AbNomerEdit.Text,[loCaseInsensitive, loPartialKey]) then begin
      Edit;
      FieldByName('nomer').AsString:=AbNomerEdit.Text;
      Post;
      Sort:='nomer';
    end
    else
      ShowMessage('Такой номер уже существует!');
    end
  else begin
  Edit;
  FieldByName('nomer').AsString:=AbNomerEdit.Text;
  Post;
  Sort:='nomer';
  end;
end;
end;

[Stilet]

ИМХО:

procedure TMainForm.EditBtnClick(Sender: TObject);
begin 
 With ADOQuery1 do begin
  if (Trim(AbNomerEdit.Text) <> '') then begin
    if Locate('nomer',AbNomerEdit.Text,[loCaseInsensitive, loPartialKey]) then begin
      ShowMessage('Такой номер уже существует!');
      exit;
    end
  end;

  Edit;
  FieldByName('nomer').AsString:=AbNomerEdit.Text;
  Post;
  Sort:='nomer';
 end;
end;