FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Problemas con codigo en delphi
Hola necesito que me ayuden a componer este codigo que esta hecho en delphi 7 y utilizando firebird como base de datos la cuestión es la siguiente:
Este codigo es para realizar una busqueda dentro una tabla llamada eventos de la base de datos, la tabla contiene información de meses atras y tambien información vigente, lo que quiero hacer es basandome en 3 componentes de delphi tales componentes son los TDBLookupComboBox. Tengo 3 componentes de este tipo los cuales utilizo para la fecha,el tipo de evento y para el municipio, lo que quiero exactamente es que cuando seleccione un tipo de evento, un municipio X y una fecha(Pero en la fecha hay una condición, quiero que muestre solo la fecha que eligire en el combo, no quiero que me arroje 10 o más fechas, solo la fecha del combo seleccionada.), al termino de la elección, cuando presione el boton Buscar que me arroje los datos seleccionados. Quizá este ejercicio sea muy sencillo para algunos, pero en mi caso no opino lo mismo y si me ayudarian mucho si alguien respondiera a mi petición. Muchas gracias..... P.D. Si de plano estoy super mal en la logica de este ejercicio, se aceptan criticas constructivas procedure Tfrmrep.btnbuscarClick(Sender: TObject); var evento:integer; begin evento:=cmbevento.keyvalue; if evento in [1,2]>'' then begin qryrep.Active:=false; qryrep.SQL.Clear; qryrep.SQL.Add('select * from eventos'); qryrep.SQL.Add('where cve_evento=:cve_evento'); qryrep.ParamByName('cve_evento').AsInteger; qryrep.Active:=true; end else begin if (cmbevento.KeyValue>'') or (cmbfechevento.DateTime>'') or (cmbmunicipio.KeyValue>-1) then begin qryrep.SQL.Clear; qryrep.SQL.Add('select * from eventos where cve_mpo=:cve_mpo '); qryrep.SQL.Add('where cve_evento starting with: clave and '); qryrep.SQL.Add('fecha_evento starting with: fecha and '); qryrep.ParamByName('clave').AsInteger:=cmbevento.KeyValue; qryrep.ParamByName('fecha').AsDateTime; qryrep.ParamByName('cve_mpo').AsInteger:=cmbmunicipio.KeyValue; qryrep.Active:=true; end else begin ShowMessage(''); end; end; end; |
#2
|
||||
|
||||
Saludos
Cita:
No aporto mas hasta aclara esos puntos
__________________
Van Troi De León (Not) Guía, Code vB:=Delphi-SQL, ¿Cómo? Viajar en el tiempo no es teóricamente posible, pues si lo fuera, ya estarían aqui contándonos al respecto! Última edición por vtdeleon fecha: 07-11-2005 a las 22:12:26. Razón: indent |
#3
|
||||
|
||||
Oops, Ademas de decirte qeu uses las Etiquetas vB:=Delphi-SQL
Ves la diferencia entre post?? Saludos
__________________
Van Troi De León (Not) Guía, Code vB:=Delphi-SQL, ¿Cómo? Viajar en el tiempo no es teóricamente posible, pues si lo fuera, ya estarían aqui contándonos al respecto! |
#4
|
||||
|
||||
Ni que decir de un poquito de identación tampoco vendría mal...
__________________
"Lo mejor de no saber hacer nada es que se tiene mucho tiempo libre."
|
|
|
|