URRRRRGENTE!! Crear una consulta en Delphi

[Ariotto]

Hola a todos, soy principiante con esto de la programación en Delphi, manejo Delphi 7 e hice una aplicacion de cobranza donde tengo una Base de Datos y maneja bien todo.

Ahora el problema es que ocupo que haga consultas por cobrador (son 10 nombres de cobradores) y que me muestre los registros.

Ejemplo

Cobrador: /aqui doy en un combobox el cobrador que quiero

Folio
Fecha
Nombre del cliente
etc /aca que me aparezcan los datos de estos campos


Hice la tabla en paradox 7, es una tabla general con los siguientes campos (folio, fecha, numero de contrato, nombre del cliente, poblacion, direccion, motivo, observacion y cobrador), manejo winME, tengo instalado Delphi 7 y no tengo perro.

Por favor, si alguien me puede ayudar se lo agradeceria demasiado, no se si tenga que hacer 10 consultas (una por cada cobrador o que).

Gracias

[Pablo Carlos]

Hola. tienes que hacer la consulta con un query y pasarle como parametro el datos del cobrador y que el query te muestre los datos en otro form en un grib. Te mando una busqueda que tengo hecha (es facil copiar pegar) solo cambias los datos (campos, tablas y parametro)

Código SQL [-]
size="1">Select DatosPersonales_id,

DAT_Apellido,

DAT_Apellido + ', ' + DAT_Nombres,

DAT_Nivel,

DAT_DocumentoNumero,

DAT_Contraseña

From DatosPersonales.db

Where DAT_Apellido >= ApellidoDesde

and DAT_Apellido <= ApellidoH

en el evento beforeopen del query pones esto

Código Delphi [-]
  qBuscarDatos.ParamByName('pApellidoDesde').AsString :=
  frmBuscarDatosPersonales.eApellido.Text + '';
 qBuscarDatos.ParamByName('pApellidoHasta').AsString :=
  frmBuscarDatosPersonales.eApellido.Text + 'Zz';

saludos

[jachguate]

Hola Ariotto.

En primer lugar, bienvenido al club delphi. Te recomiendo una lectura de la guia de estilo de los foros, que tiene las normas básicas de convivencia en este lugar.

Como la guia te explicará, el título que has puesto a este hilo no es el mas apropiado.

Por otro lado, comentarte que lo que pretendes puede conseguirse fácilmente con un dbLookupComboBox asociado con su propiedad ListSource asociada a un DataSource que a su vez apunte a la tabla de cobradores, y su propiedad ListField al nombre del cobrador (o lo que querras mostrar).

Luego, una consulta SQL con un parámetro para el cobrador, algo como:

Código SQL [-]
Select *
  from cobros
 where cod_cobrador = :cobrador

En el onclick de un boton (o el evento que te parezca mas apropiado), haces la asignación del parámetro y apertura del query, digamos:

Código Delphi [-]
Procedure Tform1Button1Click(sender : TObject);

Begin
  qCobros.Close;
  qCobros.ParamByName('cobrador').AsInteger := LookupCobradores.KeyValue;
  qCobros.Open;
end;

Faltaria un grid o los controles que prefiras para mostrar los resultados del query y listo.

Ya que estas iniciando con delphi, te recomiendo la lectura de un buen libro, tal como la cara oculta de delphi, cuyo autor Ian Marteens ha publicado la edición para delphi 4 en formato pdf descargable gratuitamente desde su web.

Hasta luego.