Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 30-03-2017
yuyidt yuyidt is offline
Miembro
NULL
 
Registrado: oct 2016
Posts: 40
Poder: 0
yuyidt Va por buen camino
Label que muestre la resta de cada vez que se agregue un puntaje

Hola buenas tardes necesito que por favor me puedan ayudar con esto, tengo idea de los que quiero hacer pero no se me ocurre como plasmarlo en código.

Tengo un combobox en el cual seleccionare números del 1 - 20
Tengo un label que me muestra lo que selecciono en ese combobox
tengo un boton que me guarda los registros que agrego
Quiero que al agregar un registro en una tabla (uno de los campos de la tabla se llama puntos) me reste (lo que esta en el label - los puntos que inserte), y que entonces ahora este label me muestre lo que esta quedando disponible de dicha resta.
Responder Con Cita
  #2  
Antiguo 30-03-2017
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.042
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
¿Y en qué parte tienes el problema?
Pon tu código para que te ayudemos con él.
Responder Con Cita
  #3  
Antiguo 30-03-2017
Avatar de AgustinOrtu
[AgustinOrtu] AgustinOrtu is offline
Miembro Premium
NULL
 
Registrado: ago 2013
Ubicación: Argentina
Posts: 1.858
Poder: 15
AgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en bruto
Escribi el codigo sin usar el TLabel, usando variables que vayan almacenando los valores

Y despues es cuestion de poner el valor de la variable en el TLabel
Responder Con Cita
  #4  
Antiguo 31-03-2017
yuyidt yuyidt is offline
Miembro
NULL
 
Registrado: oct 2016
Posts: 40
Poder: 0
yuyidt Va por buen camino
Este es el codigo que tengo

Código Delphi [-]
procedure TForm5.BitBtn7Click(Sender: TObject);
var
a:string;
begin
with datamodule2.FDQuery6 do
    begin
      sql.Text:='select sum(puntos) from eva_estudiantes';
      a:=label12.caption - fieldbyname('puntos').value; //pruebo con este código y tampoco a:=combobox2.items(combobox.itemindex).value - fieldbyname('puntos').value;
      open;
      edit2.Clear;
    end;
end;

no me esta funcionando y tampoco se como añadirle el resultado de esa resta al label12 para saber que es lo que tengo disponible
Responder Con Cita
  #5  
Antiguo 31-03-2017
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola.

Intentalo de este modo:
Código Delphi [-]
...
  with datamodule2.FDQuery6 do
  begin
    Close;
    Sql.Text := 'SELECT SUM( PUNTOS ) AS PTOS FROM EVA_ESTUDIANTES';
    Open;
    Label12.Caption := IntToStr( StrToInt( Label12.Caption ) - FieldByName( 'PTOS' ).Value );
    Edit2.Clear;
  end;
...

Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita
  #6  
Antiguo 31-03-2017
yuyidt yuyidt is offline
Miembro
NULL
 
Registrado: oct 2016
Posts: 40
Poder: 0
yuyidt Va por buen camino
Unhappy no funciona

Ya probe con ese código pero no me funciona
Responder Con Cita
  #7  
Antiguo 31-03-2017
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.042
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Cita:
Empezado por yuyidt Ver Mensaje
Ya probe con ese código pero no me funciona
Responder Con Cita
  #8  
Antiguo 31-03-2017
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola.

Ese código realmente resta la suma de la columna llamada "PUNTOS" al contenido numéricamente válido de Label12.Caption. Deberías especificar que es lo que no hace y estas esperando que haga.

Leyendo nuevamente el primer mensaje veo algo que puede generar una interpretación ambigua:
Cita:
Empezado por yuyidt Ver Mensaje
...
Quiero que al agregar un registro en una tabla (uno de los campos de la tabla se llama puntos) me reste (lo que esta en el label - los puntos que inserte), y que entonces ahora este label me muestre lo que esta quedando disponible de dicha resta.
¿ Te refieres al total de los puntos que ya has insertado, o al último valor del puntaje que se insertó ?. Tál como está planteado tu código, le restarás el total (suma) de los puntos insertados.

Otra duda: ¿ Que representan esos puntos y que debería reflejar la resta en cuestión ?

Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Crear una Vista que agregue datos con triggers Edchar Firebird e Interbase 11 19-12-2012 18:57:25
una grilla que muestre un panel en cada celda JoseAntonio OOP 2 06-04-2009 06:50:13
TDBGrid que muestre un Hint en cada celda Cecil OOP 1 14-07-2008 19:44:50
Programa que muestre imagen de una web Celorio10 Internet 4 16-05-2008 21:26:49
SQL que arroja 20 registros que muestre 10 cahosoft Firebird e Interbase 7 19-02-2004 18:44:29


La franja horaria es GMT +2. Ahora son las 19:12:16.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi