首先说明密码在数据库内保存时候暂时没加密。
然后界面上edit1 :输入原密码
edit2 :输入新密码
edit3 :确认新密码部分代码如下,说明:密码保存在operator这个表里面的“密码”。操作员ID是主窗口之前传递过来的id := form1.id qry1.Close ;
qry1.SQL.Clear ;
qry1.SQL.Text := 'select 密码 from operator WHERE 操作员id ='''+id+'''' ;
qry1.Open; temp := qry1.FieldByName('密码').AsString; ShowMessage(temp); //中间特地加了这两句,看见temp和edit1里面的内容是一样的
ShowMessage(edit1.Text);//中间有所省略
if temp <> edit1.text then
begin
Application.MessageBox('原密码输入错误','警告') ;
edt1.Text := '';
edt1.SetFocus;
end
else edt2.SetFocus ;为什么这里就是通不过,一个劲显示原密码错误?
然后界面上edit1 :输入原密码
edit2 :输入新密码
edit3 :确认新密码部分代码如下,说明:密码保存在operator这个表里面的“密码”。操作员ID是主窗口之前传递过来的id := form1.id qry1.Close ;
qry1.SQL.Clear ;
qry1.SQL.Text := 'select 密码 from operator WHERE 操作员id ='''+id+'''' ;
qry1.Open; temp := qry1.FieldByName('密码').AsString; ShowMessage(temp); //中间特地加了这两句,看见temp和edit1里面的内容是一样的
ShowMessage(edit1.Text);//中间有所省略
if temp <> edit1.text then
begin
Application.MessageBox('原密码输入错误','警告') ;
edt1.Text := '';
edt1.SetFocus;
end
else edt2.SetFocus ;为什么这里就是通不过,一个劲显示原密码错误?
解决方案 »
- delphi 在cad中画圆并填充颜色
- move语句的问题,请帮我看看
- DELPHI中用ADO方式如何连接SQL MSDE版本啊 OLE 提供者是什么啊 跪拜求救啊!
- 怎样判断鼠标离开窗体?
- 如何将一个类实例存储到数据库中
- 请教一个有关日期和时间的sql问题!
- 运行出现错误
- 各种grid类控件能否在没有数据源时使用?(即在程序中添加内容)
- 超简单的问题:如何判断一串字符串中是否含有非数字的东西(我还是在等待)
- 急需 Paradox Ver 7.0 的 ODBC DRIVER For Windows 9X,不是3.0,4.0,5.0!
- 使用AutoUpgrader组件的程序编译出了问题
- 为什么FTP下载比TCP传输快很多呢?
-------------------------------------
你看到的一致实际上不一定一致,也许里面带有其他字符,例如常见的空格符,你可以使用去空格函数 Trim(edit1.text)然后再比较, 你也可以断点打在:if temp <> edit1.text then 上单步调试看是否真的一致。如果还有什么问题,请加入QQ高级群:9642802 找管理员大海讨论!
但是我已用了trim,然后showmessage出来两个值完全一样
2. 确认的大小写有没有问题