信息.vb

人事管理系统

Imports Microsoft.VisualBasic
Imports System
Imports System.Data
Imports System.Data.OleDb
Imports System.Reflection
Imports lianjie1

Namespace salory
    Public Class salory1
        Dim cn As lianjie = New lianjie()
        Dim filepath As String = cn.lianjie
        Dim cnn As OleDbConnection = New OleDbConnection(filepath)
        Public Function salory(ByVal yno As String) As DataView
            Dim ds As DataSet = New DataSet()
            Dim cmd As OleDbDataAdapter = New OleDbDataAdapter(" select * from 员工工资信息表 where 员工号='" & yno & " '", cnn)

            cmd.Fill(ds, "员工工资信息表")
            Return ds.Tables("员工工资信息表").DefaultView
        End Function
        Public Function diary(ByVal yno As String) As DataView
            Dim ds As DataSet = New DataSet()
            Dim cmd As OleDbDataAdapter = New OleDbDataAdapter("select * from 员工考勤信息表 where 员工号='" & yno & "'", cnn)
            cmd.Fill(ds, "员工考勤信息表")
            Return ds.Tables("员工考勤信息表").DefaultView
        End Function

        Public Function insert(ByVal yno As String, ByVal yname As String, ByVal dx As String, ByVal bt As String, ByVal jj As String, ByVal jbf As String, ByVal gz As String) As Boolean
            cnn.Open()
            Dim cmd As OleDbCommand = New OleDbCommand(" insert into 员工工资信息表 values( '" & yno & "','" & yname & "','" & dx & " ',' " & bt & " ',' " & jj & " ','" & jbf & "','" & gz & "')", cnn)
            If cmd.ExecuteNonQuery = 1 Then
                cnn.Close()
                Return True
            Else
                cnn.Close()
                Return False
            End If
        End Function

        Public Function update(ByVal yno As String, ByVal yname As String, ByVal dx As String, ByVal bt As String, ByVal jj As String, ByVal jbf As String, ByVal gz As String) As Boolean
            '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("update 员工工资信息表 set 姓名='" & yname & "',底薪='" & dx & " ',补贴=' " & bt & " ', 奖金=' " & jj & " ',加班费='" & jbf & "',实发工资='" & gz & "' where 员工号='" & yno & "' ", cnn)
            If cmd.ExecuteNonQuery = 1 Then
                cnn.Close()
                Return True
            Else
                cnn.Close()
                Return False
            End If
        End Function
        Public Function delete(ByVal yno As String, ByVal yname As String, ByVal dx As String, ByVal bt As String, ByVal jj As String, ByVal jbf As String, ByVal gz As String) As Boolean
            cnn.Open()
            Dim cmd As OleDbCommand = New OleDbCommand("delete from 员工工资信息表 where 员工号='" & yno & "'", cnn)
            If cmd.ExecuteNonQuery = 1 Then
                cnn.Close()
                Return True
                cnn.Close()
                Return False
            End If
        End Function






    End Class
End Namespace