delphi 求值问题(50分)

  • 主题发起人 倒数第一
  • 开始时间

倒数第一

Unregistered / Unconfirmed
GUEST, unregistred user!
//如果有相同的那么新增一条记录,把原来的rkcp_zs+edit6的值=新增记录的总数
ADOquery4.Close;
ADOquery4.SQL.Clear;
ADOquery4.SQL.Text:='select * from cprk where rkcp_name=:edit1 ';
ADOquery4.Parameters.ParamByName('edit1').Value:=edit1.Text;
ADOquery4.Open;
if not ADOquery4.Eof then
begin
ADOquery4.Close;
ADOquery4.SQL.Clear;
ADOquery4.SQL.Add('insert into cprk (rkcp_name,rkcp_gg,rkcp_xh,rkcp_bh,rkcp_mey,rkcp_sl,rkcp_zs) values
('''+edit1.Text+''','''+edit2.Text+''','''+edit3.Text+''','''+edit4.Text+''','''+edit5.Text+''','''+edit6.Text+''') ');
ADOquery4.ExecSQL;
end
else
//如果没有相同的,那么就创建一条新的记录,并且:(假设rkcp_zs的值为0)那么rkcp_zs=edit6的值
ADOquery4.Close;
ADOquery4.SQL.Clear;
ADOquery4.SQL.Add('insert into cprk (rkcp_name,rkcp_gg,rkcp_xh,rkcp_bh,rkcp_mey,rkcp_sl) values
('''+edit1.Text+''','''+edit2.Text+''','''+edit3.Text+''','''+edit4.Text+''','''+edit5.Text+''','''+edit6.Text+''') ');
ADOquery4.ExecSQL;
end;

按上面的代码,这个求和的SQL代码应该怎么写? rkcp_zs=rkcp_sl+edit6 的代码怎么写?
 
W

wanhuan1982

Unregistered / Unconfirmed
GUEST, unregistred user!
insert into cprk (rkcp_name,rkcp_gg,rkcp_xh,rkcp_bh,rkcp_mey,rkcp_sl,rkcp_zs)
select :edt1, : edt2......,sum(rkcp_sl)+:edt6
from cprk
where rkcp_name=:edit1
 

Similar threads

S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
I
回复
0
查看
702
import
I
S
回复
0
查看
793
SUNSTONE的Delphi笔记
S
顶部