Открытие второй формы только после ввода пароля на первой

@Настя_111 · Регистрация: 12.05.2010

Студворк — интернет-сервис помощи студентам

Приветик всем
у мня тут проблемка помогите пожалуста

мне нада чтобы при нажатии на кнопку BitBtn1, она запрашивала пароль, а после ввода пароля открывала вторую форму. А без пароля неоткрывала.

@FuKingBrain · 30.11.2010, 10:24

Создай форму в которой будешь спрашивать пароль. При клике по кнопки, сначала фызывай форму для ввода пароля, а потом всё то что нужно.

@Lord_Voodoo · 30.11.2010, 10:28

Настя_111, ну и в чем собственно проблема?

@Настя_111 · 30.11.2010, 12:49 **[ТС]**

Я создала форму
при нажатии на кнопку, я там прописала Form2.ShowModal;
у меня открывается следующая, а как сделать чтобы перед открытием спрашивала пароль

@Lord_Voodoo · 30.11.2010, 12:52

Настя_111, создайте форму для авторизации и делайте ей showmodal в событии OnCreate или конструкторе главной формы

@Настя_111 · 06.12.2010, 20:34 **[ТС]**

Lord_Voodoo вы непонимаете, я уже все это зделала
мне нада чтобы при открытии той формы которой я прописала ShowModal она неоткрывалась пока небудет введен пароль

@Vangok · 06.12.2010, 20:54

Так в авторизации будет логин и пароль?
Сколько пользователей будет иметь доступ?
Будут ли у них пользователей права: Администратор Модер Пользователь
Если всего того что я назвал не будет, то пишите условие

Delphi
1
2
if (edit1.text<>'') and (edit11.text='Пароль') then Form2.ShowModal
else exit;

В случае же если будут участвовать все 3 пункта то необходимо определиться с базой: XML, MS Access, MSSQL, MYSQL, Oracle и т.д.
Создавать дополнительную форму для регистрации пользователей, делать все возможные проверки на поля.
И простым SQL запросом выполнять авторизацию пользователя.

@PresAlexandr · 06.12.2010, 20:57

Не по теме:

Vangok, ну ты жжешь :umnik:

@Vangok · 06.12.2010, 21:02

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

Не по теме:

Vangok, ну ты жжешь :umnik:

А че я описал реальные вещи, как на самомделе все это делается)

@PresAlexandr · 06.12.2010, 21:06

Не по теме:

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

А че я описал реальные вещи, как на самомделе все это делается)

Я согласен, что всё вышенаписанное Вами имеет место, но не в данном случае )) Не переутруждайтесь %-)

P.S. Извините за флуд, вырвалось =)

@Vangok · 06.12.2010, 21:07

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

Так в авторизации будет логин и пароль?
Сколько пользователей будет иметь доступ?
Будут ли у них пользователей права: Администратор Модер Пользователь
Если всего того что я назвал не будет, то пишите условие

Delphi
1
2
if (edit1.text<>'') and (edit11.text='Пароль') then Form2.ShowModal
else exit;

В случае же если будут участвовать все 3 пункта то необходимо определиться с базой: XML, MS Access, MSSQL, MYSQL, Oracle и т.д.
Создавать дополнительную форму для регистрации пользователей, делать все возможные проверки на поля.
И простым SQL запросом выполнять авторизацию пользователя.

А еще забыл добавить Писать это условие надо на форме авторизации у кнопки TBitBtn или TButton

@Настя_111 · 13.12.2010, 23:03 **[ТС]**

Спасибо Vangok
а как зделать чтобы вместо видемого пароля были звездочки

@schdub · 13.12.2010, 23:28

У Edit1 находите свойство PasswordChar. По умолчанию оно равно #0, и меняете на интересующий символ, в данном случае *.

Добавлено через 2 минуты

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

Delphi
1
if (edit1.text<>'') and (edit11.text='Пароль')

Vangok, а почему Editы разные?

@Vangok · 14.12.2010, 16:14

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

У Edit1 находите свойство PasswordChar. По умолчанию оно равно #0, и меняете на интересующий символ, в данном случае *.

Добавлено через 2 минуты

Vangok, а почему Editы разные?

Ну я чуть чуть ошибся))

@Настя_111 · 14.12.2010, 16:26 **[ТС]**

спасибо Oleg
очень помог

Добавлено через 5 минут
а подскажите пожалуста
как сделать чтобы если пароль неверный выскакивало окошко - "Неверный пароль"
или если он невведен - "введите пароль"

@Romantik_FM · 14.12.2010, 17:16

Настя_111, можно так

Delphi
1
2
3
4
5
6
if edit1.text<>'пароль' then
Begin
ShowMessage('Пароль не верный');
Edit1.SetFocus;
exit;
End;

@schdub · 14.12.2010, 19:05

Сообщение от Настя_111

как сделать чтобы если пароль неверный выскакивало окошко - "Неверный пароль" или если он невведен - "введите пароль"

Delphi
1
2
3
4
5
6
  if Edit1.Text = '' then
    ShowMessage('Введите пароль!')
  else if Edit1.Text <> 'пароль' then
    ShowMessage('Пароль не верный!')
  else
    ShowMessage('Вы ввели ВЕРНЫЙ пароль.');

Добавлено через 7 минут
Но стоит заметить, что вот так вот хранить пароль в программе нельзя. Его очень легко подсмотреть, как в откомпилированной программе, так и в исходном тексте. Т.е. ресурс, к которому данный пароль легко подвержен компрометации. Поэтому необходимо использовать алгоритмы шифрования, а лучше однонаправленного хеширования (MD5, например). Или на крайний случай, алгоритмы XOR-шифрования, например, как здесь шифрование файла.

@Настя_111 · 14.12.2010, 21:59 **[ТС]**

спасибо Oleg

Новые блоги и статьи Все статьи Все блоги /
Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем

@Настя_111 4 / 4 / 0 Регистрация: 12.05.2010 Сообщений: 159

	Открытие второй формы только после ввода пароля на первой 29.11.2010, 21:40. Показов 3148. Ответов 17 Метки нет (Все метки) Приветик всем у мня тут проблемка помогите пожалуста мне нада чтобы при нажатии на кнопку BitBtn1, она запрашивала пароль, а после ввода пароля открывала вторую форму. А без пароля неоткрывала. 0

@FuKingBrain 53 / 52 / 22 Регистрация: 29.11.2010 Сообщений: 143
	30.11.2010, 10:24
	Создай форму в которой будешь спрашивать пароль. При клике по кнопки, сначала фызывай форму для ввода пароля, а потом всё то что нужно. 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	30.11.2010, 10:28
	Настя_111, ну и в чем собственно проблема? 0

@Настя_111 4 / 4 / 0 Регистрация: 12.05.2010 Сообщений: 159
	30.11.2010, 12:49 [ТС]
	Я создала форму при нажатии на кнопку, я там прописала Form2.ShowModal; у меня открывается следующая, а как сделать чтобы перед открытием спрашивала пароль 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	30.11.2010, 12:52
	Настя_111, создайте форму для авторизации и делайте ей showmodal в событии OnCreate или конструкторе главной формы 0

@Настя_111 4 / 4 / 0 Регистрация: 12.05.2010 Сообщений: 159
	06.12.2010, 20:34 [ТС]
	Lord_Voodoo вы непонимаете, я уже все это зделала мне нада чтобы при открытии той формы которой я прописала ShowModal она неоткрывалась пока небудет введен пароль 0

@PresAlexandr
	06.12.2010, 20:57
	Не по теме: Vangok, ну ты жжешь :umnik: 0

@Настя_111 4 / 4 / 0 Регистрация: 12.05.2010 Сообщений: 159
	13.12.2010, 23:03 [ТС]
	Спасибо Vangok а как зделать чтобы вместо видемого пароля были звездочки 0

@Настя_111 4 / 4 / 0 Регистрация: 12.05.2010 Сообщений: 159
	14.12.2010, 16:26 [ТС]
	спасибо Oleg очень помог Добавлено через 5 минут а подскажите пожалуста как сделать чтобы если пароль неверный выскакивало окошко - "Неверный пароль" или если он невведен - "введите пароль" 0

@Настя_111 4 / 4 / 0 Регистрация: 12.05.2010 Сообщений: 159
	14.12.2010, 21:59 [ТС]
	спасибо Oleg 0