Question

delphi同一数据插入不同表的问题

procedure TForm5.Button1Click(Sender: TObject);
begin

if (edit1.text<>'') and (edit11.text<>'')and (combobox1.Text<>'') and
(edit3.text<>'') and (edit4.text<>'' )and (edit5.text<>'') and
(edit8.text<>'') and (edit9.text<>'' ) then
begin

adoquery1.close;
adoquery1.sql.clear;
adoquery1.sql.add('insert into 入库信息表( rkno,spno,spname,gysname,sl,dj,je,czyname,rktime,ckno,scrq,bzdate) values(:p1,:p2,:p3,:p4,:p5,:p6,:p7,:p8,:p9,:p10,:p11,:p12)');
adoquery1.Parameters.ParamByName('p1').Value :=edit13.Text;
adoquery1.Parameters.ParamByName('p2').Value :=edit1.Text;
adoquery1.Parameters.ParamByName('p3').Value :=edit4.Text;
adoquery1.Parameters.ParamByName('p4').Value :=edit5.Text;
adoquery1.Parameters.ParamByName('p5').Value :=edit9.Text;
adoquery1.Parameters.ParamByName('p6').Value :=edit8.Text;
adoquery1.Parameters.ParamByName('p7').Value :=edit11.Text;
adoquery1.Parameters.ParamByName('p8').Value :=edit12.Text;
adoquery1.Parameters.ParamByName('p9').Value :=form2.StatusBar1.Panels[5].Text;
adoquery1.Parameters.ParamByName('p10').Value :=combobox1.Text;
adoquery1.Parameters.ParamByName('p11').Value :=DateTimePicker2.Date;
adoquery1.Parameters.ParamByName('p12').Value :=edit3.Text;
adoquery1.ExecSQL;

adoquery2.close;
adoquery2.sql.clear;
adoquery2.sql.add('insert into 库存表( spno,spname,sl,dj,je,ckno,scdate,bzdate) values(:p1,:p2,:p3,:p4,:p5,:p6,:p7,:p8,:p9)');
adoquery2.Parameters.ParamByName('p1').Value :=edit13.Text;
adoquery2.Parameters.ParamByName('p2').Value :=edit1.Text;
adoquery2.Parameters.ParamByName('p3').Value :=edit5.Text;
adoquery2.Parameters.ParamByName('p4').Value :=edit9.Text;
adoquery2.Parameters.ParamByName('p5').Value :=edit8.Text;
adoquery2.Parameters.ParamByName('p6').Value :=edit11.Text;
adoquery2.Parameters.ParamByName('p7').Value :=combobox1.Text;
adoquery2.Parameters.ParamByName('p8').Value :=DateTimePicker2.Date;
adoquery2.Parameters.ParamByName('p9').Value :=edit3.Text;
showmessage('添加成功！');

end
else
showmessage ('资料不全！');

end;
请问有错误么 ？ 该怎么写？

Answer 1

你这里应该是只能插入一个表的数据吧。。
adoquery2.close;
adoquery2.sql.clear;
adoquery2.sql.add('insert into 库存表( spno,spname,sl,dj,je,ckno,scdate,bzdate) values(:p1,:p2,:p3,:p4,:p5,:p6,:p7,:p8,:p9)');
adoquery2.Parameters.ParamByName('p1').Value :=edit13.Text;
adoquery2.Parameters.ParamByName('p2').Value :=edit1.Text;
adoquery2.Parameters.ParamByName('p3').Value :=edit5.Text;
adoquery2.Parameters.ParamByName('p4').Value :=edit9.Text;
adoquery2.Parameters.ParamByName('p5').Value :=edit8.Text;
adoquery2.Parameters.ParamByName('p6').Value :=edit11.Text;
adoquery2.Parameters.ParamByName('p7').Value :=combobox1.Text;
adoquery2.Parameters.ParamByName('p8').Value :=DateTimePicker2.Date;
adoquery2.Parameters.ParamByName('p9').Value :=edit3.Text;
adoquery2.execsql;//少了这句吧
showmessage('添加成功！');