Ver Mensaje Individual
  #15  
Antiguo 05-07-2007
Avatar de Caral
[Caral] Caral is offline
Miembro Premium
 
Registrado: ago 2006
Posts: 7.659
Reputación: 25
Caral Va por buen camino
Hola
Bueno, voy a segir con la logica del club, para que el tema no quede en el aire.
Empecemos:
Sabemos que Trabajas con los componentes ADO, y creo que sabras lo basico de ellos.
ADOConnetion: conecta co la base de datos.
ADOTable: trae todos los datos de una tabla.
ADOQuery: tare los datos que se requieran, con sentencia sql.
DBGRid: Muestra los datos.
DBEDit: Muestra los datos.
EDit: Editor.
Hasta aqui esta claro.
Ya enlazada la base de datos con adoconnection, se enlaza la tabla con adotable (en tu caso), si das doble click al adotable, veras una pantallita, dale click derecho y ADD, con esto tendras todos los campos en esta.
Cada edit que coloques se usara para grabar, modificar etc, el campo que necesites, en este caso, lo voy a hacer con el campo NombreEmpresa que estaria en el segundo lugar de la pantallita.
Coloca un boton : EDITAR
En el evento Onclick, Coloca esto:
Código Delphi [-]
ADOTable1.Edit;
ADOTable1.Fields[1].AsString := Edit1.text;
Coloca un boton : INSERTAR
En el evento Onclick, Coloca esto:
Código Delphi [-]
ADOTable1.Insert;
ADOTable1.Fields[1].AsString := Edit1.text;
Coloca un boton : BORRAR
En el evento Onclick, Coloca esto:
Código Delphi [-]
ADOTable1.Delete;
ADOTable1.Fields[1].AsString := Edit1.text;
Coloca un boton : GRABAR
En el evento Onclick, Coloca esto:
Código Delphi [-]
ADOTable1.Post;
ADOTable1.Fields[1].AsString := Edit1.text;
Como veras es muy sencillo y casi repetido
Con esto tienes, por codigo lo que necesitas, lo mismo hace el componente DBNavigator, pruebalo.
Como veras, a tu pregunta inicial no se requeria de un programa completo de muestra, simplemente indicarte el procedimiento a seguir.
Hay maneras mucho mas simples de hacer estas cosas, como hacerlo directamente del dbgrid, pero no fue tu pregunta, es solo un comentario.
Se que tendras muchas mas dudas, para eso estamos aqui, para tratar de ayudar.
Saludos
Responder Con Cita