delphi - Delphi中的数据库用户名和密码？

Question

我想在 Delphi 中创建一种登录窗口。不幸的是我无法让它匹配用户名和密码。

我有一个基本的 .mdb 数据库，其中有一个用户表。在此表中，有用户名和密码。我希望 Delphi 检查数据库中的用户名和密码，如果它与编辑框中的用户名和密码匹配，则它会转到下一个表单或显示一条消息，否则它什么也不做。当我输入数据库的第一行、用户名和密码值时，我获得了成功，但第二行却没有成功。我觉得我需要一种方法让它移动到第二行值并检查这些值等等。目前数据库中也没有任何关系。

这是我的数据访问布局:ADOConnection -> ADOTable -> DataSource

提前致谢!

Answer 1

根据您的猜测，一种解决方案是逐条记录移动以检查每条记录。示例:

function MatchPass(Table: TADOTable; const Name, Pass: string): Boolean;
begin
  Result := False;
  Table.First;
  while not Table.Eof do begin
    if Table.FieldByName('Username').AsString = Name then begin
      Result := Table.FieldByName('Password').AsString = Pass;
      Exit;
    end;
    Table.Next;
  end;
end;

可以这样调用:

  if MatchPass(ADOTable1, Edit1.Text, Edit2.Text) then
    ..

另一种解决方案可以是让 ADOTable 搜索相应的记录:

function MatchPass(Table: TADOTable; const Name, Pass: string): Boolean;
begin
  Result := Table.Locate('Username;Password', VarArrayOf([Name, Pass]), []);
end;