查询职工信息.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
        TextBox12.Visible = False
        Label13.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 Trim(TextBox8.Text) = "" Then
            MsgBox("编号不能为空！")
        Else
            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)
                    TextBox12.Text = mydatareader.GetString(9)
                    TextBox2.Text = mydatareader.GetString(10)

                    TextBox3.Enabled = False
                    mydatareader.Close()

                Else
                    MsgBox("无记录！")
                    If Session("loginmode") = "管理员" Then
                        Response.Redirect("管理员进入.aspx")
                    ElseIf Session("loginmode") = "领导" Then
                        Response.Redirect("领导进入.aspx")
                    Else
                        Response.Redirect("职工进入.aspx")
                    End If
                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
                TextBox12.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
                Label13.Visible = True
            End If
        End If
    End Sub

    Protected Sub Button4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim temp As String = Session("loginmode")
        If temp = "管理员" Then
            Response.Redirect("管理员进入.aspx")
        ElseIf temp = "领导" Then
            Response.Redirect("领导进入.aspx")
        Else
            Response.Redirect("职工进入.aspx")
        End If
    End Sub


    
    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim temp As String = Session("loginmode")
        If temp = "管理员" Then
            Response.Redirect("管理员进入.aspx")
        ElseIf temp = "领导" Then
            Response.Redirect("领导进入.aspx")
        Else
            Response.Redirect("职工进入.aspx")
        End If
    End Sub

    Protected Sub TextBox2_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged

    End Sub
End Class