登陆代码解释

阁龙1427 · 发表于 2012-5-16 20:33:02

马上注册，结交更多好友，享用更多功能^_^

您需要登录才可以下载或查看，没有账号？立即注册

x

本帖最后由乐yi忘忧于 2012-6-1 13:20 编辑

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.带颜色的求解释

某某人 · 发表于 2012-5-17 15:47:50

第一句就是个SQL语句，Quotedstr就是给括号里面的参数加上单引号

某某人 · 发表于 2012-5-17 15:49:10

第二句是说如果数据库中没有符合该SQL语句的值，就执行beginend间的代码

某某人 · 发表于 2012-5-17 15:49:43

第三句式将光标定位到edtUserID这个编辑框

乐yi忘忧 · 发表于 2012-5-17 20:02:03

第一句是SQL文本字符串查找符合条件的用户名和密码信息
sqlsearch应该是自定义函数，不是标准函数，楼主在代码里搜索下吧。判断是否有记录
setfocus;是控件获取焦点

踏雪無痕 · 发表于 2012-5-26 21:22:38

学习了，谢谢大家的分享

心驰神往 · 发表于 2020-12-9 11:31:37

楼主程序能发一下吗

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