delphi如何实现多个表中数据相加
成本费用存在4个表中，比如cb1，cb2，cb3，cb4，字段分别为fy1，fy2，fy3，fy4，我如何在delphi中利用sql语句统计成本费用总和，本人新手，希望能详细说下.
这四个成本表没有任何关联，再说具体一点，比如说在form1中有一个edit框，现在要做的就是，根据edit框中输入的单号，在成本表里进行检索，检索出来后将他们的总和加起来就是总的成本了。不知我表达清楚了没。
我这样写不知道对不对
Delphi(Pascal) code:
sql.clear;
sql.add('select sum(a+b+c+d) as aNum from');
sql.add('(select dl_tit as a from dl_fyxx where dl_id='+QuotedStr(edit12.text));
sql.add('union all');
sql.add('select other_tit as b from other_fyxx where other_id='+QuotedStr(edit12.text));
sql.add('union all') ;
sql.Add('select cd_tit as c from cd_fyxx where cd_id='+QuotedStr(edit12.Text));
sql.Add('union all');
sql.add('select hy_tit as d from hy_fyxx where hy_id='+QuotedStr(edit1.text)+') as p ') ;
dm.QCBFY.Open;
cb:=dm.QCBFY.FieldByName('aNum').AsInteger;
这样会慢死
select sum(a.a)+sum(b.b)+sum(c.c)+sum(d.d) as aNum from dl_fyxx a,other_fyxx b,cd_fyxx c,hy_fyxx d where a.dl_id = b.other_id and a.dl_id = c.cd_id and a.dl_id = d.hy_id
and a.dl_id='+QuotedStr(edit12.text);
以上代码没测试，不知道对不对，但是你不要搞几个SELECT ，不然很
相关问答：
如题， 点击Delphi的File菜单的Exit退出Delphi， Delphi部分关闭--即不能再操作Delphi，但任务栏和进程里，Delphi还在运行，没有真正的退出。是不是安装了jre改变了某些环境变量导致，请问高手如何解决？ 注：没安装 ......
我在网上找了个关于IEBHO的代码，然后按照哪个设置了，后来运行的时候出现
构建
[警告] Project2.dpr(14): File not found: 'MYbho.TLB'
[警告] Project2.dpr(16): File not found: 'MYbho.RES'
......
要求能实现二人在同台电脑上对战的 不用太花哨 最好还加上人机对战的 急需 谁帮下忙啊呀!!!!!!!!
up
baidu，google
up
http://www.codepub.com/software/view-software-4061.html
网站上有
......
IF THEN ELSE中多个条件怎么写，如：字符串S1，S2，S3，S4均要不为空。
怎么样把它写到IF中去？
请各位帮帮忙，谢谢！
if (S1<>'') and (S2<>'') and (S3<>'') and (S4<>'') then
begin ......
(急)我想用UDP实现客户端与服务器之间的信息发送。即，客户端发信息给服务器端，服务器能正常的接受，并且是按顺序接受的。如客户端发送Edit1,Edit2,Edit3,Edit4....后，在服务器的Edit1,Edit2,Edit3,Edit4....依次� ......
