Consulta numerica

[Neftali [Germán.Estévez]]

NOTA: Si colocas código delphi puedes utilizar los TAG´s de Delphi (Delphi y /Delphi entre corchetes).

Código Delphi [-]
 
 // Suponiendo que el control se llama numero
 procedure TFrm_Consulta_Exp.NumeroChange(Sender: TObject); 
 const 
  STRSQL = 'select * from Maestro_Expediente'; 
  STRORDER = ' ORDER BY Numero_Expediente'; 
 begin 
    Qry_busca_Expediente.Close; 
    if (Numero.Text = '') then begin 
      Qry_busca_Expediente.SQL.Text := STRSQL; 
    end 
    else begin 
      Qry_busca_Expediente.SQL.Text := STRSQL + 
         ' WHERE Numero_Expediente = ' + StrToInt(Numero.Text) + 
         STRORDER; 
    end; 
    qry_busca_Expediente.Open; 
 end;