Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.88/33: Рейтинг темы: голосов - 33, средняя оценка - 4.88
Doctor-Who
17 / 3 / 1
Регистрация: 03.05.2012
Сообщений: 354
1

Создание логина и пароля

31.10.2012, 16:16. Просмотров 6697. Ответов 3
Метки нет (Все метки)

Здравствуйте. Нужна помощь в создании логина и пароля. То есть чтобы выскакивала Form2 с просьбой ввести логин и пароль( уже я накидал туда компонентов) и только после ввода правильного логина и пароля открывался доступ к Form1. Кто-нибудь уже делал так?
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
31.10.2012, 16:16
Ответы с готовыми решениями:

Проверка логина\пароля на сайте
Помогите мне сделать такую фичу(если вам не сложно и зараннее спасибо), программу которая вводит...

Программа проверки логина/пароля к сайту
Помогите написать программу, которая бы проверяла подходят ли набор логинов/паролей к определенному...

Шифрование логина и пароля, введенных пользователями
Плиз помогите кто может исправте или дополните код или возможно как то подругому зашифруйте логин...

Создание пароля на вход программы
Привет всем, мне нужен код чтобы при входе в мою программу она требовала пароль

Создание Логина и Пароля с шифрованием
Есть задание создать логин и пароль с шифрованием... Сделал через БД, но увы зашифрованные данные в...

3
mss
2640 / 2264 / 277
Регистрация: 24.12.2010
Сообщений: 13,725
31.10.2012, 16:22 2
Код
if TForm2.Create(nil).ShowModal = mrOk then begin
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end else Halt(0);
0
Romantik_FM
310 / 306 / 80
Регистрация: 03.03.2010
Сообщений: 1,328
31.10.2012, 16:26 3
смотри здесь
0
droider
Universal
Эксперт Pascal/Delphi
4516 / 2530 / 804
Регистрация: 04.10.2012
Сообщений: 9,217
31.10.2012, 17:29 4
Небольшая подсказка: в Delphi есть готовый шаблон диалога авторизации. В меню File>New>Other выбери вкладку Dialogs и после сам шаблон PasswordDialog.
Теперь в обработчике события OnCloseQuery для этой формы набери
Delphi
1
2
3
4
5
6
7
8
9
10
11
procedure TPasswordDlg.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
if Password.Text = 'твой пароль' then CanClose:=true
else
begin
Application.MessageBox(Pchar('Неверный пароль!'), 'Ошибка' );
 Application.Terminate;
end;
end;
end.
Шаблон корректируй как угодно.

Добавлено через 33 минуты
Для события OnShow главной формы, которая отображается после верного ввода пароля пропиши еще

Delphi
1
2
3
4
5
6
procedure TFmMenu.FormShow(Sender: TObject);
begin
PasswordDlg.ShowModal;
end;
 
end.
0
31.10.2012, 17:29
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
31.10.2012, 17:29

Запоминание логина и пароля?
Здравствуйте! Есть форма с эдитами (логин, пароль), и кнопка подключиться. Как мне сделать...

Проверка логина и пароля
procedure TActiveFormTUZ.btn6Click(Sender: TObject); var i: Integer; begin // проверили ...

Хранение логина и пароля в базе
Сделал авторизацию при входе в базу, храню логин и пароль в одной из таблиц базы. База клиент -...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.