Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Conexión con bases de datos
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Conexión con bases de datos

 
 
Herramientas Buscar en Tema Desplegado
  #5  
Antiguo 24-04-2012
MartinS MartinS is offline
Miembro
NULL
 
Registrado: nov 2011
Ubicación: Villa Cacique - Argentina
Posts: 283
Poder: 15
MartinS Va por buen camino
Vanesa:
Como bien dijo Northern existen muchas maneras de hacerlo. Aqui te voy a poner solo una para que vallas viendo mas o menos como seria el procedimiento:

Código Delphi [-]
procedure TPBuscarGral.Edit1Change(Sender: TObject);
begin
   If Edit1.Text <> '' then
   Begin
     With Dm.Internos do
     Begin
      Case ComboBox1.ItemIndex of
       0: Locate('Apellidos',Edit1.Text,[loCaseInsensitive, loPartialKey]);
       1: Locate('Nombres',Edit1.Text,[loCaseInsensitive, loPartialKey]);
       2: Locate('Domicilio',Edit1.Text,[loCaseInsensitive, loPartialKey]);
      end; // Case
     end; // With
   end;
end;

Si bien no sabemos el nivel que tienes en el desarrollo de programas usando delphi voy a tratar de explicarte algo de que es lo que hace el procedimiento de arriba:
El procedimiento se ejecuta cada vez que cambia el contenido del Edit (evento onChange) y verifica que mientras exista algun caracter hace la localizacion del registro de acuerdo al campo que estoy buscando (por medio de un combobox que tengo cargado apellidos, nombres y domicilio (el numero indica el indice del combo)) y las opciones loCaseInsensitive (no deferencia mayusculas y minusculas y el lopartialkey para que busque un parcial (creo que es esa la definicion).

Northern expuso lo del TDatamodule. Siempre se utiliza (Al menos yo) para colocar todos los componentes de acceso a datos y funciona como una unidad adicional del proyecto. Se crea a partir de menu - nuevo - DataModule y lo guardas con el nombre que desees y luego al form1, por ejemplo, le decis que use la unidad recien creada, en el ejemplo se llama DM. (por eso que para la busqueda uso DM.Internos) donde dm es el datamodule e internos seria tu AdoTable.-
El uso del Datamodule es importante porque si quieres hace doble clik en el apellido y lo levante otro formulario ese otro formulario tambien deberas indicarle que use el mismo Datamodule creado y al estar seleccionado el registro correspondiente te lo llevara sin mas preambulo.-

Bueno, Mas o menos esto podrias hacer, pero todo se hace suponiendo que el uso de mas de un formulario lo sabes hacer y tambien recomiendo que leas la cara oculta de delphi 4 que expuso aqui el compañero que de seguro te va a ayudar y mucho.

Saludos y aquí estamos para lo que necesites

Sugerencia: Mira el tutorial de Caral para aprender sobre bases de datos mas robustas en este caso Firebird (ya que quieres aprender, empeza por lo bueno )

PD: y a no desanimarse y preguntar sin miedo porque todos hemos pasado por esto en algún momento y aun seguimos preguntando para continuar aprendiendo.-
Responder Con Cita
 


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

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
Como hacer busqueda en Unit y lo enviar para excel? Paulao Varios 6 29-02-2012 20:42:11
Como hacer una busqueda? Argaon Varios 5 04-06-2007 10:22:13
Como Hacer Una Busqueda En Firebird Y Mostrarla En Un Edit1.text anamaria789 Firebird e Interbase 2 03-06-2006 18:29:49
como hacer busqueda en mi bd (access) jas010 SQL 1 10-02-2005 06:29:56
¿Cómo puedo hacer una Búsqueda de Registros? Grimmy80 Conexión con bases de datos 1 28-10-2003 16:26:44


La franja horaria es GMT +2. Ahora son las 10:36:28.


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