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