procedure TfrMenu.Ejercicio1Click(Sender: TObject);
var
cServidor:String;
begin
cServidor:='\\servidor\d:\_servidor_ficheros\datosfb\';
Application.CreateForm(TfrCambejer, frCambEjer);
frCambEjer.ShowModal;
if nOpcion = 1 then
begin
DmConex.IBDatabase.Connected:=False;
cServidor:=cServidor+cDBfb;
DmConex.IBDatabase.DatabaseName:=cServidor;
DmConex.IBDatabase.Connected:=True;
DmConex.IBDtsUsuarios.Open;
DmConex.IBDtsConf.Open;
end
else
ShowMessage('Atención:Cambio de Ejercicio cancelado por el usuario.');
Pon_Rotulo_Pantalla();
end;
procedure TfrCambejer.FormCreate(Sender: TObject);
begin
aEjer[00]:='bdatos2006.fdb';
aEjer[01]:='bdatos2007.fdb';
aEjer[02]:='bdatos2008.fdb';
aEjer[03]:='bdatos2009.fdb';
aEjer[04]:='bdatos2010.fdb';
aEjer[05]:='bdatos2011.fdb';
end;
procedure TfrCambejer.BtAceptarClick(Sender: TObject);
begin
cDBfb:=aEjer[rdgEjer.ItemIndex];
nOpcion:=1;
Close;
end;