Free Programming Source Codes and Computer Programming Tutorials

Thursday, May 4, 2017

Multi Level User Login And Registration System in PHP and MySQL

Here is a sample program that I wrote using PHP and MySQL that allows the user to login in different user levels or rules in the system. The code is very compatible with PHP 7 database connections and queries. I hope you will find my work useful. Thank you very much.

My email address are the following jakerpomperada@gmail.com and jakerpomperada@yahoo.com.

My mobile number here in the Philippines is 09173084360.

Sample Program Output

Program Listing

/* Written By: Mr. Jake Rodriguez Pomperada, MAED-IT */

/* Tools : PHP / MySQL */

/* May 4, 2017 Thursday */

/* jakerpomperada@yahoo.com and jakerpomperada@gmail.com */

connect.php

<?php

$username="root";

$password="";

$hostname = "localhost";

//connection string with database

$dbhandle = mysqli_connect($hostname, $username, $password)

or die("Unable to connect to MySQL");

echo "";

// connect with database

$selected = mysqli_select_db($dbhandle, "levels")

or die("Could not select examples");

index.php

<?php include("header.php"); ?>

<body>

<div class="panel-title">Login Security Page</div>

</div>

</div>

</div>

<input type="button" class="btn btn-success pull-right" style='margin-left:25px'

value="Register" title="Click here to register to the system." onclick="location.href = 'register.php';">

<span class="glyphicon glyphicon-check"></span> Login</button>

</div>

</form>

</div>

</div>

</body>

</html>

login_action.php

<?php

include("connect.php");

$tbl_name="user_levels";

$username=$_POST['username'];

$password=$_POST['password'];

$username = stripslashes($username);

$password = stripslashes($password);

$username = mysqli_real_escape_string($dbhandle,$username);

$password = mysqli_real_escape_string($dbhandle,$password);

$result = mysqli_query($dbhandle, "SELECT * FROM $tbl_name WHERE username='$username' AND password='$password'");

if(mysqli_num_rows($result) != 1){

echo "<script>alert(' Wrong Username or Password Access Denied !!! Try Again');

window.location='index.php';

</script>";

}else{

$row = mysqli_fetch_assoc($result);

if($row['userlevel'] == 1){

header('location: admin.php');

}else if($row['userlevel'] == 2 ){

header("Location: faculty.php");

}else if($row['userlevel'] == 3 ){

header("Location: student.php");

}

else if($row['userlevel'] == 4 ){

header("Location: staff.php");

}

else{

echo "<script>alert('Wrong Username or Password Access Denied !!! Try Again');

window.location='index.php';

</script>";

}

insert.php

<?php

include("connect.php");

$tbl_name="user_levels";

$username=$_POST['username'];

$password=$_POST['password'];

$user_level = $_POST['user_level'];

$result = mysqli_query($dbhandle, "INSERT INTO $tbl_name (username,password,userlevel) VALUES ('$username','$password','$user_level')");

if($result===TRUE)

{

echo "<script>alert('User Account has been saved in the database.');

window.location='index.php';

</script>";

}

else

{

echo"The query did not run";

}

mysqli_close($result);

<html>

<?php include("header.php"); ?>

<body>

<div class="panel-title">Registration Page</div>

</div>

</div>

</div>

</div>

<input type="button" class="btn btn-success pull-right" style='margin-left:25px' value="Cancel"

title="Click to return to main page." onclick="location.href = 'index.php';">

</div>

</form>

</div>

</div>

</html>

header.php

<?php include("connect.php"); ?>

<!DOCTYPE html>

<head>

<title>User - Levels</title>

</head>

admin.php

<html>

<head>

<title> Administrator Page </title>

<head>

<style>

body {

font-family:arial;

background-color : lightblue;

color:red;

};

</style>

Welcome To Administrator Page

</h1>

</body>

</html>

faculty.php

<html>

<head>

<title> Administrator Page </title>

<head>

<style>

body {

font-family:arial;

background-color : lightblue;

color:red;

};

</style>

Welcome To Administrator Page

</h1>

</body>

</html>

student.php

<html>

<head>

<title> Student Page </title>

<head>

<style>

body {

font-family:arial;

background-color : yellow;

color:blue;

};

</style>

Welcome To Student Page

</h1>

</body>

</html>

staff.php

<html>

<head>

<title> Staff Page </title>

<head>

<style>

body {

font-family:arial;

background-color : pink;

color:yellow;

};

</style>

Welcome To Staff Page

</h1>

</body>

</html>

user_levels.sql

-- phpMyAdmin SQL Dump

-- version 4.6.5.2

-- https://www.phpmyadmin.net/

-- Host: 127.0.0.1

-- Generation Time: May 03, 2017 at 01:52 PM

-- Server version: 10.1.21-MariaDB

-- PHP Version: 7.0.15

SET SQL_MODE = "NO_AUTO_VALUE_ON_ZERO";

SET time_zone = "+00:00";

/*!40101 SET @OLD_CHARACTER_SET_CLIENT=@@CHARACTER_SET_CLIENT */;

/*!40101 SET @OLD_CHARACTER_SET_RESULTS=@@CHARACTER_SET_RESULTS */;

/*!40101 SET @OLD_COLLATION_CONNECTION=@@COLLATION_CONNECTION */;

/*!40101 SET NAMES utf8mb4 */;

-- Database: `levels`

-- --------------------------------------------------------

-- Table structure for table `user_levels`

CREATE TABLE `user_levels` (

`id` int(11) NOT NULL,

`username` varchar(20) NOT NULL,

`password` varchar(20) NOT NULL,

`userlevel` varchar(20) NOT NULL

) ENGINE=MyISAM DEFAULT CHARSET=latin1;

-- Dumping data for table `user_levels`

INSERT INTO `user_levels` (`id`, `username`, `password`, `userlevel`) VALUES

(1, 'user1', 'user1', '1'),

(2, 'user2', 'user2', '2'),

(3, 'user3', 'user3', '3'),

(4, 'user4', 'user4', '4'),

(5, 'admin', 'admin', '1'),

(6, 'a', 'a', '1'),

(8, 'adam', 'adam', '2'),

(9, 'jake', 'jake', '3'),

(10, 'jacob', 'jacob', '2'),

(11, 'mark', 'mark', '4'),

(12, 'jose', 'jose', '2'),

(13, 'mario', 'mario', '2');

-- Indexes for dumped tables

-- Indexes for table `user_levels`

ALTER TABLE `user_levels`

ADD PRIMARY KEY (`id`);

-- AUTO_INCREMENT for dumped tables

-- AUTO_INCREMENT for table `user_levels`

ALTER TABLE `user_levels`

MODIFY `id` int(11) NOT NULL AUTO_INCREMENT, AUTO_INCREMENT=14;

/*!40101 SET CHARACTER_SET_CLIENT=@OLD_CHARACTER_SET_CLIENT */;

/*!40101 SET CHARACTER_SET_RESULTS=@OLD_CHARACTER_SET_RESULTS */;

/*!40101 SET COLLATION_CONNECTION=@OLD_COLLATION_CONNECTION */;

DOWNLOAD SOURCE CODE HERE

Monday, May 1, 2017

Word Count in Visual Basic NET

In this article I would like to share with you a sample program that will ask the user to give a sentence or string and then our program will count the number of words in the given word or sentence using Microsoft Visual Basic NET. The source code is very short and very easy to understand. Thank you.

My email address are the following jakerpomperada@gmail.com and jakerpomperada@yahoo.com.

My mobile number here in the Philippines is 09173084360.

Sample Program Listing

Program Listing

Public Class Form1

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Dim strInput As String

strInput = TextBox1.Text

Dim strSplit() As String

strSplit = strInput.Split(CChar(" "))

Label2.Text = "Number of words: " & strSplit.Length

End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

TextBox1.Text = ""

Label2.Text = ""

TextBox1.Focus()

End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

End

End Sub

End Class

Sunday, April 30, 2017

Decimal To Roman Numeral in Visual Basic NET

Here is a sample program to ask the user to give a number and then it will convert in Roman Numeral equivalent using Microsoft Visual Basic NET. The code is very short and easy to understand. Thank you.

My email address are the following jakerpomperada@gmail.com and jakerpomperada@yahoo.com.

My mobile number here in the Philippines is 09173084360.

Sample Program Output

Program Listing

Public Class Form1

Private Function ConvertRoman(ByVal n As Integer) As String

If n = 0 Then ConvertRoman = "0" : Exit Function

Const r = "IVXLCDM"

Dim i As Integer = Math.Abs(n)

Dim s As String = ""

For p As Integer = 1 To 5 Step 2

Dim d As Integer = i Mod 10

i = i \ 10

Select Case d '

Case 0 To 3 : s = s.PadLeft(d + Len(s), Mid(r, p, 1))

Case 4 : s = Mid(r, p, 2) & s

Case 5 To 8 : s = Mid(r, p + 1, 1) & s.PadLeft(d - 5 + Len(s), Mid(r, p, 1))

Case 9 : s = Mid(r, p, 1) & Mid(r, p + 2, 1) & s

End Select

s = s.PadLeft(i + Len(s), "M")

If n < 0 Then s = "-" & s

ConvertRoman = s

End Function

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Label2.Text = " The equivalent value of " & TextBox1.Text & " is " & ConvertRoman(TextBox1.Text) & "."

End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

TextBox1.Text = ""

Label2.Text = ""

TextBox1.Focus()

End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

End

End Sub

End Class

Decimal To Roman Numeral in Visual Basic 6

Here is a sample program that will ask the user to give a number and then it will be converted into roman numeral value using Visual Basic 6.

My email address are the following jakerpomperada@gmail.com and jakerpomperada@yahoo.com.

My mobile number here in the Philippines is 09173084360.

Sample Program Output

Program Listing

Public Function ConvertRoman(ByVal n As Integer) As String

If n = 0 Then FormatRoman = "0": Exit Function

Const r = "IVXLCDM"

Dim i As Integer: i = Abs(n)

Dim s As String, p As Integer

For p = 1 To 5 Step 2

Dim d As Integer: d = i Mod 10: i = i \ 10

Select Case d

Case 0 To 3: s = String(d, Mid(r, p, 1)) & s

Case 4: s = Mid(r, p, 2) & s

Case 5 To 8: s = Mid(r, p + 1, 1) & String(d - 5, Mid(r, p, 1)) & s

Case 9: s = Mid(r, p, 1) & Mid(r, p + 2, 1) & s

End Select

s = String(i, "M") & s

If n < 0 Then s = "-" & s

ConvertRoman = s

End Function

Private Sub Command1_Click()

Label2.Caption = "The equivalent value of " & Text1.Text & " is " & ConvertRoman(Text1.Text) & "."

End Sub

Private Sub Command2_Click()

End

End Sub

Free Programming Source Codes and Computer Programming Tutorials

Thursday, May 4, 2017

Multi Level User Login And Registration System in PHP and MySQL

Monday, May 1, 2017

Word Count in Visual Basic NET

Sunday, April 30, 2017

Decimal To Roman Numeral in Visual Basic NET

Decimal To Roman Numeral in Visual Basic 6

Google Ads

Followers