考勤信息.vb

人事管理系统

Imports Microsoft.VisualBasic
Imports System
Imports System.Data
Imports System.Data.OleDb
Imports System.Web
Namespace kx
    Public Class msk
        Private filepath As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & HttpContext.Current.Server.MapPath("~/App_Data/db1.mdb")
        Public Function inser(ByVal yno As Integer, ByVal nm As String, ByVal rq As Integer, ByVal bt As Integer, ByVal gt As Integer, ByVal yt As Integer, ByVal qj As Integer, ByVal jj As String, ByVal qt As String) As Boolean
            Dim cn As New OleDbConnection(filepath)
            cn.Open()
            Dim cmd As New OleDbCommand("insert into 员工考勤信息表(员工号,姓名,日期,本月天数,公休假天数,应出勤天数,请假,节假日加班,其它加班) values(" & yno & ",'" & nm & "'," & rq & "," & bt & "," & gt & "," & yt & "," & qj & ",'" & jj & "','" & qt & "') ", cn)
            If cmd.ExecuteNonQuery = 1 Then
                cn.Close()
                Return True
            Else
                cn.Close()
                Return False
            End If
        End Function
        Public Function gets(ByVal yno As Integer) As DataView
            Dim ds As New DataSet()
            Dim cn As New OleDbConnection(filepath)
            Dim cmmd As New OleDbDataAdapter("select 员工号 from 员工考勤信息表", cn)
            cmmd.Fill(ds, "员工考勤信息表")
            Return ds.Tables("员工考勤信息表").DefaultView
        End Function
        Public Function getmsg(ByVal yno As Integer) As DataView
            Dim ds As New DataSet()
            Dim cn As New OleDbConnection(filepath)
            Dim cmmd As New OleDbDataAdapter("select * from 员工考勤信息表 where 员工号=" & yno & "", cn)
            cmmd.Fill(ds, "员工考勤信息表")
            Return ds.Tables("员工考勤信息表").DefaultView
        End Function
        Public Function update(ByVal yno As Integer, ByVal nm As String, ByVal rq As Integer, ByVal bt As Integer, ByVal gt As Integer, ByVal yt As Integer, ByVal qj As Integer, ByVal jj As String, ByVal qt As String) As Boolean
            Dim ds As New DataSet()
            Dim cn As OleDbConnection = New OleDbConnection(filepath)
            cn.Open()
            Dim cmmd As OleDbCommand = New OleDbCommand("update 员工考勤信息表 set  姓名= '" & nm & "',日期= " & rq & ",本月天数= " & bt & ", 公休假天数= " & gt & " ,应出勤天数= " & yt & " ,请假 = " & qj & " ,节假日加班= '" & jj & "',其它加班= '" & qt & "' where 员工号=" & yno & " ", cn)
            If cmmd.ExecuteNonQuery() = 1 Then
                cn.Close()
                Return True
            Else
                cn.Close()
                Return False
            End If


        End Function
        Public Function delete(ByVal yno As Integer) As Boolean
            Dim cn As OleDbConnection = New OleDbConnection(filepath)
            cn.Open()
            Dim cmd As OleDbCommand = New OleDbCommand("delete from 员工考勤信息表 where 员工号=" & yno & "", cn)
            If cmd.ExecuteNonQuery() = 1 Then
                cn.Close()
                Return True
            Else
                cn.Close()

                Return False
            End If
        End Function
    End Class
End Namespace