Puedes utilizar esta funcion que provee delphi
InputQuery('Input Box', 'Prompt', NewString) :boolean
La cual abre un dialogo con una pregunta y permite ingresar un valor. Si presiono OK devuelve true, o false en Caso Contrario
El valor devuelto esta almacenado en la variable NewString, el cual debes utilizar como filtro en el TADODataSet.
Suerte
__________________
Hice un trato con Dios... el no hace sistemas y yo hago milagros
|