01.Imports Microsoft.VisualBasic
02.Imports System
03.Imports System.Data
04.Imports System.Data.SqlClient
05.Imports System.Web.Configuration
06.Imports System.Web.UI.WebControls
07.
08.Partial Public Class HR_1
09. Inherits System.Web.UI.Page
10. Dim conn As SqlConnection
11. Dim cmd As SqlCommand
12. Dim strConn As String
13. Dim strSql As String
14.
15. Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
16. Dim strTest1 As String = Request.QueryString("abc")
17. Response.Write(strTest1)
18.
19. strConn = WebConfigurationManager.ConnectionStrings("connects").ConnectionString
20. conn = New SqlConnection(strConn)
21. conn.Open()
22.
23. btnDelete.Attributes.Add("onClick", "javascript:return confirm('Are you sure you want to delete to delete these rows?')")
24. If Not Page.IsPostBack() Then
25. DataBind()
26. End If
27.
28. Dim strSql As String
29. strSql = "SELECT employee.employee_id, employee.username, employee.password, employee.first_name, employee.last_name, employee.email, department.depertment_name, roces_role.access_level_name, employee_authentication.authentication_name, employee_head.employee_head_name, center.center_name_middle FROM employee INNER JOIN employee_authentication ON employee.authentication_id = employee_authentication.authentication_id INNER JOIN employee_head ON employee.employee_head_id = employee_head.employee_head_id INNER JOIN roces_role ON employee.access_level_id = roces_role.access_level_id INNER JOIN department ON employee.department_id = department.department_id INNER JOIN center ON department.center_id = center.center_id"
30. Dim da As New SqlDataAdapter(strSql, conn)
31. Dim ds As New DataSet
32. da.Fill(ds, "employee")
33.
34. gvEmployee.DataSource = ds.Tables("employee")
35. gvEmployee.DataBind()
36.
37. End Sub
38.
39. Protected Sub btnDelete_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnDelete.Click
40. Dim chkbox As CheckBox = New CheckBox
41.
42. For Each grdRow As GridViewRow In gvEmployee.Rows
43. chkbox = CType(grdRow.FindControl("chkItem"), CheckBox)
44. If chkbox.Checked Then
45. Dim employee_id As String = gvEmployee.DataKeys(grdRow.RowIndex).Value.ToString
46. Dim department_name As String = gvEmployee.DataKeys(grdRow.RowIndex).Value.ToString
47. Dim center_name As String = gvEmployee.DataKeys(grdRow.RowIndex).Value.ToString
48. Dim authentication_name As String = gvEmployee.DataKeys(grdRow.RowIndex).Value.ToString
49. Dim employee_head_name As String = gvEmployee.DataKeys(grdRow.RowIndex).Value.ToString
50. Dim access_level_name As String = gvEmployee.DataKeys(grdRow.RowIndex).Value.ToString
51. SDSEmployee.DeleteParameters("employee_id").DefaultValue = employee_id
52. SDSEmployee.DeleteParameters("department_name").DefaultValue = department_name
53. SDSEmployee.DeleteParameters("center_name").DefaultValue = center_name
54. SDSEmployee.DeleteParameters("authentication_name").DefaultValue = authentication_name
55. SDSEmployee.DeleteParameters("employee_head_name").DefaultValue = employee_head_name
56. SDSEmployee.DeleteParameters("access_level_name").DefaultValue = access_level_name
57. SDSEmployee.Delete()
58. End If
59. Next
60. gvEmployee.DataBind()
61. End Sub
62.
63.End Class
