CODES : DB entry codes

[D] : Some other codes

Admin section codes :
'vacancies db
Partial Class Adminrse_Setvacancies
Inherits System.Web.UI.Page
Protected Sub calldoa_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles calldoa.SelectionChanged
Me.txtldoa.Text = Me.calldoa.SelectedDate

End Sub

Protected Sub caled_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles caledrd.SelectionChanged
Me.txted.Text = Me.caledrd.SelectedDate
End Sub

Protected Sub calid_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles caliddoj.SelectionChanged
Me.txtid.Text = Me.caliddoj.SelectedDate
End Sub

Protected Sub calrd_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles caledrd.SelectionChanged
Me.txtrd.Text = Me.caledrd.SelectedDate
End Sub

Protected Sub caldoj_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles caliddoj.SelectionChanged
Me.txtdoj.Text = Me.caliddoj.SelectedDate
End Sub

Protected Sub setvacancies_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles setvacancies.Click
Dim sb As New StringBuilder()
sb = sb.Append("insert into vacancies_db")
sb = sb.Append("(job_code,job_specification,no_of_vacancies,")
sb = sb.Append("eligibility,salary_perks,ldoa,")
sb = sb.Append("ed,id,rd,doj)")
sb = sb.Append("values")
sb = sb.Append("('" + Me.jobcode.Text.ToString + "','" + Me.txtjobs.Text.ToString + "','" + Me.txtnoofv.Text.ToString + "',")
sb = sb.Append("'" + Me.txtelig.Text.ToString + "','" + Me.txtsp.Text.ToString + "','" + Me.txtldoa.Text.ToString + "' ,")
sb = sb.Append("'" + Me.txted.Text.ToString + "','" + Me.txtid.Text + "','" + Me.txtrd.Text + "','" + Me.txtdoj.Text.ToString + "')")
Dim setvacancies As New hcms
If (setvacancies.makeentry(sb.ToString)) Then
Me.message.Text = "Vacancies Set Succesfully"
Else
Me.message.Text = "Vacancies Set Failed"
End If

End Sub
End Class



'salary db
Partial Class Adminrse_Setsalary
Inherits System.Web.UI.Page
Protected Sub setsalary_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles setsalary.Click
Dim sb As New StringBuilder()
sb = sb.Append("insert into salary_db")
sb = sb.Append("(designation,salary)")
sb = sb.Append("values")
sb = sb.Append("('" + Me.txtdesig.Text.ToString + " ','" + Me.txtsal.Text.ToString + "')")
Dim setsalary As New hcms
If (setsalary.makeentry(sb.ToString)) Then
Me.message.Text = "Salary Set Succesfully"
Else
Me.message.Text = "Salary Set Failed"
End If
End Sub
End Class



Partial Class Adminrse_Setovertimes
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load


End Sub

Protected Sub caldatalltd_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles caldatalltd.SelectionChanged
Me.txtdatalltd.Text = Me.caldatalltd.SelectedDate
End Sub
End Class



' bonusdb
Partial Class Adminrse_Setbonus
Inherits System.Web.UI.Page
Protected Sub setbonus_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles setbonus.Click
Dim sb As New StringBuilder()
sb = sb.Append("insert into bonus_db")
sb = sb.Append("(month_year,designation,bonus_amount,")
sb = sb.Append("overtime_per_hour)")
sb = sb.Append("values")
sb = sb.Append("('" + Me.ddnmon.SelectedItem.Text.ToString + " " + Me.txtyear.Text.ToString + "',")
sb = sb.Append("'" + Me.txtdesig.Text.ToString + "','" + Me.txtbon.Text.ToString + "','" + Me.txtoph.Text.ToString + "')")
Dim setbonus As New hcms
If (setbonus.makeentry(sb.ToString)) Then
Me.message.Text = "Bonus Set Succesfully"
Else
Me.message.Text = "Bonus Set Failed"
End If

End Sub
End Class

Here the authorised accesibility has been granted to some user so that specific data can be set up...

0 comments:

Post a Comment

Note: Only a member of this blog may post a comment.