修改职工信息.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
        DropDownList1.Visible = False
        TextBox4.Visible = False
        DropDownList5.Visible = False
        DropDownList2.Visible = False
        DropDownList3.Visible = False
        TextBox6.Visible = False
        TextBox3.Visible = False
        TextBox7.Visible = False
        TextBox2.Visible = False
        Button1.Visible = False
        Button2.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 Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Trim(TextBox1.Text) = "" Or Trim(TextBox2.Text) = "" Or Trim(TextBox3.Text) = "" Or Trim(TextBox4.Text) = "" Or Trim(DropDownList5.Text) = "" Then
            MsgBox("请输入完整！")
            '  Response.Redirect("插入职工信息.aspx")
        Else
            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()
            Dim sqldelete As String
            sqldelete = "delete from empinfo where empno='" + temp + "'"
            Dim comm1 = New SqlCommand(sqldelete, dCon)
            comm1.ExecuteScalar()
            Dim name As String = Me.TextBox1.Text.ToString()
            Dim sex As String = Me.DropDownList1.Text.ToString()
            Dim race As String = Me.TextBox4.Text.ToString()
            Dim year As String = Me.DropDownList5.Text.ToString()
            Dim month As String = Me.DropDownList2.Text.ToString()
            Dim day As String = Me.DropDownList3.Text.ToString()
            Dim native As String = Me.TextBox6.Text.ToString()
            Dim sno As String = Me.TextBox3.Text.ToString()
            Dim post As String = Me.TextBox7.Text.ToString()
            Dim remark As String = Me.TextBox2.Text.ToString()
            Dim depart As String = Me.TextBox5.Text.ToString()
            Dim sql As String
            sql = "insert into empinfo values('" + name + "','" + sex + "','" + race + "','" + year + "','" + month + "','" + day + "','" + native + "','" + sno + "','" + post + "','" + depart + "''" + remark + "')"
            Dim comm = New SqlCommand(sql, dCon)
            comm.ExecuteScalar()
            MsgBox("修改成功！")
            Response.Redirect("修改职工信息.aspx")
        End If

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

        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)
            DropDownList1.DataTextField = mydatareader.GetString(1)
            TextBox4.Text = mydatareader.GetString(2)
            DropDownList5.DataTextField = mydatareader.GetString(3)
            DropDownList2.DataTextField = mydatareader.GetString(4)
            DropDownList3.DataTextField = mydatareader.GetString(5)
            TextBox6.Text = mydatareader.GetString(6)
            TextBox3.Text = mydatareader.GetString(7)
            TextBox7.Text = mydatareader.GetString(8)
            TextBox5.Text = mydatareader.GetString(9)
            TextBox2.Text = mydatareader.GetString(10)
            mydatareader.Close()
           
        Else
            MsgBox("无记录！")
            Response.Redirect("修改职工信息.aspx")
        End If
        Label12.Visible = False
        TextBox8.Visible = False
        Button3.Visible = False
        Button4.Visible = False
        TextBox1.Visible = True
        DropDownList1.Visible = True
        TextBox4.Visible = True
        DropDownList5.Visible = True
        DropDownList2.Visible = True
        DropDownList3.Visible = True
        TextBox6.Visible = True
        TextBox3.Visible = True
        TextBox7.Visible = True
        TextBox2.Visible = True
        Button1.Visible = True
        Button2.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 Sub

    Protected Sub Button4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button4.Click
        Response.Redirect("管理员进入.aspx")
    End Sub

    
    Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
        Response.Redirect("管理员进入.aspx")
    End Sub
End Class