管理考勤信息.aspx.vb

人事管理系统

Imports kx
Imports System
Imports System.Data
Imports System.Data.OleDb
Partial Class 考勤信息
    Inherits System.Web.UI.Page

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.GridView1.Visible = False

        Dim kq As New msk()
        Dim yno As Integer = Trim(Me.TextBox1.Text)
        Dim nm As String = Trim(Me.TextBox2.Text)
        Dim rq As Integer = Trim(Me.TextBox3.Text)
        Dim bt As Integer = Trim(Me.TextBox4.Text)
        Dim gt As Integer = Trim(Me.TextBox5.Text)
        Dim yt As Integer = Trim(Me.TextBox6.Text)
        Dim qj As Integer = Trim(Me.TextBox7.Text)
        Dim jj As String = Trim(Me.TextBox8.Text)
        Dim qt As String = Trim(Me.TextBox9.Text)

        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 reader As OleDbDataReader = cmd.ExecuteReader
        If reader.Read = True Then
            Me.Label2.Visible = True
            Me.Label2.Text = "不能输入重复值"
            Me.TextBox1.Focus()
        Else
            If kq.inser(yno, nm, rq, bt, gt, yt, qj, jj, qt) = True Then
                Me.Label1.Text = "考勤登记成功！"
                Me.Label1.Visible = True
                Me.GridView1.DataBind()
                Me.GridView1.Visible = True
                Me.DropDownList1.DataBind()
                Me.DropDownList2.DataBind()
                Me.DropDownList3.DataBind()
            Else
                Me.Label1.Text = "登记失败！"

            End If
        End If
        cnn.Close()

    End Sub

    Protected Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim a As New msk()
        Me.GridView2.DataSource = a.getmsg(Me.DropDownList1.SelectedValue)
        Me.GridView2.DataBind()
        Me.GridView1.Visible = False
        Me.Label1.Visible = False
        Me.Label2.Visible = False

    End Sub

    Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click

        Dim ff As New msk()
        Dim yno As Integer = Trim(Me.TextBox1.Text)
        Dim nm As String = Trim(Me.TextBox2.Text)
        Dim rq As Integer = Trim(Me.TextBox3.Text)
        Dim bt As Integer = Trim(Me.TextBox4.Text)
        Dim gt As Integer = Trim(Me.TextBox5.Text)
        Dim yt As Integer = Trim(Me.TextBox6.Text)
        Dim qj As Integer = Trim(Me.TextBox7.Text)
        Dim jj As String = Trim(Me.TextBox8.Text)
        Dim qt As String = Trim(Me.TextBox9.Text)

        If ff.update(yno, nm, rq, bt, gt, yt, qj, jj, qt) = True Then
            Me.Label1.Text = "考勤更新成功！"
            Me.Label1.Visible = True
            Me.GridView1.DataBind()
            Me.GridView1.Visible = True
            Me.DropDownList2.DataBind()
            Me.DropDownList1.DataBind()
            Me.DropDownList3.DataBind()
        Else
            Me.Label1.Visible = True
            Me.Label1.Text = "更新失败！"
        End If
      End Sub

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

  
   

    Protected Sub Button6_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button6.Click
        Me.GridView1.Visible = False
        Me.Label2.Visible = False
        Dim ma As New msk()
        Dim a As Boolean = ma.delete(Me.DropDownList3.SelectedValue)
        If a = True Then

            Me.Label1.Text = "删除成功！"
            Me.GridView1.DataBind()
            Me.GridView1.Visible = True
            Me.GridView2.Visible = False
            Me.Label2.Visible = False
            Me.DropDownList1.DataBind()
            Me.DropDownList2.DataBind()
            Me.DropDownList3.DataBind()
            Me.Label1.Visible = True
        Else
            Me.Label1.Visible = True
            Me.Label1.Text = "删除失败！"
            Me.Label2.Visible = False

        End If


    End Sub

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

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

    Protected Sub DropDownList3_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DropDownList3.SelectedIndexChanged
        Dim yno As Integer = 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
            Me.TextBox6.Text = reader(5).ToString
            Me.TextBox7.Text = reader(6).ToString
            Me.TextBox8.Text = reader(7).ToString
            Me.TextBox9.Text = reader(8).ToString
        End If
    End Sub
End Class