Chinaunix首页 | 论坛 | 博客
  • 博客访问: 1266924
  • 博文数量: 788
  • 博客积分: 4000
  • 博客等级: 上校
  • 技术积分: 7005
  • 用 户 组: 普通用户
  • 注册时间: 2008-08-19 15:52
文章存档

2017年(81)

2011年(1)

2009年(369)

2008年(337)

分类:

2009-04-22 11:00:58



if(form4.RBdepno.Checked)     then  
            begin  
              if   Trim(Edit1.Text)=''   then  
                  begin  
                      MessageDlg('科室编号不能为空!',mtWarning,[mbOK],0);  
                      exit;  
                  end  
                else  
                  begin  
              s:='select   *   from   Depart   where     departID='+edit1.Text;  
              if   (s='')   then  
                    begin  
                          Application.MessageBox('数据库表格指定字段未发现记录!','未发现记录',MB_OK);  
                      end  
                    else  
                    query1.SQL.Add(s);  
                    query1.Open;  
                    end;  
   
   
    if   (s='')   then  
                    begin  
                          Application.MessageBox('数据库表格指定字段未发现记录!','未发现记录',MB_OK);  
  关于这段代码书写,我的本意是想如果查询不到匹配字段,提示"数据库表格指定字段未发现记录!",可运行始终出错,帮忙看看哪里问题该怎么改?

if   (s='')   then  
                    begin  
                          Application.MessageBox('数据库表格指定字段未发现记录!','未发现记录',MB_OK);  
                      end  
  //上面这个判断根本就是多余,因为s绝对不是''----因为你已经在前面赋值了!  
   
   
  应该在query1.open之后写:  
  if   query1.recordcount   <   1   then     未发现记录!

再有,query1.sql.add()之前,应该至少写上:  
  query1.close;  
  query1.sql.clear;

问题解决了,谢谢~

OK,你太利索了!祝贺你!结贴吧!

没想到你结贴也这么快!这是一种好的作风!我喜欢!

query1.close;  
  query1.sql.clear;这个我写在了查询操作之前的..呵呵~谢谢你~  
  因为是新手很多问题都不知道的.所以麻烦你们多帮帮忙了



--------------------------
新闻:大脑推客:通过电脑思考即可发布Twitter消息
网站导航: 博客园首页  新闻  .NET频道  社区  博问  闪存  找找看
阅读(942) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~