阁龙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 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

学习学习
页: [1]
查看完整版本: 帮忙看代码