DAL/ITEMSQL.vb

（开头部分） 6KB

这里只显示每个文件的开头 60 行。登录后可以解锁完整代码。

Imports System
Imports System.Data
Imports System.Configuration
Imports System.Web
Imports System.Text
Imports System.Collections.Generic
Imports System.Data.SqlClient
Imports SQLHelper
Imports Model
Public Class ITEMSQL
    Public Function Add_ITEM(ByVal STRITEM As ITEM) As Integer

        Dim sqlHelper As New Global.SQLHelper.SQLHelper()
        Dim ParamList As SqlParameter() = {sqlHelper.CreateInParam("@SERIALNUM", SqlDbType.NVarChar, 20, STRITEM.SERIALNUM), _
                                           sqlHelper.CreateInParam("@LINENUM", SqlDbType.NVarChar, 20, STRITEM.LINENUM), _
                                           sqlHelper.CreateInParam("@LOTNO", SqlDbType.NVarChar, 20, STRITEM.LOTNO), _
                                           sqlHelper.CreateInParam("@QTY", SqlDbType.Int, 4, STRITEM.QTY), _
                                           sqlHelper.CreateInParam("@ITEMID", SqlDbType.NVarChar, 50, STRITEM.ITEMID), _
                                           sqlHelper.CreateInParam("@SALESID", SqlDbType.NVarChar, 50, STRITEM.SALESID), _
                                           sqlHelper.CreateInParam("@CONFIGID", SqlDbType.NVarChar, 20, STRITEM.CONFIGID), _
                                           sqlHelper.CreateInParam("@INVENTSIZEID", SqlDbType.NVarChar, 20, STRITEM.INVENTSIZEID), _
                                           sqlHelper.CreateInParam("@INVENTCOLORID", SqlDbType.NVarChar, 20, STRITEM.INVENTCOLORID), _
                                           sqlHelper.CreateInParam("@KTL_GOLDCONTENT", SqlDbType.NVarChar, 20, STRITEM.KTL_GOLDCONTENT), _
                                           sqlHelper.CreateInParam("@SALESPRICE", SqlDbType.Float, 8, STRITEM.SALESPRICE), _
                                           sqlHelper.CreateInParam("@NAME", SqlDbType.NVarChar, 20, STRITEM.NAME), _
                                           sqlHelper.CreateInParam("@UNITPRICE", SqlDbType.Float, 8, STRITEM.UNITPRICE), _
                                           sqlHelper.CreateInParam("@STATUS", SqlDbType.NVarChar, 20, STRITEM.STATUS), _
                                           sqlHelper.CreateInParam("@POSTEDATE", SqlDbType.DateTime, 8, STRITEM.POSTDATE), _
                                           sqlHelper.CreateInParam("@CUSTACCOUNT", SqlDbType.NVarChar, 20, STRITEM.CUSTACCOUNT), _
                                           sqlHelper.CreateInParam("@REMARK", SqlDbType.NVarChar, 100, STRITEM.REMARK), _
                                           sqlHelper.CreateInParam("@PIC", SqlDbType.NVarChar, 50, STRITEM.PICURL), _
                                            sqlHelper.CreateInParam("@LOCATIONID", SqlDbType.NVarChar, 30, STRITEM.LOCATIONID), _
                                           sqlHelper.CreateInParam("@CREATEBY", SqlDbType.NVarChar, 30, STRITEM.CREATBY)}
        Try
            Return (sqlHelper.RunProc("Add_ITEM", ParamList))
        Catch ex As Exception
            SystemError.CreateErrorLog(ex.Message)
            Throw New Exception(ex.Message, ex)
        End Try
    End Function

    Public Function Update_ITEM(ByVal STRITEM As ITEM) As Integer
        Dim sqlHelper As New Global.SQLHelper.SQLHelper()
        Dim ParamList As SqlParameter() = {sqlHelper.CreateInParam("@ID", SqlDbType.Int, 4, STRITEM.ID), _
                                           sqlHelper.CreateInParam("@LOTNO", SqlDbType.NVarChar, 20, STRITEM.LOTNO), _
                                           sqlHelper.CreateInParam("@QTY", SqlDbType.Int, 4, STRITEM.QTY), _
                                           sqlHelper.CreateInParam("@ITEMID", SqlDbType.NVarChar, 50, STRITEM.ITEMID), _
                                           sqlHelper.CreateInParam("@SALESID", SqlDbType.NVarChar, 50, STRITEM.SALESID), _
                                           sqlHelper.CreateInParam("@CONFIGID", SqlDbType.NVarChar, 20, STRITEM.CONFIGID), _
                                           sqlHelper.CreateInParam("@INVENTSIZEID", SqlDbType.NVarChar, 20, STRITEM.INVENTSIZEID), _
                                           sqlHelper.CreateInParam("@INVENTCOLORID", SqlDbType.NVarChar, 20, STRITEM.INVENTCOLORID), _
                                           sqlHelper.CreateInParam("@KTL_GOLDCONTENT", SqlDbType.NVarChar, 20, STRITEM.KTL_GOLDCONTENT), _
                                           sqlHelper.CreateInParam("@SALESPRICE", SqlDbType.Float, 8, STRITEM.SALESPRICE), _
                                           sqlHelper.CreateInParam("@NAME", SqlDbType.NVarChar, 20, STRITEM.NAME), _
                                           sqlHelper.CreateInParam("@UNITPRICE", SqlDbType.Float, 8, STRITEM.UNITPRICE), _
                                           sqlHelper.CreateInParam("@STATUS", SqlDbType.NVarChar, 20, STRITEM.STATUS), _
                                           sqlHelper.CreateInParam("@POSTEDATE", SqlDbType.DateTime, 8, STRITEM.POSTDATE), _
                                           sqlHelper.CreateInParam("@CUSTACCOUNT", SqlDbType.NVarChar, 20, STRITEM.CUSTACCOUNT), _
                                           sqlHelper.CreateInParam("@REMARK", SqlDbType.NVarChar, 100, STRITEM.REMARK), _
                                           sqlHelper.CreateInParam("@PIC", SqlDbType.NVarChar, 50, STRITEM.PICURL), _
后面还有 36 行代码，解锁后查看完整代码

24 小时内免费解锁 3 个项目，之后 1 积分/个。 规则说明

AI 解读

登录后可用，每次 10 积分，解读结果公开显示在下面。

还没有人解读过这个文件。