基本信息.vb

人事管理系统

Imports System
Imports System.web
Imports System.Data
Imports System.Data.oledb
Imports Microsoft.VisualBasic
Imports System.Reflection
Imports lianjie1

Namespace helloxinxi

    Public Class basei
        Dim cnn As lianjie = New lianjie()
        Dim filepath As String = cnn.lianjie()

        Public Function getmsg(ByVal yno As String) 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 insert(ByVal yno As String, ByVal nm As String, ByVal sex As String, ByVal hy As String, ByVal jk As String, ByVal zz As String, ByVal sj As String, ByVal jd As String, ByVal dh As String) As Boolean
            Dim cn As OleDbConnection = New OleDbConnection(filepath)
            cn.Open()
            Dim cmd As OleDbCommand = New OleDbCommand("insert into 员工基本信息表(员工号 ,姓名,性别,婚姻状况,健康状况,政治面貌,开始工作时间,家庭地址,电话) values('" & yno & "','" & nm & "','" & sex & "','" & hy & "','" & jk & "','" & zz & "','" & sj & "','" & jd & "','" & dh & "')", cn)
            If cmd.ExecuteNonQuery() = 1 Then
                cn.Close()

                Return True
            Else
                cn.Close()

                Return False
            End If
        End Function

        Public Function delete(ByVal yno As String) 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



        Public Function update(ByVal yno As String, ByVal nm As String, ByVal sex As String, ByVal hy As String, ByVal jk As String, ByVal zz As String, ByVal sj As String, ByVal jd As String, ByVal dh 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 员工号= '" & yno & "', 姓名= '" & nm & "', 性别= '" & sex & "',  婚姻状况= '" & hy & "', 健康状况= '" & jk & "', 政治面貌= '" & zz & "' , 开始工作时间 = cstr(now()) , 家庭地址= '" & jd & "', 电话= '" & dh & "' where 员工号='" & yno & "' ", cn)
            If cmmd.ExecuteNonQuery() = 1 Then

                cn.Close()
                Return True
            Else
                cn.Close()

                Return False
            End If


        End Function
    End Class

End Namespace