请教SQL语句(50分)

我想把表A中的全部数据 加到表B中 如B中已有相同数据就累加，如果B中没有
就插入A数据到B，请问如何高效，可靠地用SQL语句完成。

我刚完成的源代码，绝对好用，没出任何错误！

procedure TForm3.FlatButton2Click(Sender: TObject);
begin
query1.edit;
query1.post;
query1.first;
while Not query1.Eof do
begin
if query5.locate('品名',query1.Fieldbyname('品名').Asstring,[]) then
begin
query5.edit;
query5.FieldValues['shu']:= query5.FieldValues['shu']+query1.FieldValues['shu'];
query5.Post;
query1.Next;
end;
if not query5.locate('品名',query1.Fieldbyname('品名').Asstring,[]) then
begin
query5.insert;
query5.Fieldbyname('品名').value:=query1.Fieldbyname('品名').value;
query5.FieldValues['shu']:=query1.FieldValues['shu'];
query1.Next;
end;
end; //收货单数据提交库存表，有则数值相加，无则增加记录。
if edit6.text<>label30.caption then
begin
query8.insert;
query8.FieldByName('单号').value:=edit1.text;
query8.fieldbyname('ying').asstring:=label30.caption;
query8.fieldbyname('shi').asstring:=edit6.Text;
query8.fieldbyname('类型').value:='未付款项';
query8.fieldbyname('期限').value:=datetimepicker7.date;
query8.fieldbyname('客户名').value:=dblookupcombobox2.Text;
query8.post;
edit6.text:='';
end;
query1.sql.clear;
end;

update B
set Count=count+A.Count
from A
where A.Id=B.Id

insert into B
(select * from A
where A.Id not in (select Id from B))

if exist(select a.id from a,b where a.id=b.id)
update b
set b.count=b.count+a.count
from a,b where a.id=b.id
else
insert b value(count)

多人接受答案了。