значения SQL Возвращенные в Delphi через ADO

Question

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

DM мой DataModule

AQ_LOGIN в ADOQuery

Бену мой стол, наполненный Пользователи и их Пароль

вот код:

function UserCheckExist(Login, pw: string): boolean; 
begin 
    with DM do 
    begin 
     AQ_LOGIN.Close; 
     AQ_LOGIN.SQL.Clear; 
     AQ_LOGIN.SQL.Add('select BLOGIN from BENU where BLOGIN = ''Login'' AND BPW = ''pw'''); 
     AQ_LOGIN.Open; 
    end; 
end; 

Мой вопрос сейчас: Как я могу заставить функцию возвращать истинную или ложную погоду? Пользователь с соответствующим паролем существует?

Заранее спасибо.

Answer 1

function UserCheckExist(Login, pw: string): boolean; 
begin 
    with DM do 
    begin 
     AQ_LOGIN.Close; 
     AQ_LOGIN.SQL.Clear; 
     AQ_LOGIN.SQL.Add('select BLOGIN from BENU where BLOGIN = ''Login'' AND BPW = ''pw'''); 
     AQ_LOGIN.Open; 
     Result := (AQ_LOGIN.RecordCount > 0); 
     AQ_LOGIN.Close; 
    end; 
end; 

Answer 2

Использование:

function UserCheckExist(Login, pw: string): boolean; 
begin 
    with DM do 
    begin 
    AQ_LOGIN.Close; 
    AQ_LOGIN.SQL.Clear; 
    {Use COUNT in select to determine if user exists} 
    AQ_LOGIN.SQL.Add('select count(BLOGIN) from BENU where BLOGIN = ''Login'' AND BPW 'pw'''); 
    AQ_LOGIN.Open; 
    Result:= (AQ_LOGIN.Fields[0].AsInteger = 1); 
    AQ_LOGIN.Close; 
end; 

конец;

Два изменения: во-первых, не выбирайте имя пользователя, вы должны скорее считать значения - COUNT всегда возвращает что-то, если пользователь не существует - он будет равен нулю. Во-вторых: Вычислить результат, используя сравнение, если count (Поля [0], так как больше не существует) равна единице. Если количество таких записей будет отличаться от одного, эта функция вернет false.

Answer 3

Я бы пошел с ответом smok1 (я просто публиковал что-то вроде этого), но я бы оценивал ваши входы;

 
AQ_LOGIN.SQL.Add('select count(*) from BENU where BLOGIN=:login and BPW=:pw'); 
AQ_LOGIN.Parameters.ParamByName('login').AsString:=login; 
AQ_LOGIN.Parameters.ParamByName('pw').AsString:=pw; 

then as smok1 - открыть набор данных и посмотреть на значение возвращаемого счета.

NB - не имеют Дельфи ADO компонент под рукой, но 99,9% уверен, что это синтаксис :-)

редактировать: один из преимуществ использования параметров, как это то, что вам не нужно будет дезинфицировать ваш входные строки (для таких вещей, как кавычки) - компонент знает, что делать с вашими строками. Вы не ожидали бы иметь имя пользователя с одной цитатой, но у вас может быть пароль с одним. :-)

Answer 4

Вы можете проверить Eof.

function UserCheckExist(Login, pw: string): boolean; 
begin  
    with DM do  
    begin   
    AQ_LOGIN.Close;   
    AQ_LOGIN.SQL.Clear;   
    AQ_LOGIN.SQL.Add('select BLOGIN from BENU where BLOGIN = ' + QuotedStr(Login) + ' AND BPW = ' + QuotedStr(pw));   
    AQ_LOGIN.Open;   
    Result := (not AQ_Login.Eof); 
    AQ_LOGIN.Close;  
    end; 
end; 

Answer 5

Я добавил еще одну проверку, погода активна. Но он не работает нормально.

function UserCheck(Login, pw: string): boolean; 
    begin 
    with DM do 
    begin 
     AQ_LOGIN.Close; 
     AQ_LOGIN.SQL.Clear; 
     AQ_LOGIN.SQL.Add('select COUNT(*) from BENU where BLOGIN = ''Login'' AND BPW = ''pw'' AND AKTIV = 1'); 
     AQ_LOGIN.Open; 
     Result := (AQ_LOGIN.RecordCount > 0); 
     AQ_LOGIN.Close; 
    end; 
end; 

Здесь я использую функцию:

procedure TBenu_Login_Form.btnLoginClick(Sender: TObject); 
    var pwhashed: string; 
    begin 
    pwhashed := MD5Print(MD5String(edtBPass.Text)); 
    if UserCheck(meBLogin.Text, pwhashed) then 
     ShowMessage('User exists, Password is fine and active!') 
    else 
     ShowMessage('User does not exist, Password is wrong or not active!'); 
    end; 

хотел бы знать, почему это не работает, как intendet. Он всегда возвращает значение UserCheck true, а не false, когда я вхожу в не существующее имя пользователя.

Answer 6

Поскольку вы используете компонент adoquery без подключения, я предполагаю, что база данных находится в системе или в связанной сети. Адотируемый компонент так же безопасен, хотя люди всегда думают, что только sql будет работать .... используйте либо функцию adotable.locate, либо adoquery.locate, хотя поля таблиц нужно будет извлечь, а затем до того, как вы сделаете ее небезопасной.Функция locate уже предотвращает инъекцию с ее параметрами и возвращает только логическое значение, основанное на том, если оно найдено. Может быть, небезопасно, некоторые скажут, я не знаю вашего приложения, но его гораздо быстрее.