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))
create table account(eid varchar(20),ename varchar(20),bpay int,da int,hra int,pf int,lic int,nol int) |