Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.01.08;
Скачать: CL | DM;

Вниз

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

 
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. Почему?


 
alex-drob ©   (2005-12-18 08:40) [15]

Поставь скобки.
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! :)


 
newhite ©   (2005-12-18 12:42) [17]

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

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


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


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

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


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

Drum "n" Bass рулит )


 
newhite ©   (2005-12-18 14:11) [19]

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

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


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

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



Страницы: 1 вся ветка

Текущий архив: 2006.01.08;
Скачать: CL | DM;

Наверх




Память: 0.51 MB
Время: 0.016 c
14-1134105263
pavel_guzhanov
2005-12-09 08:14
2006.01.08
непонятный глюк при установке Delphi7


4-1130880834
Freeon
2005-11-02 00:33
2006.01.08
Помогите разобраться с прохожднием всех каталогов


4-1130664226
злобная танька
2005-10-30 12:23
2006.01.08
Открыть с помощью...


1-1133690439
Сафаров
2005-12-04 13:00
2006.01.08
сообщение об ошибке invalid variant operation


2-1135162251
Steplerr
2005-12-21 13:50
2006.01.08
Cохранение нескольких изображений в один файл?