Cuestión de Estilo

[Jesús Pena]

Resulta que tengo en mi base de datos una tabla en la que puede haber varios registros con un mismo código pero diferenciados por un dígito de orden, el caso es que quiero que me aporteis ideas de como puedo hacer lo siguiente (aportando código si es posible), me explico:

Lo que quiero hacer es lo siguiente : cuando el usuario digite un código en un edit validar la existencia de dicho código y si existen varios registros en la tabla asociada mostrar una ventana con la lista de los registros encontrados para que el usuario seleccione el que quiera (de los de la lista).

[marcoszorrilla]

Creo que lo más facil sería montar una consulta y visualizar los registros resultantes en una rejilla que apareceria en la ventana emergente que citas.

Código Delphi [-]
Query1.Close;
Query1.Sql.Clear
Query1.Sql.Add('Select Campo1, campo2, campo3');
Query1.Sql.Add('From MiTabla');
Query1.Sql.Add('Where Campo1 = '+ QuotedStr(Edit1.Text);
Query1.Open;

Un Saludo.

[ContraVeneno]

Empezado por marcoszorrilla

Creo que lo más facil sería montar una consulta y visualizar los registros resultantes en una rejilla que apareceria en la ventana emergente que citas.

Código Delphi [-]
Query1.Close;
Query1.Sql.Clear
Query1.Sql.Add('Select Campo1, campo2, campo3');
Query1.Sql.Add('From MiTabla');
Query1.Sql.Add('Where Campo1 = '+ QuotedStr(Edit1.Text);
Query1.Open;

Un Saludo.

más:

Código Delphi [-]
 case query1.recordcount off
  0: 
   showmessage('no existe');
  1:
   Begin
    //lenar datos
   end;
  else
   begin
    //mostrar lista de encontrados
   end;
 end; //case