Scribd
Upload
44 views

Public Class Form1

This document contains code for an employee salary management system. It defines forms and buttons to perform the following: - Load employee data from an access database into a dataset on form load. - Show employee details from the current dataset record. - Add a new employee record to the database and refresh the dataset. - Edit an existing employee record in the database and refresh the dataset. - Provide buttons to navigate between records in the dataset.

Uploaded by

rasalingam-sayanthan-292
Copyright
© Attribution Non-Commercial (BY-NC)
Available Formats
Download as DOC, PDF, TXT or read online on Scribd
44 views

Public Class Form1

This document contains code for an employee salary management system. It defines forms and buttons to perform the following: - Load employee data from an access database into a dataset on form load. - Show employee details from the current dataset record. - Add a new employee record to the database and refresh the dataset. - Edit an existing employee record in the database and refresh the dataset. - Provide buttons to navigate between records in the dataset.

Uploaded by

rasalingam-sayanthan-292
Copyright
© Attribution Non-Commercial (BY-NC)
Available Formats
Download as DOC, PDF, TXT or read online on Scribd
You are on page 1/ 4

Public Class Form1

Private con As New OleDb.OleDbConnection


Private dset As New DataSet
Private da As OleDb.OleDbDataAdapter
Private sql As String
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
con.ConnectionString = "provider=microsoft.jet.oledb.4.0; data
source=emp.mdb"
con.Open()
sql = "select*from rate"
da = New OleDb.OleDbDataAdapter(sql, con)
da.Fill(dset, "rate")
con.Close()
Call showrecords()
End Sub
Private Sub showrecords()
With dset.Tables("rate").Rows(Me.BindingContext(dset,
"rate").Position)
Me.txtempno.Text = .Item(0)
Me.txtname.Text = .Item(1)
Me.txtbasicsalary.Text = .Item(2)
Me.txtallowance.Text = .Item(3)
Me.txtdeduction.Text = .Item(4)
Me.txtgrosssalary.Text = .Item(5)
Me.txtnetsalary.Text = .Item(6)
Me.txtcommision.Text = .Item(7)
Me.txtbonus.Text = .Item(8)
Me.txtrate.Text = .Item(9)
End With
End Sub

Private Sub btnadd_Click(ByVal sender As System.Object, ByVal e As


System.EventArgs) Handles btnadd.Click
If Me.btnadd.Text = "Add" Then
Call clear()
Me.btnadd.Text = "Save"
Else
Call calculation()
Dim cmdadd As New OleDb.OleDbCommand
Dim addsql As String
con.Open()
addsql = "insert into rate values('" & Me.txtempno.Text & "','"
& Me.txtname.Text & "','" & Me.txtbasicsalary.Text & "','" &
Me.txtallowance.Text & "','" & Me.txtdeduction.Text & "','" &
Me.txtgrosssalary.Text & "','" & Me.txtnetsalary.Text & "','" &
Me.txtcommision.Text & "','" & Me.txtbonus.Text & "','" & Me.txtrate.Text &
"')"
cmdadd = New OleDb.OleDbCommand(addsql, con)
cmdadd.ExecuteNonQuery()
MessageBox.Show("Added")
dset.Clear()
dset.Dispose()
da.Fill(dset, "rate")
Me.btnadd.Text = "add"
con.Close()

End If
End Sub
Private Sub calculation()
Dim bs As Integer
Dim all As Integer
Dim ded As Integer
Dim gs As Integer
Dim ns As Integer
Dim bon As Integer
Dim com As Integer
Dim rate As String

bs = Me.txtbasicsalary.Text
all = Me.txtallowance.Text
ded = Me.txtdeduction.Text
gs = bs + all
Me.txtgrosssalary.Text = gs
ns = gs - ded
Me.txtnetsalary.Text = ns

If ns >= 50000 Then


bon = 5000
ElseIf ns >= 40000 Then
bon = 4000
ElseIf ns >= 30000 Then
bon = 3000
Else
bon = 0
End If
Me.txtbonus.Text = bon

If bon >= 5000 Then


com = ns * 20 / 100
ElseIf bon >= 4000 Then
com = ns * 15 / 100
ElseIf bon >= 3000 Then
com = ns * 10 / 100
Else
com = 0
End If
Me.txtcommision.Text = com

If com >= 4000 Then


rate = "Very Good"
ElseIf com >= 3000 Then
rate = "good"
Else
rate = "Average"
End If
Me.txtrate.Text = rate
End Sub

Private Sub btncancel_Click(ByVal sender As System.Object, ByVal e As


System.EventArgs) Handles btncancel.Click
Call clear()

End Sub
Private Sub clear()
Me.txtempno.Text = ""
Me.txtname.Text = ""
Me.txtbasicsalary.Text = ""
Me.txtallowance.Text = ""
Me.txtdeduction.Text = ""
Me.txtgrosssalary.Text = ""
Me.txtnetsalary.Text = ""
Me.txtbonus.Text = "'"
Me.txtcommision.Text = ""
Me.txtrate.Text = ""
End Sub

Private Sub btnnext_Click(ByVal sender As System.Object, ByVal e As


System.EventArgs) Handles btnnext.Click
Me.BindingContext(dset, "rate").Position = Me.BindingContext(dset,
"rate").Position + 1
Call showrecords()
End Sub

Private Sub btnback_Click(ByVal sender As System.Object, ByVal e As


System.EventArgs) Handles btnback.Click
Me.BindingContext(dset, "rate").Position = Me.BindingContext(dset,
"rate").Position - 1
Call showrecords()
End Sub

Private Sub btnlast_Click(ByVal sender As System.Object, ByVal e As


System.EventArgs) Handles btnlast.Click
Me.BindingContext(dset, "rate").Position = Me.BindingContext(dset,
"rate").Count - 1
Call showrecords()
End Sub

Private Sub btnfirst_Click(ByVal sender As System.Object, ByVal e As


System.EventArgs) Handles btnfirst.Click
Me.BindingContext(dset, "rate").Position = 0
Call showrecords()
End Sub

Private Sub btnexit_Click(ByVal sender As System.Object, ByVal e As


System.EventArgs) Handles btnexit.Click
End
End Sub
End Class
Private Sub btnEdit_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnEdit.Click
If Me.btnEdit.Text = "Edit" Then
Me.btnEdit.Text = "save"
Else
Call calculation()
Dim cmdEdit As New OleDb.OleDbCommand
Dim Editsql As String
con.Open()

Editsql = "update Results set it='" & Me.txtIt.Text & "',web='"


& Me.txtWeb.Text & "',programming='" & Me.txtPrg.Text & "',hardware='" &
Me.txtHw.Text & "',total='" & Me.txtTotal.Text & "',average='" &
Me.txtAverage.Text & "',grade='" & Me.txtGrade.Text & "'where studentno='"
& Me.txtStudentno.Text & "'"
cmdEdit = New OleDb.OleDbCommand(Editsql, con)
cmdEdit.ExecuteNonQuery()
MsgBox("successfully Edited")
ds.Clear()
ds.Dispose()
da.Fill(ds, "Results")
con.Close()
Me.btnEdit.Text = "Edit"

End If
End Sub

Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As


System.EventArgs) Handles btnSearch.Click
Dim skey As String
skey = InputBox("input your search number here", "search")
Dim drow As DataRow
Dim rno As Integer
For Each drow In ds.Tables("Results").Rows
If drow("no").ToString = skey Then
Me.BindingContext(ds, "Results").Position = rno
Call showrecord()
End If

rno = rno + 1
Next
MessageBox.Show("cancel")

End Sub

You might also like