管理员进入.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 Default2
    Inherits System.Web.UI.Page

    Protected Sub LinkButton9_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LinkButton9.Click
        Response.Redirect("登录.aspx")
        'LinkButton9.PostBackUrl = "~/登录.aspx"
    End Sub

    Protected Sub LinkButton6_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LinkButton6.Click
        Response.Redirect("插入职工信息.aspx")
        'LinkButton6.PostBackUrl = "~/职工信息.aspx"
    End Sub

    Protected Sub LinkButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LinkButton1.Click
        Response.Redirect("修改职工信息.aspx")

    End Sub

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim sno As String = Me.TextBox1.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(sno) < 48 Or Asc(sno) > 57 Then
            MsgBox("编号错误！")
        Else
            Dim sql As String
            sql = "select count(*) from checkinfo where empno='" + sno + "'"
            Dim comm = New SqlCommand(sql, dCon)
            Dim count As Short
            count = CShort(comm.ExecuteScalar())
            Dim sqldelete As String
            sqldelete = "delete from checkinfo where empno='" + sno + "'"
            Dim commdelete = New SqlCommand(sqldelete, dCon)
            If count > 0 Then
                commdelete.ExecuteScalar()
                MsgBox("删除成功！")
                Response.Redirect("管理员进入.aspx")
            Else
                MsgBox("没有此职工！")
                Label2.Visible = True
                TextBox1.Visible = True
                Button1.Visible = True

                Button2.Visible = True

                TextBox1.Text = ""
            End If
        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 LinkButton2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LinkButton2.Click
        Label2.Visible = True
        TextBox1.Visible = True
        Button1.Visible = False
        Button2.Visible = True
        Button3.Visible = True

        Dim empno As String = Me.TextBox1.Text.ToString
    End Sub

    Protected Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim sno As String = Me.TextBox1.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(sno) < 48 Or Asc(sno) > 57 Then
            MsgBox("编号错误！")
        Else
            Dim sql As String
            sql = "select count(*) from empinfo where empno='" + sno + "'"
            Dim comm = New SqlCommand(sql, dCon)
            Dim count As Short
            count = CShort(comm.ExecuteScalar())
            Dim sqldelete As String
            sqldelete = "delete from empinfo where empno='" + sno + "'"
            Dim commdelete = New SqlCommand(sqldelete, dCon)
            If count > 0 Then
                commdelete.ExecuteScalar()
                MsgBox("删除成功！")
                ' Response.Redirect("管理员进入.aspx")
            Else
                MsgBox("没有此职工！")
                Label2.Visible = True
                TextBox1.Visible = True
                Button1.Visible = True
                Button2.Visible = True
                Button3.Visible = False
                TextBox1.Text = ""

            End If
        End If
    End Sub

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


    Protected Sub LinkButton8_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LinkButton8.Click
        Response.Redirect("插入体检信息.aspx")
    End Sub

    Protected Sub LinkButton7_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LinkButton7.Click
        Label2.Visible = True
        TextBox1.Visible = True
        Button1.Visible = True
        Button2.Visible = True
        Button3.Visible = False
    End Sub

    Protected Sub LinkButton4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LinkButton4.Click
        Response.Redirect("查询体检信息.aspx")
    End Sub

    Protected Sub LinkButton3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LinkButton3.Click
        Response.Redirect("修改体检信息.aspx")
    End Sub

    Protected Sub LinkButton10_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LinkButton10.Click
        Response.Redirect("管理员修改密码.aspx")
    End Sub
End Class