Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 15-11-2005
Mathom Mathom is offline
Miembro
 
Registrado: nov 2005
Posts: 72
Poder: 19
Mathom Va por buen camino
Duda sobre una excepción

Hola a todos, resulta que tengo un dbgrid con una tupla vacia y el resto con datos. El tema es que quiero poner un botón "nuevo" para crear un nuevo registro. El botón lleva a un formulario nuevo donde insertamos los datos. Lo que quiero es que si la tabla está en un registro con datos salga un mensage que dice que se situe en el registro en blanco y si está en blanco pues que acceda al formulario "nuevo". El código que he puesto es el siguiente pero me da un error en tiempo de ejecución si el registro tiene datos. Podéis decirme a que se debe??

Código Delphi [-]
  procedure TForm1.Button9Click(Sender: TObject);
 Var
   Form2 : TForm2;
 begin
   if DBEdit1.text = '' then
   Form2 := TForm2.Create (Self);
   Try
     Form2.BorderStyle := BsDialog;
     Form2.ShowModal;
   Finally
     Form2.Destroy;
   End;
   if DBEdit1.text <> '' then
     ShowMessage ('¡Sitúese en la celda en blanco para crear un nuevo registro!')
 end;
Gracias

Última edición por dec fecha: 15-11-2005 a las 15:59:00. Razón: ¡¡Encerrad el código fuente entre las etiquetas [DELPHI] ... [/DELPHI]!!
Responder Con Cita
  #2  
Antiguo 15-11-2005
Mathom Mathom is offline
Miembro
 
Registrado: nov 2005
Posts: 72
Poder: 19
Mathom Va por buen camino
Aclaración

Os preguntaréis el por qué del registro en blanco. Pues sencillo, cuando lo hacía sin registro en blanco los dbedits del formulario nuevo recogían los datos del registro por lo que lo editaba en vez de crear uno nuevo. Ya que estamos me podeis indicar algún enlace de como crear una excepción para que no me deje insertar un registro repetido??? Se pueden crear vistas de una tabla paradox??? se hacen con la funcion LookUp??

Me falta mucho, muchísimo por aprender....

Última edición por Mathom fecha: 15-11-2005 a las 11:49:11.
Responder Con Cita
  #3  
Antiguo 15-11-2005
luisgutierrezb luisgutierrezb is offline
Miembro
 
Registrado: oct 2005
Ubicación: México
Posts: 925
Poder: 19
luisgutierrezb Va por buen camino
De tu codigo:

Código Delphi [-]
 procedure TForm1.Button9Click(Sender: TObject);
 Var
   Form2 : TForm2;
 begin
   if DBEdit1.text = '' then
     Form2 := TForm2.Create (Self);
   Try
     Form2.BorderStyle := BsDialog;
 {...}
aqui tienes que tomar en cuenta que el try se ejecuta de cualquier forma, lo que debes hacer es poner un begin y un end, en la parte "then" del if, porque al intentar asignar el borderstyle y la forma no esta creada, te marca el error...

Última edición por dec fecha: 15-11-2005 a las 15:59:53. Razón: ¡¡Encerrad el código fuente entre las etiquetas [DELPHI] ... [/DELPHI]!!
Responder Con Cita
  #4  
Antiguo 15-11-2005
Mathom Mathom is offline
Miembro
 
Registrado: nov 2005
Posts: 72
Poder: 19
Mathom Va por buen camino
Un millón de gracias una detrás de otra

Creo que el título es bastante explícito, muchas gracias luisgutierrezb... ara algo evidente pero estaba tan ofuscado que no lo veía por ningún lado...gracias me acabas de ahorrar un buen dolor de cabeza.
Responder Con Cita
Respuesta



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


La franja horaria es GMT +2. Ahora son las 01:34:37.


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