Ver Mensaje Individual
  #5  
Antiguo 21-06-2005
Avatar de sercornejov
sercornejov sercornejov is offline
Miembro
 
Registrado: may 2003
Ubicación: Neiva - Colombia
Posts: 88
Reputación: 22
sercornejov Va por buen camino
Bueno...

Gracias a todos.

Pues lo de la manera de cargar la base de datos, no se, simplemente la coloco en el directorio de datos y en delphi la abro mediante:

Código:
procedure TdmPpal1.DataModuleCreate(Sender: TObject);
var
  registro:TIniFile;
  conexionL,conexionR:widestring;

begin
  registro:=TIniFile.Create(ExtractFilePath(Application.ExeName) + 'IDCFac.reg');
  red:=StrToInt(registro.ReadString('RED','EstaEnRed',''));
  conexionL:=registro.ReadString('BASEDATOS','local','');
  ruta:=registro.ReadString('DDIRBASE','dirbaseLocal','');
  conexionR:=registro.ReadString('BASEDATOS','red','');
  rutared:=registro.ReadString('DDIRBASE','dirbaseRed','');
  rutadatos:=ruta+registro.ReadString('DDATOS','datos','');
  rutadatosred:=rutared+registro.ReadString('DDATOS','datos','');
  rutareportes:=ruta+registro.ReadString('DREPORTES','reportes','');
  rutareportesred:=rutared+registro.ReadString('DREPORTES','reportes','');
  case red of
    0: fbFac.databasename:=conexionL;
    1: fbFac.databasename:=conexionR;
  end;
  try
    fbFac.Connected:=true;
    except
      showmessage('No se puede conectar a la Base de Datos. Contacte al proveedor: 310-6976764');
      application.Terminate;
  end;
  fbtra.Active:=true;
  fbtblCliente.Active:=true;
  fbtblFactura.Active:=true;
  fbtblUsuario.Active:=true;
  fbtblDetFac.Active:=true;
  fbtblInsumo.Active:=true;
  fbtblNumFac.Active:=true;
end;
ese datamodule se carga de primeras. no se que deba hacer para el arranque mas rápido

Lo de la paginación grande, pues lo voy a probar (Ha de funcionar)

Por lo demas, entendido, anotado y en via de uso

Gracias

P.D. para jachguate

No es con animo de controversia, pero el mundo ama el café excelso colombiano...
__________________
En Colombia hay muchos, pero muchos colombianos muy buenos. Los violentos son pocos y los vamos a controlar...
Responder Con Cita