Share My Creation [Project Template] [B4X] User Login Client

Version: 2.00

GitHub: https://github.com/pyhoon/user-login-client-b4x

Server: [Project Template] User Login Server

Description:

1. B4X client apps connect to a server with SQLite/MySQL database
2. Shows a list of users with their last login time
3. You can use these client apps for displaying any contents that requires user authentication and authorization
   e.g quiz, subscriptions and e-commerce.

 

[aeric]

Updated to v1.01

It is fully functional now. Try B4A, B4J and B4i projects.

 

[aeric]

A very small fix.

Sub BtnEdit_Click
    If BtnEdit.Text = "E D I T" Then
        BtnEdit.Text = "U P D A T E"
        BtnCancel.Visible = True
        txtUserName.Text = lblUserName.Text
        txtUserLocation.Text = lblUserLocation.Text
        lblUserName.Visible = False
        lblUserLocation.Visible = False
        txtUserName.mBase.Visible = True
        txtUserLocation.mBase.Visible = True
    Else
        'BtnEdit.Text = "E D I T"
        If txtUserName.Text.Trim = "" Then
            xui.MsgboxAsync("Please enter your Name", "E R R O R")
            Return
        End If
        If txtUserLocation.Text.Trim = "" Then
            xui.MsgboxAsync("Please enter your Location", "E R R O R")
            Return
        End If
        UpdateProfile
    End If
End Sub

 

[aeric]

B4XPageUserProfile
Update to the following code:

Sub UpdateProfile
    Try
        Log("[B4XPageUserProfile] UpdateProfile")
        Dim data As Map
        data.Initialize
        data.Put("key", Main.User.ApiKey)
        data.Put("token", Main.User.Token)
        data.Put("user_name", txtUserName.Text.Trim)
        data.Put("user_location", txtUserLocation.Text.Trim)
        Dim job As HttpJob
        job.Initialize("", Me)
        job.PutString(Main.strURL & "users/update-profile", data.As(JSON).ToString)
        job.GetRequest.SetHeader("Authorization", "Bearer " & Main.User.Token)
        Wait For (job) JobDone(job As HttpJob)

 

[aeric]

Version: 2.00

Changes:

• Support for User Login Server v3.10