Ver Mensaje Individual
  #3  
Antiguo 20-05-2004
sanxpue sanxpue is offline
Miembro
 
Registrado: jul 2003
Posts: 196
Reputación: 21
sanxpue Va por buen camino
Lightbulb Y por que no haces lo siguiente??

Y por que no te olvidas del radiogroup y haces lo siguiente :

Vamos a hacerlo en el evento OnKeyPress cuando Key = #13
(al rato lo acomodamos bien)

Código Delphi [-]
//Aqui lo estamos haciendo para numero o palabras completas
//que sean iguales...
Procedure TForm1.Edit1......
Begin
  If Key = #13 Then
    If Not table1.Locate('NUMALU',Edit1.Text,[]) Then
      If Not table1.Locate('APELALU',Edit1.Text,[]) Then
        ShowMessage('No se Encontraron datos');
End;

Pero si lo que queremos es que vaya localizando segun escribas entonces

Código Delphi [-]
Procedure TForm1.Edit1......
Begin
    If Not table1.Locate('NUMALU',Edit1.Text,[loPArtialKey]) Then
      If Not table1.Locate('APELALU',Edit1.Text,[loPArtialKey]) Then
         Table1.First;  
End;

Supongamos una tabla

12345 chuchita la bolsearon
1247 la magnifica

con el primero si escribes

1247 se va a la maginifica
y si escribes chuchita la bolsearon se va a 12345
pero si nada mas escribes la no se va a ningun lado

la segunda opcion
si escribes
12 esta en 12345 pero si escribes un 4 mas entonces se va a 124
pero si escribes

ch pregunta primero por el numero pero como no esta entonces se va a buscar la siguiente opcion

Haber que te parece esa idea ¡¡¡¡

Y crear un campo computado de Nombre y apellidos del alumno seria mejor buscar en ese campo
__________________
saludos desde Puebla Mexico..
asanxt@hotmail.com
"como siempre a sus ordenes y siempre con buena cara"
'lolita me excitas, perversa piel de melocotón'
Responder Con Cita