Código: Selecionar todos
#include "windows.ch"
#include "guilib.ch"
Private oImg1, oSay1, oImg2, oGrp2, oMensUsuario, oGrp3, oGrp4, oSay3,;
oImg3, oImg4, oCodUsuario, oSay4, oSenha, oSay7, oUsuario, oGrp5,;
oSay5, oEmpresa, oBut1, oAnimat, cEmpresa, cInicia, oForm2,oDatadoDia,;
oDatadoRes,oVerificaServidor,oBut2,vEntra
vDatadoDia:=vDatadoRes:=ctod("")
cCodUsuario := 000000
cSenha := Space( 20)
cInicia:=0
cEmpresa:=""
cLogo:=oDirIma+"LOGO.BMP"
cAnimat:=oDirIma+"Linha.AVI"
cKey:=oDirIma+"Keys.BMP"
oPapelPar:=oDirIma+"PapelPar.JPG"
cMensUsuario:=""
cUsuario:=Space(20)
vEntra:=.F.
PREPARE FONT oFONT1 NAME "Ms Sans Serif" WIDTH 0 HEIGHT -12
PREPARE FONT oFONT2 NAME "Times New Roman" WIDTH 0 HEIGHT -18 ITALIC
PREPARE FONT oFONT3 NAME "Courier New" WIDTH 0 HEIGHT -12
PREPARE FONT oFONT4 NAME "Courier New" WIDTH 0 HEIGHT -13
PREPARE FONT oFONT5 NAME "MS Sans Serif" WIDTH 0 HEIGHT -12
INIT DIALOG oForm2 CLIPPER NOEXIT TITLE "ManagerNet 3.0 - NetService" AT 0, 0 SIZE 0535, 0612;
ON INIT {||oCodUsuario:Disable(),oSenha:Disable(),oBut1:Disable(),oBut2:Disable()};
STYLE WS_VISIBLE + WS_POPUP + WS_VISIBLE
// ON EXIT {||oForm2:Close(),DBCLOSEALL(),SAIR()}
@ 0,0 IMAGE oImage SHOW oPapelPar SIZE 600,600
@ 130,25 IMAGE oImage SHOW cLOGO SIZE 260,199
[b] SET TIMER tp1 OF oForm2 ID 1001 VALUE 30 ACTION {||IniciaAcesso()}[/b]
@ 112, 226 SAY oSay1 CAPTION "NetService Desenvolvimento de Software" SIZE 320, 16 OF oForm2 TRANSPARENT COLOR 16711680 FONT oFont2
// @ 9, 248 ANIMATION oAnimat OF oForm2 SIZE 508,9 FILE cAnimat AUTOPLAY CENTER TRANSPARENT
@ 25, 268 GROUPBOX oGrp2 CAPTION "" SIZE 475, 62 OF oForm2 FONT oFont3
@ 44, 295 SAY oMensUsuario CAPTION cMensUsuario SIZE 441, 16 OF oForm2 COLOR 255 FONT oFont3
@ 15, 392 GROUPBOX oGrp3 CAPTION "" SIZE 500, 50 OF oForm2 COLOR 0 BACKCOLOR 14215660 FONT oFont1
@ 25, 412 SAY oDatadoDia CAPTION "Data Atual: "+dtoc(vDatadoDia) SIZE 160, 20 TRANSPARENT OF oForm2 FONT oFont3
@ 195, 412 SAY oDatadoRes CAPTION "Data Reset: "+dtoc(vDatadoRes) SIZE 160, 20 TRANSPARENT OF oForm2 FONT oFont3
//@ 240, 412 SAY oDatadoRes CAPTION "Data Reset: "+dtoc(vDatadoRes) SIZE 150, 20 OF oForm2 FONT oFont1
@ 365, 410 BUTTON oBut2 CAPTION "Puxar datas..." SIZE 140, 25 OF oForm2 ON CLICK {||oBut2:Disable(),VERIFICASERVIDOR(57),oBut2:Enable()} FONT oFont4 STYLE WS_TABSTOP
@ 73, 462 GROUPBOX oGrp4 CAPTION "" SIZE 373, 94 OF oForm2 COLOR 0 BACKCOLOR 14215660 FONT oFont4
@ 80, 490 IMAGE oImg4 SHOW cKey SIZE 50, 50 OF oForm2
@ 138, 495 SAY oSay3 CAPTION "Codigo:" SIZE 55, 17 OF oForm2 TRANSPARENT COLOR 0 BACKCOLOR 14215660 FONT oFont4
@ 138, 515 SAY oSay4 CAPTION "Senha.:" SIZE 55, 17 OF oForm2 TRANSPARENT COLOR 0 BACKCOLOR 14215660 FONT oFont4
@ 239, 494 SAY oSay7 CAPTION "-" SIZE 12, 17 OF oForm2 TRANSPARENT COLOR 0 BACKCOLOR 14215660 FONT oFont4
@ 246, 494 SAY oUsuario CAPTION cUsuario SIZE 185, 17 OF oForm2 TRANSPARENT COLOR 0 BACKCOLOR 14215660 FONT oFont4
@ 205, 494 GET oCodUsuario VAR cCodUsuario VALID {||BuscaUsuario()} SIZE 29, 20 COLOR 0 BACKCOLOR 16777215 PICTURE "@!" OF oForm2 FONT oFont4 STYLE WS_TABSTOP
@ 205, 515 GET oSenha VAR cSenha PASSWORD VALID {||VerificaSenha()} SIZE 120, 20 COLOR 0 BACKCOLOR 16777215 PICTURE "@!" OF oForm2 FONT oFont4 STYLE WS_TABSTOP
// @ 2, 373 GROUPBOX oGrp5 CAPTION "" SIZE 520, 2 ;
// OF oForm2 COLOR 0 BACKCOLOR 14215660 FONT oFont1
@ 9, 353 SAY oSay5 CAPTION "Sistema Licenciado para:" SIZE 125, 16 ;
OF oForm2 TRANSPARENT COLOR 0 BACKCOLOR 14215660 FONT oFont1
@ 135, 353 SAY oEmpresa CAPTION cEmpresa SIZE 384, 16 OF oForm2 TRANSPARENT COLOR 0 BACKCOLOR 14215660 FONT oFont5
@ 30, 567 BUTTON oBut5 CAPTION "Inicia Pro" SIZE 147, 24;
OF oForm2 ON CLICK {||IniciaAcesso()} FONT oFont4 STYLE WS_TABSTOP
@ 201, 567 BUTTON oBut1 CAPTION "Acessar Sistema" SIZE 147, 24;
OF oForm2 ON CLICK {||EndDialog()} FONT oFont4 STYLE WS_TABSTOP
ACTIVATE DIALOG oForm2
IF vEntra=.F.
DBCLOSEALL()
sair()
Endif
Return NILNota da Moderação (Sygecom): Topico editado para colocar dentro da TAG [ CODE ]
