Ver Mensaje Individual
  #3  
Antiguo 09-09-2006
Ruben_Cu Ruben_Cu is offline
No confirmado
 
Registrado: oct 2003
Ubicación: Mariel, Cuba
Posts: 271
Reputación: 0
Ruben_Cu Va por buen camino
Wink Campos autocalculados

Hola gesDelf, trataré de guiarte un poco en cuanto a la forma en que puedes lograr los que quieres, mas o menos esta es la secuencia que debes seguir:
1.- Necesitas crear tres campos autocalculados, para ello seleccionas la componente TDataSet(Tquery si usas BDE) asociada la DBGrid y con el botón derecho abres el editor de campos el cual debe tener las columnas con los campos que vas a mostrar DBGrid, si esto lo tienes en blanco adiciona entonces los campos de la tabla que quieres mostrar, p.e. JUGADOR_NOMBRE, JUGADOR_APELLIDOS, etc.
2.- Ahora debes crear tres nuevos campos. Sobre el mismo 'field editor' seleccionas 'New Field' en el formulario le das un nombre p.e. 'VALOR_T'.
3.- Repites la operación para los otros dos que necesitas y ya tienes creados tus tres campos 'Autocalculados'.
4.- Ahora debemos preparar el evento que se encargará de realizar el proceso de cálculo para cada registro, entonces en el inspector de objetos en la pestaña de eventos haz doble clic sobre 'OnCalcFields'.
5.- Dentro del procedimiento debes colocar algo como esto:
Código Delphi [-]
procedure TForm1.Query1CalcFields(DataSet: TDataSet);
begin
      with Query1 do begin
        FieldByName('VALOR_T').AsString:= Copy(FieldByName('ID_JUGADOR').AsString,0,3);
        .
        .
        end;
end;
6.- Claro que debes completar las dos declaraciones que faltan para los otros dos campos, solo es repetir lo mismo cambiando nombre del campo calculado y aplicando correctamente la función Copy.
Esto siempre funciona, si no me expliqué bien me preguntas y si tienes algún problema con esto no dudes en preguntar que siempre alguién aquí te ayudará, porque al fin y al cabo todos empezamos un día
Saludos
Responder Con Cita