Ver Mensaje Individual
  #6  
Antiguo 08-08-2007
Avatar de PabloTech
PabloTech PabloTech is offline
Miembro
 
Registrado: ene 2007
Ubicación: Tucumán, Argentina
Posts: 82
Reputación: 18
PabloTech Va por buen camino
Thumbs up Paso a paso

Un TDBGrid muestra los datos obtenidos con una consulta TQuery o TTable asociada con un TDataSource. El TDataSource tiene una propiedad TDataSet donde va el nombre del TQuery o TTable. El TDBGrid tiene una propiedad TDataSource donde va el nombre del TDataSource asociado a la consulta. Por eso es que vale lo que escribí anteriormente. Pero ahora lo haré más específico.

Por otro lado, no se cómo piensas operar los datos obtenidos de los combos pues deberían ser numéricos. Yo trataré de obtenerlos de todos modos.
Código Delphi [-]
 
  // Primero se ingresa en la tabla de datos
  with QueryInsert do 
  begin
    SQL.Close;
    SQL.Clear;
    SQL.Add('INSERT Tabla (ProductoID, cantidaddeproducto, precio, total)');
    SQL.Add('VALUES(:w_productoID, :w_cantidaddeproducto, :w_precio, :w_total);';
    ParamByName('w_ProductoID').AsString := CBProductoID.Text;
    ParamByName('w_CantidadDeProducto').AsInteger := StrToInt(CBCantidadDeProducto.Text);
    ParamByName('w_Precio').AsCurrency := StrToCurr(CBPrecio.Text);
    ParamByName('w_Total').AsCurrency := StrToCurr(CBPrecio.Text) * StrToInt(CBCantidadDeProducto.Text);
    Prepare; // Opcional. 
    ExecSQL; 
  end; 
  // Luego actualizas el Query que consulta esa tabla de datos 
  Query.Refresh; // En algunos componentes no se usa Refresh, asi 
                 // es que se debe hacer Close y luego Open para 
                 // actualizar la consulta.
__________________
Cita:
Cuando respetes al ilustrado y al ignorante, al rico y al pobre, al bello y al feo, estarás muy cerca de la sabiduría, que trasciende lo aparente.

E. Rharo

Última edición por PabloTech fecha: 08-08-2007 a las 17:39:58. Razón: Para evitar las caritas :P use el prefijo :w_
Responder Con Cita