About Me

                     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

* 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

* 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

* 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;

* 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%';

* 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';

* 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;
}

* Requires a program that can run C++ code.

*requires visual studio