帮忙看代码

阁龙1427 · 发表于 2012-4-22 10:47:28

本帖最后由阁龙1427 于 2012-4-22 11:53 编辑

procedure TfrmLogin.btnLoginClick(Sender: TObject);
var
SQL:string;

begin
SQL :='SELECT * FROM [User] WHERE UserID='
   +Quotedstr(edtUserID.Text) + 'AND UserPassword=' + Quotedstr(edtUserPwd.Text);
  if SQLSearch(SQL,DM.ADOConn) = False then
  begin
Application.MessageBox('登录信息错误,请重新登录!','错误',16);
edtUserPwd.Text :='';
edtUserID.SetFocus;
Exit;
  end ;
Self.close ;
end;
哪里有错啊
还有就是这段代码是啥意思呢？

zedjc · 发表于 2012-5-1 14:00:05

这么长的代码。

Delphi_v7 · 发表于 2012-5-1 16:48:00

你应该把“SQLSearch(SQL,DM.ADOConn)”贴出来看看，如果你已经写了的话。
引用添加SQLSearch(SQL,DM.ADOConn)单元。

Delphi_v7 · 发表于 2012-5-1 16:50:39

其实你可以把登录验证过程让一个存储过程来完成，select 1 from users where ID = @id and PWD=@pwd
根据返回值，1或0来判断。

乐yi忘忧 · 发表于 2012-5-1 21:36:01

作用是用来做登录验证滴

fishc1008 · 发表于 2017-2-4 16:45:35

学习学习

账号		自动登录	找回密码
密码			立即注册