Cliente servidor en Fox Pro+base de datos firebird
Publicado por wily001 (4 intervenciones) el 08/11/2008 12:22:02
Buenas...
Lo que intento hacer es que el sistema de ser mono usuario, sea un sistema cliente servidor, dentro de una red pequeña.. Uso base de datos firebird 1.5.3 y visual Fox Pro para ello..
Configuro el alias de firebird.
#
# List of known database aliases
# ------------------------------
#
# Examples:
#
# dummy = c:datadummy.fdb
#
SGIM=C:SGIMaseSGIM.GDB
Luego creo un archivo de inicio para enviarle parametros al sistema..
elpath = "c:SGIM"
lcDriver = "{Firebird/InterBase(R) driver}"
lcUid = "SYSDBA"
lcPwd = "masterkey"
lcFbd = "127.0.0.1:'SGIM"
fserial = "ªÄǺµµÉ¿"
Pero no me hace caso, no toma los parametros y la ruta del archivo de mi prg de inio.
* Publica variables
PUBLIC sgim ,elpath,serial,usuario,usunombre,usunivel, xaccion
STORE 0 TO xaccion
*** BUSCANDO RUTAS POR DEFECTO
DO iniRUTAS
* Directorio por defecto
SET DEFAULT TO &elpath
* buscar serial de disco duro *** comprobar seguridad de software legal monopuesto
*!* DO verSERIAL
*!* serial = SUBSTR(ALLTRIM(serial),1,LEN(ALLTRIM(serial))-1)
*!* STORE 'S00JJ1JL406891' TO vserial &&LOCALHOST casa
*!* *STORE '5LALAWB7' TO vserial &&LOCALHOST PORTATIL OFICINA
*!* IF vserial <> serial
*!* CLEAR
*!* MESSAGEBOX('Copia de software no autorizada, o el disco duro de computador'+;
*!* CHR(13)+'ha sido cambiado, llame a Wily Software para solucionar'+;
*!* CHR(13)+'este u otros problemas (0522) 41453',16,'Error grave de activación')
*!* * CLOSE ALL
*!* * QUIT
*!* RETURN
*!* ENDIF
* Configuración de Ambiente
SET DATE TO BRITISH
SET CENTURY ON
SET POINT TO ","
SET SEPARATOR TO "."
SET HOURS TO 12
SET DECIMALS TO 3
SET DELETE ON
SET FIXED OFF
SET NOTIFY OFF
SET SECONDS ON
SET TALK OFF
SET SAFETY OFF
SET NULL OFF
SET EXACT ON
SET ANSI ON
SET CONFIRM OFF
SET HELP OFF
DO .prgconectar_fb
*** CONFIGURACION DE ENTORNO VENTANA
_SCREEN.Caption = 'Sistema de de Gestion de Impuesto Inmobiliario'
_SCREEN.Icon ='D:SGIMimagenes 33.ICO'
_SCREEN.MinButton = .F.
_SCREEN.MaxButton= .F.
_SCREEN.ControlBox= .F.
_SCREEN.WindowState= 2
*** Acivacion de menu
*!* DO FORM formSTOCK
**DO .Menusmenupanel.mpr
DO FORM .formulariosform_acceso
DO FORM .formulariosprincipal
DO .MENUSmenuprincipal.mpr
**_SCREEN.Caption = 'Sistema de Asociación * ' + usunombre
READ EVENTS
*** procedimientos
*** ruta por defecto
PROCEDURE iniRUTAS
execscript(filetostr("path.ini"))
ENDPROC
*** serial de disco duro
*!* PROCEDURE verSERIAL
*!* Declare integer GetSerialNumber in diskSerial.dll Integer nDrivelpBuffer ,String
*!* serial = space(40)
*!* GetserialNumber(0,@serial)
*!* ENDPROC
Saludos..
Lo que intento hacer es que el sistema de ser mono usuario, sea un sistema cliente servidor, dentro de una red pequeña.. Uso base de datos firebird 1.5.3 y visual Fox Pro para ello..
Configuro el alias de firebird.
#
# List of known database aliases
# ------------------------------
#
# Examples:
#
# dummy = c:datadummy.fdb
#
SGIM=C:SGIMaseSGIM.GDB
Luego creo un archivo de inicio para enviarle parametros al sistema..
elpath = "c:SGIM"
lcDriver = "{Firebird/InterBase(R) driver}"
lcUid = "SYSDBA"
lcPwd = "masterkey"
lcFbd = "127.0.0.1:'SGIM"
fserial = "ªÄǺµµÉ¿"
Pero no me hace caso, no toma los parametros y la ruta del archivo de mi prg de inio.
* Publica variables
PUBLIC sgim ,elpath,serial,usuario,usunombre,usunivel, xaccion
STORE 0 TO xaccion
*** BUSCANDO RUTAS POR DEFECTO
DO iniRUTAS
* Directorio por defecto
SET DEFAULT TO &elpath
* buscar serial de disco duro *** comprobar seguridad de software legal monopuesto
*!* DO verSERIAL
*!* serial = SUBSTR(ALLTRIM(serial),1,LEN(ALLTRIM(serial))-1)
*!* STORE 'S00JJ1JL406891' TO vserial &&LOCALHOST casa
*!* *STORE '5LALAWB7' TO vserial &&LOCALHOST PORTATIL OFICINA
*!* IF vserial <> serial
*!* CLEAR
*!* MESSAGEBOX('Copia de software no autorizada, o el disco duro de computador'+;
*!* CHR(13)+'ha sido cambiado, llame a Wily Software para solucionar'+;
*!* CHR(13)+'este u otros problemas (0522) 41453',16,'Error grave de activación')
*!* * CLOSE ALL
*!* * QUIT
*!* RETURN
*!* ENDIF
* Configuración de Ambiente
SET DATE TO BRITISH
SET CENTURY ON
SET POINT TO ","
SET SEPARATOR TO "."
SET HOURS TO 12
SET DECIMALS TO 3
SET DELETE ON
SET FIXED OFF
SET NOTIFY OFF
SET SECONDS ON
SET TALK OFF
SET SAFETY OFF
SET NULL OFF
SET EXACT ON
SET ANSI ON
SET CONFIRM OFF
SET HELP OFF
DO .prgconectar_fb
*** CONFIGURACION DE ENTORNO VENTANA
_SCREEN.Caption = 'Sistema de de Gestion de Impuesto Inmobiliario'
_SCREEN.Icon ='D:SGIMimagenes 33.ICO'
_SCREEN.MinButton = .F.
_SCREEN.MaxButton= .F.
_SCREEN.ControlBox= .F.
_SCREEN.WindowState= 2
*** Acivacion de menu
*!* DO FORM formSTOCK
**DO .Menusmenupanel.mpr
DO FORM .formulariosform_acceso
DO FORM .formulariosprincipal
DO .MENUSmenuprincipal.mpr
**_SCREEN.Caption = 'Sistema de Asociación * ' + usunombre
READ EVENTS
*** procedimientos
*** ruta por defecto
PROCEDURE iniRUTAS
execscript(filetostr("path.ini"))
ENDPROC
*** serial de disco duro
*!* PROCEDURE verSERIAL
*!* Declare integer GetSerialNumber in diskSerial.dll Integer nDrivelpBuffer ,String
*!* serial = space(40)
*!* GetserialNumber(0,@serial)
*!* ENDPROC
Saludos..
Valora esta pregunta
0