领导查询职工信息.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
        TextBox1.Visible = False
        TextBox9.Visible = False
        TextBox4.Visible = False
        TextBox5.Visible = False
        TextBox10.Visible = False
        TextBox11.Visible = False
        TextBox6.Visible = False
        TextBox3.Visible = False
        TextBox7.Visible = False
        TextBox2.Visible = False
        Button1.Visible = False

        Label1.Visible = False
        Label2.Visible = False
        Label3.Visible = False
        Label4.Visible = False
        Label5.Visible = False
        Label6.Visible = False
        Label7.Visible = False
        Label8.Visible = False
        Label9.Visible = False
        Label10.Visible = False
        Label11.Visible = False
    End Sub

    
    Protected Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim temp As String = Me.TextBox8.Text.ToString()
        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()
        If Asc(temp) < 48 Or Asc(temp) > 57 Then
            MsgBox("编号错误！")
        Else

            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()

            Else
                MsgBox("无记录！")
                Response.Redirect("管理员进入.aspx")
            End If
            Label12.Visible = False
            TextBox8.Visible = False
            Button3.Visible = False
            Button4.Visible = False
            TextBox1.Visible = True
            TextBox9.Visible = True
            TextBox4.Visible = True
            TextBox5.Visible = True
            TextBox10.Visible = True
            TextBox11.Visible = True
            TextBox6.Visible = True
            TextBox3.Visible = True
            TextBox7.Visible = True
            TextBox2.Visible = True
            Button1.Visible = True

            Label1.Visible = True
            Label2.Visible = True
            Label3.Visible = True
            Label4.Visible = True
            Label5.Visible = True
            Label6.Visible = True
            Label7.Visible = True
            Label8.Visible = True
            Label9.Visible = True
            Label10.Visible = True
            Label11.Visible = True
        End If
    End Sub

    Protected Sub Button4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button4.Click
        Response.Redirect("管理员进入.aspx")
    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