Hola buena tarde, para todos.
estoy haciendo una pantalla para buscar un registro por tres opciones diferente usando un RadioGroup, todo corre bien pero cuando busco por código no me dice nada y por cédula o nombre me presenta un error de sistnaxi en la clausura From, a continuación como estoy haciendo la busqueda.
Código Delphi
[-]
procedure TFrm_Consulta.Edit1Change(Sender: TObject);
const
STRSQL = 'Select * From Carnet';
begin
case RadioGroup1.ItemIndex of
0 : begin
Qry_BuscarRegistro.Close;
if (Edit1.Text = '') then begin
Qry_BuscarRegistro.SQL.Text := STRSQL;
end
else begin
Qry_BuscarRegistro.SQL.Text := STRSQL +
' WHERE Codigo_Carnet LIKE ' +QuotedStr('%' +Edit1.Text+ '%');
end;
Qry_BuscarRegistro.Open;
end;
end;
end;
procedure TFrm_Consulta.Edit2Change(Sender: TObject);
const
STRSQL = 'Select * From Carnet';
begin
case RadioGroup1.ItemIndex of
1 : begin
qry_BuscarRegistro.Close;
if (Edit2.Text = '') then begin
Qry_BuscarRegistro.SQL.Text := STRSQL;
end
else begin
Qry_BuscarRegistro.SQL.Text := STRSQL +
'WHERE Codigo_Pasaporte' +QuotedStr('%' +Edit2.Text+ '%');
end;
Qry_BuscarRegistro.Open;
end;
end;
end;
procedure TFrm_Consulta.Edit3Change(Sender: TObject);
const
STRSQL = 'Select * From Carnet';
begin
case RadioGroup1.ItemIndex of
2 : begin
Qry_BuscarRegistro.Close;
if (Edit3.Text = '') then begin
Qry_BuscarRegistro.SQL.Text := STRSQL
end
else begin
Qry_BuscarRegistro.SQL.Text := STRSQL +
'where Nombre like '+QuotedStr('%'+Edit3.Text+ '%');
end;
Qry_BuscarRegistro.Open;
end;
end;
end;