form1.ADOQuery2.Last;
if form1.ADOQuery2.FieldByName('价格j').AsString=s1 then
begin
v1:=form1.ADOQuery1.FieldByName('数量s').AsInteger+
form1.ADOQuery2.fieldbyname('数量j').AsInteger;
f1:=v1*form1.ADOQuery2.fieldbyname('单价s').AsCurrency;
c3:=currtostr(f1);
c1:=inttostr(v1);
c2:= form1.ADOQuery2.fieldbyname('单价s').AsString;
form1.ADOQuery1.Post;
SQLStr:= 'insert into '+trim(label1.Caption)+'("数量j","单价j","金额j")'+
' values('+c1+','+c2+','+c3+')';
form1.ADOQuery3.close;
form1.ADOQuery3.SQL.Clear;
form1.ADOQuery3.SQL.Text:=SQLStr;
form1.ADOQuery3.ExecSQL;
break;
end;
showmessage('good');
form1.ADOQuery2.Prior;
until true;
