CSDN首页 空间 新闻 论坛 Blog 下载 读书 网摘 搜索 .NET Java 视频 接项目 求职 在线学习 买书 程序员 通知
不看会后悔的Windows XP之经验谈 简单快捷DIY实用家庭影院
CSDN社区
搜索 收藏 打印 关闭
CSDN社区 >  Delphi >  VCL组件开发及应用

各位高手看过来!给分!

楼主smile_wu(SW)2001-07-17 12:32:37 在 Delphi / VCL组件开发及应用 提问

with   query1   do  
  begin  
  close;  
  sql.clear;  
  sql.add('select   YHM   from   table   where   YHM=:user');  
  params[0].asstring:=edit1.text;  
  open  
  if   recordcount>0   then   begin   showmessage('ok');     end  
  else         showmessage('error1');  
  end;  
   
  我在运行时在   if   recordcount>0   then   begin   showmessage('ok');     end  
  这一段出错:[Error]   Unit1.pas(40):   Missing   operator   or   semicolon  
  请问是什么问题!  
  问题点数:30、回复次数:8Top

1 楼myxfang(海风)(大富翁银行)回复于 2001-07-17 12:35:39 得分 0

这样绝对可以  
  if   recordcount>0   then  
        showmessage('ok')  
  else   showmessage('error1');  
  Top

2 楼Nicky_he(尼克)回复于 2001-07-17 12:38:43 得分 0

你的Open后没有分号;Top

3 楼dana(dana)回复于 2001-07-17 14:07:03 得分 0

要不写明白一点,  
  if   query1.recordcount>1   then  
    showmessage('ok')  
  else   sowmessage('error')Top

4 楼ghz2000(编程马大哈)回复于 2001-07-17 14:13:16 得分 30

语法错误太多;  
  该有的没有,不该有的也有,呵呵  
  query1.active:=false;  
  with   query1   do  
  begin  
      sql.clear;    
      sql.add('select   YHM   from   table   where   YHM=:user');  
      params[0].asstring:=edit1.text;  
      open;  
      if   (eof)   and   (bof)   then    
      showmessage('ok')  
      else          
      showmessage('error1');  
  end;  
   
  养成一个好习惯,好呀!Top

5 楼alwssoan(巧克力)回复于 2001-07-17 14:16:36 得分 0

同意上面的说法,呵呵Top

6 楼soft123(泰山)回复于 2001-07-17 14:27:27 得分 0

语法错误,ghz2000正确Top

7 楼myxfang(海风)(大富翁银行)回复于 2001-07-17 14:42:37 得分 0

to:ghz2000(编程马大哈)   你仔细看一看题目,有没有错  
    if   (eof)   and   (bof)   then    
      showmessage('ok')  
      else          
      showmessage('error1');  
  Top

8 楼ghz2000(编程马大哈)回复于 2001-07-17 14:48:05 得分 0

myxfang(七天后戒网~~~)呵呵  
  if   not((eof)   and   (bof))   then    
      showmessage('ok')  
      else          
      showmessage('error1');  
   
  ok?  
  其实我的目的不在这!Top

相关问题

  • 给各位的分!
  • 放分!看各位敏捷程度,第1,10,50,100给30分 已放出一单分了,各位继续.
  • 放分!看各位敏捷程度,第1,10,50,100给30分
  • 放分!!看各位敏捷程度,第1,10,50,100给30分
  • 放分!!!看各位敏捷程度,第1,10,50,100给30分
  • 送分给各位水友!!!
  • 各位,怎么给分啊?
  • 各位高手再给分
  • 怎样给各位加分?
  • 各位大虾,进来看看,高分给你!!!!!!

关键词

  • sql
  • showmessage
  • yhm
  • recordcount
  • bof
  • ok
  • eof
  • query
  • then
  • error

得分解答快速导航

  • 帖主:smile_wu
  • ghz2000

相关链接

  • Delphi类图书
  • Delphi类源码下载
  • Delphi控件下载

广告也精彩

反馈

请通过下述方式给我们反馈
反馈
提问
网站简介|广告服务|VIP资费标准|银行汇款帐号|网站地图|帮助|联系方式|诚聘英才|English|问题报告
北京创新乐知广告有限公司 版权所有, 京 ICP 证 070598 号
世纪乐知(北京)网络技术有限公司 提供技术支持
Copyright © 2000-2008, CSDN.NET, All Rights Reserved
GongshangLogo