barra de fox
Publicado por eduardo (139 intervenciones) el 24/03/2011 15:50:14
hola :
tengo este codigo en el prog principal de un proyecto:
CLOSE DATA ALL
_Screen.WindowState = 2
*- DEFINICION DE SETEOS
Set Status Bar Off
Set Status Off
Set Exact Off
Set Talk Off
Set Deleted On
Set Date Dmy
Set Bell Off
Set Echo Off
Set Escape Off
Set Scoreboard Off
Set Century On
Set Sysmenu Off
Set Safe Off
Set Exclusive Off
Set Reprocess To Automatic
Set Lock On
Set Fdow To
Set Headings Off &&& NO PONE ENCABEZADO EN TYPE
Set Notify Off
Set Confirm On
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()
SET PATH TO &colle,&colle+'\tables\'
OPEN DATABASE admtaxis
PUBLIC entra,meshoy
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=0
ZOOM WINDOWS SCREEN MAX
USE admtaxis!parametros
SELECT parametros
_screen.Caption="ADMINISTRACION DE TAXIS"
_screen.visible=.T.
_screen.autocenter=.T.
_screen.backcolor=parametros.backcolor
_screen.Closable=.F.
DO FORM fpassword WITH entra
IF (entra=1)
SELECT parametros
ZOOM WINDOWS SCREEN MAX
_screen.visible=.T.
_screen.autocenter=.T.
_screen.backcolor=parametros.backcolor
_screen.Closable=.F.
_screen.caption="ADMINISTRACION DE TAXIS Hoy es: "+diasem[DOW(DATE())]+" "+PADL (ALLTRIM(STR(DAY(DATE()))),2,"0")+;
" de "+meshoy+" de "+STR(YEAR(DATE()),4)
_screen.addobject("oReloj", "reloj_digital")
_screen.oReloj.top=_screen.Height*0.80
_screen.oReloj.Left=_screen.Width*0.80
_screen.oRELOJ.Visible=.T.
do MENUTAXI.MPR
READ EVENTS
endif
pese a los seteos del principio ,no puedo lograr ocultar la barra de herramientas de v fox .necesitaria por favor me ayuden .desde ya gracias
tengo este codigo en el prog principal de un proyecto:
CLOSE DATA ALL
_Screen.WindowState = 2
*- DEFINICION DE SETEOS
Set Status Bar Off
Set Status Off
Set Exact Off
Set Talk Off
Set Deleted On
Set Date Dmy
Set Bell Off
Set Echo Off
Set Escape Off
Set Scoreboard Off
Set Century On
Set Sysmenu Off
Set Safe Off
Set Exclusive Off
Set Reprocess To Automatic
Set Lock On
Set Fdow To
Set Headings Off &&& NO PONE ENCABEZADO EN TYPE
Set Notify Off
Set Confirm On
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()
SET PATH TO &colle,&colle+'\tables\'
OPEN DATABASE admtaxis
PUBLIC entra,meshoy
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=0
ZOOM WINDOWS SCREEN MAX
USE admtaxis!parametros
SELECT parametros
_screen.Caption="ADMINISTRACION DE TAXIS"
_screen.visible=.T.
_screen.autocenter=.T.
_screen.backcolor=parametros.backcolor
_screen.Closable=.F.
DO FORM fpassword WITH entra
IF (entra=1)
SELECT parametros
ZOOM WINDOWS SCREEN MAX
_screen.visible=.T.
_screen.autocenter=.T.
_screen.backcolor=parametros.backcolor
_screen.Closable=.F.
_screen.caption="ADMINISTRACION DE TAXIS Hoy es: "+diasem[DOW(DATE())]+" "+PADL (ALLTRIM(STR(DAY(DATE()))),2,"0")+;
" de "+meshoy+" de "+STR(YEAR(DATE()),4)
_screen.addobject("oReloj", "reloj_digital")
_screen.oReloj.top=_screen.Height*0.80
_screen.oReloj.Left=_screen.Width*0.80
_screen.oRELOJ.Visible=.T.
do MENUTAXI.MPR
READ EVENTS
endif
pese a los seteos del principio ,no puedo lograr ocultar la barra de herramientas de v fox .necesitaria por favor me ayuden .desde ya gracias
Valora esta pregunta
0