database - 德尔福数据库搜索

Question

我正在使用使用数据库的邮件/密码登录的小型应用程序

在数据库中我有：

• 客户编号
• 客户邮件
• 客户密码
• 客户可用积分

对于登录，我使用以下代码检查数据库中的用户邮件/密码：

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;

这适用于登录我的问题是学分

例如用户 john 有 10 个学分

我不能在这里使用定位

我如何从 DB 获得可用的 john 积分？

多谢

Answer 1

在定位中使用多个字段：请参阅使用定位

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;