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...