Авторизация! Вход в систему.

← →
newhite © (2005-12-17 23:06) [0]

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

← →
Fenik © (2005-12-17 23:10) [1]

> Что писать в обработчике кнопки "Ок"?

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

← →
newhite © (2005-12-17 23:45) [2]

Именно это меня и интересует. Как писать "проверку на наличие логина и на совпадение пароля для конкретного логина"?

← →
Scripl (2005-12-17 23:59) [3]

да...меня тоже это интересует...

← →
alex-drob © (2005-12-18 00:07) [4]

if Edit1.Text=login and edit2.Text=pass then

← →
Scripl (2005-12-18 00:09) [5]

а что THEN ?

← →
Дева © (2005-12-18 00:13) [6]

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

← →
аматор © (2005-12-18 00:14) [7]

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

← →
newhite © (2005-12-18 00:18) [8]

Я вроде поняла. Пойду делать :) спасибо!

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

← →
Scripl (2005-12-18 00:19) [9]

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

← →
newhite © (2005-12-18 01:33) [10]

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

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

← →
alex-drob © (2005-12-18 01:40) [11]

Edit1.Text это куда вводится логин. Edit2.Text - пароль, login-переменная содержащая логин, pass -пароль.

← →
newhite © (2005-12-18 01:43) [12]

Вот это понятно: Edit1.Text это куда вводится логин. Edit2.Text - пароль.

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

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

← →
alex-drob © (2005-12-18 01:51) [13]

если не нужна возможность смены логина и пароля тогда можно написать так:
if Edit1.Text="здесь логин" and edit2.Text="Пароль" then
А если есть необходимость изменения то они будут гдето храниться, оттуда и бери.
Переменные типа String.

← →
newhite © (2005-12-18 02:07) [14]

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

Поставь скобки.
if (Edit1.Text="здесь логин") and (edit2.Text="Пароль") then

← →
St74 (2005-12-18 10:33) [16]

А так не пойдёт...
...
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! :)

Спасибо! Вариант : "Поставь скобки.
if (Edit1.Text="здесь логин") and (edit2.Text="Пароль") then" прошел!

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

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

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

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

Drum "n" Bass рулит )

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

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

← →
Scripl (2005-12-18 14:25) [20]

Drum"n"Bass это круче всего!!!!

Авторизация! Вход в систему. Найти похожие ветки