管理基本信息.aspx.vb

人事管理系统

Imports helloxinxi
Imports System
Imports System.Data
Imports System.Data.OleDb
Imports lianjie1
Partial Class 管理基本信息
    Inherits System.Web.UI.Page


    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim ygh As String = Me.DropDownList1.SelectedValue
        Dim ms As basei = New basei()
        Me.GridView1.DataSource = ms.getmsg(ygh)
        Me.GridView1.DataBind()
        Me.GridView1.Visible = True
        Me.GridView2.Visible = True


    End Sub

    Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim yno As String = Me.TextBox1.Text
        Dim ms1 As New basei()
        Dim nm As String = Trim(Me.TextBox2.Text)
        Dim sex As String = Trim(Me.TextBox8.Text)
        Dim hy As String = Trim(Me.TextBox9.Text)
        Dim jk As String = Trim(Me.TextBox3.Text)
        Dim zz As String = Trim(Me.TextBox4.Text)
        Dim sj As String = Trim(Me.TextBox5.Text)

        Dim jz As String = Trim(Me.TextBox6.Text)
        Dim dh As String = Trim(Me.TextBox7.Text)

        Dim cn As lianjie = New lianjie()
        Dim filepath As String = cn.lianjie
        Dim cnn As OleDbConnection = New OleDbConnection(filepath)
        cnn.Open()

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


        Dim reader As OleDbDataReader = cmd.ExecuteReader
        If reader.Read = True Then
            Me.Label2.Visible = True
            Me.Label2.Text = "不能输入重复值"
            Me.TextBox1.Focus()
        Else

            If ms1.insert(yno, nm, sex, hy, jk, zz, sj, jz, dh) = True Then
                Me.Label1.Text = "插入成功！"

                Me.GridView2.DataBind()
                Me.GridView2.Visible = True
                Me.Label2.Visible = False
                Me.GridView1.Visible = False
                Me.DropDownList1.DataBind()
                Me.DropDownList2.DataBind()
                Me.DropDownList3.DataBind()
            Else
                Me.Label1.Text = "插入不成功！"
            End If
            cnn.Close()
        End If



    End Sub

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Me.TextBox5.Text = Now()
        Me.GridView2.Visible = True
        Me.Label2.Visible = False
        Me.Label1.Visible = False
    End Sub

    Protected Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.GridView1.Visible = False
        Dim ms2 As New basei()
        Dim a As Boolean = ms2.delete(Me.DropDownList3.SelectedValue)
        If a = True Then
            Me.Label1.Visible = True
            Me.Label1.Text = "删除成功！"
            Me.GridView2.Visible = True
            Me.Label2.Visible = False
            Me.GridView2.DataBind()
            Me.DropDownList1.DataBind()
            Me.DropDownList2.DataBind()
            Me.DropDownList3.DataBind()
        Else
            Me.Label1.Visible = True
            Me.Label1.Text = "删除失败！"
            Me.Label2.Visible = False
        End If


    End Sub



    Protected Sub Button4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button4.Click

        Dim ms1 As New basei()

        Dim yn As String = Trim(Me.TextBox1.Text)
        Dim nm As String = Trim(Me.TextBox2.Text)
        Dim sex As String = Trim(Me.TextBox8.Text)
        Dim hy As String = Trim(Me.TextBox9.Text)
        Dim jk As String = Trim(Me.TextBox3.Text)
        Dim zz As String = Trim(Me.TextBox4.Text)
        Dim sj As String = Trim(Me.TextBox5.Text)

        Dim jz As String = Trim(Me.TextBox6.Text)
        Dim dh As String = Trim(Me.TextBox7.Text)
       
        If ms1.update(yn, nm, sex, hy, jk, zz, sj, jz, dh) = True Then
            Me.Label1.Text = "更新成功！"
            Me.GridView2.DataBind()
            Me.GridView2.Visible = True
        Else
            Me.Label1.Text = "更新不成功！"
        End If



    End Sub

    Protected Sub DropDownList2_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DropDownList2.SelectedIndexChanged
        Dim yno As String = Me.DropDownList2.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.TextBox8.Text = reader(2).ToString
            Me.TextBox9.Text = reader(3).ToString
            Me.TextBox3.Text = reader(4).ToString
            Me.TextBox4.Text = reader(5).ToString
            Me.TextBox5.Text = reader(6).ToString
            Me.TextBox6.Text = reader(7).ToString
            Me.TextBox7.Text = reader(8).ToString
        End If
    End Sub

    Protected Sub DropDownList3_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DropDownList3.SelectedIndexChanged
        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.TextBox8.Text = reader(2).ToString
            Me.TextBox9.Text = reader(3).ToString
            Me.TextBox3.Text = reader(4).ToString
            Me.TextBox4.Text = reader(5).ToString
            Me.TextBox5.Text = reader(6).ToString
            Me.TextBox6.Text = reader(7).ToString
            Me.TextBox7.Text = reader(8).ToString
        End If
    End Sub

    Protected Sub Button5_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button5.Click
        Me.TextBox1.Text = ""
        Me.TextBox2.Text = ""
        Me.TextBox8.Text = ""
        Me.TextBox9.Text = ""
        Me.TextBox3.Text = ""
        Me.TextBox4.Text = ""
        Me.TextBox5.Text = ""
        Me.TextBox6.Text = ""
        Me.TextBox7.Text = ""
    End Sub
End Class