Código Delphi
[-]
procedure TForm8.RadioGroup1Click(Sender: TObject);
var
buscar:string;
begin
if RadioGroup1.ItemIndex=0 then
edit1.enabled:=true;
edit1.Clear;
dbgrid1.Enabled:=true;
if radiogroup1.ItemIndex=1 then
edit1.enabled:=true;
edit1.clear;
dbgrid1.Enabled:=true;
case RadioGroup1.ItemIndex of
0:edit1.Enabled:=true;
1:edit1.enabled:=true;
end;
end;
procedure TForm8.Edit1Change(Sender: TObject);
var
buscar:string;
begin
case RadioGroup1.ItemIndex of
0:buscar:='Select ced_cli,nom_cli,dir_cli,tel_cli From Database Where ced_cli Like "' + (Edit1.text) + '%"';
1:buscar:='Select ced_cli,nom_cli,dir_cli,tel_cli From Database Where ced_cli Like "' + (Edit1.text) + '%"';
end;
Query1.SQL.Clear;
Query1.SQL.Add(buscar);
Query1.Active:=True;
Query1.Open;
end;
procedure TForm8.DBGrid1CellClick(Column: TColumn);
begin
button1.Enabled:=true;
button1.SetFocus;
end;
procedure TForm8.FormCreate(Sender: TObject);
begin
button1.enabled:=false;
edit2.Visible:=false;
edit3.Visible:=false;
edit4.Visible:=false;
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
Query1.DatabaseName:=ExtractFilePath(Application.ExeName)+'Data';
DataSource1.DataSet:=Query1;
DBGrid1.DataSource:=DataSource1;
end;
end.
Tengo este Form8
La Carpeta en donde se encuentra la base de datos se llama "Data"
La Tabla en Paradox7 se llama "Database"
Verifiqué que la tabla tuviera al menos 1 registro
Ya Revise los campos de mi tabla y están correctos
Dentro del Formulario Tengo un RadioGroup que tiene 2 opciones Cédula y Nombre si selecciono cédula la busqueda se ordena por cédula y si selecciono Nombre la búsqueda se ordena por Nombre
El problema que tengo es que cuando selecciono una de las opciones del radio group da este error
"Project Project1.exe raised exception class EDBEngineError with message 'Invalid use of keyword.
Token.Database
Line Number:1'. Process stopped. use Step or Run to continue."
Porfa Ayudenme con este error....Gracias Adelantadas