在Delphi 10.3中使用SQL Server数据库制作一个合适的登录表单

Question

edit:如何使用adoquery从SQLServer数据库检索和存储用户凭据，以便与用户输入的凭据进行比较

Answer 1

类似这样的内容(超出我的记忆，未测试):

ADOQuery1.SQL.Text := 'SELECT UserCode FROM Credentials ' +
'WHERE (UserCode = :UserCode) ' +
'AND (Password = :Password)';
ADOQuery1.Parameters.ParamByName('UserCode').Value := FUserCode;
ADOQuery1.Parameters.ParamByName('Password').Value := FPassword;
ADOQuery1.Open;
if ADOQuery1.Eof then
ShowMessage('Invalid credentials')
else
ShowMessage('OK')

顺便说一句:将密码存储在数据库中不是一个好主意。请使用散列码。

BTW2:我返回UserCode，但可能你会返回一些更有用的信息，如权限，上次登录或其他。我不知道你手头有什么。