FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
introducir los datos de un spinedit en una tabla
Hola soy nuevo con delphi xe2, estoy realizando un trabajo en el que debo introducir los datos de un spinedit en una tabla y desconozco como debo realizarlo.
El programa consta de un TMAINMENU donde uno de los menús salta una nueva ventana en la que te pide introducir varios datos (mes y año) al introducir los datos y pulsar en el botón de ok debería ejecutar: 1º buscar en la base de datos los registros que corresponden con ese mes y año y rellenar los spinedit. 2º si no se encuentran los spinedit se ponen a 0 He Creado 31 spinedit en los que debo introducir unas temperaturas del dia, también un ttabla y tdatasource y tquery. pero desconozco como asociar los spinedit. Gracias |
#2
|
||||
|
||||
Bienvenido a clubdelphi, ¿ya leiste nuestra guía de estilo?, gracias por tu colaboración
|
#3
|
||||
|
||||
Estimado edufg :
¿Estás seguro que el componente SpinEdit es el más adecuado para lo que tú deseas? Normalmente un SpinEdit se utiliza para seleccionar, incrementar y disminuir valores integer o float, dentro de un rango establecido. ¿Podrías explicar mejor el uso que quieres dar a los SpinEdits? Saludos |
#4
|
|||
|
|||
- lo primero gracias por contestar.
Si debe ser así ya que se trata de un trabajo de clase, a través de los spinedit debo introducir los valores de las temperaturas diarias del mes, a su vez cuando pulsamos en l a opción del menú recuperar temperaturas del mes recorrerá los spinedit y los mostrara por pantalla. procedure TVentana.MM_recuperar_datosClick(Sender: TObject); var ANNO_actual,MES_Actual: integer; auxStr: String; begin {Cuando el usuario hace clic en la opción del menú "Recuperar los datos de otro mes" debe aparecer una ventana donde selecciona el mes y año que desea consultar y hace clic en el botón Aceptar. A continuación, el programa debe buscar en la base de datos los registros que corresponden con ese mes y año y mostrarlos en la ventana.} Application.CreateForm (TVSeleccionar,VSeleccionar); /// con la ventana Seleccionar realizar lo siguiente with VSeleccionar do begin if ShowModal=mrOK then /// cuando pulsamos el boton ok /// introducimos las etiquetas L_Temperatura_fecha.Caption:= 'Temperaturas del mes de '+ CB_mes.text +' del año '+SE_ano.text; Q_Busqueda.Active:=False;/// desactivar query Q_Busqueda.SQL.Clear; /// borrar query ANNO_actual:= SE_ano.value; MES_Actual:= CB_mes.ItemIndex+1; Q_Busqueda.SQL.Add('SELECT DIA, TEMPE FROM Tempe WHERE MES="'+inttostr(MES_Actual)+'" AND ANNO="'+inttostr(ANNO_actual)+'"'); Memo1.Text:=Q_Busqueda.SQL.Text; /// introducir datos, seleccionar SELECT los campos dia y tempe de FROM la BD tempe /// donde mes es igual (MES=) a los datos introducidos en MES_ACTUAL y año es igual (AND ANNO=) datos de CB_mes.text Q_Busqueda.Active:=True; /// activar query // Recorremos con un bucle todos los componentes de la ventana. if not((Q_Busqueda.Bof) and (Q_Busqueda.Eof)) then while not (Q_Busqueda.Eof) do begin // que queremos buscar el componente en esta ventana if Self.FindComponent('SE_'+IntToStr(Q_Busqueda.Fields[0].AsInteger))<>nil then TSpinEdit(Self.FindComponent('SE_'+IntToStr(Q_Busqueda.Fields[0].AsInteger))).Value:=Q_Busqueda.Fields[1].AsInteger; Q_Busqueda.Next; end; end; end; |
#5
|
||||
|
||||
Para ingresar datos a una Tabla desde un SpinEdit:
Para recuperar datos desde una Tabla y mostrarlos en un SpinEdit:
Ojalá te sirva Saludos PD: Para la próxima vez que coloques código utiliza los tags de Delphi. |
#6
|
||||
|
||||
Tal y como dice radenf:
Recuerda poner los tags al código fuente, ejemplo: Gracias |
#7
|
|||
|
|||
OK, voy a realizar lo que me dices a ver que tal.
Gracias |
#8
|
|||
|
|||
He podido realizar el trabajo he realizado el trabajo gracias por vuestra ayuda. para recoger los datos de los 31 Spinedit mediante un bucle:
gracias. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Introducir datos en un TStringGrid | Bauhaus1975 | Varios | 3 | 11-05-2006 18:29:23 |
Como puedo introducir datos en una tabla acces sin el DBNavigator??? | Bitbanner | Conexión con bases de datos | 3 | 09-02-2005 07:03:14 |
como introducir datos a una tabla | jhonveras | DB2 | 1 | 05-05-2004 16:35:09 |
Introducir Datos A Una Tabla | ElCherchu | DB2 | 4 | 05-05-2004 01:38:15 |
Problemas al introducir tuplas en Tabla Paradox | Barriccel | Conexión con bases de datos | 0 | 18-11-2003 17:11:04 |
|