Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Label que muestre la resta de cada vez que se agregue un puntaje (https://www.clubdelphi.com/foros/showthread.php?t=91674)

yuyidt 30-03-2017 19:15:29

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.

Casimiro Notevi 30-03-2017 20:17:58

¿Y en qué parte tienes el problema?
Pon tu código para que te ayudemos con él.

AgustinOrtu 30-03-2017 22:27:26

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

yuyidt 31-03-2017 04:01:01

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

ecfisa 31-03-2017 04:26:37

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 :)

yuyidt 31-03-2017 18:38:59

no funciona
 
Ya probe con ese código pero no me funciona :(

Casimiro Notevi 31-03-2017 19:07:49

Cita:

Empezado por yuyidt (Mensaje 514999)
Ya probe con ese código pero no me funciona :(

:confused: :confused: :confused:

ecfisa 31-03-2017 20:23:02

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 (Mensaje 514971)
...
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 :)


La franja horaria es GMT +2. Ahora son las 00:52:38.

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