职工个人体检信息.aspx.vb

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

Imports System
Imports System.Reflection
Imports System.Runtime.InteropServices
Imports System.Data.SqlClient
Imports System.IO
Imports System.Data
Partial Class 体检信息
    Inherits System.Web.UI.Page




    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

        Response.Redirect("职工进入.aspx")
    End Sub



    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim temp As String = Session("empno")
        Dim sqlConnectString As String = "data source=localhost; database=users;Integrated Security=SSPI; user Id=sa;password='';connection TimeOut=30;"
        Dim dCon = New SqlConnection(sqlConnectString)
        dCon.Open()
        Dim sql As String
        sql = "select count(*) from empinfo,checkinfo where empinfo.empno='" + temp + "'and empinfo.empno=checkinfo.empno"
        Dim comm = New SqlCommand(sql, dCon)
        Dim count As Short
        count = CShort(comm.ExecuteScalar())
        If count > 0 Then
            Dim sql1 As String
            sql1 = "select * from checkinfo where empno='" + temp + "'"
            Dim comm2 = New SqlCommand(sql1, dCon)
            Dim mydatareader As SqlDataReader
            mydatareader = comm2.ExecuteReader()
            If mydatareader.Read() Then
                TextBox1.Text = mydatareader.GetString(0)
                TextBox2.Text = mydatareader.GetString(1)
                TextBox3.Text = mydatareader.GetString(2)
                TextBox4.Text = mydatareader.GetString(3)
                TextBox5.Text = mydatareader.GetString(4)
                TextBox6.Text = mydatareader.GetString(5)
                TextBox7.Text = mydatareader.GetString(6)
                TextBox8.Text = mydatareader.GetString(7)
                TextBox9.Text = mydatareader.GetString(8)

            End If
        Else
            MsgBox("您还没有体检记录！")
            Response.Redirect("职工进入.aspx")

        End If

    End Sub


End Class