Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Авторизация! Вход в систему. [D7, XP]

newhite © (2005-12-17 23:06:00)
Как написать простейший "вход в систему" (в программу) всего на одного пользователя.
Конкретнее: открывается программа, в верхнем меню выбирается "Вход", далее открывается маленькая форма с двумя эдитами для логина и пассворда, кнопки "Ок" и "Отмена". Что писать в обработчике кнопки "Ок"?

Scripl (2005-12-18 14:25:00) [1]
Drum'n'Bass это круче всего!!!!

newhite (2005-12-18 14:11:00) [2]
"Работай с их свойством Enabled."

Поработала. Остальные пункты меню не видны до входа в систему. А как сделать теперь чтобы После нажатия кнопочки ОК они появлялись? Как обратиться отдельному пункту меню? У него стоит в Name - N3. Но когда я пишу в обработчике кнопки ОК ... then N3.visible:=true; выдается ошибка!

Сайбель Алексей (2005-12-18 12:46:00) [3]

> А как теперь сделать, чтобы до входа в систему
> остальные пункты MainMenu1 пока не отображались?

Работай с их свойством Enabled.

> а я приехал с тусы...с транса,если кому инетресно

Drum 'n' Bass рулит )

newhite (2005-12-18 12:42:00) [4]
Спасибо! Вариант : "Поставь скобки.
if (Edit1.Text='здесь логин') and (edit2.Text='Пароль') then" прошел!

А как теперь сделать, чтобы до входа в систему остальные пункты MainMenu1 пока не отображались?

St74 (2005-12-18 10:33:00) [5]
А так не пойдёт...
...
var
Password: string;

begin
Application.Title := 'MyApp';
if InputQuery('MyApp - Вход.', 'Введите Пароль для Авторизации.',
PassWord) then
if Password = '123456789' then
begin
Application.CreateForm(TMyApp, MyApp);
Application.Run;
end
else
MessageDlg('Неправельный пароль. Программа будет закрыта!', mtError, [mbOk], 0);
end.
...

St74! :)

alex-drob (2005-12-18 08:40:00) [6]
Поставь скобки.
if (Edit1.Text='здесь логин') and (edit2.Text='Пароль') then

newhite (2005-12-18 02:07:00) [7]
Не прокатывает. Как раз на этой строчке выдает ошибку: [Error] Unit4.pas(57): Operator not applicable to this operand type. Почему?

alex-drob (2005-12-18 01:51:00) [8]
если не нужна возможность смены логина и пароля тогда можно написать так:
if Edit1.Text='здесь логин' and edit2.Text='Пароль' then
А если есть необходимость изменения то они будут гдето храниться, оттуда и бери.
Переменные типа String.

newhite (2005-12-18 01:43:00) [9]
Вот это понятно: Edit1.Text это куда вводится логин. Edit2.Text - пароль.

А это нет: login-переменная содержащая логин, pass -пароль.

Где они должны быть прописаны кроме обработчика кнопочки ОК?

alex-drob (2005-12-18 01:40:00) [10]
Edit1.Text это куда вводится логин. Edit2.Text - пароль, login-переменная содержащая логин, pass -пароль.

newhite (2005-12-18 01:33:00) [11]
А что должно быть написано в строке: "if Edit1.Text=login and edit2.Text=pass then" вместо "login" и "pass"? И что еще где прописывается? А то ошибку выдает: [Error] Unit4.pas(33): Undeclared identifier: 'login'.

Знаю что глупые вопросы :) Но очень надо и очень хочется разобраться.

Scripl (2005-12-18 00:19:00) [12]
а я приехал с тусы...с транса,если кому инетресно и узнал,что очень скоро сдавать курсовую работу...вот это сюрприз...

newhite (2005-12-18 00:18:00) [13]
Я вроде поняла. Пойду делать :) спасибо!

ПС: я две книжки облазила и ничего подобного так и не нашла.

аматор (2005-12-18 00:14:00) [14]
Привет...
Scripl [5] :)..........
Ребята перед тем как я начал задавать вопросы я усиленннно читал книги (более двух :) ) и там описано это кажись на 2-ом десятке страниц.

Дева (2005-12-18 00:13:00) [15]
Это уже что конкретно необходимо
Лично я сделала проще
У меня не отображается меню до тех пор, пока не подтвердится пароль и логин.
if Edit1.Text=login and edit2.Text=pass then
begin
ActionsM.Visible:=true;//меню
DBM.Visible:=true;
ReportM.Visible:=true;
DataM.Visible:=true;
end;

Scripl (2005-12-18 00:09:00) [16]
а что THEN ?

alex-drob (2005-12-18 00:07:00) [17]
if Edit1.Text=login and edit2.Text=pass then

Scripl (2005-12-17 23:59:00) [18]
да...меня тоже это интересует...

newhite (2005-12-17 23:45:00) [19]
Именно это меня и интересует. Как писать "проверку на наличие логина и на совпадение пароля для конкретного логина"?

Fenik (2005-12-17 23:10:00) [20]
> Что писать в обработчике кнопки "Ок"?

Очевидно проверку на наличие логина и на совпадение пароля для конкретного логина, если наличие такового подтвердилось.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »