//SENHACRIPT = password in table GPU_User.password
// Connect the user nReturnedValue is int = gpwConnectUser(LOGINUSER, SENHACRIPT) // If connection failure IF nReturnedValue <> gpwOk AND nReturnedValue <> 0 SWITCH nReturnedValue CASE gpwError: Error("Unable to connect.") CASE gpwUnknownUser, gpwInvalidPassword: Error("Invalid user or password.") END ELSE IF nReturnedValue = gpwOk AND nReturnedValue = 0 // Connect as administrator IF gpwGetUserInfo(gpwInfoSupervisor) = True // Opens the page for groupware management gpwOpenConfiguration() // Refreshes the page ELSE PageUse(MyPage..Name) END END
|