Como hacer un buscador de numeros telefonicos

[wile777]

Empezado por Neftali

Sí, más o menos te he entendido.

La pregunta es (citándome a mi mismo):



Para que me entiendas las Base de Datos son como las recetas de cocina...
Hay muchas, cada una sirve para una cosa y la forma de crearlas es diferente en cada caso.

Para responder a tu pregunta de cómo crearla, necesito saber cual quieres crear de las muchas que hay.
Para saber cual quieres crear, hay que saber lo que vas a necesitar.
¿Gratuita? ¿De pago?
¿Las vas a tener en un sólo equipo (monousuario) o la vas a consultar desde otros (red)?

Si tenéis EXCEL (Office), ¿Teneís access? (creo que sería una buena opción para empezar y la creación se hace muy fácil e incluso la importación de datos)

Hola amigo Neftalí el soft lo quiero gratuito y mono usuario osea donde lo instale pss y si tengo acces

[Neftali [Germán.Estévez]]

Empezado por wile777

Hola amigo Neftalí el soft lo quiero gratuito y mono usuario osea donde lo instale pss y si tengo acces

Perfecto.
Pues ya tienes 2 opciones.

(1) Si tienes Excel y Access, con lo que tienes ya posees todo lo necesarios para esta primera opción.
(2) La segunda es la que te ha comentado Al González; Para ello necesitas instalar el SGBD (Firebird) y un Programa para gestionar las Base de Datos (IBExpert).

(1) MDB + ACCCESS: Los MDB son ficheros de Base de Datos pensados para programas en local. Para crear una Base de Datos MDB sólo necesitas Microsoft Access, que es el programa con las que se gestionan. Digamos que es una Base de Datos "sencilla", pensada para utilidades sin muchos requerimientos. Es lo que se conoce como una Base de Datos de escritorio (en internet puedes leer sobre ellas y las diferencias con un SGBD).
No necesitas instalar un "Server" para controlar la Base de Datos ya que se hace directamente desde el programa.

Personalmente la he usado en proyectos pequeños y funciona muy bien.

Para conectar a ella desde Delphi sólo necesitas los componentes ADO. Con Delphi vienen ejemplos de conexión ADO y en el FTP del club también encontrarás muchos (pero si quieres este tema lo dejamos para más adelante cuando ya tengas la Base de Datos montada).

(2) FIREBIRD + IBEXPERT: Esta segunda opción que te propone Al González también es muy buena (más potene que la anteior -si es que lo necesitas, esa es la duda-). Me explico; A diferencia de MSAccess, FireBird en un SGBD (un Sistema Gestos de Bases de Datos), quiere decir que ya no es una Base de Datos de escritorio "sencilla" como Access, sino que ya estamos hablando de un sistema serio. Pensado para trabajar en red con múltiples conexiones y que te ofrecerá un rendimiento mucho más alto (sobre todo cuando hay muchas conexiones) frente a Bases de Datos "sencillas".
Por eso estos sistemas son algo más complejos. El programa no se conecta directamente a la Base de Datos sino que necesitas un SERVER. En estos casos el ejecutable Delphi se conecta al SERVER y este es el que gestiona realmente la Base de Datos (necesitas 3 elementos en lugar de 2).

NOTA: A la hora de programar desde Delphi es igual en ambos casos/sistemas, pero en el caso de 2, necesitas que el server esté ejecutándose siempre; Pero desde el punto de vista del programa Delphi la programación es similar.

En tu caso y según tus necesidades, deberás escoger entre las 2 opciones. La segunda te ofrece un sistema muchos más seguro, potente, robusto, estable,complejo,... y la primera algo más sencillo y amigable.
Lo que te tienes que plantear es si con lo primero ya te basta o necesitas lo segundo.
Sabes la frase aquella que dice... "...matar moscas a cañonazos...", pues esa es la duda.

Por ejemplo,
¿De cuantos registros estamos hablando que vas a tener en tus tablas de la Base de Datos?
¿10.000, 50.000, 200.000, 5.000.000,...?
¿Vas a realizar muchas consultas? ¿Cuantas al la hora? ¿Cuantas al minuto? ¿Cuantas cada segundo?

------------------------------------------------------------------

Explicado esto, si te dedices por la primera, puedes probar a crear la Base de Datos en blanco con Access e importar los datos desde tu hoja Excel. Esto se puede hacer de forma muy fácil desde Access.

Si te decides por la segunda, cuando tengas ambos programa instalados ya podrás continuar...

[[nlsgarcia]]

wile777,

Empezado por wile777

...necesito hacer una base de datos con todos los casos que registremos en nuestra división...quiero que...el número telefónico o número de expediente...haga la opción de búsqueda en la base de datos y me lo presente...

Por favor envíame un mensaje privado con tu email y datos de contacto para poder tener mayores detalles de la aplicación y el alcance de la misma.

Nota: Dada la naturaleza de la aplicación, te sugiero no dar detalles sensibles relacionados a esta de forma pública y solicitar a un moderador o administrador que elimine tu nombre, donde trabajas y el por que de la aplicación de los Msgs #1 y #7, solo debes solicitar información técnica de forma neutral y sin dar detalles de la naturaleza de la data o su uso dado lo especial del caso

Saludos,

Nelson.

[Neftali [Germán.Estévez]]

Ya están modificados ambos mensajes para tranquilidad de todos.
Eliminados datos innecesarios para temas de programación.

Un saludo.

[wile777]

Amigos Club Delphi yo he estado en muchos foros pero de mi parte mis Bendiciones mis Respetos y mi reverencia para con ustedes.. De verdad son muy amables muy umildes y muy atentos, eso para mi tiene mucho valor y lo respeto, yo quiero darle las gracias enorme mente por toda su ayuda brindada a mi persona, de verdad muy agradecido con ustedes: nls Garcia, al gonzales y especialmente a Neftali por su gran ayuda Bendiciones..

[wile777]

Amigos ya tengo todo, la base de datos el TButton el TEdit y todo..... ahora mi pregunta es la siguiente yo tengo el TButton con este codigo:

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
begin
  ProgressBar1.Position := ProgressBar1.Min;
  ProgressBar1.Position := ProgressBar1.Max;
  If Edit1.Text = '' then // aqui envio un mensaje si esta vacio el Edit1
  begin
    MessageBox(Handle,
             PChar('Tiene que Indicar el numero TELEFONICO o Dato a Colsultar'),
             PChar(''),
             MB_OK + MB_ICONWARNING + MB_DEFBUTTON1 + MB_APPLMODAL);
  end
  else // de lo contrario hago lo que sigue
  begin
    // conectar y obtener datos
    ADOTable1.Open
  end;

pero en el ADOTable solo logro abrir la base de datos completa y yo lo que quiero es que me busque coincidencias con el numero que ponga en el TEdit.. como hago? porque solo logre ADOTable.Open pero no quiero abrirlo si no buscar coincidencias Gracias

[ecfisa]

Hola wile777.

Empezado por wile777

...y yo lo que quiero es que me busque coincidencias con el numero que ponga en el TEdit.. como hago?

Código Delphi [-]
..
procedure TForm1.FormCreate(Sender: TObject);
begin
   ADOTable1.Open;
end;

(* Busca un dato por igualdad sobre la columna indicada por el parámetro aFieldName 
   basado en el valor indicado por el parámetro aValue *)
procedure TForm1.SearchData(const aFieldName, aValue: string);
begin
  if not ADOTable1.Locate(aFieldName , aValue,[]) then
   MessageBox(0,'El dato buscado no se encontró', 'AVISO',MB_ICONWARNING)
end;

(* Filtra la tabla por los caracteres consecutivos coincidentes de la columna aFieldName,
    basado en el valor enviado en el parámetro aValue *)
procedure TForm1.FilterData(const aFieldName, aValue: string);
begin
  with ADOTable1 do
  begin
    Filtered:= False;
    Filter  := Format('(%s LIKE ''%s*'')', [aFieldName, aValue]);
    Filtered:= True;
    if RecordCount = 0 then
    begin
      Filtered:= False;
      MessageBox(0, 'El dato ingresado no se encontró', 'AVISO', MB_ICONWARNING)
    end
  end
end;
...

Ejemplo del uso:

Código Delphi [-]
...
procedure TForm1.btnSearchOneClick(Sender: TObject);
begin
  SearchData('TELEFONO', Edit1.Text);
end;

procedure TForm1.ButtonFilterClick(Sender: TObject);
begin
   FilterData('DIRECCION', Edit1.Text)
end;

(* Elimina cualquier filtro prefijado *)
procedure TForm1.btnFilterOffClick(Sender: TObject);
begin
  ADOTable1.Filtered:= False
end;
...

Tema aparte: No olvides encerrar el código Delphi de tus mensajes entre etiquetas: [delphi] tu_codigo [/delphi], de ese modo es mucho mas fácil de leer (ya las agregué a tu mensaje).

Saludos