关于输出output的应用

Question

with  query4  do  begin
  close;
    with sql  do  begin
        clear;
        add('select  distinct   b.b_length*b.b_width*b.b_thick  into :ss');
        add('from bname b,ut u ');
        add('where  b.p_no=u.p_no and b.b_no=u.b_no');
        add('and  u.p_no=:pnoin');
        add('and  u.b_no=:bnoin')
    end;
  query4.parambyname('pnoin').asstring:=edit2.text;
  query4.parambyname('bnoin').asstring:=edit3.text;  open;怎么显示ss？
edit5.text:=query4.parambyname('ss').asstring;

Answer 1

你是要做什么，into 后面为要生成的表名，

Answer 2

不是生成一个表啦
是把这个“distinct   b.b_length*b.b_width*b.b_thick”值赋给函数ss~~~
要不，该怎么把查询出来的数据用文本或者eidt输出呢？

Answer 3

with  query4  do  begin
  close;
    with sql  do  begin
        clear;//这句修改掉        add('select  distinct   b.b_length*b.b_width*b.b_thick  into :ss');
          add('select  distinct   b.b_length*b.b_width*b.b_thick  as :ss');
        add('from bname b,ut u ');
        add('where  b.p_no=u.p_no and b.b_no=u.b_no');
        add('and  u.p_no=:pnoin');
        add('and  u.b_no=:bnoin')
    end;
  query4.parambyname('pnoin').asstring:=edit2.text;
  query4.parambyname('bnoin').asstring:=edit3.text;  open;
  edit5.text := query4.FieldByName('ss').AsString;
看这样可以了吗

Answer 4

project project1.exe raised exception class edatabaseerror with message 'query4:field 'ss' is of an unknown type'.process stopped.use step or run to continue.
我已经将ss的datatype设置为ftBCD了。

Answer 5

错,应该是
add('select  distinct   b.b_length*b.b_width*b.b_thick  as ss');