General information
Category:
Menus & Menu designer
Ola Geraldo Tenho este programa principal
chamo dois formularios UM SOBRE O PROGRAMA E UM DE SENHA
e so dou o READ EVENTOS APOS CHAMAR O MENU CONFORME ABAIXO:
* Programa Inicio
*--Limpeza do Ambiente
CLEAR
CLEAR ALL
PUBLIC tudo_ok
*-- Verifica se o aplicativo está sendo
* rodado dentro do Visual FoxPro
* FILE() Verifica se um determinado
* arquivo existe em disco
* HOME() Retorna o diretorio de onde
* foi inicializado o FoxPro
IF FILE(HOME()+"\VFP.EXE") OR FILE(HOME()+"\VFP6.EXE")
infox=.T.
ELSE
infox=.F.
ENDIF
**
IF infox
** Desabilita opções de Desenvolvimento
PUSH MENU _MSYSMENU && Armazena o menu ativo.
DEACTIVATE WINDOW ;
"gerenciador de projetos",;
"project manager",;
"padrão",;
"standard",;
"dbibar",;
"layout",;
"form controls",;
"controles de formulário",;
"report controls",;
"controles de relatório"
RELEASE WINDOWS;
"criador de formulários",;
"form designer",;
"criador de relatórios",;
"report designer",;
"criador de banco de dados",;
"database designer",;
"criador de visualizações",;
"view designer",;
"criador de consultas",;
"query designer",;
"paleta de cores",;
"color palette"
ELSE
ON SHUTDOWN QUIT && Permite a saida da aplicação pelo 'X'
ENDIF
*-- Preparação de Ambiente
* salva configurações
oldfundo = _SCREEN.PICTURE
oldtalk = SET("Talk")
oldpath = SET("Path")
olddate = SET("Date")
olddel = SET("Deleted")
oldcurrency = SET("Currency",1)
oldpoint = SET("Point")
oldseparator = SET("Separator")
oldexclusive = SET("Exclusive")
oldreprocess = SET("Reprocess")
oldrefresh = SET("Refresh")
olderror = ON ("Error")
*-- Reconfigura o Ambiente
DO ConfiguraSets && configura os comandos SET
_SCREEN.PICTURE = "Arenito.bmp" && Papel de parede
_SCREEN.WINDOWSTATE = 2 && Executar maximizada
*-- Gerenciador de Erro
* Apartir deste momento, quando acontecer um erro o foxpro irá chamar o
* programa MEUERRO com a Mensagem de erro, o programa e o nº do erro
ON ERROR DO meuerro WITH MESSAGE(), SYS(16), ERROR()
tudo_ok = .T.
DO FORM sobre && Formulário do Registro de Usuário - windowType = modal
do form entrada
*****IF tudo_ok
** Módulo Principal
DO vendas.mpr && Chama Menu
READ EVENTS && Âncora. Faz com que o programa fique esperando ;
DO operador. no .EXE, sem este comando, o MENU aparece e ;
*desaparece em seguida, terminando o programa. ;
*na opção sair, é emitido CLEAR EVENTS PARA terminar o READ
*ENDIF
** Restauração do Ambiente
IF infox
_SCREEN.PICTURE = oldfundo
SET TALK &oldtalk
SET PATH TO &oldpath
SET DELETED &olddel
SET DATE TO &olddate
SET CURRENCY TO oldcurrency
SET POINT TO oldpoint
SET SEPARATOR TO oldseparator
SET EXCLUSIVE &oldexclusive
SET REPROCESS TO oldreprocess
SET REFRESH TO oldrefresh
ON ERROR &olderror
IF WEXIST("Gerenciador de Projetos")
ACTIVATE WINDOW "Gerenciador de Projetos"
ENDIF
IF WEXIST("PROJECT MANAGER")
ACTIVATE WINDOW "PROJECT MANAGER"
ENDIF
IF WEXIST("Padrão")
ACTIVATE WINDOW "Padrão"
ENDIF
IF WEXIST("STANDARD")
ACTIVATE WINDOW "STANDARD"
ENDIF
IF WEXIST("DBIBar")
ACTIVATE WINDOW "DBIBar"
ENDIF
IF WEXIST("LAYOUT")
ACTIVATE WINDOW "LAYOUT"
ENDIF
IF WEXIST("FORM CONTROLS")
ACTIVATE WINDOW "FORM CONTROLS"
ENDIF
IF WEXIST("Controles de Formulário")
ACTIVATE WINDOW "Controles de Formulário"
ENDIF
IF WEXIST("Report Controls")
ACTIVATE WINDOW "Report Controls"
ENDIF
IF WEXIST("Controles de Relatório")
ACTIVATE WINDOW "Controles de Relatório"
ENDIF
POP MENU _MSYSMENU
CLEAR ALL
CLEAR
ENDIF
*-- Fim da restauração da configuração
*-- Fim do programa início
Previous
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only