[antonsnit]

Сообщение от Страдалецъ

1. Прежде чем добавить, сделайте проверку на повтор данных.
2. Постарайтесь неиспользовать прямое обращение к таблице. Все через запрос.
Примерно так можно организовать ввод сотрудника

Код:

Q := TAdoQuery.Create(nil); 
Q.Connection := MyDB;
Q.SQL.Text := 'select КодСотрудника from Сотрудники where Сотрудник=:Сотрудник';
Q.Parameters.ParamValues['Сотрудник'] := Edit1.Text;
Q.Open;
if Q.isEmpty
then begin
       Q.SQL.Text := 'insert into Сотрудники (Сотрудник) values(:Сотрудник)';
       Q.Parameters.ParamValues['Сотрудник'] := Edit1.Text;
       Q.ExecSql;
       Q.SQL.Text := 'select Max(КодСотрудника) as КодСотрудника from Сотрудники';
       Q.Open;
       end;
EmployeeKey := Q.FieldValues['КодСотрудника'];

По аналогии можете сделать все остальное

Спасибо, попробую сделать так.