// первоначальная проверка, есть ли в базе данных пользотель с правами администратора,
//если нет, то создается администратор с логином admin и паролем admin
if VarToStr( SQLExecute('SELECT count(id) FROM users WHERE administrator=1;') ) = '0' then
begin
ShowMessage('Пользователя с правами Администратора не найдено, поэтому он будет создан автоматически, с логином admin и паролем admin');
SQLExecute('INSERT INTO users (login, password, read, write, remove, search, administrator) VALUES ("admin", "admin", 1, 1, 1, 1, 1);');
frmLogin.edUser.Text := 'admin';
frmLogin.edPassword.Text := 'admin';
end;
Его нужно как то переделать я так понимаю ? Только чтобы учитывал Если Nomer = 500 и name = Рома - то создаем пароль - Р