Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

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

Coloboración Paypal con ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 19-11-2011
DOS DOS is offline
Miembro
NULL
 
Registrado: jul 2011
Posts: 173
Poder: 15
DOS Va por buen camino
Question Problema con un boton para guardar datos

Hola amigos
Tengo un problema que debe ser muy secillo para ustedes, resulta que en un formulario cargo los datos de una tabla, un boton agrega el registro otro lo guarda, el asunto es que si alguien apreta dos veces guardar salta un error, supogo que es algo logico para no repetir la informacion.
estos son las codificaciones de los botones:
Nuevo:

Código Delphi [-]
begin
DBEdit2.SetFocus;
 table1.Last;               //crea una nueva localidad
    c:=table1.FieldByName('Nro_localidad').Asinteger;
    c:=c+1;                 //la numera automaticamente
    table1.Edit;
    table1.Insert;
end;

Guardar:

Código Delphi [-]
procedure TForm17.Button2Click(Sender: TObject);
begin
 table1.FieldByName('Nro_localidad').AsInteger:=c;      //guarda la localidad creada
   table1.Post;
end;

La tabla solo tiene dos campos el Nro_localidad CP y la localidad propiamente dicha.

Muchas gracias
Responder Con Cita
  #2  
Antiguo 20-11-2011
Avatar de Caral
[Caral] Caral is offline
Miembro Premium
 
Registrado: ago 2006
Posts: 7.659
Poder: 27
Caral Va por buen camino
Hola
Aparte de lo rarisimo que esta el codigo, con relacion a la pregunta:
Si a la tabla se le hace un Post, esta guarda los datos, no veo donde la abres, pero si no se RE_abre dara el error.
Si no quieres complicarte mucho simplemente coloca el boton2 enable:
Código Delphi [-]
begin
DBEdit2.SetFocus;
 table1.Last;               //crea una nueva localidad
    c:=table1.FieldByName('Nro_localidad').Asinteger;
    c:=c+1;                 //la numera automaticamente
   // table1.Edit;
    table1.Insert;
    Button2.enable:= True;
end;

Código Delphi [-]
procedure TForm17.Button2Click(Sender: TObject);
begin
 table1.FieldByName('Nro_localidad').AsInteger:=c;      //guarda la localidad creada
   table1.Post;
  Button2.enable:= False;
end;
Saludos
__________________
Siempre Novato
Responder Con Cita
  #3  
Antiguo 20-11-2011
DOS DOS is offline
Miembro
NULL
 
Registrado: jul 2011
Posts: 173
Poder: 15
DOS Va por buen camino
Muchas gracias nuevamente Caral, tendrias que ser mi profesor de programacion
Responder Con Cita
  #4  
Antiguo 20-11-2011
Avatar de Caral
[Caral] Caral is offline
Miembro Premium
 
Registrado: ago 2006
Posts: 7.659
Poder: 27
Caral Va por buen camino
Hola
Que va amigo, en un par de días copio tu código para aprender, vais mas rápido que yo.
Saludos
__________________
Siempre Novato
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

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Problema para guardar datos desde campo Blob al disco duro phirum1984 Conexión con bases de datos 5 16-10-2013 18:39:35
Problema guardar datos en xml Rancy Conexión con bases de datos 2 21-05-2008 08:21:47
problema con guardar datos Fat SQL 5 22-02-2008 21:08:35
Problemas para guardar la informacion en la base de datos ANALILIAHUJA Conexión con bases de datos 2 17-01-2008 15:55:41
Quiero crear un Boton para guardar Juan Ramon Conexión con bases de datos 3 02-11-2004 07:33:05


La franja horaria es GMT +2. Ahora son las 20:19:18.


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