Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Базы данных и репортинг > Как сделать авторизацию

Автор: MadCoder 8.5.2008, 12:09

Здравствуйте!

Разобрался (http://forum.vingrad.ru/forum/topic-210297/anchor-entry1505415/0.html) как создать функцию авторизации, теперь интересует, как ее обработать в Делфи, например, через TADOStoredProc? smile

Добавлено через 52 секунды
У меня есть пару Edit'ов: имя пользователя и пароль, я хочу отправлять эти данные на сервер, чтобы функция проверила и выдала ответ, а средствами делфи проанализовать ответ.

Автор: MadCoder 8.5.2008, 12:28

У меня вышло так:

Код


if CheckPassProc.Active=True then CheckPassProc.Close;
CheckPassProc.Parameters.ParamByName('@userlogin').Value:=Edit1.text;
CheckPassProc.Parameters.ParamByName('@userpassword').Value:=Edit2.text;
CheckPassProc.ExecProc;

if CheckPassProc.Parameters.ParamByName('@RETURN_VALUE').Value=1 then
ShowMessage('Авторизация успешна')
else
ShowMessage('Неправильно введено имя или пароль')

Но все равно не пашет! :(

Автор: Rodman 8.5.2008, 14:11

ORACLE?

Автор: Vas 8.5.2008, 16:57

Цитата(Rodman @ 8.5.2008, 14:11

)

ORACLE?

Неа, сто пудов MSSQL smile

Автор: MadCoder 8.5.2008, 23:22

MSSQL, хотя для Делфи это не имеет никакого значения. Спасибо, уже разобрался. Там, Где надо указывать функцию, надо писать не Functionname,0 , а Functionname,1 и все smile