菜鸟提问：怎样在登录窗口用户输入帐号和密码后判断是否成功登录（在线等）

Question

（用户信息放在User表中）

Answer 1

倒，我想问的是具体的比较过程。。
procedure TFrm_Login.Button1Click(Sender: TObject);
begin
ADOCommand1.CommandText:='select count(*) from User Where User_Account="'LoginName.text'" and User_Password="'LoginPassword.Text'"' ;
ADOCommand1.Execute;
以上代码正确吗？接下来该怎么判断是否有取出数据？

Answer 2

AdoQuery1.SQL.Text:='select User_Password from User Where User_Account='''+LoginName.text+'''' ;
AdoQuery1.close;
AdoQuery1.Open;
if AdoQuery1.fieldbyname('User_Password')=LoginPassword.Text then 

Answer 3

还是把现有的密码传进去！
procedure TFrm_Login.Button1Click(Sender: TObject);
begin
  ADOCommand1.CommandText := 'select count(*) as RCount ' + 
    'from User ' + 
    'Where User_Account=' + QuotedStr(LoginName.text) + 
    ' and User_Password=' + QuotedStr(LoginPassword.Text);
  ADOCommand1.Execute;
  if ADOCommand1.FieldByName('RCount').asInteger <> 1 then ShowMessage('登陆失败');
end;

Answer 4

这个方法不好,还记得ASP中的那个漏洞吗?

Answer 5

还是要用 jinjazz(近身剪（N-P攻略）)的方法~

Answer 6

QuotedStr 应该没有问题 如果用一堆引号就麻烦大了

Answer 7

g961681的方法，ADOCommand1似乎没有FieldByName函数

Answer 8

我的方法：
procedure Tyhdlfrm.Button1Click(Sender: TObject);
begin
data.xtADO.Active:=true;
with data.xtADO do
data.xtADO.Locate('用户',edit1.text,[]);if data.xtADO.FieldByName('密码').Value=edit2.text then
 begin
 showmessage('用户名和密码正确！欢迎进入系统！');
 close;
 end
 else
 showmessage('用户名或密码错误！请重新输入！');
 end;
 end.

Answer 9

至于引号问题，可以用加密来解决的！
而如果把真正的密码取出来的话，我想本地Crack的话，还是有可能的！

Answer 10

AdoCommand没FieldByName的话，AdoQuery有！

Answer 11

不过，我又想了想，密码取出来会被Crack，那就算把密码传进去的话，同样也可以Crack的了！
哎~~~~~~~~~~~~~~~

Answer 12

procedure TFrm_Login.Button1Click(Sender: TObject);
begin
  Adoquery1.CommandText := 'select count(*) as RCount ' + 
    'from User ' + 
    'Where User_Account=' + QuotedStr(LoginName.text) + 
    ' and User_Password=' + QuotedStr(LoginPassword.Text);
  Adoquery1.Execute;
  if Adoquery1.FieldByName('RCount').asInteger <> 1 then ShowMessage('登陆失败');
end;

Answer 13

直接用ADOQuery1.ExecSQL，得到的就是查询的记录结果条数
不会产生记录集
procedure TFrm_Login.Button1Click(Sender: TObject);
begin
  Adoquery1.CommandText := 'select count(*) as RCount ' + 
    'from User ' + 
    'Where User_Account=' + QuotedStr(LoginName.text) + 
    ' and User_Password=' + QuotedStr(LoginPassword.Text);
   if ADOQuery1.ExecSQL <> 1 then ShowMessage('登陆失败');
end;