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;