barra de fox
Publicado por marcelo (14 intervenciones) el 31/03/2011 01:08:53
tengo este codigo en el prog pppal de un proyecto
CLOSE DATA ALL
SET TALK OFF
SET SAFETY OFF
SET CENTURY ON
SET deleted ON &&no considera los registros borrados
SET DATE brit
Set Sysmenu Off
PUBLIC colle,entra,meshoy
ON SHUTDOWN do salir
SET MULTILOCKS ON &¶ trabajar con buffering
ON ERROR do form fr_errores with ERROR(),MESSAGE(),PROGRAM(),LINENO()
SET PROCEDURE to funciones ADDITIVE
SET CLASSLIB TO progress_bar ADDITIVE
SET CLASSLIB TO reloj_digital additive
colle=SYS(5)+CURDIR()
tablas=colle+'tables\'
SET PATH TO &colle,&tablas
OPEN DATABASE (tablas)+'admtaxis'
meshoy=""
PUBLIC ARRAY diasem[7,1]
diasem[1,1]="Domingo"
diasem[2,1]="Lunes"
diasem[3,1]="Martes"
diasem[4,1]="Miercoles"
diasem[5,1]="Jueves"
diasem[6,1]="Viernes"
diasem[7,1]="Sábado"
USE admtaxis!mes
LOCATE FOR nromes=PADL(ALLTRIM(STR(month(DATE()))),2,"0")
IF FOUND()
meshoy=mes.nombre
endif
USE &&cierro tabla mes
entra=.f.
USE admtaxis!parametros
SELECT parametros
_screen.Icon="note03.ico"
_screen.Caption="ADMINISTRACION DE TAXIS"
_screen.AutoCenter=.T.
_screen.visible=.T.
_screen.Height=600
_screen.Width=800
_screen.backcolor=parametros.backcolor
_screen.Closable=.F.
_screen.BorderStyle= 0
DO FORM fpassword WITH entra
IF (entra)
DO form fr_fondo
do MENUTAXI.MPR
READ EVENTS
endif
no puedo lograr que se oculte la barra de herramientas de fox .probe algunas cosas que me sugirieron en un mensaje anterior ,pero no me dieron resultado .ahora envio el codigo completo a ver si por favor me pueden ayudar .
gracias
CLOSE DATA ALL
SET TALK OFF
SET SAFETY OFF
SET CENTURY ON
SET deleted ON &&no considera los registros borrados
SET DATE brit
Set Sysmenu Off
PUBLIC colle,entra,meshoy
ON SHUTDOWN do salir
SET MULTILOCKS ON &¶ trabajar con buffering
ON ERROR do form fr_errores with ERROR(),MESSAGE(),PROGRAM(),LINENO()
SET PROCEDURE to funciones ADDITIVE
SET CLASSLIB TO progress_bar ADDITIVE
SET CLASSLIB TO reloj_digital additive
colle=SYS(5)+CURDIR()
tablas=colle+'tables\'
SET PATH TO &colle,&tablas
OPEN DATABASE (tablas)+'admtaxis'
meshoy=""
PUBLIC ARRAY diasem[7,1]
diasem[1,1]="Domingo"
diasem[2,1]="Lunes"
diasem[3,1]="Martes"
diasem[4,1]="Miercoles"
diasem[5,1]="Jueves"
diasem[6,1]="Viernes"
diasem[7,1]="Sábado"
USE admtaxis!mes
LOCATE FOR nromes=PADL(ALLTRIM(STR(month(DATE()))),2,"0")
IF FOUND()
meshoy=mes.nombre
endif
USE &&cierro tabla mes
entra=.f.
USE admtaxis!parametros
SELECT parametros
_screen.Icon="note03.ico"
_screen.Caption="ADMINISTRACION DE TAXIS"
_screen.AutoCenter=.T.
_screen.visible=.T.
_screen.Height=600
_screen.Width=800
_screen.backcolor=parametros.backcolor
_screen.Closable=.F.
_screen.BorderStyle= 0
DO FORM fpassword WITH entra
IF (entra)
DO form fr_fondo
do MENUTAXI.MPR
READ EVENTS
endif
no puedo lograr que se oculte la barra de herramientas de fox .probe algunas cosas que me sugirieron en un mensaje anterior ,pero no me dieron resultado .ahora envio el codigo completo a ver si por favor me pueden ayudar .
gracias
Valora esta pregunta


0