职工个人信息.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 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 sql1 As String
        sql1 = "select * from empinfo 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)
            TextBox9.Text = mydatareader.GetString(1)
            TextBox4.Text = mydatareader.GetString(2)
            TextBox5.Text = mydatareader.GetString(3)
            TextBox10.Text = mydatareader.GetString(4)
            TextBox11.Text = mydatareader.GetString(5)
            TextBox6.Text = mydatareader.GetString(6)
            TextBox3.Text = mydatareader.GetString(7)
            TextBox7.Text = mydatareader.GetString(8)
            TextBox2.Text = mydatareader.GetString(9)
            mydatareader.Close()
        End If
    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