请帮我看看

procedure Tkaihu1.Button1Click(Sender: TObject);begin
ADOQuery1.close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('insert into usertable(user_id,user_name,sex,home_address,company,home_tel,begindate) values(:s9,:s1,:s2,:s3,:s4,:s5,:s7)');
adoquery1.parameters.parambyname('s9').value:=edit9.text ;
adoquery1.parameters.parambyname('s1').value:=edit1.text ;
adoquery1.parameters.parambyname('s2').value:=edit2.text ;
adoquery1.parameters.parambyname('s3').value:=edit3.text ;
adoquery1.parameters.parambyname('s4').value:=edit4.text ;
adoquery1.parameters.parambyname('s5').value:=edit5.text ;
adoquery1.parameters.parambyname('s7').value:=edit7.text ;
ADOQuery1.Open;
//
ADOQuery2.close;
ADOQuery2.SQL.Clear;
adoquery2.SQL.Add('insert int operatetable(user_id,card_id,operatedate,operator_id) values(:s9,:s8,:s7,:s6)');
adoquery2.parameters.parambyname('s6').value:=edit6.text ;
adoquery2.parameters.parambyname('s9').value:=edit9.text ;
adoquery2.parameters.parambyname('s7').value:=edit7.text ;
adoquery2.parameters.parambyname('s8').value:=edit8.text ;
adoquery2.Open;
end;我想实现对两个表的插入操作，可是这段代码只能对一个表插入！
如何解决，或者用其他的方法？