Delphi поиск в базе данных

Question

им работать на маленькое приложение с логином по почте/пароль который использует базу данных, в базе данных

я есть:

• номер клиента
• Почтовый клиент
• Client Пароль
• Клиент Имеющиеся кредиты

для входа в систему я проверить пользователь почты/пароль в БД с этим кодом:

if not (tbl1.Locate('Mail', edt1.text,[]) and tbl1.Locate('Password', edt2.text,[])) then 
    begin 
    mmo1.lines.add('Not Registered User'); 
    end 
    else 
    begin 
    mmo1.lines.add('Registered User'); 
    end; 
end; 

это работает для входа моя проблема с кредитами

, например пользователя джон имеют 10 кредитов

Я не могу использовать здесь

Как я могу получить доступную сумму кредитов jo hn от БД?

Большое спасибо

Answer 1

Использовать несколько полей в локации: см Using locate

if (tbl1.Locate('Mail; Password', VarArrayOf([edt1.text, edt2.text]),[])) then 
begin 
    mmo1.lines.add('Registered User: '+ tbl1.FieldByName('credits').asString); 
end 
else 
begin 
    mmo1.lines.add('Not Registered User'); 
end;