With DataModule2 do Begin
QVentas.Open;
QVentas.Insert;
QVentas.FieldByName('IDPRODUCTOS').AsString := DBEdit4.Text;
QVentas.FieldByName('IDCLIENTE').AsString := DbEdit1.Text;
QVentas.FieldByName('IMPORTETOTAL').AsFloat := StrToFloat (DBEDit3.Text);
QVentas.FieldByName('ATENDIDO').AsString := DBedit5.Text;
QVentas.Post;
QVentas.Close;
QVentas.Open;
end;