DAL/REORDERSSQL.vb

（开头部分） 5KB

这里只显示每个文件的开头 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 REORDERSSQL
    Public Function Add_REORDERS(ByVal STRREORDERS As REORDERS) As Integer

        Dim sqlHelper As New Global.SQLHelper.SQLHelper()
        Dim ParamList As SqlParameter() = {sqlHelper.CreateInParam("@CUSTACCOUNT", SqlDbType.NVarChar, 50, STRREORDERS.CUSTACCOUNT), _
                                           sqlHelper.CreateInParam("@ORDERDATE", SqlDbType.DateTime, 8, STRREORDERS.ORDERDATE), _
                                           sqlHelper.CreateInParam("@LOTNO", SqlDbType.NVarChar, 50, STRREORDERS.LOTNO), _
                                           sqlHelper.CreateInParam("@QTY", SqlDbType.Int, 4, STRREORDERS.QTY), _
                                           sqlHelper.CreateInParam("@ITEMID", SqlDbType.NVarChar, 50, STRREORDERS.ITEMID), _
                                           sqlHelper.CreateInParam("@SALESID", SqlDbType.NVarChar, 20, STRREORDERS.SALESID), _
                                           sqlHelper.CreateInParam("@CONFIGID", SqlDbType.NVarChar, 20, STRREORDERS.CONFIGID), _
                                           sqlHelper.CreateInParam("@INVENTSIZEID", SqlDbType.NVarChar, 20, STRREORDERS.INVENTSIZEID), _
                                           sqlHelper.CreateInParam("@INVENTCOLORID", SqlDbType.NVarChar, 20, STRREORDERS.INVENTCOLORID), _
                                           sqlHelper.CreateInParam("@KTL_GOLDCONTENT", SqlDbType.NVarChar, 20, STRREORDERS.KTL_GOLDCONTENT), _
                                           sqlHelper.CreateInParam("@REMARK", SqlDbType.NVarChar, 100, STRREORDERS.REMARK), _
                                           sqlHelper.CreateInParam("@PICURL", SqlDbType.NVarChar, 50, STRREORDERS.PICURL), _
                                            sqlHelper.CreateInParam("@LOCATIONID", SqlDbType.NVarChar, 30, STRREORDERS.LOCATIONID), _
                                           sqlHelper.CreateInParam("@CREATEBY", SqlDbType.NVarChar, 30, STRREORDERS.CREATBY)}
        Try
            Return (sqlHelper.RunProc("Add_REORDERS", ParamList))
        Catch ex As Exception
            SystemError.CreateErrorLog(ex.Message)
            Throw New Exception(ex.Message, ex)
        End Try
    End Function

    Public Function Update_REORDERS(ByVal STRREORDERS As REORDERS) As Integer
        Dim sqlHelper As New Global.SQLHelper.SQLHelper()
        Dim ParamList As SqlParameter() = {sqlHelper.CreateInParam("@ID", SqlDbType.Int, 4, STRREORDERS.ID), _
                                          sqlHelper.CreateInParam("@CUSTACCOUNT", SqlDbType.NVarChar, 50, STRREORDERS.CUSTACCOUNT), _
                                           sqlHelper.CreateInParam("@ORDERDATE", SqlDbType.DateTime, 8, STRREORDERS.ORDERDATE), _
                                           sqlHelper.CreateInParam("@LOTNO", SqlDbType.NVarChar, 50, STRREORDERS.LOTNO), _
                                           sqlHelper.CreateInParam("@QTY", SqlDbType.Int, 4, STRREORDERS.QTY), _
                                           sqlHelper.CreateInParam("@ITEMID", SqlDbType.NVarChar, 50, STRREORDERS.ITEMID), _
                                           sqlHelper.CreateInParam("@SALESID", SqlDbType.NVarChar, 20, STRREORDERS.SALESID), _
                                           sqlHelper.CreateInParam("@CONFIGID", SqlDbType.NVarChar, 20, STRREORDERS.CONFIGID), _
                                           sqlHelper.CreateInParam("@INVENTSIZEID", SqlDbType.NVarChar, 20, STRREORDERS.INVENTSIZEID), _
                                           sqlHelper.CreateInParam("@INVENTCOLORID", SqlDbType.NVarChar, 20, STRREORDERS.INVENTCOLORID), _
                                           sqlHelper.CreateInParam("@KTL_GOLDCONTENT", SqlDbType.NVarChar, 20, STRREORDERS.KTL_GOLDCONTENT), _
                                           sqlHelper.CreateInParam("@REMARK", SqlDbType.NVarChar, 100, STRREORDERS.REMARK), _
                                           sqlHelper.CreateInParam("@PICURL", SqlDbType.NVarChar, 50, STRREORDERS.PICURL), _
                                            sqlHelper.CreateInParam("@LOCATIONID", SqlDbType.NVarChar, 30, STRREORDERS.LOCATIONID), _
                                           sqlHelper.CreateInParam("@MODIFY", SqlDbType.NVarChar, 20, STRREORDERS.MODIFY)}
        Try
            Return (sqlHelper.RunProc("Update_REORDERS", ParamList))
        Catch ex As Exception
            SystemError.CreateErrorLog(ex.Message)
            Throw New Exception(ex.Message, ex)
        End Try
    End Function
后面还有 24 行代码，解锁后查看完整代码

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

AI 解读

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

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