'''''''''''''''''''''''''''''''''''''
' Craig Persiko
' CS 112D Programming Lab 1 Solution
' Employee Records Viewer
'''''''''''''''''''''''''''''''''''''

Option Strict On
Imports System.Data.SqlClient

Public Class frmMain
    Inherits System.Windows.Forms.Form

    Private conNovelty As SqlConnection
    Private drdEmployeeDept As SqlDataReader

#Region " Windows Form Designer generated code "

    Public Sub New()
        MyBase.New()

        'This call is required by the Windows Form Designer.
        InitializeComponent()

        'Add any initialization after the InitializeComponent() call

    End Sub

    'Form overrides dispose to clean up the component list.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer

    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.  
    'Do not modify it using the code editor.
    Friend WithEvents Label4 As System.Windows.Forms.Label
    Friend WithEvents txtSalary As System.Windows.Forms.TextBox
    Friend WithEvents Label5 As System.Windows.Forms.Label
    Friend WithEvents txtDeptName As System.Windows.Forms.TextBox
    Friend WithEvents Label2 As System.Windows.Forms.Label
    Friend WithEvents txtLastName As System.Windows.Forms.TextBox
    Friend WithEvents Label1 As System.Windows.Forms.Label
    Friend WithEvents txtFirstName As System.Windows.Forms.TextBox
    Friend WithEvents btnNext As System.Windows.Forms.Button
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.Label4 = New System.Windows.Forms.Label()
        Me.txtSalary = New System.Windows.Forms.TextBox()
        Me.Label5 = New System.Windows.Forms.Label()
        Me.txtDeptName = New System.Windows.Forms.TextBox()
        Me.Label2 = New System.Windows.Forms.Label()
        Me.txtLastName = New System.Windows.Forms.TextBox()
        Me.Label1 = New System.Windows.Forms.Label()
        Me.txtFirstName = New System.Windows.Forms.TextBox()
        Me.btnNext = New System.Windows.Forms.Button()
        Me.SuspendLayout()
        '
        'Label4
        '
        Me.Label4.Location = New System.Drawing.Point(232, 48)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(48, 23)
        Me.Label4.TabIndex = 29
        Me.Label4.Text = "Salary:"
        '
        'txtSalary
        '
        Me.txtSalary.Location = New System.Drawing.Point(288, 48)
        Me.txtSalary.Name = "txtSalary"
        Me.txtSalary.Size = New System.Drawing.Size(56, 20)
        Me.txtSalary.TabIndex = 28
        Me.txtSalary.Text = ""
        '
        'Label5
        '
        Me.Label5.Location = New System.Drawing.Point(8, 48)
        Me.Label5.Name = "Label5"
        Me.Label5.Size = New System.Drawing.Size(104, 23)
        Me.Label5.TabIndex = 27
        Me.Label5.Text = "Department Name:"
        '
        'txtDeptName
        '
        Me.txtDeptName.Location = New System.Drawing.Point(112, 48)
        Me.txtDeptName.Name = "txtDeptName"
        Me.txtDeptName.Size = New System.Drawing.Size(104, 20)
        Me.txtDeptName.TabIndex = 26
        Me.txtDeptName.Text = ""
        '
        'Label2
        '
        Me.Label2.Location = New System.Drawing.Point(184, 16)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(64, 23)
        Me.Label2.TabIndex = 25
        Me.Label2.Text = "Last Name:"
        '
        'txtLastName
        '
        Me.txtLastName.Location = New System.Drawing.Point(256, 16)
        Me.txtLastName.Name = "txtLastName"
        Me.txtLastName.Size = New System.Drawing.Size(88, 20)
        Me.txtLastName.TabIndex = 24
        Me.txtLastName.Text = ""
        '
        'Label1
        '
        Me.Label1.Location = New System.Drawing.Point(8, 16)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(64, 23)
        Me.Label1.TabIndex = 23
        Me.Label1.Text = "First Name:"
        '
        'txtFirstName
        '
        Me.txtFirstName.Location = New System.Drawing.Point(80, 16)
        Me.txtFirstName.Name = "txtFirstName"
        Me.txtFirstName.Size = New System.Drawing.Size(88, 20)
        Me.txtFirstName.TabIndex = 22
        Me.txtFirstName.Text = ""
        '
        'btnNext
        '
        Me.btnNext.Location = New System.Drawing.Point(136, 80)
        Me.btnNext.Name = "btnNext"
        Me.btnNext.TabIndex = 30
        Me.btnNext.Text = "Next"
        '
        'frmMain
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(352, 110)
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.btnNext, Me.Label4, Me.txtSalary, Me.Label5, Me.txtDeptName, Me.Label2, Me.txtLastName, Me.Label1, Me.txtFirstName})
        Me.Name = "frmMain"
        Me.Text = "Employee Records"
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim cmdEmployeeDept As SqlCommand

        conNovelty = New SqlConnection()
        conNovelty.ConnectionString = "data source=L-BAT361-CPERSI\VSDOTNET;initial catalog=novelty;integrated security=" & _
                 "SSPI;persist security info=False;workstation id=L-BAT361-CPERSI;packet size=4096"
        conNovelty.Open()

        cmdEmployeeDept = New SqlCommand()
        cmdEmployeeDept.Connection = conNovelty
        cmdEmployeeDept.CommandText = _
            "SELECT tblEmployee.ID, tblEmployee.FirstName, tblEmployee.LastName, tblDepartment.DepartmentName, tblEmployee.Salary " & _
            "FROM tblEmployee INNER JOIN tblDepartment ON tblEmployee.DepartmentID = tblDepartment.ID"
        cmdEmployeeDept.CommandType = CommandType.Text

        drdEmployeeDept = cmdEmployeeDept.ExecuteReader()
        displayNext()
    End Sub

    Private Sub btnNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNext.Click
        displayNext()
    End Sub

    Private Sub displayNext()
        With drdEmployeeDept
            If .Read() Then
                txtFirstName.Text = .GetString(1)
                txtLastName.Text = .GetString(2)
                txtDeptName.Text = .GetString(3)
                txtSalary.Text = .GetSqlMoney(4).ToString()
            Else
                txtFirstName.Text = ""
                txtLastName.Text = ""
                txtDeptName.Text = ""
                txtSalary.Text = ""

            End If
        End With
    End Sub

    Private Sub frmMain_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
        drdEmployeeDept.Close()
        conNovelty.Close()
    End Sub
End Class