Como hacer un buscador de numeros telefonicos

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

[wile777]

ME FUNCIONA CON ESTE CODIGO PERO SOLO ME ABRE TODA LA BASE DE DATOS:

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


LE PONGO ESTE QUE ME DIO ecfisa PARA LOGRAR LO QUE QUIERO QUE ME BUSQUE LA RELACION DE LO QUE PONGA EN EL TEDIT1:

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


ME DA ESTOS ERRORES:

[Error] Unit1.pas(97): Undeclared identifier: 'btnSearchOneClick'
[Error] Unit1.pas(97): ';' expected but '(' found
[Error] Unit1.pas(99): Undeclared identifier: 'SearchData'
[Error] Unit1.pas(99): Undeclared identifier: 'Edit1'
[Error] Unit1.pas(100): Statement expected, but expression of type 'Text' found
[Error] Unit1.pas(102): Undeclared identifier: 'ButtonFilterClick'
[Error] Unit1.pas(102): ';' expected but '(' found
[Error] Unit1.pas(104): Undeclared identifier: 'FilterData'
[Error] Unit1.pas(104): Undeclared identifier: 'Edit1'
[Error] Unit1.pas(105): Statement expected, but expression of type 'Text' found
[Error] Unit1.pas(108): Undeclared identifier: 'btnFilterOffClick'
[Error] Unit1.pas(108): ';' expected but '(' found
[Error] Unit1.pas(110): Undeclared identifier: 'ADOTable1'
[Error] Unit1.pas(113): '.' expected but ';' found
[Error] Unit1.pas(35): Unsatisfied forward or external declaration: 'TForm1.Button2Click'
[Fatal Error] Project1.dpr(6): Could not compile used unit 'Unit1.pas'

[Casimiro Noteví]

Creo que falta un punto y coma en un par de líneas;

Código Delphi [-]
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;

Por cierto, recuerda poner los tags al código fuente, ejemplo:



Gracias

[ecfisa]

Hola wile777.

Empezado por wile777

ME DA ESTOS ERRORES:

[Error] Unit1.pas(97): Undeclared identifier: 'btnSearchOneClick'
[Error] Unit1.pas(97): ';' expected but '(' found
[Error] Unit1.pas(99): Undeclared identifier: 'SearchData'
[Error] Unit1.pas(99): Undeclared identifier: 'Edit1'
[Error] Unit1.pas(100): Statement expected, but expression of type 'Text' found
[Error] Unit1.pas(102): Undeclared identifier: 'ButtonFilterClick'
[Error] Unit1.pas(102): ';' expected but '(' found
[Error] Unit1.pas(104): Undeclared identifier: 'FilterData'
[Error] Unit1.pas(104): Undeclared identifier: 'Edit1'
[Error] Unit1.pas(105): Statement expected, but expression of type 'Text' found
[Error] Unit1.pas(108): Undeclared identifier: 'btnFilterOffClick'
[Error] Unit1.pas(108): ';' expected but '(' found
[Error] Unit1.pas(110): Undeclared identifier: 'ADOTable1'
[Error] Unit1.pas(113): '.' expected but ';' found
[Error] Unit1.pas(35): Unsatisfied forward or external declaration: 'TForm1.Button2Click'
[Fatal Error] Project1.dpr(6): Could not compile used unit 'Unit1.pas'

Por órden de aparición, controla que:

1. En tu form exista un componente TButton y se llame "btnSearchOneClick".
2. ¿ Copiaste y pegaste la función "SearchData" ?.
3. En tu form exista un componente TEdit y se llame "Edit1".
4. En tu form exista un componente TButton y se llame "ButtonFilterClick".
5. ¿ Copiaste y pegaste la función "FilterData" ?.
6. En tu form exista un componente TButton y se llame "btnFilterOffClick".
7. En tu form exista un componente TADOTable y se llame "ADOTable1".
8. Que el componente "Button2" tenga asociado el método "Button2Click".
9. Que tu form se llame "Form1".

Saludos