function TLogChk.checkCredentials:boolean;
begin
Result:=False;
with dmLoginCheck do
begin
tblLogins.First;
while NOT tblLogins.Eof do
begin
if (tblLogins['Username'] = fUser) AND (tblLogins['Password'] = fPass) then
begin
Result:=True;
Break;
end;
tblLogins.Next;
end;
end;
end;
与恶龙缠斗过久,自身亦成为恶龙;凝视深渊过久,深渊将回以凝视…