Код:
ADOQuery1.close;
ADOQuery1.sql.text:='SELECT SUBSTRING_INDEX(USER(),"@",1);';
try
ADOQuery1.Open;
except
begin
progressbar1.State:=pbsError;
messageDlg('Ошибка SQL', mtError, [mbOK], 0);
Exit;
end;
end;
Логин текущего юзера без хоста
С хостом запрос =
Когда-то сказал спасибо за это уважаемому M.A.D.M.A.N ))