procedure DoEnterCode(Code: string);
var Id: integer;                                    
begin
  if Code = '' then Exit;
  ShowEmployee.Close;
  while Length(Code)>0 do // удаляем ведущие ноли
    if Code[1] = '0' then Delete(Code,1,1) else Break;
  ExecSQL('insert into ALog(ANumber,ADate) select :N,:D',[Code,Now()]);  // запись в таблицу логирования
  ShowEmployee.SQL.Text := 'select * from Employee E where TabNumber = '''+Code+'''';  // формируем запрос на поиск сотрудника
  ShowEmployee.Open; // здесь сотрудник найден и показывается на экране монитора 
  if not ShowEmployee.IsEmpty then // если запрос вернул сотрудника
    ExecSQL('insert into EmployeeRegistration(IdEmployee,ADate) values(:IdEmployee,:ADate)',[ShowEmployee['IdEmployee'],Now()]); // записываем сотрудника в базу
  ShowEmployeeRegistration.Execute; // обновляем список зарегистрированных сотрудников
  Timer1.Enabled := true; // запускаем таймер на обработку списка
end;

// сначала пишем в ALog
ExecSQL('insert into ALog(ANumber,ADate) select :N,:D',[Code,Now()]);
// затем ищем сотрудника и отображаем его на экране
ShowEmployee.SQL.Text := 'select * from Employee E where TabNumber = '''+Code+'''';
ShowEmployee.Open; // сюда прицеплен TDatasoure + TDBImage 
// если сотрудник найден, то пишем его в EmployeeRegistration
if not ShowEmployee.IsEmpty then 
  ExecSQL('insert into EmployeeRegistration(IdEmployee,ADate) values(:IdEmployee,:ADate)',[ShowEmployee['IdEmployee'],Now()]);