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

登陆代码解释

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

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

某某人 发表于 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

楼主程序能发一下吗
页: [1]
查看完整版本: 登陆代码解释