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

Question

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

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

这是我的数据访问的布局：的ADOConnection - > ADOTable - 提前>数据源

谢谢！

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;