delphi登陆时首先给密码加密后，再判断密码是否正确 15
procedureTForm1.Edit2Exit(Sender:TObject);varjmstr,f_mm:string;beginf_mm:=edit2.Text;...
procedure TForm1.Edit2Exit(Sender: TObject);
var
jmstr,f_mm:string;
begin
f_mm:=edit2.Text ;
jmstr:='select jmma=dbo.sys_xtjm('''+f_mm+''')'; //dbo.sys_xtjm是sql中已建好的加密函数
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add(jmstr);
adoquery1.ExecSQL ;
end;
我的目的是想查询表cyz里的字段kl是否等于已加密的edit2中的文字。
因为execsql不返回值，而用open，则提示没有有效的字段。所以后面不知道如何写了。请大家帮我看看。 展开
var
jmstr,f_mm:string;
begin
f_mm:=edit2.Text ;
jmstr:='select jmma=dbo.sys_xtjm('''+f_mm+''')'; //dbo.sys_xtjm是sql中已建好的加密函数
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add(jmstr);
adoquery1.ExecSQL ;
end;
我的目的是想查询表cyz里的字段kl是否等于已加密的edit2中的文字。
因为execsql不返回值，而用open，则提示没有有效的字段。所以后面不知道如何写了。请大家帮我看看。 展开
2个回答
展开全部
如果cyz的用户ID字握备改段是ID,并且在edit1中输入
jmstr:='select count(*) from cyz where Id = ''段判' + edit1.Tex t+ ''' and kl = dbo.sys_xtjm('''+f_mm+''')'滚磨;
用open打开，检查是否大于0
jmstr:='select count(*) from cyz where Id = ''段判' + edit1.Tex t+ ''' and kl = dbo.sys_xtjm('''+f_mm+''')'滚磨;
用open打开，检查是否大于0
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
金山毒霸
2024-10-31 广告
电脑在启动游戏或软件的时候，桌面弹出错误提示框“0xc0000094”，应该怎么办？电脑报错，很大可能是因为某些DLL文件出现了异常，比如感染了病毒、DLL文件丢失等。解决方法如下：一、 手动解决方法1、先确定电脑操作系统是多少位的，现在的...
点击进入详情页
本回答由金山毒霸提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
