clsfamilymember.vb

使用说明 1.在使用源程序前

Class ClsFamilyMember
    '1 Id  TinyInt 编号
    '2 Emp_Id  Int 员工编号
    '3 Name  Varchar 50  姓名
    '4 Sex Char 2  性别
    '5 Age TinyInt 年龄
    '6 Relationship  Varchar 20  与本人关系
    '7 WorkingOrg  Varchar 40  工作单位
    Public Id As String
    Public Emp_Id As String
    Public Name As String
    Public Sex As String
    Public Age As Short
    Public Relationship As String
    Public WorkingOrg As String

    Public Sub Init()
        Id = CStr(0)
        Emp_Id = CStr(0)
        Name = ""
        Sex = ""
        Age = 0
        Relationship = ""
        WorkingOrg = ""
    End Sub

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

    '删除FamilyMember数据
    Public Sub DeleteByEmpId(ByVal TmpEmpId As Integer)
        Dim SQLString As String
        Dim MSG As String
        SQLString = "DELETE FROM FamilyMember 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 = CStr(TmpId)
        Emp_Id = CStr(TmpEmpId)
        SQLString = "SELECT * FROM FamilyMember WHERE Id=" & Trim(Str(TmpId)) & " And Emp_Id=" & Trim(Str(CDbl(Emp_Id)))
        Dim DTable As DataTable = ClsOperation.DBOperate(SQLString, MSG)
        If DTable.Rows.Count < 1 Then
            GetInfo = False
            Exit Function
        Else
            Name = DTable.Rows(0)(3)
            Sex = DTable.Rows(0)(4)
            Age = DTable.Rows(0)(5)
            Relationship = DTable.Rows(0)(6)
            WorkingOrg = DTable.Rows(0)(7)
        End If
        GetInfo = True
    End Function

    Public Function GetNewId() As Integer
        Dim i As Object
        Dim TmpId As Integer
        Dim SQLString As String
        Dim MSG As String
        SQLString = "SELECT Id FROM FamilyMember ORDER BY Id"
        Dim DTable As DataTable
        DTable = ClsOperation.DBOperate(SQLString, MSG)
        Dim oRow As DataRow
        i = 1
        For Each oRow In DTable.Rows
            TmpId = oRow("Id")
            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 = CStr(GetNewId())
        SQLString = "INSERT INTO FamilyMember Values(" & Trim(Str(CDbl(Id))) & "," & Trim(Str(TmpEmpId)) & ",'" & Trim(Name) & "','" & Trim(Sex) & "'," & Trim(Str(Age)) & ",'" & Trim(Relationship) & "','" & Trim(WorkingOrg) & "')"
        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 FamilyMember Set Name='" & Trim(Name) & "',Sex='" & Trim(Sex) & "',Age=" & Trim(Str(Age)) & ",Relationship='" & Trim(Relationship) & "',WorkingOrg='" & Trim(WorkingOrg) & "' WHERE Emp_Id=" & Trim(Str(OriEmpId)) & " And Id=" & Trim(Str(OriId))
        ClsOperation.DBOperate(SQLString, MSG)
    End Sub
End Class