FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
busqueda en base de datos
hola
(soy un poco nuevo en delphi) disculpen, mi problema es el siguiente: tengo una tabla llamado socios y quiero que cuando ponga en un edit el numero de socio y le de a un boton llamado buscar, que en mis otros edit's que tengo me aparezcan el nombre del socio,apellido, direccion, etc. no soy muy bueno explicando pero si me entendieron, les agradeceria mucho su ayuda. |
#2
|
||||
|
||||
Si son todo Tedits y no TdbEdits.
1º.-Si la tabla está indexada por dicho campo. MiTabla.IndexName:='ElCampo'; Esto puede ir en el evento al mostrar del formulario por ejemplo. Cuando pulses en el botón de búsqueda: MiTabla.FindKey([Edit1.Text]); Sino está indexada tendrías que utilizar Locate. Partiendo de que la tabla si está indexada, quedaría algo así. Código:
If MiTabla.FindKey([Edit1.Text]) then begin MiEdit1.text:=MiTablaMiCampo1.Value; MiEdti2.Text:=FloatToStr(MiTablaMicampo.Value); MiEdit3.Text:=DateTostr(MiTablaMiCampo.Value); else begin //las acciones oportunas ShowMessage('No existe ese registro...'); end; |
#3
|
||||
|
||||
... Hola, tb puedes hacer la asignación a los EDITS si son TEdits en el evento AfterScroll del DataSet. De esto modo cuando se produzca un movimiento devido a la pulsación de un Navigator asociado p.e., tb tendrás actualizados los datos en pantalla.
Suerte.
__________________
El meu país és tan petit, que des de dalt d'un campanar es pot veure el campanar veí. |
#4
|
|||
|
|||
gracias por su ayuda
me sirvio mucho |
|
|
|