管理学历信息.aspx.vb

人事管理系统

Imports xuelixinxi
Imports System.Data
Imports System.Data.OleDb
Partial Class 管理学历信息
    Inherits System.Web.UI.Page

    Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim ms As New xueli()
        Me.GridView1.DataSource = ms.selected(Me.DropDownList1.SelectedValue)
        Me.GridView1.DataBind()
        Me.Label1.Visible = False
        Me.Label2.Visible = False
        Me.GridView2.Visible = False
        Me.GridView1.Visible = True
    End Sub

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Me.GridView2.DataBind()

        Me.Label1.Visible = False
        Me.Label2.Visible = False
        Me.GridView2.Visible = True
        Me.GridView1.Visible = False

    End Sub

    Protected Sub Button4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button4.Click
        Me.Label2.Visible = False
        Dim deletems As New xueli()
        Dim a As Boolean = deletems.deleted(Me.DropDownList4.SelectedValue)
        If a = True Then
            Me.Label1.Visible = True
            Me.Label1.Text = " 删除成功！"
            Me.GridView1.Visible = False
            Me.Label2.Visible = False
            Me.DropDownList1.DataBind()
            Me.DropDownList3.DataBind()
            Me.DropDownList4.DataBind()
            Me.GridView2.Visible = True
            Me.GridView2.DataBind()


        Else
            Me.Label1.Text = "删除失败！"

        End If
       End Sub

    Protected Sub Button5_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button5.Click



        Dim yno As String = Trim(Me.TextBox1.Text)
        Dim xl As String = Trim(Me.TextBox2.Text)
        Dim zy As String = Trim(Me.TextBox3.Text)
        Dim sj As String = Trim(Me.TextBox4.Text)
        Dim bx As String = Trim(Me.TextBox5.Text)
        Dim yz As String = Me.DropDownList2.SelectedValue
        Dim filepath As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & HttpContext.Current.Server.MapPath("~/App_Data/db1.mdb")
        Dim cnn As OleDbConnection = New OleDbConnection(filepath)
        cnn.Open()

        Dim cmd As OleDbCommand = New OleDbCommand("select * from 员工学历信息表 where 员工号='" & yno & "'", cnn)

        Dim ms1 As New xueli()
        Dim reader As OleDbDataReader = cmd.ExecuteReader
        If reader.Read = True Then

            Me.Label2.Visible = True
            Me.Label2.Text = "不能输入重复值"
            Me.TextBox1.Text = ""
            Me.TextBox2.Text = ""
            Me.TextBox3.Text = ""
            Me.TextBox4.Text = ""
            Me.TextBox5.Text = ""
            Me.TextBox1.Focus()
        Else
            If ms1.inserted(yno, xl, zy, sj, bx, yz) = True Then
                Me.Label1.Visible = True
                Me.Label1.Text = "插入成功！"
                Me.GridView2.Visible = True
                Me.GridView1.Visible = False
                Me.Label2.Visible = False
                Me.GridView2.DataBind()
                Me.DropDownList1.DataBind()
                Me.DropDownList3.DataBind()
                Me.DropDownList4.DataBind()
            Else
                Me.Label1.Text = "插入失败！"

            End If
            cnn.Close()
        End If
    End Sub
    Protected Sub DropDownList3_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DropDownList3.SelectedIndexChanged
       Me.GridView2.Visible = True
        Me.Label2.Visible = True
        Me.Label1.Visible = True

        Dim yno As String = Me.DropDownList3.SelectedValue
        Dim cn As OleDbConnection = New OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=" & Server.MapPath("~\app_data\db1.mdb") & ";persist security info=false")
        cn.Open()
        Dim cmd As OleDbCommand = New OleDbCommand("select * from 员工学历信息表 where 员工号='" & yno & "'", cn)
        Dim reader As OleDbDataReader = cmd.ExecuteReader()
        If reader.Read Then
            Me.TextBox1.Text = reader(0).ToString
            Me.TextBox2.Text = reader(1).ToString
            Me.TextBox3.Text = reader(2).ToString
            Me.TextBox4.Text = reader(3).ToString
            Me.TextBox5.Text = reader(4).ToString

        End If
    End Sub

    Protected Sub Button6_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button6.Click
        Me.GridView1.Visible = False
        Dim yno As String = Trim(Me.TextBox1.Text)
        Dim xl As String = Trim(Me.TextBox2.Text)
        Dim zy As String = Trim(Me.TextBox3.Text)
        Dim sj As String = Trim(Me.TextBox4.Text)
        Dim bx As String = Trim(Me.TextBox5.Text)
        Dim yz As String = Me.DropDownList2.SelectedValue
        Dim ms1 As New xueli()
        If ms1.update(yno, xl, zy, sj, bx, yz) = True Then
            Me.GridView2.Visible = True
            Me.Label1.Visible = True
            Me.Label1.Text = "更新成功！"
            Me.GridView2.DataBind()
            Me.DropDownList1.DataBind()
            Me.DropDownList3.DataBind()
            Me.DropDownList4.DataBind()
        Else
            Me.Label1.Text = "更新失败！"


        End If

    End Sub

    Protected Sub DropDownList4_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DropDownList4.SelectedIndexChanged
        Me.GridView2.Visible = True
        Me.Label2.Visible = True
        Me.Label1.Visible = True
        Dim yno As String = Me.DropDownList4.SelectedValue
        Dim cn As OleDbConnection = New OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=" & Server.MapPath("~\app_data\db1.mdb") & ";persist security info=false")
        cn.Open()
        Dim cmd As OleDbCommand = New OleDbCommand("select * from 员工学历信息表 where 员工号='" & yno & "'", cn)
        Dim reader As OleDbDataReader = cmd.ExecuteReader()
        If reader.Read Then
            Me.TextBox1.Text = reader(0).ToString
            Me.TextBox2.Text = reader(1).ToString
            Me.TextBox3.Text = reader(2).ToString
            Me.TextBox4.Text = reader(3).ToString
            Me.TextBox5.Text = reader(4).ToString

        End If
    End Sub
End Class