各位大虾们好。小弟现在做了一个密码登陆的程序。可是现在碰到了一点问题,希望大家帮我看看:
procedure Tmkey.Button1Click(Sender: TObject);
begin if adoquery1.Active then
adoquery1.Close;
adoquery1.SQL.Clear;
//先让用户输入原来的用户名和密码,并检查!
adoquery1.SQL.Text:='select * from users where username=:u and password=:p';
adoquery1.Parameters.ParamByName('u').Value:=trim(edit1.Text);
adoquery1.Parameters.ParamByName('p').Value:=trim(edit2.Text);
adoquery1.Open;
if adoquery1.RecordCount<=0 then
begin
showmessage('用户名或密码错误,请查证!');
exit;
end
else
if edit3.Text=edit4.Text then //如果两次输的密码相同就修改密码
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('update users set password=:np');
adoquery1.Parameters.ParamByName('np').Value:=trim(edit3.Text);
adoquery1.ExecSQL;
showmessage('密码修改成功!');
Close;
end;end;
这是我做的密码修改代码,编译没问题,但是运行的时候出现提示说我的UPDATE这命令是错误的!这个我就有些奇怪了,在数据库中我是把用户名(usename)是设置的主键但密码(password)不是啊,怎么用这样子咧?盼各位大虾们指点一下,不胜感激!
procedure Tmkey.Button1Click(Sender: TObject);
begin if adoquery1.Active then
adoquery1.Close;
adoquery1.SQL.Clear;
//先让用户输入原来的用户名和密码,并检查!
adoquery1.SQL.Text:='select * from users where username=:u and password=:p';
adoquery1.Parameters.ParamByName('u').Value:=trim(edit1.Text);
adoquery1.Parameters.ParamByName('p').Value:=trim(edit2.Text);
adoquery1.Open;
if adoquery1.RecordCount<=0 then
begin
showmessage('用户名或密码错误,请查证!');
exit;
end
else
if edit3.Text=edit4.Text then //如果两次输的密码相同就修改密码
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('update users set password=:np');
adoquery1.Parameters.ParamByName('np').Value:=trim(edit3.Text);
adoquery1.ExecSQL;
showmessage('密码修改成功!');
Close;
end;end;
这是我做的密码修改代码,编译没问题,但是运行的时候出现提示说我的UPDATE这命令是错误的!这个我就有些奇怪了,在数据库中我是把用户名(usename)是设置的主键但密码(password)不是啊,怎么用这样子咧?盼各位大虾们指点一下,不胜感激!
解决方案 »
- 问个简单的问题,共享数据结构
- 用什么工具把数据导入到SQL SERVER数据库?(除了自带的DTS)
- 紧急求救,Delphi7调用C#(Web Service)出现莫名其妙的错误!!!在线等待
- DELPHI高手请进:我想用做一个执行EXE文件的ACTIVEX控件,该怎么做?
- 动态创建的ADOQUERY,能不能写AfterPost事件?
- 局域网机器访问
- 什么方法可以知道当前操作系统的安装目录?
- delphi调试时,如何跟踪到api函数的内部
- 怎样得到multiselect:=true的listview的所选项?
- delphi 4.0 是否有 bug?
- late/early bound Automation怎么翻译啊?直译好别扭啊
- **********开发ERP框架,征求意见或寻求合作者**********
'update users set password=:np where username='user1''
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
adoquery1.SQL.Add('update [users] set [password]=:np');