PC Toledo

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 NIL