Payroll processing System

Employee Entry

Account Detail

Salary Calculation

Coding:

Imports System.Data.SqlClient
Public Class Form1
    Dim con As New SqlConnection
    Dim cmd As New SqlCommand
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        ComboBox1.Visible = True
        con = New SqlConnection("Data source=COMPUTER10;Initial Catalog=payroll;Integrated Security=TRUE")
        Label13.Visible = False
        Try
            Dim cmd1 As New SqlCommand
            Dim ad1 As New SqlDataAdapter
            Dim d1 As New DataSet
            cmd1 = New SqlCommand("select eid from employee", con)
            ad1 = New SqlDataAdapter(cmd1)
            d1 = New DataSet
            ad1.Fill(d1)
            Dim i As Integer
            For i = 0 To d1.Tables(0).Rows.Count - 1
                ComboBox1.Items.Add(d1.Tables(0).Rows(i).Item(0))
            Next

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ComboBox1.Visible = False
        TextBox1.Text = " "
        TextBox2.Text = " "
        TextBox3.Text = " "
        TextBox4.Text = " "
        TextBox5.Text = " "
        TextBox7.Text = " "
        TextBox8.Text = " "
        TextBox9.Text = " "
        TextBox10.Text = " "
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        con.Open()
        cmd = New SqlCommand("delete from employee where eid='" & ComboBox1.SelectedItem & "'", con)
        cmd.ExecuteNonQuery()
        con.Close()
        Label13.Visible = True
        Label13.Text = "Record Deleted"
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        con.Open()
        cmd = New SqlCommand("insert into employee values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox7.Text & "','" & TextBox8.Text & "','" & TextBox9.Text & "','" & TextBox10.Text & "','" & TextBox11.Text & "')", con)
        cmd.ExecuteNonQuery()
        con.Close()
        Label13.Visible = True
        Label13.Text = "Record Inserted"

    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        Try
            con.Open()
            Dim cmd2 As New SqlCommand
            Dim ad2 As New SqlDataAdapter
            Dim ds As New DataSet
            cmd2 = New SqlCommand("select * from employee where eid='" & ComboBox1.SelectedItem & "'", con)
            ad2 = New SqlDataAdapter(cmd2)
            ad2.Fill(ds)
            If ds.Tables(0).Rows.Count > 0 Then
                TextBox1.Text = ds.Tables(0).Rows(0).Item(0)
                TextBox2.Text = ds.Tables(0).Rows(0).Item(1)
                TextBox3.Text = ds.Tables(0).Rows(0).Item(2)
                TextBox4.Text = ds.Tables(0).Rows(0).Item(3)
                TextBox5.Text = ds.Tables(0).Rows(0).Item(4)
                 TextBox7.Text = ds.Tables(0).Rows(0).Item(5)
                TextBox8.Text = ds.Tables(0).Rows(0).Item(6)
                TextBox9.Text = ds.Tables(0).Rows(0).Item(7)
                TextBox10.Text = ds.Tables(0).Rows(0).Item(8)
                TextBox11.Text = ds.Tables(0).Rows(0).Item(9)
            End If
            con.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

        Form3.Show()
    End Sub
End Class

Imports System.Data.SqlClient
Public Class Form3
    Dim con As New SqlConnection
    Dim cmd As New SqlCommand
    Dim cmd1 As New SqlCommand
    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Label7.Visible = False
        con = New SqlConnection("Data source=COMPUTER10;Initial Catalog=payroll;Integrated Security=TRUE")

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Form2.Show()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Label7.Visible = True
        con.Open()
        cmd = New SqlCommand("insert into account values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & TextBox7.Text & "','" & TextBox8.Text & "')", con)
        cmd.ExecuteNonQuery()
        con.Close()
        Label7.Text = "Record Added"
    End Sub
End Class

Imports System.Data.SqlClient
Public Class Form2
    Dim con As New SqlConnection
    Dim cmd As New SqlCommand
    Dim ad As New SqlDataAdapter
    Dim ds As New DataSet
    Dim cmd1 As New SqlCommand
    Dim ad1 As New SqlDataAdapter
    Dim ds1 As New DataSet
    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        con = New SqlConnection("Data source=COMPUTER10;Initial Catalog=payroll;Integrated Security=TRUE")
        con.Open()
        cmd = New SqlCommand("select eid from account", con)
        ad = New SqlDataAdapter(cmd)
        ad.Fill(ds)
        Dim i As Integer
        For i = 0 To ds.Tables(0).Rows.Count - 1
            ComboBox1.Items.Add(ds.Tables(0).Rows(i).Item(0))
        Next
        con.Close()
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        con.Open()
        cmd1 = New SqlCommand("select * from account where eid='" & ComboBox1.SelectedItem & "'", con)
        ad1 = New SqlDataAdapter(cmd1)
        ad1.Fill(ds1)
        If ds1.Tables(0).Rows.Count > 0 Then
            TextBox2.Text = ds1.Tables(0).Rows(0).Item(1)
            TextBox6.Text = ds1.Tables(0).Rows(0).Item(2)
            TextBox7.Text = ds1.Tables(0).Rows(0).Item(3)
            TextBox8.Text = ds1.Tables(0).Rows(0).Item(4)
            TextBox9.Text = ds1.Tables(0).Rows(0).Item(5)
            TextBox10.Text = ds1.Tables(0).Rows(0).Item(6)
            TextBox11.Text = ds1.Tables(0).Rows(0).Item(7)
        End If
        con.Close()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox12.Text = Val(TextBox3.Text) - (Val(TextBox4.Text) + Val(TextBox5.Text) + Val(TextBox11.Text))

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim a As Integer
        a = Val(TextBox12.Text) * 400 + Val(TextBox7.Text) + Val(TextBox8.Text)
        TextBox13.Text = a - (Val(TextBox9.Text) + Val(TextBox10.Text))
    End Sub
End Class

DATABASE:

create database payroll use payroll

create table employee(name varchar(20),fname varchar(20),addr varchar(20),city varchar(20),pin int,dob varchar(20),age int,doj varchar(20),design varchar(20),eid varchar(20))