Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Otros entornos y lenguajes > Lazarus, FreePascal, Kylix, etc.
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 11-12-2014
Minoru Minoru is offline
Miembro
NULL
 
Registrado: dic 2014
Posts: 22
Poder: 0
Minoru Va por buen camino
Smile Codigo Firebird con Lazarus y Filtros

Muy buenas tardes a los de esta comunidad.
Soy un usuario nuevo en este lenguaje de programación, me ha gustado mucho lazarus. me recordó a visual basic en cierta forma.

sin mas rodeos, quisieran que me pudieran ayudar con cierto problema que tengo.
cree un pequeño programa de prueba, que se conecta a base de datos Firebird.

--------------------------------
se conecta a "service.FDB"
Tiene 2 tablas CLIENTES y REPARACIONES

CLIENTES(CODIGO,NOMBRES,TELEFONO,CELULAR)
REPARACIONES(CODIGO,CLIENTE,NS,FALLA)

LLave Primaria: CODIGO

--------------------------------

Ya aprendí hacer filtros.
pero cuando llama a FALLA
sale (MEMO), cosa que utilice el mismo código en Embarcadero y me mostraba los datos correctamente
www.dropbox.com/s/txkturm68im8kzy/error.jpg


el Código Fuente es:
http://www.dropbox.com/s/lcuvdlgu117...nviar.rar?dl=0

ya he intentado leer foros en ingles y todo, quizas soy un poco menso por que no me resultan. si alguien que tenga mas experiencia en programacion y quisiera gastar un poco de su valioso tiempo a ayudar a un nuevo. le agradeceria mucho!!

De antemano gracias por la ayuda y creo que ayudara a otros newbies como yo... que estamos aprendiendo a utilizar lazarus con BD.

Última edición por Casimiro Notevi fecha: 11-12-2014 a las 11:24:15.
Responder Con Cita
  #2  
Antiguo 11-12-2014
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola Minoru.
Cita:
Empezado por Minoru Ver Mensaje
pero cuando llama a FALLA
sale (MEMO), cosa que utilice el mismo código en Embarcadero y me mostraba los datos correctamente
www.dropbox.com/s/txkturm68im8kzy/error.jpg
Para visualizar los caracteres de la columna blob, agrega este código al evento OnGetText del campo "FALLA":
Código Delphi [-]
procedure TForm1.SQLQFALLAGetText(Sender: TField; var aText: string; DisplayText: Boolean);
begin
  aText:= Copy(TStringField(Sender).AsString, 1, MaxInt);
end;

Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita
  #3  
Antiguo 11-12-2014
Minoru Minoru is offline
Miembro
NULL
 
Registrado: dic 2014
Posts: 22
Poder: 0
Minoru Va por buen camino
Cita:
Empezado por ecfisa Ver Mensaje
Hola Minoru.


Para visualizar los caracteres de la columna blob, agrega este código al evento OnGetText del campo "FALLA":
Código Delphi [-]
procedure TForm1.SQLQFALLAGetText(Sender: TField; var aText: string; DisplayText: Boolean);
begin
  aText:= Copy(TStringField(Sender).AsString, 1, MaxInt);
end;

Saludos

Muchas Gracias, si funciono!!
Responder Con Cita
  #4  
Antiguo 11-12-2014
Avatar de TiammatMX
TiammatMX TiammatMX is offline
Miembro
 
Registrado: jun 2006
Ubicación: Universo Curvo\Vía Láctea\Sistema Solar\Planeta Tierra\América\México\Puebla\Heróica Puebla de Zaragoza\Jardines de San Manuel\Home
Posts: 746
Poder: 18
TiammatMX Va camino a la fama
Cita:
Empezado por Minoru Ver Mensaje
...me recordó a visual basic en cierta forma...
¡¡NIÑ@ GROSER@!! Ve a lavarte la boca con jabón, para que no digas groserías...
__________________
Felipe Eduardo Ortiz López. Delphi programmers does it recursively...

"Un programador, es un creador de universos en donde sólo él es responsable. Universos de complejidad prácticamente ilimitada que se puede crear en forma de programas de ordenador." - Joseph Weizenbaum.

Témele a los profetas... y a aquellos que están listos para morir por "la verdad", ya que como regla general hacen morir a muchos otros con ellos, frecuentemente antes que ellos, y a veces en lugar de ellos. — Umberto Eco
Responder Con Cita
  #5  
Antiguo 11-12-2014
Minoru Minoru is offline
Miembro
NULL
 
Registrado: dic 2014
Posts: 22
Poder: 0
Minoru Va por buen camino
Cita:
Empezado por TiammatMX Ver Mensaje
¡¡NIÑ@ GROSER@!! Ve a lavarte la boca con jabón, para que no digas groserías...
jeje, es que hace mucho tiempo utilizaba vb6 y ahora que conocí lazarus me acostumbre mas a su entorno gráfico que con embarcadero. :P

PD: ahora ando buscando información, al seleccionar un ítem del DBGrid1 y que lo datos se pasen a un nuevo form2
si lo sabes , te agradecería mucho tu ayuda!!. T_T

Última edición por Casimiro Notevi fecha: 11-12-2014 a las 22:45:07.
Responder Con Cita
  #6  
Antiguo 11-12-2014
Avatar de TiammatMX
TiammatMX TiammatMX is offline
Miembro
 
Registrado: jun 2006
Ubicación: Universo Curvo\Vía Láctea\Sistema Solar\Planeta Tierra\América\México\Puebla\Heróica Puebla de Zaragoza\Jardines de San Manuel\Home
Posts: 746
Poder: 18
TiammatMX Va camino a la fama
Cita:
Empezado por Minoru Ver Mensaje
...PD: ahora ando buscando información, al seleccionar un ítem del DBGrid1 y que lo datos se pasen a un nuevo form2
si lo sabes , te agradecería mucho tu ayuda!!. T_T...
Pregunta nueva, hilo nuevo..., antes que llegue Casimiro a regañarte, ¿ya leíste ésto http://www.clubdelphi.com/foros/guiaestilo.php ?
__________________
Felipe Eduardo Ortiz López. Delphi programmers does it recursively...

"Un programador, es un creador de universos en donde sólo él es responsable. Universos de complejidad prácticamente ilimitada que se puede crear en forma de programas de ordenador." - Joseph Weizenbaum.

Témele a los profetas... y a aquellos que están listos para morir por "la verdad", ya que como regla general hacen morir a muchos otros con ellos, frecuentemente antes que ellos, y a veces en lugar de ellos. — Umberto Eco
Responder Con Cita
  #7  
Antiguo 11-12-2014
Minoru Minoru is offline
Miembro
NULL
 
Registrado: dic 2014
Posts: 22
Poder: 0
Minoru Va por buen camino
Cita:
Empezado por TiammatMX Ver Mensaje
Pregunta nueva, hilo nuevo..., antes que llegue Casimiro a regañarte
jajaja, entonces borren esto!! antes de que me regañen!! T_T

seguiré tu consejo entonces. un saludo.-
Responder Con Cita
  #8  
Antiguo 11-12-2014
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.022
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
¿Alguien me ha llamado?
Por si acaso, aquí está la guía de estilo.
Responder Con Cita
  #9  
Antiguo 11-12-2014
Minoru Minoru is offline
Miembro
NULL
 
Registrado: dic 2014
Posts: 22
Poder: 0
Minoru Va por buen camino
Cita:
Empezado por Casimiro Notevi Ver Mensaje
¿Alguien me ha llamado?
Por si acaso, aquí está la URL
si gracias, ya termine de leer la reglas. jejeje. cualquier cosa me regañan :P
Responder Con Cita
  #10  
Antiguo 16-12-2014
Minoru Minoru is offline
Miembro
NULL
 
Registrado: dic 2014
Posts: 22
Poder: 0
Minoru Va por buen camino
Hola Efisa, desde el mismo día. aplique lo que me dijiste para optimizar y si funciono sin problemas. quite algo de código innecesario que repetía sin necesidad.

pero me volvió a aparecer el error del (MEMO) que se soluciono cuando utilice OnGetText en el evento. pero de esta forma no me sale para aplicar el evento. hay que hacer otra cosa? de antemano muchas gracias por tu ayuda.




el Codigo:
https://www.dropbox.com/s/dxvq74z0e1...er1.2.rar?dl=0




-------------
Metas:
Crear tablas en una BD Firebird - Solucionado
Conectar BD con Lazarus - Solucionado
Mostrar Resultados en Grid - Solucionado
Filtrar los datos por Búsqueda y Orden – Solucionado
Solución al Problema (MEMO) – Solucionado por ecfisa (v1.0)
Pasar Datos del TDBGrid del form1 a Form2 - Solucionado por ecfisa (v1.1)
Optimización del código - Solucionado por ecfisa (v1.1)
Crear Reporte - Solucionado (v1.1)
Reaparece Error del Memo - Pendiente (v1.2)
Responder Con Cita
  #11  
Antiguo 16-12-2014
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola Minoru.

El evento OnGetText ahora deberá residir en el TDataModule y lo creas del mismo modo que cuando estaba en el TForm.Estando SQLQ seleccionado:

Click botón derecho del mouse -> Editar campos... -> FALLA. Luego: Inspector de objetos -> pestaña Eventos -> Doble click sobre OnGetText y dentro el código anterior.

Código Delphi [-]
procedure TDataModule1.SQLQFALLAGetText(Sender: TField; var aText: string;
  DisplayText: Boolean);
begin
  aText:= Copy(TStringField(Sender).AsString, 1, MaxInt);
end;
Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita
  #12  
Antiguo 18-12-2014
Minoru Minoru is offline
Miembro
NULL
 
Registrado: dic 2014
Posts: 22
Poder: 0
Minoru Va por buen camino
muchas gracias ecfisa, otra vez. una consulta. es normal que no salga la letra "Ñ" y en su lugar sale "?" cuando llamo los datos?

Última edición por Minoru fecha: 18-12-2014 a las 18:36:29.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
codigo de lazarus windows a lazarus linux anubis Lazarus, FreePascal, Kylix, etc. 5 20-04-2013 22:33:55
Lazarus no conecta con firebird jzginez Lazarus, FreePascal, Kylix, etc. 3 14-07-2011 18:51:05
FacturLinEx a lazarus + zeos + firebird Robert01 Noticias 2 09-01-2009 17:16:58
Filtros sobre Filtros en Paradox Fabricio Tablas planas 9 03-04-2007 19:40:36
UDF's para Firebird con FreePascal/Lazarus armadillo Firebird e Interbase 0 13-07-2006 11:46:48


La franja horaria es GMT +2. Ahora son las 16:59:26.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi