FoxPro/Visual FoxPro - Cliente servidor en Fox Pro+base de datos firebird

   
Vista:

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:SGIMimagenes33.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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder