Почти готов новый релиз, осталось немного штрихов и выложу в обмен. Немного о изменениях:
Главное, что изменилось это вход стал на уровне учетных записей
Здесь мы видим выбор профиля, ввод пароля (реализовано скрытие под звездочки), обратная связь (больше не будет надоедливых окон при открытии и закрытии программы), ну и бегущая строка с описанием изменений.
При выборе учетной записи попадаем в рабочий интерфейс программы исходя из политики учетной записи:
Здесь мы видим что для данной учетной записи неактивны кнопки "удалить", нельзя войти в админскую зону для управления базой данных, нельзя править словари БД.
Ну и сами учетные записи поместились в словаре во вкладке "Мастера"
Здесь мы добавляем \ удаляем пользователей, назначаем права в соответствии с которыми и будет изменяться интерфейс программы.
Был вопрос, как быть, если будет новая чистая база, что вводить при старте, думал и о этом, нашел решение в виде SQL запроса:
if VarToStr( SQLExecute('SELECT count(id) FROM master WHERE admin=1;') ) = '0' then
begin
SQLExecute('INSERT INTO master (master, login, pass, admin, priem, ingener, sklad, boss) VALUES ("Admin", "admin", "admin", 1, 1, 1, 1, 1);');
login.Edit1.Text := 'admin';
end;
login.Edit1.PasswordChar := '*';
Если проще скрипт говорит о том, что если при старте не обнаружен пользователь с правами администратора, то создаем нового пользователя "admin" с правами администратора и паролем "admin".
Это означает, что при использовании чистой базы программа автоматом создаст пользователя, которого необходимо выбрать в списке.
Релиз будет готов к 17.12.2014
Посмотреть и скачать можно будет все там же на форуме
С Уважением Дмитрий
