Asp.net vb PlanetFood cloud computing

This is a small ASP.net vb application of a ficticious comapny called PlanetFood specialized in seafood menu. i used bootstrap to implement the front end of the application as well as make it responsive. The application can be viwed on a smart phone, laptop and tablet as well. For the database I used SQl server 2012

Screen Shot

System will automatically calculate the total price for each customer

Responsive display for a tablet screen

Responsive for smart phone screen

Source Code sample

Login sample code

Private Sub login() Dim con As New SqlConnection(Session("constring")) Dim sql = "select * from user_tbl where username = @usernameT and user_password = @passwordT and employee_status = 'admin' and status = 'active'" Dim sqlCmd As New SqlCommand(sql, con) sqlCmd.Parameters.AddWithValue("@usernameT", txtbx_username.Text) sqlCmd.Parameters.AddWithValue("@passwordT", after_hash_pwd) con.Open() Dim reader As SqlDataReader = sqlCmd.ExecuteReader() If reader.Read() Then Session("user") = reader("username").ToString() Session("user_id") = reader("user_id").ToString() Response.Redirect("./admin_home.aspx") con.Close() ElseIf reader.Read() = False Then Dim con1 As New SqlConnection(Session("constring")) Dim sql1 = "select * from user_tbl where username = @fusername and user_password = @fpassword and employee_status = 'staff' and status = 'active'" Dim sqlCmd1 As New SqlCommand(sql1, con1) sqlCmd1.Parameters.AddWithValue("@fusername", txtbx_username.Text) sqlCmd1.Parameters.AddWithValue("@fpassword", after_hash_pwd) con1.Open() Dim reader1 As SqlDataReader = sqlCmd1.ExecuteReader() If reader1.Read() Then Session("user") = reader1("username").ToString() Session("user_id") = reader1("user_id").ToString() Response.Redirect("./staff_home.aspx") con1.Close() ElseIf reader1.Read() = False Then Dim con2 As New SqlConnection(Session("constring")) Dim sql2 = "select * from user_tbl where username = @fusername and user_password = @fpassword and employee_status = 'manager' and status = 'active'" Dim sqlCmd2 As New SqlCommand(sql2, con2) sqlCmd2.Parameters.AddWithValue("@fusername", txtbx_username.Text) sqlCmd2.Parameters.AddWithValue("@fpassword", after_hash_pwd) con2.Open() Dim reader2 As SqlDataReader = sqlCmd2.ExecuteReader() If reader2.Read() Then Session("user") = reader2("username").ToString Session("user_id") = reader2("user_id").ToString() 'Response.Redirect("./family_home_form.aspx") lbl_validation.Text = "manager login" con1.Close() ElseIf reader2.Read = False Then Dim con3 As New SqlConnection(Session("constring")) Dim sql3 = "select * from user_tbl where username = @fusername and user_password = @fpassword and status = 'deactive'" Dim sqlCmd3 As New SqlCommand(sql3, con3) sqlCmd3.Parameters.AddWithValue("@fusername", txtbx_username.Text) sqlCmd3.Parameters.AddWithValue("@fpassword", after_hash_pwd) con3.Open() Dim reader3 As SqlDataReader = sqlCmd3.ExecuteReader() If reader3.Read() Then lbl_validation.Text = "Account deactivated" con1.Close() Else lbl_validation.Text = "incorrect username or password" 'username_txtbx.Text = "" 'password_txtbx.Text = "" 'ScriptManager.RegisterStartupScript(Me, Me.GetType(), "alertMessage", "alert('Incorrect Username or Password, please try again');", True) End If End If End If End If End Sub

Select menu sample code

Private Sub check_price() Dim con2 As New SqlConnection(Session("constring")) Dim sql2 = "select * from menu_tbl where menu_name = @menuname and menu_status = 'active' " Dim sqlCmd2 As New SqlCommand(sql2, con2) 'sqlCmd2.Parameters.AddWithValue("@familyID", CInt(Session("family_id"))) sqlCmd2.Parameters.AddWithValue("@menuname", menu_name) con2.Open() Dim reader2 As SqlDataReader = sqlCmd2.ExecuteReader() If reader2.Read() = True Then menu_price = reader2("menu_price").ToString() menu_id = reader2("menu_id") add_menu_price() pending_transaction() con2.Close() ElseIf reader2.Read() = False Then lbl_validation.Text = "Menu not available " End If End Sub Private Sub btn_clear_Click(sender As Object, e As EventArgs) Handles btn_clear.Click Dim con1 As New SqlConnection(Session("constring")) Dim sql1 = "delete from transaction_tbl where transaction_status='pending' " Dim sqlCmd1 As New SqlCommand(sql1, con1) 'sqlCmd1.Parameters.AddWithValue("@familyID", CInt(Session("family_id"))) con1.Open() sqlCmd1.ExecuteNonQuery() con1.Close() txtbx_total.Text = "" End Sub Private Sub btn_print_Click(sender As Object, e As EventArgs) Handles btn_print.Click Dim con1 As New SqlConnection(Session("constring")) Dim sql1 = "update transaction_tbl set transaction_status = 'active' " Dim sqlCmd1 As New SqlCommand(sql1, con1) 'sqlCmd1.Parameters.AddWithValue("@familyID", CInt(Session("family_id"))) con1.Open() sqlCmd1.ExecuteNonQuery() con1.Close() txtbx_total.Text = "" End Sub

Download

Click on the link below to download the source code:

Source code