Vamos a prepararnos para que nuestra base de datos se ejecute siempre donde este el ejecutable, lo primero es declarar una variable en nuestro modulo Data module (DM)
Código Delphi
[-]VarBPrimeraConeccion:Boolean;
Tambien añadimos al uses de nuestro DM en el uses Forms, para poder usar application, añadiremos también Dialogs, para usar el Showmessage y con todo esto iremos a nuestro IBDatabase que hemos llamado (DB) y en seleccionamos el evento BeforeConnect donde añadiremos el siguiente código
Código Delphi
[-]procedure TDM.DBBeforeConnect(Sender: TObject);
var Ruta:string;
VarBPaso:Boolean;
begin
VarBPaso:=false;
if VarBPrimeraConeccion=False then
begin
Ruta:=ExtractFilePath(Application.ExeName); if FileExists(Ruta+ 'VIDEOCLUB.FDB') then
begin
DB.DatabaseName:=ruta + 'VIDEOCLUB.FDB';
VarBPaso:=True;
end else
begin
if FileExists(ruta+'bd\'+'VIDEOCLUB.FDB') then
begin
DB.DatabaseName:=Ruta+'bd\' + 'VIDEOCLUB.FDB';
VarBPaso:=True;
end else Showmessage('Lo sentimos pero no encontramos el archivo VIDEOCLUB.FDB, donde se encuentra el ejecutable, o en la capeta BD de la ubicación del Ejecutable'+
#13+#10+'La Aplicación se cerrara');
end;
VarBPrimeraConeccion:=True;
if (VarBPaso) then
begin
if DB.Connected=False then
begin
DB.Connected:=True; end;
Conectar end
else Application.Terminate; end;
end;
Para que funciones nos queda crear el procedure conectar que tiene el siguiente código
Código Delphi
[-]procedure TDM.conectar;
begin
if DB.Connected=False then DB.Connected:=True; if IBT.Active=False then IBT.Active:=True; if IBDUsuarios.Active=false then IBDUsuarios.Active:=True; if IBDCONFIGURACION.Active=false then IBDCONFIGURACION.Active:=True; end;
En el procedure anterior mirábamos si la base de datos se encontraba en donde estuviese ubicada la aplicación mediante la ruta, sacando la ubicación de la propia aplicación, como podemos ser un poco más organizados, comprobamos directamente en esta o si dentro de esta ruta esta en una carpeta llamada DB. Si lo encuentra pasa al procedure Conectar, en caso contrario nos muestra un mensaje diciendo que no se encuentra.
¿Por qué hacer esto? fácil para evitar que si cambiamos nuestro programa de ubicación no nos deje de trabajar, además si la aplicación no lleva más vínculos con el sistema, nos permite incluso trabajarla desde un pendrive.
El otro procedure CONECTAR, e s el encargado de volver a conectar tanto nuestra Base de datos (DB), como nuestras transiciones (IBT) y tablas o consultas que pongamos en este módulo, ya que en el resto pondremos simples consultas (IBQUERRYS) que deberemos controlar nosotros, así si tenemos por algún motivo desconectar la base de datos sólo tendremos que llamar al procedure CONECTAR para que todo el sistema vuelva a activarse y seguir trabajando sin tener que reiniciar la aplicación.
Para ello este procedure pregunta si esta activo o no para activarlo.