clsexperience.vb

vb2005人事管理系统源码

Class ClsExperience
    '1 Id  TinyInt Id
    '2 Emp_Id  Int 员工id号
    '3 Start_Date  Varchar 10  开始日期
    '4 End_Date  Varchar 10  终止日期
    '5 School_Org  Varchar 50  学校/单位
    '6 Title Varchar 20  职务

    Public Id As Short
    Public Emp_Id As Integer
    Public Start_Date As Object
    Public End_Date As String
    Public School_Org As String
    Public Title As String

    Public Sub Init()
        Id = 0
        Emp_Id = 0

        Start_Date = ""
        End_Date = ""
        School_Org = ""
        Title = ""
    End Sub

    '删除Experience数据
    Public Sub DeleteById(ByVal TmpEmpId As Integer, ByVal TmpId As Short)
        Dim SQLString As String
        Dim MSG As String
        SQLString = "DELETE FROM Experience WHERE Id=" & Trim(Str(TmpId)) & " And Emp_Id=" & Trim(Str(TmpEmpId))
        ClsOperation.DBOperate(SQLString, MSG)
    End Sub

    '删除Experience数据
    Public Sub DeleteByEmpId(ByVal TmpEmpId As Integer)
        Dim SQLString As String
        Dim MSG As String
        SQLString = "DELETE FROM Experience WHERE Emp_Id=" & Trim(Str(TmpEmpId))
        ClsOperation.DBOperate(SQLString, MSG)
    End Sub

    Public Function GetInfo(ByVal TmpEmpId As Integer, ByVal TmpId As Integer) As Boolean
        Dim SQLString As String
        Dim MSG As String
        If TmpId <= 0 Or TmpEmpId <= 0 Then
            GetInfo = False
            Exit Function
        End If
        Id = TmpId
        Emp_Id = TmpEmpId
        SQLString = "SELECT * FROM Experience WHERE Id=" & Trim(Str(TmpId)) & " And Emp_Id=" & Trim(Str(Emp_Id))
        Dim DTable As DataTable = ClsOperation.DBOperate(SQLString, MSG)
        If DTable.Rows.Count >= 1 Then
            GetInfo = False
            Exit Function
        Else
            Start_Date = DTable.Rows(0)(3)
            End_Date = DTable.Rows(0)(4)
            School_Org = DTable.Rows(0)(5)
            Title = DTable.Rows(0)(6)
        End If
        GetInfo = True
    End Function

    Public Function GetNewId() As Integer
        Dim i As Integer
        Dim TmpId As Integer
        Dim SQLString As String
        Dim MSG As String
        SQLString = "SELECT Id FROM Experience ORDER BY Id"
        Dim DTable As DataTable = ClsOperation.DBOperate(SQLString, MSG)
        Dim oRow As DataRow
        i = 1
        For Each oRow In DTable.Rows
            TmpId = oRow(0)
            If TmpId = i Then
                i = i + 1
            Else
                GetNewId = i
                Exit Function
            End If
        Next
        GetNewId = i
    End Function

    Public Sub Insert(ByVal TmpEmpId As Integer)
        Dim SQLString As String
        Dim MSG As String
        Id = GetNewId()
        SQLString = "INSERT INTO Experience Values(" & Trim(Str(Id)) & "," & Trim(Str(TmpEmpId)) & ",'" & Trim(Start_Date) & "','" & Trim(End_Date) & "','" & Trim(School_Org) & "','" & Trim(Title) & "')"
        ClsOperation.DBOperate(SQLString, MSG)
    End Sub

    Public Sub Update(ByVal OriEmpId As Integer, ByVal OriId As Integer)
        Dim SQLString As String
        Dim MSG As String
        SQLString = "Update Experience Set Start_Date='" & Trim(Start_Date) & "',End_Date='" & Trim(End_Date) & "',School_Org='" & Trim(School_Org) & "',Title='" & Trim(Title) & "' WHERE Emp_Id=" & Trim(Str(OriEmpId)) & " And Id=" & Trim(Str(OriId))
        ClsOperation.DBOperate(SQLString, MSG)
    End Sub
End Class