职工进入.aspx.vb

来自「用VB.NET做的软件工程课程设计」· VB 代码 · 共 45 行

Imports System
Imports System.Reflection
Imports System.Runtime.InteropServices
Imports System.Data.SqlClient
Imports System.IO
Imports System.Data
Partial Class Default2
    Inherits System.Web.UI.Page

    Protected Sub LinkButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LinkButton1.Click
        Response.Redirect("修改密码.aspx")
    End Sub

    Protected Sub LinkButton2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LinkButton2.Click
        Response.Redirect("登录.aspx")
    End Sub

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim empno 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 * from empinfo where empno='" + empno + " '"
        Dim comm = New SqlCommand(sql, dCon)
        Dim mydatareader As SqlDataReader
        mydatareader = comm.ExecuteReader()
        If mydatareader.Read() Then
            Label3.Text = mydatareader.GetString(0)
        End If


    End Sub

    Protected Sub LinkButton5_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LinkButton5.Click
        Response.Redirect("职工个人信息.aspx")
    End Sub

    Protected Sub LinkButton4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LinkButton4.Click
        
        Response.Redirect("职工个人体检信息.aspx")

    End Sub
End Class