| 网站首页 | 业界新闻 | 小组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
共有 763 人关注过本帖
标题:错误提示分析原因给出解决方案
只看楼主 加入收藏
墟烟
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2013-3-1
结帖率:0
  问题点数:0  回复次数:4   
错误提示分析原因给出解决方案
提示信息:EDatabaseError with message Query:parameter UN not found,该怎么解决?
附源代码:
procedure TFrmLogin.BtnLoginClick(Sender: TObject);
begin
  with DM.query do
  begin
    close;
    sql.clear;
    sql.Add('select * from TB_Users where UserName=:UN and PassWord=:PW');
    Parameters.ParamByName('UN').Value:=CBUserName.Text;
    Parameters.ParamByName('PW').Value:=EDPassWord.Text;
    Open;
    if recordCount<1 then
    begin
        ShowMessage('对不起!用户名或密码错误!');
        Exit;
    end;
    pass:=true;
    self.Close;
  end;
end;

[ 本帖最后由 墟烟 于 2013-5-10 20:27 编辑 ]
搜索更多相关主题的帖子: 源代码 message 解决方案 procedure 提示信息 
2013-04-23 16:13
mayanzs
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:5
帖 子:30
专家分:105
注 册:2013-2-3
  得分:0 
procedure TFrmLogin.BtnLoginClick(Sender: TObject);
begin
  with DM.query do
  begin
    close;
    sql.clear;
    sql.Add('select * from TB_Users where UserName=:UN and PassWord=:PW');
    ParamByName('UN').AsString:=CBUserName.Text;
    ParamByName('PW').AsString:=EDPassWord.Text;
    Open;
    if recordCount<1 then
    begin
        ShowMessage('对不起!用户名或密码错误!');
        Exit;
    end;
    pass:=true;
    self.Close;
  end;
end;


或:

procedure TFrmLogin.BtnLoginClick(Sender: TObject);
begin
  with DM.query do
  begin
    close;
    sql.clear;
    sql.Add('select * from TB_Users where UserName='''+CBUserName.Text+''' and PassWord='''+EDPassWord.Text+''');
    Open;
    if recordCount<1 then
    begin
        ShowMessage('对不起!用户名或密码错误!');
        Exit;
    end;
    pass:=true;
    self.Close;
  end;
end;
2013-04-24 21:21
volte
Rank: 10Rank: 10Rank: 10
等 级:贵宾
威 望:69
帖 子:1167
专家分:1316
注 册:2004-12-19
  得分:0 
冒号的问题。

大家都是朋友,有空就来坐坐!
2013-05-03 16:04
volte
Rank: 10Rank: 10Rank: 10
等 级:贵宾
威 望:69
帖 子:1167
专家分:1316
注 册:2004-12-19
  得分:0 
注意中英文输入法!

大家都是朋友,有空就来坐坐!
2013-05-03 16:04
墟烟
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2013-3-1
  得分:0 
回复 4楼 volte
多谢!
2013-05-10 20:20
快速回复:错误提示分析原因给出解决方案
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.055651 second(s), 7 queries.
Copyright©2004-2019, BCCN.NET, All Rights Reserved