Probably some stupid mistake
Code: Select all
EnableExplicit
Global validuser.a = 0
; ------------- Connects to Employees Collection on Restdb.io --------------------------
Enumeration Windows
#wndLogin
#wndMain
EndEnumeration
Enumeration myGadgets
#txtLoginUsername
#txtLoginPassword
#strLoginUsername
#strLoginPassword
#btnLogin
EndEnumeration
Enumeration myFonts
#Arial16B
#Arial16
EndEnumeration
;----------- Declares --------------------------------
Declare ShowLogin()
Declare btnLogin_Action()
Declare ShowMainWindow()
;------------ Gadget Callbacks ----------------------
Procedure btnLogin_Action()
Debug GetGadgetText(#strLoginUsername)
Debug GetGadgetText(#strLoginPassword)
If Trim(GetGadgetText(#strLoginUsername)) = "test" And Trim(GetGadgetText(#strLoginPassword)) = "test1123" ; < ---------Issue is here
CloseWindow(#wndLogin)
ShowMainWindow()
Else
!alert("Invalid Username/Password");
EndIf
EndProcedure
Procedure ShowMainWindow()
If OpenWindow(#wndMain,0,0,600,500,"Employee Directory",#PB_Window_ScreenCentered)
EndIf
EndProcedure
Procedure ShowLogin()
If OpenWindow(#wndLogin,0,0,400,200,"Employee Directory",#PB_Window_ScreenCentered)
SetWindowColor(#wndLogin,RGB(255, 222, 173))
TextGadget(#txtLoginUsername,10,50,100,25,"Username:",#PB_Text_Right)
StringGadget(#strLoginUsername,120,45,200,25,"")
TextGadget(#txtLoginPassword,10,75,100,25,"Password:",#PB_Text_Right)
StringGadget(#strLoginPassword,120,70,200,25,"",#PB_String_Password)
ButtonGadget(#btnLogin,150,125,100,25,"Login")
BindGadgetEvent(#btnLogin,@btnLogin_Action())
LoadFont(#Arial16,"Arial",16)
SetGadgetFont(#txtLoginUsername,FontID(#Arial16))
SetGadgetFont(#txtLoginPassword,FontID(#Arial16))
SetGadgetFont(#strLoginUsername,FontID(#Arial16))
SetGadgetFont(#strLoginPassword,FontID(#Arial16))
SetActiveGadget(#strLoginUsername)
EndIf
EndProcedure
;--- Start Main Program ---------------------
ShowLogin()