Guardar Modificar y Eliminar en Delphi conectado a firebird

Hola a todos, para continuar con el tema de la conexion entre delphi con  firebird y despues de nuestra entrada anterior Como conectar Delphi con Firebird se continua con una de las partes fundamentales que es la insersion, modificacion y eliminacion de datos, voy hacer una pequeña muestra de estos tres procedimientos ya que esto es un tema que puede llegar a ser muy extenso.

Bueno primero que todo crearemos la siguiente tabla llamada BANCOS que va tener los siguientes atributos, campo CODIGO de tipo integer y tambien va ser la llave primaria (PK) y activar la casilla NotNull, el campo FECHA va ser de tipo varchar con tamaño de 20 caracteres (size), el campo BANCO es de tipo varchar con un tamaño de 100 caracteres (esto del tamaño es opcional y depende de lo que se vaya a ingresar), despues de esto guardamos la tabla con el nombre de BANCOS no debe quedar algo como esto:

 

Listo despues de  esto hacemos doble click sobre la casilla PK del campo codigo y alli escogemos la pestaña Autoincrement, despues escogemos nuevamente la pestaña Trigger y marcamos la casilla Create Trigger y le hacemos click al boton OK asi:

Bueno en resumen lo que hace esto es crear un procedimiento para incrementar el ID (en este caso el campo CODIGO)  de cada registro insertado en la tabla y si revisamos en los triggers debe verse algo como esto:

Luego de esto creamos los procedimientos y vamos a empezar con el procedimiento:

Guardar:

Para crear este procedimiento solo debemos hacer click derecho sobre el arbol de la parte izquierda en donde dice Procedures y escogemos la opcion New Procedure... despues en la ventana que aparece lo primero que hacemos es darle un nombre a nuestro procedimiento ya que despues haremos referencia a él.

El nombre seria NUEVO_BANCO, luego vamos a crear las variables que haran la conexión y guardaran los datos, hacemos click derecho y escogemos la opcion Insert Parameter / variable, listo le damos un nombre, tipo y el tamaño de la variable (caracteres), asi creamos las dos variables FECHA  de tipo varchar con un tamaño de 20 y BANCO de tipo varchar con un tamaño de 100 luego en la parte de abajo de la ventana insertamos el siguiente codigo:

begin

  /* NUEVO BANCO */

  INSERT INTO BANCOS(FECHA, BANCO)

  VALUES (:FECHA,  :BANCO);

  WHEN SQLCODE -803  DO

  EXCEPTION NUEVO_BANCO;

end

Asi: 

lo que hace este codigo es insertar los datos por medio de la variables que declaramos ateriormente.

Modificar:

Nuevamente haclemos click derecho sobre procedures, nuevo procedure conel nombre de MODIFICAR_BANCO, con las siguientes variables CODIGO  de tipo integer, FECHA de tipo varchar con tamaño 20, BANCO de tipo varchar con tamaño de 100, luego pegamos este codigo en la parte de abajo de la ventana sql:

begin

  /* MODIFICAR BANCO */
  UPDATE BANCOS
  SET FECHA= :FECHA,
      BANCO= :BANCO
  WHERE (CODIGO= :CODIGO);
  WHEN SQLCODE -803  DO
  EXCEPTION NUEVO_BANCO;
end

bueno la ventana debe verse de esta manera:

Bueno ahora vamos con el siguiente procedimiento:

Eliminar:

Este procedimiento al igual que los dos anteriores hay que crear variable con la diferencia que aqui solo necesitamos el ID (CODIGO en nuestro caso), creamos la variable CODIGO de tipo integer y tiene el nombre BORRAR_BANCO, e insertamos el siguiente codigo el la ventana sql:

begin

  /*  BORRAR BANCO */
  DELETE FROM BANCOS
  WHERE (CODIGO = :CODIGO);
end

se debe ver de esta forma:

Ahora nos vamos a la excepcion que hemos nombrado en los dos procedimientos almacenados de guardar y modificar, la cual tiene la funcion de verificar si se esta intentando guardar un registro con el mismo id (CODIGO en nuestro caso), se le crea con el nombre NUEVO_BANCO, en el campo EXCEPTION TEXT digitamos el texto que queremos que aparezca al momento de lanzar el mensaje para el usuario final, en el campo Description colocamos VIOLATION PK para indicarle a excepcion si ya ese ID existe ya en la base de datos. la ventana debe verse parecida a esta:

Buenos despues de los procedimientos nos vamos a delphi a la pestaña InterBase y escogemos el componente TIBStoredProc y lo llamamos procedimientos este componente va directamente asociado al componente IBTable que es el que tiene la ruta de la base de datos:

Teniendo este componente corectamente configurado y con conexion a la base de datos, procedemos a llamar cada procedimiento desde delphi de la siguiente forma:

NOTA: En estos ejemplos de codigo van a notar que hago el codigo empezando con with modulo.procedimientos... eso lo que significa es que yo tengo todos estos componentes alojados e un modulo esta referencia cambia si tienes los componentes en cada formulario de Delphi.

Delphi:

Nota: Los Componentes Utilizados NO Corresponden  a componentes de la paleta Data Controls, son los conponentes convencionales de Delphi Edit, Label, Panel, con exepcion de las Grillas que si es un componente de tipo DB.

Ventana ejemplo bancos:

En esta ventana ejemplo al hacer click sobre el boton modificar aparecera la otra ventana que corresponde solo a una ventana de busqueda que al hacerle doble click sobre alguna de sus filas retornara el conteneido del nombre del banco a una caja de texto TEdit y el codigo a una variable que esta declarada de forma publica en el formulario bancos la cual se llama codbanco y es de tipo Integer, al tener esto ya tenemos el ID (CODIGO en este ejemplo) que es lo que necesitamos para Modificar y Eliminar, en los demas ejemplo de codigos del delphi haremos referencia a codbanco, que es la variable publica que mencione anteriormente... y los demas hard_fecha.caption es un componente de tipo panel por eso llamamos su propiedad .caption y en cuanto a ebanco.Text es de tipo TEdit ojo no es DBEdit.

Para explicar aun mas la utilizacion del panel en este ejemplo se preguntaran como se va a digitar la fecha en este campo bueno no se digita se asigna directamente al cargarse el fomulario Bancos de la siguiente manera en el evento onshow del formulario; este debe verse de la siguiente manera:

procedure TfBanco.FormShow(Sender: TObject);
begin
hard_fecha.Caption:=datetostr(date);
end;

como pueden darse cuenta aparece como fBanco, por que ese el el nombre interno del fomulario...

Ahora pasamos a la codificacion delphi la cual pueden llamar desde botones o eventos segun la necesidad que tenga cada uno de usutedes.

Guardar:

//NUEVO BANCO//

  begin

      with modulo.procedimientos do
       begin
        StoredProcName:='NUEVO_BANCO';
        ParamByName('FECHA').AsString:=hard_fecha.caption;
        ParamByName('BANCO').AsString:=ebanco.Text;
        Prepare;
        ExecProc;
       end;
       modulo.transaccion.Commit;
       modulo.bdbancos.Active:=true;
       showmessage('REGISTRO CREADO!');
   end;

Modificar:

//NUEVO BANCO//
    begin
      with modulo.procedimientos do
       begin
        StoredProcName:='MODIFICAR_BANCO';
        ParamByName('CODIGO').AsInteger:=codbanco;
        ParamByName('FECHA').AsString:=hard_fecha.caption;
        ParamByName('BANCO').AsString:=ebanco.Text;
        Prepare;
        ExecProc;
       end;
       modulo.transaccion.Commit;
       modulo.bdbancos.Active:=true;
       showmessage('REGISTRO MODIFICADO!');
      end;

Eliminar:
//ELIMINAR BANCO// 
begin
 with modulo.procedimientos do
   begin
    StoredProcName:='BORRAR_BANCO';
    ParamByName('CODIGO').AsInteger:=codbanco;
    Prepare;
    ExecProc;
    modulo.transaccion.Commit;
   end;
   modulo.bdbancos.Active:=true;
   showmessage('BANCO ELIMINADO');
end;


Listo ya con esto tenemos los procediemientos basicos Altas, Bajas y Modificaciones en Delphi con Firebird.

Deja tu comentario o agradecimiento...