Continuamos desarrollando los tutoriales y en esta segunda parte, como ya les había mencionado, vamos a entrar en conceptos mas específicos.
En este tutorial aprenderemos como agregar, modificar y borrar registros a través de nuestra aplicación que ya hemos creado en el primer tutorial de esta serie y que solo nos mostraba los datos de la tabla en la forma.
Preparar la forma
Para desarrollar este ejemplo vamos a usar el componente IBDataSet que se encuentra en la pestaña Interbase (IBX en otras versiones de Delphi) colocándolo en nuestra forma y eliminamos el componente IBQuery que usamos anteriormente.
Modificar las ligas de los componentes
Una vez que ya hemos eliminado el componente IBQuery y agregamos el componente IBDataSet, tenemos que ligarlos entre ellos, siga estos pasos:
Asignamos en la propiedad DataBase del componente IBDataSet el componente IBDataBase1
Asignamos en la propiedad DataSet del componente DataSource1 el componente IBDataSet
Configurar las propiedades del IBDataSet
Para configurar nuestro IBDataSet, presiona el botón derecho de tu mouse sobre el componente y selecciona DataSet Editor,
Verás la siguiente ventana, donde debes presionar el botón Get Table Fields
Después selecciona la llave que tengas asignada en tu tabla y presiona el botón Select Primary Keys, en este caso solo seleccionaré ID_CLIENTE que es mi llave primaria,
Como último paso presionamos el botón de Generate SQL para que Delphi se encargue de crear las sentencias SQL apropiadas, que bien ¿no?, todo lo hace nuestro querido Delphi.
Después de haber presionado el botón anterior nos aparecerán las sentencias SQL para cada uno de los procesos que se requieren, Modificar, Insertar, Borrar y Refrescar.
Estas son las sentencias SQL que Delphi ha creado por mi.
[img width=640 height=317]http://egostar.delphiaccess.com/imagenes/ibxPartII/SQLText.PNG[/img]
Ejecutar el Proyecto
Ahora, solo nos falta modificar el código que ya tenemos en nuestro proyecto en los eventos OnShow y OnClose. Solo hay que cambiar IBQuery por IBDataSet en ambos eventos.
procedure TForm1.FormShow(Sender: TObject); begin IBDataSet1.Open; end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin IBDataSet1.Close; end;
Ejecutamos nuestro proyecto y ya podrémos realizar las operaciones deseadas.
[img width=640 height=349]http://egostar.delphiaccess.com/imagenes/ibxPartII/ConDatos.PNG[/img]
Bueno, seguiremos trabajando con estos tutoriales, aún estamos en lo básico y no hemos contemplado algunas cuestiones propias de la base de datos, así que tengan paciencia y pronto seguiremos con está serie de artículos.
Salud OS