CSS CODE
html {
background-image: url("../images/bats.gif");
}
#nav_menu ul {
list-style: none;
position: relative;
background-color: black;
margin: 0;
padding: 0;
}
#nav_menu ul li a{
text-align: center;
color: white;
display: block;
width: auto;
text-decoration: none;
background-color: black;
padding: .5em .5em;
padding-left: 2.3em;
padding-right: 2.3em;
}
#nav_menu ul li a:hover{
background-color: gray;
}
#nav_menu ul li {float: left;}
#nav_menu ul ul{
display: none;
position: absolute;
top: 100%;
}
#nav_menu ul ul li {
float: none;
}
#nav_menu ul li:hover > ul {
display: block;
}
#nav_menu > ul::after {
content: "";
display: block;
clear: both;
}
#nav_menu ul li a.home{
color: orange;
}
Download Project 1
CSS CODE
html {
background-image: url("../images/bats.gif");
}
body {
font-family: Verdana, Arial, Helvetica, sans-serif;
width: 800px;
background-color: black;
margin: 0 auto;
padding: 0;
border: 3px solid black;
box-shadow: 0 9px 18px 9px;
}
h1, h2, h3, p {
margin: 0;
padding: 0;
}
nav{
width: 160px;
float: right;
color: white;
}
a {
font-weight: bold;
color: orange;
}
a:link, a:visited {
color: orange;
}
a:hover, a:focus {
color: green;
}
/* Header */
header {
background-image: -webkit-linear-gradient(45deg, white 0%, orange 75%, black 100%);
background-image: -moz-linear-gradient(45deg, white 0%, orange 75%, black 100%);
background-image: -o-linear-gradient(45deg, white 0%, orange 75%, black 100%);
background-image: linear-gradient(45deg, white 0%, orange 75%, black 100%);
padding: 15px;
border-bottom: 2px solid black;
}
header img {
float: left;
padding-right: 15px;
}
header h2 {
font-size: 230%;
}
header h3 {
font-size: 125%;
}
/* Main */
section {
padding: 20px 25px 25px 25px;
float: right;
width: 590px;
background-color: white;
}
main h1 {
font-size: 140%;
margin-bottom: .5em;
}
main h1:first-letter {
font-size: 240%;
}
main h2 {
font-size: 125%;
margin: .8em 0 .5em 0;
}
main h3 {
font-size: 110%;
margin-bottom: .5em;
}
main p {
margin-bottom: .5em;
}
main ul {
line-height: 150%;
}
/* Footer */
footer {
border-top: 2px solid black;
padding: 15px;
background-image: -webkit-linear-gradient(45deg, black 0%, orange 25%, white 100%);
background-image: -moz-linear-gradient(45deg, black 0%, orange 25%, white 100%);
background-image: -o-linear-gradient(45deg, black 0%, orange 25%, white 100%);
background-image: linear-gradient(45deg, black 0%, orange 25%, white 100%);
clear: both;
}
footer p {
font-size: 90%;
text-align: center;
}
Download Project 2
CSS CODE
body{
font-family: Verdana, Arial, Helvetica, sans-serif;
}
main h1{ font-size: 140%;
}
main h2{font-size: 125%;
}
header h2{
font-size: 230%;
font-style: italic;
color: #FFA500;
text-shadow: 4px 4px black;
margin-left: 3em;
}
main h3{font-size:110%;
}
header h3{font-size:125%;
margin-left: 5.5em;
}
main h1:first-child::first-letter {font-size: 240%;}
img{
float: left;}
a{color: #FFA500;
font-weight:bold;}
a:hover, a:focus {color: #008000;
}
ul{line-height:150%
}
.copyright {
text-align: center;
font-size: 90%;
}
Download Project 3
Visual Studio CODE
Option Explicit On
Option Strict On
Public Class Form1
Const CHARGE_RATE1 As Single = 0.5
Const CHARGE_RATE2 As Single = 0.55
Const CHARGE_RATE3 As Single = 0.6
Const CHARGE_RATE4 As Single = 0.65
Dim moneyt As Single
Dim numberemployees As Short
Dim numberpiecesT As Short
Private Sub btnClear_Click(sender As Object, e As EventArgs) Handles btnClear.Click
'programming regular clear btn "only clearing name and pieces text boxes"
txtName.Text = ""
txtNumber.Text = ""
End Sub
Private Sub btnClearAll_Click(sender As Object, e As EventArgs) Handles btnClearAll.Click
'programming clear all button "clear just the summary despite the name"
moneyt = 0
numberemployees = 0
numberpiecesT = 0
End Sub
Private Sub btncalculate_Click(sender As Object, e As EventArgs) Handles btncalculate.Click
'Programming calculate button, display initial results per person
Dim employeemoneyS As String
Dim MessageString As String
Dim name As String = txtName.Text
Dim moneye As Single
Dim numberpieces As Short
Dim iserror As Boolean = False
Dim numberpiecesd As Decimal
'input
'debugging using If logical operator
numberpiecesd = Decimal.Parse(txtNumber.Text)
If name = "" Then
MessageBox.Show("Error", "No name inputed", MessageBoxButtons.OK, MessageBoxIcon.Warning)
iserror = True
ElseIf Math.Floor(numberpiecesd) <> Math.Ceiling(numberpiecesd) Then
numberpiecesd = Decimal.Parse(txtNumber.Text)
MessageBox.Show("Number of Pieces input Error", "Did Not Input Correct Number", MessageBoxButtons.OK, MessageBoxIcon.Warning)
iserror = True
'makes sure program does not run when error detected
End If
If iserror = False Then
numberpieces = Short.Parse(txtNumber.Text)
ElseIf iserror = True Then
Return
End If
'processing
numberpiecesT = numberpiecesT + numberpieces
numberemployees = CShort(numberemployees + 1)
Select Case numberpieces
Case Is <= 199
moneye = numberpieces * CHARGE_RATE1
Case 200 To 399
moneye = numberpieces * CHARGE_RATE2
Case 400 To 500
moneye = numberpieces * CHARGE_RATE3
Case Else
moneye = numberpieces * CHARGE_RATE4
End Select
moneyt = moneyt + moneye
'Output
employeemoneyS = moneye.ToString("C2")
'message box for individual employee summary
MessageString = "Money Earned: " & employeemoneyS
MessageBox.Show(MessageString, "Money Earned by Employee", MessageBoxButtons.OK, MessageBoxIcon.Information)
End Sub
Private Sub btnsummary_Click(sender As Object, e As EventArgs) Handles btnsummary.Click
'summary output
Dim MessageString As String
Dim name As String = txtName.Text
Dim totalmoneyS As String
Dim averagepay As Single = moneyt / numberemployees
totalmoneyS = moneyt.ToString("C2")
'message box to display summary information
MessageString = "Total Money Earned: " & totalmoneyS & Environment.NewLine & "Average pay: " & averagepay.ToString("C2") & Environment.NewLine & "Total Pieces: " & numberpiecesT
MessageBox.Show(MessageString, "Summary", MessageBoxButtons.OK, MessageBoxIcon.Information)
End Sub
End Class
Download Project 1* Requires Microsoft Visual Studios 2013 or higher.
Visual Studio CODE
Option Strict On
Option Explicit On
Public Class Form1
Friend count As Short
Friend Atotal As Short
Friend Ptotal As Short
Friend AppleAvg As Double
Friend PruneAvg As Double
Private Sub mnuMainHelpAbout_Click(sender As Object, e As EventArgs) Handles mnuMainHelpAbout.Click
'programming the menu item to show the about box
AboutBox1.ShowDialog()
End Sub
Private Sub mnuMainFileNewTester_Click(sender As Object, e As EventArgs) Handles mnuMainFileNewTester.Click
'program menu button to display Taste Tester input
Form2_input_new_tester.ShowDialog()
End Sub
Private Sub mnuMainFileSummary_Click(sender As Object, e As EventArgs) Handles mnuMainFileSummary.Click
'program to display summary form and values
Form3_Summary.ShowDialog()
End Sub
Private Sub mnuMainFileClear_Click(sender As Object, e As EventArgs) Handles mnuMainFileClear.Click
Dim YesNo As DialogResult
'displays are you sure message box before clearing the results
YesNo = MessageBox.Show("Are you sure you want to clear all summary data including: the averages, totals, and number of taste testers?", "Clear order", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If YesNo = DialogResult.Yes Then
count = 0
Atotal = 0
Ptotal = 0
AppleAvg = 0
PruneAvg = 0
End If
End Sub
Private Sub mnuMainFileExit_Click(sender As Object, e As EventArgs) Handles mnuMainFileExit.Click
Dim YesNo As DialogResult
'displays are you sure message box before exiting the program
YesNo = MessageBox.Show("Are you sure you want Exit the program?", "Program Exit", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If YesNo = DialogResult.Yes Then
Me.Close()
End If
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
End Class
Download Project 2 * Requires Microsoft Visual Studios 2013 or higher.
Visual Studio CODE
Option Strict On
Option Explicit On
Public Class Form1
Dim YachtTypes As String
Public TotalHours As Single
Public count As Integer
Public TotalMoney As Single
Private Sub btnCalculate_Click(sender As Object, e As EventArgs) Handles btnCalculate.Click
Dim HourRate As Single
Dim Hours As Single
Dim Price As Single
'calculate
Try
'validation for name input
If txtName.Text <> "" Then
'validation for hours input
If IsNumeric(txtHours.Text) Then
If CDec(txtHours.Text) >= 1 Then
' If Math.Floor(CDec(txtHours.Text)) = Math.Ceiling(CDec(txtHours.Text)) Then
If lstSizes.SelectedIndex <> -1 Then
If ddYacht.SelectedIndex <> -1 Then
'input
'177
Select Case lstSizes.SelectedIndex
Case Is = 0
HourRate = 95
Case 1
HourRate = 137
Case 2
HourRate = 160
Case 3
HourRate = 192
Case 4
HourRate = 250
Case 5
HourRate = 400
Case 6
HourRate = 550
End Select
Hours = CSng(txtHours.Text)
'processing
Price = CSng(HourRate * Hours)
'output
count = count + CInt(1)
txtTotal.Text = Price.ToString("C")
TotalHours = TotalHours + Hours
TotalMoney = TotalMoney + Price
Else
MessageBox.Show("Please select Yacht type.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Warning)
ddYacht.Focus()
End If
Else
MessageBox.Show("Please select a yacht size.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Warning)
lstSizes.Focus()
End If
' Else
'MessageBox.Show("Please input a whole number for hours.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Warning)
' txtHours.Focus()
'End If
Else
MessageBox.Show("No number greater than 1 inputed for hours.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Warning)
txtHours.Focus()
End If
Else
MessageBox.Show("No number inputed for hours", "Error", MessageBoxButtons.OK, MessageBoxIcon.Warning)
txtHours.Focus()
End If
Else
MessageBox.Show("No name inputed", "Error", MessageBoxButtons.OK, MessageBoxIcon.Warning)
txtName.Focus()
End If
Catch theException As Exception
MessageBox.Show("Something wrong happened with your input data. Please look over it and try again.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Warning)
txtName.Focus()
End Try
End Sub
Private Sub ExitToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ExitToolStripMenuItem.Click
'programming Exit of entire application
Application.Exit()
End Sub
Private Sub mnuEditAdd_Click(sender As Object, e As EventArgs) Handles mnuEditAdd.Click
'addes a yacht type if one inputed
If ddYacht.Text <> "" Then
ddYacht.Items.Add(ddYacht.Text)
Else
MessageBox.Show("Please enter a new Yacht type if you wish to add one.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End If
End Sub
Private Sub mnuEditRemove_Click(sender As Object, e As EventArgs) Handles mnuEditRemove.Click
'removeing items form yachit list
Dim YesNo As DialogResult
If ddYacht.Text <> "" Then
YesNo = MessageBox.Show("Are you sure you want to Delete Yacht type: " & ddYacht.Text & "?", "Are You Sure?", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If YesNo = DialogResult.Yes Then
ddYacht.Items.Remove(ddYacht.Text)
End If
Else
MessageBox.Show("Please enter the Yacht type that you wish to remove.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End If
End Sub
Private Sub mnuEditDisplayIndex_Click(sender As Object, e As EventArgs) Handles mnuEditDisplayIndex.Click
'counts how many yacht types there are
Dim TotalItems As Integer
TotalItems = ddYacht.Items.Count
MessageBox.Show("The number of item(s) in the Yacht list is: " & ddYacht.Items.Count.ToString(), "Total Number of Yacht Types", MessageBoxButtons.OK, MessageBoxIcon.Information)
End Sub
Private Sub mnuHelpAbout_Click(sender As Object, e As EventArgs) Handles mnuHelpAbout.Click
'showing about box
AboutBox1.ShowDialog()
End Sub
Private Sub mnuEditClear_Click(sender As Object, e As EventArgs) Handles mnuEditClear.Click
'uses clear button's code when clicked
Call btnClear_Click(sender, e)
End Sub
Private Sub btnClear_Click(sender As Object, e As EventArgs) Handles btnClear.Click
'reset all inputs and disselect list boxes
txtHours.Text = ""
txtName.Text = ""
txtTotal.Text = ""
lstSizes.SelectedIndex = -1
ddYacht.SelectedIndex = -1
txtName.Focus()
End Sub
Private Sub mnuFilePrintSummary_Click(sender As Object, e As EventArgs) Handles mnuFilePrintSummary.Click
'shows summary fourm
Form2.ShowDialog()
End Sub
Private Sub mnuFilePrintYacht_Click(sender As Object, e As EventArgs) Handles mnuFilePrintYacht.Click
'lists all yacht types
Form3.lblYacht.Text = ""
Dim TotalItems As Integer
Dim myindex As Integer
TotalItems = ddYacht.Items.Count
For myindex = 0 To (TotalItems - 1) Step 1
Form3.lblYacht.Text = Form3.lblYacht.Text & vbNewLine & CStr(ddYacht.Items(myindex))
Next
Form3.ShowDialog()
End Sub
End Class
Download Project 3 * Requires Microsoft Visual Studios 2013 or higher.
Database INPUT SQL CODE
#Elliot Slack
#SQL Assignment 4
USE vbvideo;
#Question 1
SELECT UPPER(StudioName) AS "Studio Name",SUBSTRING(Phone,5,10) AS "Phone Number"
FROM Studio;
#Question 2
USE BOOKS;
SELECT LastName,FirstName,IFNULL(referred,"NOT REFERRED")
FROM Customers;
#Question 3
USE lyric;
SELECT CONCAT_WS(".",LEFT(FirstName,1),LEFT(LastName,1)) AS "Members by Initials"
FROM Members;
#Question 4
USE books;
SELECT title,INSERT(ROUND(Cost/Retail*100,0),3,0,"%") AS "Markup Percent"
FROM Books;
#Question 5
SELECT CONCAT_WS(' at ',DATE_FORMAT(SYSDATE(), '%W, %M %D, %Y'), TIME_FORMAT(SYSDATE(), '%l:%i %p')) AS "Date and Time";
#Question 6
USE vbauto;
SELECT LName,ModelName, FORMAT(CostValue,2)
FROM Vehicle,Customer
WHERE InventoryID = InventoryIDNumber;
#Question 7
USE BOOKS;
SELECT DISTINCT Length (ISBN)
FROM books;
#Question 8
SELECT OrderDate AS "Order Date", IFNULL(ShipDate, "NOT SHIPPED") AS "Ship Date",
IFNULL(DATEDIFF(ShipDate,OrderDate),"NOT SHIPPED") AS "Days Between Ordering and Shipping",
DATE_ADD(OrderDate, INTERVAL 60 DAY) AS "Payment Due"
FROM Orders;
#Question 9
USE LYRIC;
SELECT ArtistName,WebAddress,SUBSTRING_INDEX(WebAddress,'.',-2) AS "Website"
FROM Artists
WHERE WebAddress IS NOT NULL;
#Question 10
SELECT EMail,LOCATE("@",Email)
FROM Members
WHERE EMail IS NOT NULL;
Download Project 1 * May not be able to use, based on Aiken Technical Collage Database trainer.
Database CHANGES
mysql> source c:\scripts\SlackE\SlackEH4.sql
Database changed
+------------------------+--------------+
| Studio Name | Phone Number |
+------------------------+--------------+
| BRIDES DAY STUDIO | 899-9999 |
| COLUMBUS CORPORATION | 564-4444 |
| WALT DIZZY STUDIOS | 944-9999 |
| OREOLE PRODUCTIONS | 878-7777 |
| PARLIAMENT PRODUCTIONS | 555-5555 |
| TOUCHTONES STUDIO | 878-8787 |
+------------------------+--------------+
6 rows in set (0.00 sec)
Database changed
+----------+-----------+---------------------------------+
| LastName | FirstName | IFNULL(referred,"NOT REFERRED") |
+----------+-----------+---------------------------------+
| MORALES | BONITA | NOT REFERRED |
| THOMPSON | RYAN | NOT REFERRED |
| SMITH | LEILA | NOT REFERRED |
| PIERSON | THOMAS | NOT REFERRED |
| GIRARD | CINDY | NOT REFERRED |
| CRUZ | MESHIA | NOT REFERRED |
| GIANA | TAMMY | 1003 |
| JONES | KENNETH | NOT REFERRED |
| PEREZ | JORGE | 1003 |
| LUCAS | JAKE | NOT REFERRED |
| MCGOVERN | REESE | NOT REFERRED |
| MCKENZIE | WILLIAM | NOT REFERRED |
| NGUYEN | NICHOLAS | 1006 |
| LEE | JASMINE | NOT REFERRED |
| SCHELL | STEVE | NOT REFERRED |
| DAUM | MICHELL | 1010 |
| NELSON | BECCA | NOT REFERRED |
| MONTIASA | GREG | NOT REFERRED |
| SMITH | JENNIFER | 1003 |
| FALAH | KENNETH | NOT REFERRED |
| Johnson | Steven | 1003 |
+----------+-----------+---------------------------------+
21 rows in set (0.00 sec)
Database changed
+---------------------+
| Members by Initials |
+---------------------+
| B.S |
| M.L |
| C.K |
| K.F |
| R.A |
| M.C |
| C.W |
| W.B |
| B.T |
| T.I |
| L.H |
| M.H |
| B.C |
| T.W |
| V.C |
| F.P |
| R.G |
| J.M |
| D.F |
| B.R |
| W.M |
| A.F |
| D.G |
+---------------------+
23 rows in set (0.00 sec)
Database changed
+--------------------------------+----------------+
| title | Markup Percent |
+--------------------------------+----------------+
| HOW TO GET FASTER PIZZA | 60% |
| THE WOK WAY TO COOK | 66% |
| REVENGE OF MICKEY | 65% |
| BODYBUILD IN 10 MINUTES A DAY | 61% |
| JEFFS COMPUTER PROGRAMING | 10% |
| HANDCRANKED COMPUTERS | 87% |
| SHORTEST POEMS | 55% |
| PAINLESS CHILD-REARING | 53% |
| COOKING WITH MUSHROOMS | 63% |
| HOLY GRAIL OF ORACLE | 62% |
| BUILDING A CAR WITH TOOTHPICKS | 63% |
| BIG BEAR AND LITTLE DOVE | 59% |
| DATABASE IMPLEMENTATION | 56% |
| HOW TO MANAGE THE MANAGER | 48% |
| E-BUSINESS THE EASY WAY | 70% |
+--------------------------------+----------------+
15 rows in set (0.00 sec)
+-------------------------------------------+
| Date and Time |
+-------------------------------------------+
| Thursday, September 22nd, 2016 at 7:49 PM |
+-------------------------------------------+
1 row in set (0.00 sec)
Database changed
+-----------+-----------+---------------------+
| LName | ModelName | FORMAT(CostValue,2) |
+-----------+-----------+---------------------+
| Allen | Suburban | 15,885.01 |
| Baldwin | Suburban | 15,885.01 |
| Patterson | Suburban | 15,885.01 |
| Baldwin | Fiero | 4,290.00 |
| York | Fiero | 4,290.00 |
| Bittles | S-10 | 8,950.00 |
| York | Regal | 8,525.08 |
| Green | Suburban | 14,225.62 |
+-----------+-----------+---------------------+
8 rows in set (0.00 sec)
Database changed
+---------------+
| Length (ISBN) |
+---------------+
| 10 |
+---------------+
1 row in set (0.00 sec)
+------------+-------------+------------------------------------+-------------+
| Order Date | Ship Date | Days Between Ordering and Shipping | Payment Due |
+------------+-------------+------------------------------------+-------------+
| 2003-03-31 | 2003-04-02 | 2 | 2003-05-30 |
| 2003-03-31 | 2003-04-01 | 1 | 2003-05-30 |
| 2003-03-31 | 2003-04-01 | 1 | 2003-05-30 |
| 2003-04-01 | 2003-04-01 | 0 | 2003-05-31 |
| 2003-04-01 | 2003-04-05 | 4 | 2003-05-31 |
| 2003-04-01 | 2003-04-02 | 1 | 2003-05-31 |
| 2003-04-01 | 2003-04-02 | 1 | 2003-05-31 |
| 2003-04-02 | 2003-04-04 | 2 | 2003-06-01 |
| 2003-04-02 | 2003-04-03 | 1 | 2003-06-01 |
| 2003-04-03 | 2003-04-05 | 2 | 2003-06-02 |
| 2003-04-03 | 2003-04-04 | 1 | 2003-06-02 |
| 2003-04-03 | 2003-04-05 | 2 | 2003-06-02 |
| 2003-04-03 | NOT SHIPPED | NOT SHIPPED | 2003-06-02 |
| 2003-04-03 | 2003-04-04 | 1 | 2003-06-02 |
| 2003-04-04 | 2003-04-05 | 1 | 2003-06-03 |
| 2003-04-04 | NOT SHIPPED | NOT SHIPPED | 2003-06-03 |
| 2003-04-04 | NOT SHIPPED | NOT SHIPPED | 2003-06-03 |
| 2003-04-04 | 2003-04-05 | 1 | 2003-06-03 |
| 2003-04-05 | NOT SHIPPED | NOT SHIPPED | 2003-06-04 |
| 2003-04-05 | NOT SHIPPED | NOT SHIPPED | 2003-06-04 |
| 2003-04-05 | NOT SHIPPED | NOT SHIPPED | 2003-06-04 |
| 2015-11-04 | 2015-11-05 | 1 | 2016-01-03 |
+------------+-------------+------------------------------------+-------------+
22 rows in set (0.00 sec)
Database changed
+----------------+--------------------------+----------------------+
| ArtistName | WebAddress | Website |
+----------------+--------------------------+----------------------+
| The Neurotics | www.theneurotics.com | theneurotics.com |
| Sonata | www.classical.com/sonata | classical.com/sonata |
| Jose MacArthur | www.josemacarthur.com | josemacarthur.com |
| Confused | | |
| Today | www.today.com | today.com |
| 21 West Elm | www.21westelm.com | 21westelm.com |
+----------------+--------------------------+----------------------+
6 rows in set (0.00 sec)
+------------------------+-------------------+
| EMail | LOCATE("@",Email) |
+------------------------+-------------------+
| bs@cookery.com | 3 |
| mlambert@corkscrew.com | 9 |
| ral@mightyhostl.com | 4 |
| mjc17@daviscorp.com | 6 |
| wbman@uptime.net | 6 |
| taffygirl@signon.com | 10 |
| twong@tamilla.org | 6 |
| jmac@dowop.com | 5 |
| fennyd@bitspeed.com | 7 |
| wmorrow@wmorrow.com | 8 |
| kosmo@ispl.com | 6 |
| goody@irvingnet.com | 6 |
+------------------------+-------------------+
12 rows in set (0.00 sec)
mysql> notee
Database INPUT SQL CODE
#SQL Assignemt 3
# Elliot Slack
#question 1
USE books;
SELECT Title,Phone,Contact
FROM Books,Publisher
WHERE Books.PubID=Publisher.PubID
#question 2
SELECT ShipDate,LastName,FirstName,OrderDate
FROM Orders,Customers
WHERE Orders.Customernum = Customers.Customernum
AND Shipdate IS NULL
ORDER BY OrderDate;
#question 3
USE VBAuto;
SELECT FName,LName,ModelName
FROM Vehicle,Customer
WHERE NOT ModelName = 'Chvrolet'
AND InventoryID = InventoryIDNumber
ORDER BY ModelName;
#question 4
USE Books;
SELECT DISTINCT LastName,FirstName,Title
FROM Customers,Orders,OrderItems,Books
WHERE LastName = 'Lucas' AND FirstName = 'Jake'
AND Customers.Customernum = Orders.Customernum
AND Orders.Ordernum = OrderItems.Ordernum
AND OrderItems.ISBN = Books.ISBN;
#question 5
USE VBVideo;
SELECT Title,StudioName,length
FROM Studio,Video
WHERE Studio.StudioID = Video.StudioID
ORDER BY Length DESC;
#question 6
USE Books;
SELECT Lname,Title,Books.ISBN
FROM Books,BookAuthor,Author
WHERE Lname = 'Adams'
AND Books.ISBN = BookAuthor.ISBN
AND BookAuthor.AuthorID = Author.AuthorID;
#question 7
USE Employee;
SELECT first_name,birth_date,tool_name,purchase_date,(TO_DAYS(purchase_date) - TO_DAYS(birth_date)) DIV 365.25 AS 'Age of Customer at time'
FROM employee, tools
WHERE employee.payroll_number = tools.fk_payroll_number
AND purchase_date Between '1966-01-01' AND '1990-12-31';
#question 8
USE Books;
SELECT LastName,FirstName,Lname,Fname
FROM Customers c, Orders o, OrderItems oi, Books b, BookAuthor ba, Author a
WHERE LastName = 'Nelson' AND FirstName = 'Becca'
AND c.Customernum = o.Customernum
AND o.Ordernum = oi.Ordernum
AND oi.ISBN = b.ISBN
AND b.ISBN = ba.ISBN
AND ba.AuthorID = a.AuthorID
#question 9
SELECT LastName, FirstName,Ordernum,OrderDate
FROM Customers c LEFT JOIN Orders o
ON c.Customernum = o.Customernum
#question 10 NOT DONE
SELECT Title, OrderItems.Ordernum,Quantity
FROM Books LEFT JOIN OrderItems
ON Books.ISBN = OrderItems.ISBN
WHERE Title LIKE '%A%A%';
Download Project 2 * May not be able to use, based on Aiken Technical Collage Database trainer.
Database CHANGES mysql> source c:\scripts\SlackE\SlackEH3.sql Database changed +--------------------------------+--------------+-----------------+ | Title | Phone | Contact | +--------------------------------+--------------+-----------------+ | REVENGE OF MICKEY | 000-714-8321 | TOMMIE SEYMOUR | | HOW TO MANAGE THE MANAGER | 000-714-8321 | TOMMIE SEYMOUR | | BUILDING A CAR WITH TOOTHPICKS | 010-410-0010 | JANE TOMLIN | | E-BUSINESS THE EASY WAY | 010-410-0010 | JANE TOMLIN | | HANDCRANKED COMPUTERS | 800-555-1211 | DAVID DAVIDSON | | HOLY GRAIL OF ORACLE | 800-555-1211 | DAVID DAVIDSON | | DATABASE IMPLEMENTATION | 800-555-1211 | DAVID DAVIDSON | | HOW TO GET FASTER PIZZA | 800-555-9743 | RENEE SMITH | | THE WOK WAY TO COOK | 800-555-9743 | RENEE SMITH | | BODYBUILD IN 10 MINUTES A DAY | 800-555-9743 | RENEE SMITH | | COOKING WITH MUSHROOMS | 800-555-9743 | RENEE SMITH | | SHORTEST POEMS | 800-555-8284 | SEBASTIA' JONES | | PAINLESS CHILD-REARING | 800-555-8284 | SEBASTIA' JONES | | BIG BEAR AND LITTLE DOVE | 800-555-8284 | SEBASTIA' JONES | +--------------------------------+--------------+-----------------+ 14 rows in set (0.00 sec) +----------+----------+-----------+------------+ | ShipDate | LastName | FirstName | OrderDate | +----------+----------+-----------+------------+ | NULL | NELSON | BECCA | 2003-04-03 | | NULL | FALAH | KENNETH | 2003-04-04 | | NULL | SMITH | LEILA | 2003-04-04 | | NULL | JONES | KENNETH | 2003-04-05 | | NULL | MONTIASA | GREG | 2003-04-05 | | NULL | MORALES | BONITA | 2003-04-05 | +----------+----------+-----------+------------+ 6 rows in set (0.00 sec) Database changed +-----------+-----------+-----------+ | FName | LName | ModelName | +-----------+-----------+-----------+ | Josephine | Baldwin | Fiero | | Janet | York | Fiero | | Janet | York | Regal | | Tricia | Bittles | S-10 | | Phillip | Allen | Suburban | | Kyle | Baldwin | Suburban | | Kevin | Patterson | Suburban | | Heather | Green | Suburban | +-----------+-----------+-----------+ 8 rows in set (0.00 sec) Database changed +----------+-----------+---------------------------+ | LastName | FirstName | Title | +----------+-----------+---------------------------+ | LUCAS | JAKE | PAINLESS CHILD-REARING | | LUCAS | JAKE | HOW TO MANAGE THE MANAGER | +----------+-----------+---------------------------+ 2 rows in set (0.00 sec) Database changed +----------------------+------------------------+--------+ | Title | StudioName | length | +----------------------+------------------------+--------+ | Dancing With Fools | Oreole Productions | 245 | | A Dependent's Pay | Columbus Corporation | 127 | | Ghost Man | Parliament Productions | 127 | | Jura's Park | Parliament Productions | 125 | | Home by Yourself | Walt Dizzy Studios | 125 | | Women in White | Brides Day Studio | 120 | | Twister Act | Touchtones Studio | 118 | | Mrs. Housefire | Walt Dizzy Studios | 103 | | An American Resident | Columbus Corporation | 101 | | Home and Around | Walt Dizzy Studios | 85 | +----------------------+------------------------+--------+ 10 rows in set (0.00 sec) Database changed +-------+-------------------------+------------+ | Lname | Title | ISBN | +-------+-------------------------+------------+ | ADAMS | DATABASE IMPLEMENTATION | 8843172113 | +-------+-------------------------+------------+ 1 row in set (0.00 sec) Database changed +------------+------------+--------------+---------------+-------------------------+ | first_name | birth_date | tool_name | purchase_date | Age of Customer at time | +------------+------------+--------------+---------------+-------------------------+ | ANDREW | 1808-12-29 | Fountain Pen | 1966-02-01 | 157 | | ANDREW | 1808-12-29 | Shovel | 1967-05-10 | 158 | | RICHARD | 1908-08-27 | Hack Saw | 1969-02-14 | 60 | | RICHARD | 1908-08-27 | Pliers | 1969-10-21 | 61 | | GERALD | 1913-01-09 | Golf Balls | 1974-01-01 | 60 | | GERALD | 1913-01-09 | 1st Aid Kit | 1974-08-10 | 61 | | GERALD | 1913-01-09 | 1st Aid Kit | 1977-03-23 | 64 | | RONALD | 1924-10-01 | 3/4 Wrench | 1980-06-04 | 55 | | RONALD | 1924-10-01 | Knife | 1981-04-24 | 56 | | RONALD | 1924-10-01 | Tool Chest | 1982-11-06 | 58 | | GEORGE | 1911-02-06 | Drill Bit | 1988-09-23 | 77 | | GEORGE | 1911-02-06 | Drill | 1988-11-10 | 77 | | GEORGE | 1911-02-06 | Hack Saw | 1990-12-20 | 79 | +------------+------------+--------------+---------------+-------------------------+ 13 rows in set (0.00 sec) Database changed +----------+-----------+----------+---------+ | LastName | FirstName | Lname | Fname | +----------+-----------+----------+---------+ | NELSON | BECCA | JONES | JANICE | | NELSON | BECCA | WHITE | WILLIAM | | NELSON | BECCA | WHITE | LISA | | NELSON | BECCA | BAKER | JACK | | NELSON | BECCA | FIELDS | OSCAR | | NELSON | BECCA | ROBINSON | ROBERT | | NELSON | BECCA | ROBINSON | ROBERT | +----------+-----------+----------+---------+ 7 rows in set (0.00 sec) +----------+-----------+----------+------------+ | LastName | FirstName | Ordernum | OrderDate | +----------+-----------+----------+------------+ | MORALES | BONITA | 1003 | 2003-04-01 | | MORALES | BONITA | 1018 | 2003-04-05 | | THOMPSON | RYAN | NULL | NULL | | SMITH | LEILA | 1006 | 2003-04-01 | | SMITH | LEILA | 1016 | 2003-04-04 | | PIERSON | THOMAS | 1008 | 2003-04-02 | | GIRARD | CINDY | 1000 | 2003-03-31 | | GIRARD | CINDY | 1009 | 2003-04-03 | | CRUZ | MESHIA | NULL | NULL | | GIANA | TAMMY | 1007 | 2003-04-02 | | GIANA | TAMMY | 1014 | 2003-04-04 | | JONES | KENNETH | 1020 | 2003-04-05 | | PEREZ | JORGE | NULL | NULL | | LUCAS | JAKE | 1001 | 2003-03-31 | | LUCAS | JAKE | 1011 | 2003-04-03 | | MCGOVERN | REESE | 1002 | 2003-03-31 | | MCKENZIE | WILLIAM | NULL | NULL | | NGUYEN | NICHOLAS | NULL | NULL | | LEE | JASMINE | 1013 | 2003-04-03 | | SCHELL | STEVE | 1017 | 2003-04-04 | | DAUM | MICHELL | NULL | NULL | | NELSON | BECCA | 1012 | 2003-04-03 | | MONTIASA | GREG | 1005 | 2003-04-01 | | MONTIASA | GREG | 1019 | 2003-04-05 | | SMITH | JENNIFER | 1010 | 2003-04-03 | | FALAH | KENNETH | 1004 | 2003-04-01 | | FALAH | KENNETH | 1015 | 2003-04-04 | +----------+-----------+----------+------------+ 27 rows in set (0.00 sec) +--------------------------------+----------+----------+ | Title | Ordernum | Quantity | +--------------------------------+----------+----------+ | HOW TO GET FASTER PIZZA | NULL | NULL | | BODYBUILD IN 10 MINUTES A DAY | 1003 | 1 | | HANDCRANKED COMPUTERS | 1012 | 2 | | PAINLESS CHILD-REARING | 1001 | 1 | | PAINLESS CHILD-REARING | 1004 | 2 | | PAINLESS CHILD-REARING | 1011 | 1 | | PAINLESS CHILD-REARING | 1012 | 1 | | PAINLESS CHILD-REARING | 1016 | 1 | | HOLY GRAIL OF ORACLE | 1007 | 3 | | BUILDING A CAR WITH TOOTHPICKS | NULL | NULL | | BIG BEAR AND LITTLE DOVE | 1007 | 1 | | BIG BEAR AND LITTLE DOVE | 1012 | 1 | | BIG BEAR AND LITTLE DOVE | 1017 | 2 | | DATABASE IMPLEMENTATION | 1002 | 2 | | DATABASE IMPLEMENTATION | 1003 | 1 | | DATABASE IMPLEMENTATION | 1007 | 1 | | DATABASE IMPLEMENTATION | 1010 | 1 | | DATABASE IMPLEMENTATION | 1013 | 1 | | DATABASE IMPLEMENTATION | 1018 | 1 | | HOW TO MANAGE THE MANAGER | 1001 | 1 | | E-BUSINESS THE EASY WAY | 1006 | 1 | | E-BUSINESS THE EASY WAY | 1007 | 1 | +--------------------------------+----------+----------+ 22 rows in set (0.00 sec) mysql> notee
Database INPUT SQL CODE
#SQL Assignemt 2
# Elliot Slack
#question 1
USE books;
SELECT LastName AS "Last Name",FirstName AS "First Name"
FROM Customers
WHERE State = 'NJ';
#question 2
SELECT Ordernum
FROM Orders
WHERE ShipDate > '2003-04-01';
#question 3
SELECT Title
FROM Books
WHERE NOT Category='fitness';
#question 4
SELECT LastName,FirstName
FROM Customers
WHERE State = 'GA' OR State = 'NJ'
ORDER BY LastName ASC;
#question 5
SELECT Ordernum,OrderDate,ShipDate,TO_DAYS(ShipDate) - TO_DAYS(OrderDate) AS "Days Between Ordering and Shipping"
FROM Orders;
#question 6 ?
SELECT Lname,Fname
FROM Author
WHERE Lname LIKE '%IN%'
ORDER BY Lname DESC,Fname;
#question 7
SELECT LastName,FirstName
FROM Customers
WHERE Referred IS NOT NULL;
#question 8
SELECT Title,Category
FROM books
WHERE Category LIKE 'C%';
#question 9
SELECT Title
FROM Books
WHERE Title Like '_A_N%';
#question 10
SELECT Title
FROM Books
WHERE Category = 'computer' AND PUBDate >= '2001-01-01';
Download Project 3 * May not be able to use, based on Aiken Technical Collage Database trainer.
Database CHANGES mysql> source c:\scripts\SlackE\SlackEH2.sql Database changed +-----------+------------+ | Last Name | First Name | +-----------+------------+ | SMITH | JENNIFER | | FALAH | KENNETH | +-----------+------------+ 2 rows in set (0.00 sec) +----------+ | Ordernum | +----------+ | 1000 | | 1004 | | 1005 | | 1006 | | 1007 | | 1008 | | 1009 | | 1010 | | 1011 | | 1013 | | 1014 | | 1017 | +----------+ 12 rows in set (0.00 sec) +--------------------------------+ | Title | +--------------------------------+ | HOW TO GET FASTER PIZZA | | THE WOK WAY TO COOK | | REVENGE OF MICKEY | | HANDCRANKED COMPUTERS | | SHORTEST POEMS | | PAINLESS CHILD-REARING | | COOKING WITH MUSHROOMS | | HOLY GRAIL OF ORACLE | | BUILDING A CAR WITH TOOTHPICKS | | BIG BEAR AND LITTLE DOVE | | DATABASE IMPLEMENTATION | | HOW TO MANAGE THE MANAGER | | E-BUSINESS THE EASY WAY | +--------------------------------+ 13 rows in set (0.00 sec) +----------+-----------+ | LastName | FirstName | +----------+-----------+ | FALAH | KENNETH | | LUCAS | JAKE | | MONTIASA | GREG | | SMITH | JENNIFER | +----------+-----------+ 4 rows in set (0.00 sec) +----------+------------+------------+------------------------------------+ | Ordernum | OrderDate | ShipDate | Days Between Ordering and Shipping | +----------+------------+------------+------------------------------------+ | 1000 | 2003-03-31 | 2003-04-02 | 2 | | 1001 | 2003-03-31 | 2003-04-01 | 1 | | 1002 | 2003-03-31 | 2003-04-01 | 1 | | 1003 | 2003-04-01 | 2003-04-01 | 0 | | 1004 | 2003-04-01 | 2003-04-05 | 4 | | 1005 | 2003-04-01 | 2003-04-02 | 1 | | 1006 | 2003-04-01 | 2003-04-02 | 1 | | 1007 | 2003-04-02 | 2003-04-04 | 2 | | 1008 | 2003-04-02 | 2003-04-03 | 1 | | 1009 | 2003-04-03 | 2003-04-05 | 2 | | 1010 | 2003-04-03 | 2003-04-04 | 1 | | 1011 | 2003-04-03 | 2003-04-05 | 2 | | 1012 | 2003-04-03 | NULL | NULL | | 1013 | 2003-04-03 | 2003-04-04 | 1 | | 1014 | 2003-04-04 | 2003-04-05 | 1 | | 1015 | 2003-04-04 | NULL | NULL | | 1016 | 2003-04-04 | NULL | NULL | | 1017 | 2003-04-04 | 2003-04-05 | 1 | | 1018 | 2003-04-05 | NULL | NULL | | 1019 | 2003-04-05 | NULL | NULL | | 1020 | 2003-04-05 | NULL | NULL | +----------+------------+------------+------------------------------------+ 21 rows in set (0.00 sec) +-----------+---------+ | Lname | Fname | +-----------+---------+ | WILKINSON | ANTHONY | | ROBINSON | ROBERT | | MARTINEZ | SHEILA | | AUSTIN | JAMES | +-----------+---------+ 4 rows in set (0.00 sec) +----------+-----------+ | LastName | FirstName | +----------+-----------+ | GIANA | TAMMY | | PEREZ | JORGE | | NGUYEN | NICHOLAS | | DAUM | MICHELL | | SMITH | JENNIFER | +----------+-----------+ 5 rows in set (0.00 sec) +--------------------------------+----------+ | Title | Category | +--------------------------------+----------+ | THE WOK WAY TO COOK | COOKING | | HANDCRANKED COMPUTERS | COMPUTER | | COOKING WITH MUSHROOMS | COOKING | | HOLY GRAIL OF ORACLE | COMPUTER | | BUILDING A CAR WITH TOOTHPICKS | CHILDREN | | BIG BEAR AND LITTLE DOVE | CHILDREN | | DATABASE IMPLEMENTATION | COMPUTER | | E-BUSINESS THE EASY WAY | COMPUTER | +--------------------------------+----------+ 8 rows in set (0.00 sec) +------------------------+ | Title | +------------------------+ | PAINLESS CHILD-REARING | +------------------------+ 1 row in set (0.00 sec) +-------------------------+ | Title | +-------------------------+ | HANDCRANKED COMPUTERS | | HOLY GRAIL OF ORACLE | | E-BUSINESS THE EASY WAY | +-------------------------+ 3 rows in set (0.00 sec) mysql> notee
Word Jumble C++ CODE
#include
#include
#include
#include
using namespace std;
int main()
{
int count;
enum fields { WORD, HINT, NUM_FIELDS };
const int NUM_WORDS = 5;
const string WORDS[NUM_WORDS][NUM_FIELDS] =
{
{ "wall", "Do you feel you're banging your head against something?" },
{ "glasses", "These might help you see the answer." },
{ "labored", "Going slowly, is it?" },
{ "persistant", "Keep at it." },
{ "jumble", "It's what the game is all about." }
};
srand(static_cast(time(0)));
int choice = (rand() % NUM_WORDS);
string theWord = WORDS[choice][WORD]; //word to guess
string theHint = WORDS[choice][HINT]; //hint for word
string jumble = theWord; //jumbled version of word
int length = jumble.size();
for (int i = 0; i < length; ++i)
{
int index1 = (rand() % length);
int index2 = (rand() % length);
char temp = jumble[index1];
jumble[index1] = jumble[index2];
jumble[index2] = temp;
count = length;
}
cout << "\t\t\tWelcome to Word Jumble!\n\n";
cout << "Unscramble the letters to make a word.\n";
cout << "Enter 'hint' for a hint.\n";
cout << "Enter 'quit' to quit the game. \n";
cout << "You will start out with the same number of points as letters in your word.\n";
cout << "Asking for a hint will give you -2 points and every wrong answer will give you -1 point.\n";
cout << "Try to guess the word jumble with as many points as possible!\n\n";
cout << "The jumble is: " << jumble;
string guess;
cout << "\n\nYour guess: ";
cin >> guess;
while ((guess != theWord) && (guess != "quit"))
{
if (guess == "hint")
{
count = count - 2;
cout << theHint << "\n";
cout << "You now have " << count << " points remaining";
}
else
{
count = count - 1;
cout << "Sorry, that's not it.\n";
cout << "You now have " << count << " points remaining";
}
cout << "\n\nYour guess: ";
cin >> guess;
}
if (guess == theWord)
{
cout << "\nThat's it! You guessed it!\n";
cout << "Your score is: " << count << "\n";
}
system("pause");
return 0;
}
Download Project * Requires a program that can run C++ code.
*requires visual studio
