39 lines
1.2 KiB
VB.net
39 lines
1.2 KiB
VB.net
Public Class CDepartmentManage
|
|
Dim m_SQL As New CSQLInterface
|
|
|
|
Const cst_TABLE_NAME As String = "DepartmentManageTable"
|
|
Dim m_COLS_NAME() As String = {"部门ID", "负责人ID", "部门地址", "联系方式"}
|
|
Private Enum COLS
|
|
部门ID
|
|
负责人ID
|
|
部门地址
|
|
联系方式
|
|
End Enum
|
|
|
|
'权限
|
|
Public Shared AccessRight As Integer = RIGHTS.NONE
|
|
|
|
|
|
Public Sub New()
|
|
End Sub
|
|
|
|
Private Function QueryItem(ByVal departID As String, ByRef HeaderID As Integer, ByRef departAddress As String, ByRef departLink As String) As ERROR_CODE
|
|
If CBool(AccessRight And RIGHTS.READ) = False Then
|
|
Return ERROR_CODE.NORIGHT
|
|
End If
|
|
|
|
Dim strSql As String = "SELECT * FROM " & cst_TABLE_NAME & " WHERE "
|
|
strSql &= m_COLS_NAME(COLS.部门ID) & "=" & departID
|
|
|
|
Dim rTable As New System.Data.DataTable
|
|
If SQL_Query(COL_RIGHTS.部门管理, strSql, rTable) = True Then
|
|
HeaderID = rTable.Rows(0).Item(1)
|
|
departAddress = rTable.Rows(0).Item(2)
|
|
departLink = rTable.Rows(0).Item(3)
|
|
Return ERROR_CODE.SUCCESS
|
|
End If
|
|
|
|
Return ERROR_CODE.ACCESS
|
|
End Function
|
|
End Class
|