Como hacer un buscador de numeros telefonicos

[[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

[wile777]

Gracias amigo lo tendre en cuenta soy nuevo en esto y voy a probar tu codigo a ver

[wile777]

Amigo ecfisa su cidigo se ve muy bien y creo que es lo que me falta... pero lo ingreso al TButton y me da error con searchdata y no me deje seguir.. que hago?

[Casimiro Noteví]

Empezado por wile777

me da error con searchdata y no me deje seguir.. que hago?

Decir qué error te da.