Работа с паролями в дельфи

[Stilet]

Ну допустим так:

with Query do begin
 sql.text:='select count(*) from Users where username=:u and pass=:p';
 with Parameters do begin
  ParamByName('u').value:=Юзер;
  ParamByName('p').value:=Пароль;
 end;
 open;
 if Fields[0].AsInteger>0 then Да, есть такой балбес в базе :)
 close;
end;

[Dinara12]

Сообщение от Serge_Bliznykov

точно так. Идею Вы уловили верно! (вообще-то, для безопасности, хранить пароли не принято, вместо них хранять результат некой специальной необратимой функции, обычно это MD5. Если интересно, Вы можете погуглить и прочитать, что это такое и как этим пользоваться.)


у Вас что, для 500 пользователей 500 отдельных РАЗНЫХ форм?!
Это говорит о том, что Вы, скорее всего, неверно спроектировали структуру программы. Объясните, для чего Вам каждому пользователю СВОЯ форма?!

Обычно формы в программе создаются под выполняемые задачи (функции, роли). Например, если пользователь оператор, то ему доступна форма ввода данных.

500 форм,улыбнуло)) нет нет, форм всего 6, да как-раз по выполняемым функциям.

Сообщение от Serge_Bliznykov

А вообще, в ту таблицу, где Вы храните логин и пароль (или MD5 хеш пароля) добавьте поле (или поля), где и храните информацию, описывающую доступные пользователю функции (читай - "формы"). На Delphi выполняете запрос, если пользователь с таким логином и паролем найден, программа на Delphi получает эти величины и дальше, в зависимости от них открывает/прячет нужные формы.

вот про то как с дельфи связать не поняла. к примеру у меня на форме есть два лэйбла и два дбэдита, соответственно для логина и пароля. и кнопка. как мне в обработчике события прописать, то, что вы написали выше?

[Stilet]

Мой пример подходит?
P.S. И лейблы и ДБэдиты убери немедля. Первые бесполезны вторые для редактирования в базе.
Тебе достаточно обычных эдитов будет, ты же не хочешь пароли редактировать?

[Dinara12]

Сообщение от Stilet

Мой пример подходит?
P.S. И лейблы и ДБэдиты убери немедля. Первые бесполезны вторые для редактирования в базе.
Тебе достаточно обычных эдитов будет, ты же не хочешь пароли редактировать?

ок,оставлю эдиты. а лэйблы с надписями "введите пароль и логин" тоже убрать? может оставить?) пример подходит,но можно немножко пояснить) спасибо за помощь) с Новым Годом)))

[Stilet]

может оставить?)

Ну ради нового года )))
Оставляй.

можно немножко пояснить)

Можно. Спрашивай что не ясно.

[Dinara12]

еще вопросик, на форме у меня есть логин, пароль, и РОЛЬ, то есть или сотрудник банка или клиент. следовательно, формы для каждого типа пользователей разные. так вот, роль я задаю с помощью combobox-а, но не знаю как связать значение комбобокса с предыдущим(вами написанным) кодом. не подскажете?

[Dinara12]

Сообщение от Stilet

Ну допустим так:

with Query do begin
 sql.text:='select count(*) from Users where username=:u and pass=:p';
 with Parameters do begin
  ParamByName('u').value:=Юзер;
  ParamByName('p').value:=Пароль;
 end;
 open;
 if Fields[0].AsInteger>0 then Да, есть такой балбес в базе :)
 close;
end;

еще вопросик, на форме у меня есть логин, пароль, и РОЛЬ, то есть или сотрудник банка или клиент. следовательно, формы для каждого типа пользователей разные. так вот, роль я задаю с помощью combobox-а, но не знаю как связать значение комбобокса с предыдущим(вами написанным) кодом. не подскажете?