我有这个功能来确定用户是否存在于数据库中
DM 是我的数据模块
AQ_LOGIN 一个 ADOQuery
BENU 是我的表格，里面有用户和他们的密码
代码来了：
function UserCheckExist(Login, pw: string): boolean;
begin
with DM do
begin
AQ_LOGIN.Close;
AQ_LOGIN.SQL.Clear;
AQ_LOGIN.SQL.Add('select BLOGIN from BENU where BLOGIN = ''Login'' AND BPW = ''pw''');
AQ_LOGIN.Open;
end;
end;
我现在的问题是： 如何使函数返回真或假天气是否存在具有相应密码的用户？
提前致谢。
【问题讨论】：
我会选择 smok1 的答案（我只是发布类似的内容），但我会参数化您的输入，因此；
AQ_LOGIN.SQL.Add('select count(*) from BENU where BLOGIN=:login and BPW=:pw'); AQ_LOGIN.Parameters.ParamByName('login').AsString:=login; AQ_LOGIN.Parameters.ParamByName('pw').AsString:=pw;然后与 smok1 一样 - 打开数据集并查看返回的计数值。
注意 - 手边没有 ADO delphi 组件，但 99.9% 的人确定这是语法 :-)
edit：使用这样的参数的优点之一是您不必清理输入字符串（对于引号之类的内容） - 组件知道如何处理您的字符串。您不会期望用户名中包含单引号，但您可能有一个密码。 :-)
【讨论】：
function UserCheckExist(Login, pw: string): boolean;
begin
with DM do
begin
AQ_LOGIN.Close;
AQ_LOGIN.SQL.Clear;
AQ_LOGIN.SQL.Add('select BLOGIN from BENU where BLOGIN = ''Login'' AND BPW = ''pw''');
AQ_LOGIN.Open;
Result := (AQ_LOGIN.RecordCount > 0);
AQ_LOGIN.Close;
end;
end;
【讨论】：
用途：
function UserCheckExist(Login, pw: string): boolean;
begin
with DM do
begin
AQ_LOGIN.Close;
AQ_LOGIN.SQL.Clear;
{Use COUNT in select to determine if user exists}
AQ_LOGIN.SQL.Add('select count(BLOGIN) from BENU where BLOGIN = ''Login'' AND BPW 'pw''');
AQ_LOGIN.Open;
Result:= (AQ_LOGIN.Fields[0].AsInteger = 1);
AQ_LOGIN.Close;
end;
结束；
两个变化：首先，不要选择用户名，你应该计算值 - COUNT 总是返回一些东西，如果没有用户存在 - 它会为零。 第二：如果计数（字段[0]，因为不存在更多字段）等于一，则使用比较计算结果。如果此类记录的计数与 1 不同，则此函数将返回 false。
【讨论】：
您可以检查 Eof。
function UserCheckExist(Login, pw: string): boolean;
begin
with DM do
begin
AQ_LOGIN.Close;
AQ_LOGIN.SQL.Clear;
AQ_LOGIN.SQL.Add('select BLOGIN from BENU where BLOGIN = ' + QuotedStr(Login) + ' AND BPW = ' + QuotedStr(pw));
AQ_LOGIN.Open;
Result := (not AQ_Login.Eof);
AQ_LOGIN.Close;
end;
end;
【讨论】：
我又添加了一项检查，天气用户处于活动状态。但它不能正常工作。
function UserCheck(Login, pw: string): boolean;
begin
with DM do
begin
AQ_LOGIN.Close;
AQ_LOGIN.SQL.Clear;
AQ_LOGIN.SQL.Add('select COUNT(*) from BENU where BLOGIN = ''Login'' AND BPW = ''pw'' AND AKTIV = 1');
AQ_LOGIN.Open;
Result := (AQ_LOGIN.RecordCount > 0);
AQ_LOGIN.Close;
end;
end;
这是我使用函数的地方：
procedure TBenu_Login_Form.btnLoginClick(Sender: TObject);
var pwhashed: string;
begin
pwhashed := MD5Print(MD5String(edtBPass.Text));
if UserCheck(meBLogin.Text, pwhashed) then
ShowMessage('User exists, Password is fine and active!')
else
ShowMessage('User does not exist, Password is wrong or not active!');
end;
想知道为什么这不起作用。当我输入一个不存在的用户名时，它总是返回 UserCheck 真，从不假。
【讨论】：
由于您使用的是没有连接的 adoquery 组件，我假设数据库都在系统或链接网络上。一个 adotable 组件同样安全，尽管人们总是认为只有 sql 可以工作....使用 adotable.locate 函数或 adoquery.locate 虽然必须先检索表字段，然后才能使其不安全。定位函数已经通过其参数阻止了注入，并且仅根据是否找到它返回一个布尔值。有些人可能会说，我不知道你的应用程序可能不安全，但它的速度要快得多。
【讨论】：