Desktop_WT_DMS/WT-DMS/CMaterialIn.vb

Public Class CMaterialIn
    Dim m_SQL As New CSQLInterface

    Const cst_TABLE_NAME As String = "MaterialInTable"
    Dim m_COLS_NAME() As String = {
        "入库单PN",
        "入库日期",
        "入库时间",
        "入库数量",
        "单价",
        "总金额",
        "操作员ID",
        "料号PN",
        "供应商ID"}

    Private Enum COLS
        入库单PN
        入库日期
        入库时间
        入库数量
        单价
        总金额
        操作员ID
        料号PN
        供应商ID
    End Enum

    '权限
    Private m_AccessRight As Integer = RIGHTS.NONE
    Public Property AccessRight() As Integer
        Get
            Return m_AccessRight
        End Get
        Set(ByVal value As Integer)
            m_AccessRight = value
        End Set
    End Property


    Public Sub New()
    End Sub

    Public Function AddItem(ByVal 入库单PN As String, _
                            ByVal 入库日期 As String, _
                            ByVal 入库时间 As String, _
                            ByVal 入库数量 As Integer, _
                            ByVal 单价 As String, _
                            ByVal 总金额 As String, _
                            ByVal 操作员ID As String, _
                            ByVal 料号PN As String, _
                            ByVal 供应商ID As String) As ERROR_CODE
        If CBool(m_AccessRight And RIGHTS.WRITE) = False Then
            Return ERROR_CODE.NORIGHT
        End If
        '"INSERT INTO [dbo].[TABLE1] ([11],[22],[33],[44],[55]) VALUES ('11','2','3','4','5')"
        Dim strSql As String = "INSERT INTO " & cst_TABLE_NAME & "("
        '加入列名
        For i As Integer = 0 To m_COLS_NAME.Length - 1
            If i > 0 Then
                strSql &= ","
            End If
            strSql &= "[" & m_COLS_NAME(i) & "]"
        Next
        strSql &= ") VALUES ("
        strSql &= "'" & 入库单PN & "'"
        strSql &= "'" & 入库日期 & "'"
        strSql &= "'" & 入库时间 & "'"
        strSql &= "'" & 入库数量 & "'"
        strSql &= "'" & 单价 & "'"
        strSql &= "'" & 总金额 & "'"
        strSql &= "'" & 操作员ID & "'"
        strSql &= "'" & 料号PN & "'"
        strSql &= "'" & 供应商ID & "'"
        strSql &= ")"

        If SQL_ExeCommand(strSql) = True Then
            Return ERROR_CODE.SUCCESS
        End If

        Return ERROR_CODE.ACCESS
    End Function

    Public Function UpdateItem(ByVal 入库单PN As String, _
                            ByVal 入库日期 As String, _
                            ByVal 入库时间 As String, _
                            ByVal 入库数量 As Integer, _
                            ByVal 单价 As String, _
                            ByVal 总金额 As String, _
                            ByVal 操作员ID As String, _
                            ByVal 料号PN As String, _
                            ByVal 供应商ID As String) As ERROR_CODE
        If CBool(m_AccessRight And RIGHTS.WRITE) = False Then
            Return ERROR_CODE.NORIGHT
        End If

        Dim strSql As String = "UPDATE " & cst_TABLE_NAME & " SET"
        strSql &= ", " & m_COLS_NAME(COLS.入库日期) & "=" & 入库日期
        strSql &= ", " & m_COLS_NAME(COLS.入库时间) & "=" & 入库时间
        strSql &= " " & m_COLS_NAME(COLS.入库数量) & "=" & 入库数量
        strSql &= ", " & m_COLS_NAME(COLS.单价) & "=" & 单价
        strSql &= ", " & m_COLS_NAME(COLS.总金额) & "=" & 总金额
        strSql &= ", " & m_COLS_NAME(COLS.操作员ID) & "=" & 操作员ID
        strSql &= ", " & m_COLS_NAME(COLS.料号PN) & "=" & 料号PN
        strSql &= ", " & m_COLS_NAME(COLS.供应商ID) & "=" & 供应商ID
        strSql &= " WHERE "
        strSql &= m_COLS_NAME(COLS.入库单PN) & "=" & 入库单PN

        If SQL_ExeCommand(strSql) = True Then
            Return ERROR_CODE.SUCCESS
        End If

        Return ERROR_CODE.ACCESS
    End Function

    Public Function DeleteItem(ByVal 入库单PN As String) As ERROR_CODE
        If CBool(m_AccessRight And RIGHTS.WRITE) = False Then
            Return ERROR_CODE.NORIGHT
        End If

        Dim strSql As String = "DELETE FROM " & cst_TABLE_NAME & " WHERE "
        strSql &= m_COLS_NAME(COLS.入库单PN) & "=" & 入库单PN

        If SQL_ExeCommand(strSql) = True Then
            Return ERROR_CODE.SUCCESS
        End If

        Return ERROR_CODE.ACCESS
    End Function

    Public Function QueryItem(ByVal 入库单PN As String, _
                            ByRef 入库日期 As String, _
                            ByRef 入库时间 As String, _
                            ByRef 入库数量 As Integer, _
                            ByRef 单价 As String, _
                            ByRef 总金额 As String, _
                            ByRef 操作员ID As String, _
                            ByRef 料号PN As String, _
                            ByRef 供应商ID As String) As ERROR_CODE
        If CBool(m_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.料号PN) & "=" & 料号PN

        Dim rTable As New System.Data.DataTable
        If SQL_Query(strSql, rTable) = True Then
            入库日期 = rTable.Rows(0).Item(1)
            入库时间 = rTable.Rows(0).Item(2)
            入库数量 = rTable.Rows(0).Item(3)
            单价 = rTable.Rows(0).Item(4)
            总金额 = rTable.Rows(0).Item(5)
            操作员ID = rTable.Rows(0).Item(6)
            料号PN = rTable.Rows(0).Item(7)
            供应商ID = rTable.Rows(0).Item(8)
            Return ERROR_CODE.SUCCESS
        End If

        Return ERROR_CODE.ACCESS
    End Function
End Class