【结】[请求]showmessage问题**

水晶

showmessage显示提示的信息，能不能动态生成？？比如：一个表里信息符合某个条件，然后将符合条件的关键字段，用showmessage提示出来，如果有多条记录就按顺序的罗列在showmessag的提示筐里，这个能实现吗？急。。。。。。。先谢谢了

水晶

怎么没人啊

atiger

showmessage显示提示的信息，能不能动态生成？？
当然可以


比如：一个表里信息符合某个条件，然后将符合条件的关键字段，用showmessage提示出来，如果有多条记录就按顺序的罗列在showmessag的提示筐里，这个能实现吗？
可以，你自己把值拼成一个字符串在showmessag后面的参数中就可以了。
例如
dialogs.ShowMessage('sss'+#13+#10+'ddd');
这样就显示的效果如图

水晶

符合某个条件，用循环语句把他罗列出来，怎么实现？

水晶

显示的信息是一个变量，根据代码的变化而变化的？

atiger

符合某个条件，
需要发SQL语句，
例如 SELECT *   FROM tableA   WHERE tableA   .ID = '01'
表示从 tableA   表中把 ID 等于 “01”的记录取出来，
如何给数据集代理重新赋SQL语句，参考 http://bbs.justep.com/forum.php?mod=viewthread&tid=25030


用循环语句把他罗列出来
就是循环数据集，
参考http://bbs.justep.com/forum.php?mod=viewthread&tid=24765

另外，楼主，这些都是基本的语法，请楼主抽空跟同事交流交流，多参考delphi 和数据库的帮助吧

水晶

这个是还有错，能帮我看下吗？
with qrypd do
  begin
    close;
    commandtext:='select PURCHASEID,state,price from DYE_INMAIN  where state<>''审核'' or price is null and  '
    +'indate>=to_date('+SysUtils.QuotedStr(startdatetime)+',''yyyy-MM-dd HH24:MI:SS'') and  '
    +'indate<to_date('+SysUtils.QuotedStr(enddatetime)+',''yyyy-MM-dd HH24:MI:SS'')  ';
    open;
    first;
    while not eof do
    begin
      str:=str+fieldbyname('purchaseid').AsString;
      next;
    end;
    dialogs.ShowMessage(str);

  end;

atiger

1、啥错误呢？是执行报错，还是结果不对
2、如果执行报错，是哪句报出来的，如果是给 commandtext  这个赋值报错，那么你把执行的结果放到数据库上执行看看是否通过？如果不通过，参考数据库的SQL语法，在数据库上执行ok后，再放进来，调试运行

水晶

with qrypd do
  begin
    close;
    commandtext:='select distinct a.PURCHASEID from DYE_INMAIN a join dye_indetail b on a.inid=b.inid where a.state<>''审核'' or b.price is null and  '
    +'a.indate>=to_date('+SysUtils.QuotedStr(startdatetime)+',''yyyy-MM-dd HH24:MI:SS'') and  '
    +'a.indate<to_date('+SysUtils.QuotedStr(enddatetime)+',''yyyy-MM-dd HH24:MI:SS'')  ';
    open;
    first;
    while not eof do
    begin
      for i:=0 to qrypd.RecordCount do
      begin
        str:=str+fieldbyname('purchaseid').AsString;
        next;
      end;
    end;
    dialogs.ShowMessage(str);
  end;
我把他改过来了，但是有个问题就是，出来的提示信息一大串的，没有换行或则空格。

水晶

我解决了，谢谢你啊！