查询本部门职工体检信息.aspx.vb

用VB.NET做的软件工程课程设计

Imports System.Data.SqlClient
Imports System.data
Partial Class 查询本部门职工体检信息
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim temp As String = Session("empno")
        Dim str As String = "select * from checkinfo,empinfo where empinfo.empno=checkinfo.empno and empinfo.empdepart in (select  empinfo.empdepart from empinfo  where empno='" + temp + "')"
        Dim str_con As String = "data source=localhost; database=users;Integrated Security=SSPI; user Id=sa;password='';connection TimeOut=30;"
        Dim conn As SqlConnection = New SqlConnection(str_con)
        conn.Open()
        Dim dc As SqlCommand = New SqlCommand(str, conn)
        Dim da As SqlDataAdapter = New SqlDataAdapter(dc)

        Dim ds As DataSet = New DataSet()
        da.Fill(ds, "checkinfo")
        GridView1.DataSource = ds.Tables(0).DefaultView
        GridView1.DataBind()
    End Sub

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Response.Redirect("领导进入.aspx")
    End Sub
End Class