department.vb

人事管理系统（VB.NET2005+SQL Server2005）

Imports System
Imports CommonDB
Imports CommonSystem

Public Class Department
    Implements IDataOperation
#Region "Members"
    Public Number As String
    Public Name As String
    Public sParentNumber As String
    Public iCompanyId As Integer
    Private m_iDepartmentId As Integer
#End Region

#Region "Properties"
    Public Property Company() As Company
        Get
            Company = New Company(CStr(DbBase.DataInterface().Execute4Object("select name from company where id = " & iCompanyId)))
        End Get
        Set(ByVal Value As Company)
            If Value Is Nothing Then
                iCompanyId = -1
            Else
                iCompanyId = DbBase.DataInterface().Execute4Value("select id from company where name = '" & Value.Name & "'")
            End If
        End Set
    End Property
    Public Property Parent() As Department
        Get
            If sParentNumber <> "-1" Then
                Parent = New Department(sParentNumber)
            Else
                Parent = Nothing
            End If
        End Get
        Set(ByVal Value As Department)
            If Value Is Nothing Then
                sParentNumber = "-1"
            Else
                sParentNumber = Value.Number
            End If
        End Set
    End Property
    Public ReadOnly Property DepartmentId() As String
        Get
            Return m_iDepartmentId
        End Get
    End Property
#End Region

#Region "Constructions"
    Public Sub New()
        Name = ""
        Number = ""
        sParentNumber = "-1"
        iCompanyId = -1
        m_iDepartmentId = 0
    End Sub

    Public Sub New(ByVal sNumber As String)
        Dim dsDepartment As DataSet
        dsDepartment = DbBase.DataInterface().Execute4DS("select * from department where number = '" & sNumber & "'")
        If dsDepartment.Tables(0).Rows.Count = 0 Then
            Throw New Exception("Department of number " & sNumber & " dosen't exits when new Department!")
        Else
            Number = dsDepartment.Tables(0).Rows(0).Item("number")
            sParentNumber = dsDepartment.Tables(0).Rows(0).Item("parent_number")
            Name = dsDepartment.Tables(0).Rows(0).Item("name")
            iCompanyId = dsDepartment.Tables(0).Rows(0).Item("company_id")
            m_iDepartmentId = dsDepartment.Tables(0).Rows(0).Item("id")
        End If
    End Sub
#End Region

#Region "Operations"
    Public Function Add() As Short Implements IDataOperation.Add
        Dim sSql As String
        sSql = "insert into department (number,parent_number,company_id,name) values ('" & Me.Number & "','" & Me.sParentNumber & "'," & Me.iCompanyId & ",'" & Me.Name & "')"
        Add = DbBase.DataInterface().ExecuteSql(sSql)
    End Function

    Public Function Delete() As Short Implements IDataOperation.Delete
        Delete = DbBase.DataInterface().ExecuteSql("delete from department where number = '" & Me.Number & "' or parent_number = '" & Me.Number & "'")
    End Function

    Public Function Update() As Short Implements IDataOperation.Update
        Update = DbBase.DataInterface().ExecuteSql("update department set company_id = " & Me.iCompanyId & ", parent_number = '" & Me.sParentNumber & "', name = '" & Me.Name & "' where number = '" & Me.Number & "'")
    End Function

    Public Function View() As DataSet Implements IDataOperation.View
        Return Nothing
    End Function

    Public Function List() As DataSet Implements IDataOperation.List
        Return Nothing
    End Function

    Public Function ClearSub() As Short
        ClearSub = DbBase.DataInterface().ExecuteSql("delete from department where parent_number = '" & Me.Number & "'")
    End Function
#End Region

End Class