Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2006.01.08;
Скачать: [xml.tar.bz2];

Вниз

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

 
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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.49 MB
Время: 0.01 c
5-1120571225
Priest
2005-07-05 17:47
2006.01.08
Количество строк в выпадающем списке св-ва в Objeсе Inspector


1-1134038878
dracula
2005-12-08 13:47
2006.01.08
Unicod > ANSI конвертация.


9-1122848065
!Han!
2005-08-01 02:14
2006.01.08
Что такое Opengl?


14-1134488095
Pazitron_Brain
2005-12-13 18:34
2006.01.08
Полезная программа для урока информатики


14-1134507398
(CHALING 32)S K i N E R
2005-12-13 23:56
2006.01.08
Delphi 6 и Delphi 7





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский