Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 05.01.2010, 11:05   #1
Nice42ru
Форумчанин
 
Регистрация: 25.10.2009
Сообщений: 131
По умолчанию SQL авторизация в Delphi

Пытаюсь сделать авторизацию из Delphi.
Пользователь вводит логин пароль, если правильно, то проблем нет, а если не правильно, то выскакивает ошибка?
Как такое можно осуществить?
Nice42ru вне форума Ответить с цитированием
Старый 05.01.2010, 12:40   #2
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию

ТADOConnection
ТDatabase
ТIBDatabase
...
У всех есть свойство LoginPrompt и соответствующие параметры.
mihali4 вне форума Ответить с цитированием
Старый 05.01.2010, 12:51   #3
Nice42ru
Форумчанин
 
Регистрация: 25.10.2009
Сообщений: 131
По умолчанию

Нет, я не про конект к базе с её логином и паролем, а в базе есть таблица accounts в ней есть столбик login и password (тут значение в md5 хеше) на форме есть Edit1-логин Edit2-пароль и button1 - войти
когда жмём войти идёт коннект в базу и сверяется со значениями в таблице, если всё верно то пустит а если нет выдаст ошибку: Неправельный логин/пароль.
Nice42ru вне форума Ответить с цитированием
Старый 05.01.2010, 13:04   #4
ОДИНОЧЕСТВО В СЕТИ
Любопытная Вредина
Участник клуба
 
Аватар для ОДИНОЧЕСТВО В СЕТИ
 
Регистрация: 19.06.2009
Сообщений: 1,285
По умолчанию

Код:
....
qry1.sql('select * from accounts where login='+quotedstr(edt1.text));
....

if qry1.fieldbyname('password').asString=edt2.text then showmessage('Welcome!!!')
else showmessage('yankee go home!');
Дурь - это особая форма материи, которая не возникает ниоткуда и не исчезает никуда, а лишь переходит из одной головы в другую.
ОДИНОЧЕСТВО В СЕТИ вне форума Ответить с цитированием
Старый 05.01.2010, 13:13   #5
psycho-coder
Участник клуба
 
Аватар для psycho-coder
 
Регистрация: 06.04.2009
Сообщений: 1,524
По умолчанию

Цитата:
ОДИНОЧЕСТВО В СЕТИ

Цитата:
тут значение в md5 хеше
Тебе нужно сначала зашифровать пароль и его сравнивать по коду ОДИНОЧЕСТВО В СЕТИ
Во вложении функция хеширования по алгоритму md5
Вложения
Тип файла: txt md5hash.pas.txt (6.2 Кб, 184 просмотров)
psycho-coder вне форума Ответить с цитированием
Старый 05.01.2010, 13:34   #6
Nice42ru
Форумчанин
 
Регистрация: 25.10.2009
Сообщений: 131
По умолчанию

Цитата:
Сообщение от ОДИНОЧЕСТВО В СЕТИ Посмотреть сообщение
Код:
....
qry1.sql('select * from accounts where login='+quotedstr(edt1.text));
....

if qry1.fieldbyname('password').asString=edt2.text then showmessage('Welcome!!!')
else showmessage('yankee go home!');
Это как я понимаю без md5 шифрования, для начала хотябы я научусь так, что надо вешать на форуму или какие компоненты добавить и куда этот код вешать?
Nice42ru вне форума Ответить с цитированием
Старый 05.01.2010, 13:35   #7
ОДИНОЧЕСТВО В СЕТИ
Любопытная Вредина
Участник клуба
 
Аватар для ОДИНОЧЕСТВО В СЕТИ
 
Регистрация: 19.06.2009
Сообщений: 1,285
По умолчанию

Дуйте в раздел БД Delphi там литература в самом верху вот с нее и начните!
Дурь - это особая форма материи, которая не возникает ниоткуда и не исчезает никуда, а лишь переходит из одной головы в другую.
ОДИНОЧЕСТВО В СЕТИ вне форума Ответить с цитированием
Старый 05.01.2010, 14:33   #8
Nice42ru
Форумчанин
 
Регистрация: 25.10.2009
Сообщений: 131
По умолчанию

Пролистал две книги нечего похожего не нашёл, может вы подскажете решение?
Nice42ru вне форума Ответить с цитированием
Старый 07.01.2010, 13:21   #9
Nice42ru
Форумчанин
 
Регистрация: 25.10.2009
Сообщений: 131
По умолчанию

Цитата:
Сообщение от ОДИНОЧЕСТВО В СЕТИ Посмотреть сообщение
Код:
....
qry1.sql('select * from accounts where login='+quotedstr(edt1.text));
....

if qry1.fieldbyname('password').asString=edt2.text then showmessage('Welcome!!!')
else showmessage('yankee go home!');

Помогите пожалуйсто данный код переделать под мои компоненты я его переделал вот так:
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin

MySQL.ExecSQL('select * from accounts where login='+quotedstr(edit1.text));

if MySQL.ExecSQL.fieldbyname('password').asString=edt2.text then showmessage('Welcome!!!')
else showmessage('yankee go home!');

end;
Но увы вылазиет ошибка

[Ошибка] Unit1.pas(490): Not enough actual parameters
[Ошибка] Unit1.pas(496): Statement expected but end of file found


Как исправить это всё? Коннект я настроил! С базой соединение есть!
Nice42ru вне форума Ответить с цитированием
Старый 07.01.2010, 14:57   #10
Nice42ru
Форумчанин
 
Регистрация: 25.10.2009
Сообщений: 131
По умолчанию

Может кто-нибуть помочь или нет я уже час над этим бьюсь!
Nice42ru вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Создание новых таблиц в MS SQL SERVERE через SQL запрос в Delphi S_Yevgeniy Помощь студентам 1 27.10.2009 06:26
Delphi + HTTP = авторизация extrimportal Работа с сетью в Delphi 4 08.04.2009 08:26
Авторизация в Delphi KiRiLl13 Общие вопросы Delphi 3 27.02.2009 07:57
Авторизация SQL Server antoni БД в Delphi 3 07.08.2008 19:34