FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
- 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; |
#2
|
||||
|
||||
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. |
#3
|
||||
|
||||
Tal y como dice radenf:
Recuerda poner los tags al código fuente, ejemplo: Gracias |
#4
|
|||
|
|||
OK, voy a realizar lo que me dices a ver que tal.
Gracias |
#5
|
|||
|
|||
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 |
|