department.vb

毕业设计+图书管理系统+源码 需要的人下载。

Imports Microsoft.VisualBasic
Imports System.Data
Imports System.Data.SqlClient
Public Class Department
#Region "属性"
    Dim DepartmentNoValue, DepartmentNameValue, DepartmentTypeValue, DepartmentLeaderValue As String
    Public Property DepartmentNo() '部门编号
        Get
            Return DepartmentNoValue
        End Get
        Set(ByVal value)
            DepartmentNoValue = value
        End Set
    End Property
    Public Property DepartmentName() '部门名称
        Get
            Return DepartmentNameValue
        End Get
        Set(ByVal value)
            DepartmentNameValue = value
        End Set
    End Property
    Public Property DepartmentType() '部门类型（校内/校外）
        Get
            Return DepartmentTypeValue
        End Get
        Set(ByVal value)
            DepartmentTypeValue = value
        End Set
    End Property
    Public Property DepartmentLeader() '部门主要负责人
        Get
            Return DepartmentLeaderValue
        End Get
        Set(ByVal value)
            DepartmentLeaderValue = value
        End Set
    End Property
#End Region

    Dim cn As SqlConnection = New SqlConnection("server=localhost\sqlexpress;integrated security=sspi;database=GDMS")
    Dim cmd As New SqlCommand
    Dim cmdText As String
    Dim dr As SqlDataReader
#Region "方法"
    '添加部门
    Public Function AddDepartment() As Integer
        cn.Open()

        cmd.Connection = cn
        cmdText = "insert into department (DepartmentNO,DepartmentName,DepartmentType,DepartmentLeader)" _
        + "values('" + DepartmentNo + "','" + DepartmentName + "','" + DepartmentType + "','" + DepartmentLeader + "')"
        cmd.CommandText = cmdText
        Try
            AddDepartment = cmd.ExecuteNonQuery()
        Catch ex As Exception
            AddDepartment = 0
        Finally
            cn.Close()
        End Try
    End Function
    '删除部门
    Public Function DelectDepartment(ByVal DepartmentNo As String) As Integer
        cn.Open()

        cmd.Connection = cn
        cmdText = "delete from department where DepartmentNo='" + DepartmentNo + "'"
        cmd.CommandText = cmdText
        DelectDepartment = cmd.ExecuteNonQuery()

        cn.Close()
    End Function
    '修改部门信息
    Public Function ModifyDepartment(ByVal DepartmentNo As String, ByVal NewDepartmentLeader As String) As Integer
        cn.Open()

        cmd.Connection = cn
        cmdText = "update department set DepartmentLeader='" + NewDepartmentLeader + "' where DepartmentNo='" + DepartmentNo + "'"
        cmd.CommandText = cmdText
        Try
            ModifyDepartment = cmd.ExecuteNonQuery()
        Catch ex As Exception
            ModifyDepartment = 0
        Finally
            cn.Close()
        End Try
    End Function
#End Region
End Class