The Glade 4.0

' Project:          Brimstone Used Album Receiving
' Programmer:       Darksiege
' Date:             March 2011
' Description:      Chapter 08 Project

Public Class BrimstoneReceiving
    ' Module Level Declarations
    ' and Structure

    Structure ReceivingInfo
        Dim BandName As String
        Dim AlbumName As String
        Dim QuantityReceived As Integer
    End Structure

    Private ReceivingLists(16) As ReceivingInfo
    Private NumberTransactionsInteger As Integer
    Dim Album As ReceivingInfo
    Dim Artist As ReceivingInfo
    Dim Received As ReceivingInfo
    Dim Expected As ReceivingInfo

    Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click, ExitButton.Click
        ' Exits the Program
        Dim ResponseDialogResult As DialogResult

        ResponseDialogResult = MessageBox.Show("Print the Report?", "Terminate the Application", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        If ResponseDialogResult = DialogResult.Yes Then
            DisplayButton_Click(sender, e)
        End If
        Me.Close()
    End Sub

    Private Sub DisplayButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DisplayButton.Click
        ' Print the report using Print Preview.

        PrintPreviewDialog1.Document = PrintDocument1
        PrintPreviewDialog1.ShowDialog()
    End Sub

    Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
        ' Handle Print and Print Preview

        Dim PrintFont As New Font("Arial", 12)
        Dim HeadingFont As New Font("Arial", 14, FontStyle.Bold)
        Dim LineHeightSingle As Single = PrintFont.GetHeight + 2
        Dim Column1HorizontalLocationSingle As Single = e.MarginBounds.Left
        Dim VerticalPrintLocationSingle As Single = e.MarginBounds.Top
        Dim Column2HorizontalLocationSingle As Single = 300
        Dim Column3HorizontalLocationSingle As Single
        Dim PrintLineString As String
        Dim FontSizeF As New SizeF
        Dim FormattedQuantity As Integer

        ' Set up and display the heading lines
        PrintLineString = "Brimstone Records Receiving"
        e.Graphics.DrawString(PrintLineString, HeadingFont, Brushes.Black, Column2HorizontalLocationSingle, VerticalPrintLocationSingle)
        PrintLineString = "By Darksiege"
        VerticalPrintLocationSingle += LineHeightSingle
        e.Graphics.DrawString(PrintLineString, PrintFont, Brushes.Black, Column2HorizontalLocationSingle, VerticalPrintLocationSingle)
        VerticalPrintLocationSingle += LineHeightSingle * 2

        ' Loop through the transactions.
        For Each IndividualAlbumReceive As ReceivingInfo In ReceivingLists
            ' Don't print if Blank
            If IndividualAlbumReceive.BandName <> "" Then
                ' Set up a line.

                ' Band.
                e.Graphics.DrawString(IndividualAlbumReceive.BandName, PrintFont, Brushes.Black, Column1HorizontalLocationSingle, VerticalPrintLocationSingle)

                ' Album.
                e.Graphics.DrawString(IndividualAlbumReceive.AlbumName, PrintFont, Brushes.Black, Column2HorizontalLocationSingle, VerticalPrintLocationSingle)

                ' Right Align the Quantity column.
                FormattedQuantity = FormatNumber(IndividualAlbumReceive.QuantityReceived)
                ' Measure the string in this font
                FontSizeF = e.Graphics.MeasureString(FormattedQuantity, PrintFont)
                ' Subtract width of string from column position.
                Column3HorizontalLocationSingle = 550 - FontSizeF.Width
                e.Graphics.DrawString(FormattedQuantity, PrintFont, Brushes.Black, Column3HorizontalLocationSingle, VerticalPrintLocationSingle)

                ' Increment the Y position for the next line; Double Space.
                VerticalPrintLocationSingle += LineHeightSingle * 2
            End If
        Next
    End Sub

    Private Sub ReceiveButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ReceiveButton.Click
        ' Allow only 5 artists received per transaction.
        Try
            If NumberTransactionsInteger < 5 Then
                ' Save this transaction
                ReceivingLists(NumberTransactionsInteger).BandName = BandNameComboBox.Text
                ReceivingLists(NumberTransactionsInteger).AlbumName = AlbumNameTextBox.Text
                ReceivingLists(NumberTransactionsInteger).QuantityReceived = QuantityReceivedTextBox.Text
                NumberTransactionsInteger += 1
            Else
                MessageBox.Show("Only allow receipt of 5 bands at once.", "Too many records", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            End If

            'Clear the screen Fields
            BandNameComboBox.SelectedIndex = -1
            AlbumNameTextBox.Text = ""
            QuantityReceivedTextBox.Text = ""
        Catch QuantityReceivedException As Exception
            MessageBox.Show("Quantity Must be entered before receiving.", "Data Entry Error", MessageBoxButtons.OK, MessageBoxIcon.Information)
        End Try
       
    End Sub

    Private Sub BrimstoneReceiving_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' Sets the values
        ReceivingLists(0).BandName = "Duran Duran"
        ReceivingLists(1).BandName = "Oingo Boingo"
        ReceivingLists(2).BandName = "Tesla"
        ReceivingLists(3).BandName = "Testament"
        ReceivingLists(4).BandName = "Cradle of Filth"
        ReceivingLists(5).BandName = "Five Finger Death Punch"
        ReceivingLists(6).BandName = "BananaRama"
        ReceivingLists(7).BandName = "Slayer"
        ReceivingLists(8).BandName = "Kiss"
        ReceivingLists(9).BandName = "Ozzy Osbourne"
        ReceivingLists(10).BandName = "Tiesto"
        ReceivingLists(11).BandName = "Paul Oakenfeld"
        ReceivingLists(12).BandName = "Katy Perry"
        ReceivingLists(13).BandName = "Pink"
        ReceivingLists(14).BandName = "Lady GaGa"
    End Sub

    Private Sub AboutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AboutToolStripMenuItem.Click
        ' Display the about form

        AboutBox1.ShowDialog()
    End Sub
End Class