DAL/ORDERSSQL.vb

这里只显示每个文件的开头 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 ORDERSSQL
    Public Function Add_ORDERS(ByVal STRCART As ORDERS) As Integer

        Dim sqlHelper As New Global.SQLHelper.SQLHelper()
        Dim ParamList As SqlParameter() = {sqlHelper.CreateInParam("@ORDERSNO", SqlDbType.NVarChar, 50, STRCART.ORDERSNO), _
                                           sqlHelper.CreateInParam("@CUSTACCOUNT", SqlDbType.NVarChar, 50, STRCART.CUSTACCOUNT), _
                                           sqlHelper.CreateInParam("@ORDERDATE", SqlDbType.DateTime, 8, STRCART.ORDERDATE), _
                                           sqlHelper.CreateInParam("@SALESPRICE", SqlDbType.Float, 8, STRCART.SALESPRICE), _
                                           sqlHelper.CreateInParam("@MOULDNO", SqlDbType.NVarChar, 50, STRCART.MOULDNO), _
                                           sqlHelper.CreateInParam("@LOTNO", SqlDbType.NVarChar, 50, STRCART.LOTNO), _
                                           sqlHelper.CreateInParam("@QTY", SqlDbType.Int, 4, STRCART.QTY), _
                                           sqlHelper.CreateInParam("@KTL_GOLDCONTENT", SqlDbType.NVarChar, 20, STRCART.KTL_GOLDCONTENT), _
                                           sqlHelper.CreateInParam("@PICURL", SqlDbType.NVarChar, 50, STRCART.PICURL), _
                                           sqlHelper.CreateInParam("@TOTAL", SqlDbType.Float, 8, STRCART.TOTAL)}
        Try
            Return (sqlHelper.RunProc("Add_ORDERS", ParamList))
        Catch ex As Exception
            SystemError.CreateErrorLog(ex.Message)
            Throw New Exception(ex.Message, ex)
        End Try
    End Function

    Public Function Update_ORDERS(ByVal STRCART As ORDERS) As Integer
        Dim sqlHelper As New Global.SQLHelper.SQLHelper()
        Dim ParamList As SqlParameter() = {sqlHelper.CreateInParam("@ID", SqlDbType.Int, 4, STRCART.ID), _
                                           sqlHelper.CreateInParam("@ORDERSNO", SqlDbType.NVarChar, 50, STRCART.ORDERSNO), _
                                           sqlHelper.CreateInParam("@CUSTACCOUNT", SqlDbType.NVarChar, 50, STRCART.CUSTACCOUNT), _
                                           sqlHelper.CreateInParam("@ORDERDATE", SqlDbType.DateTime, 8, STRCART.ORDERDATE), _
                                           sqlHelper.CreateInParam("@SALESPRICE", SqlDbType.Float, 8, STRCART.SALESPRICE), _
                                           sqlHelper.CreateInParam("@MOULDNO", SqlDbType.NVarChar, 50, STRCART.MOULDNO), _
                                           sqlHelper.CreateInParam("@LOTNO", SqlDbType.NVarChar, 50, STRCART.LOTNO), _
                                           sqlHelper.CreateInParam("@QTY", SqlDbType.Int, 4, STRCART.QTY), _
                                           sqlHelper.CreateInParam("@KTL_GOLDCONTENT", SqlDbType.NVarChar, 20, STRCART.KTL_GOLDCONTENT), _
                                           sqlHelper.CreateInParam("@PICURL", SqlDbType.NVarChar, 50, STRCART.PICURL), _
                                           sqlHelper.CreateInParam("@TOTAL", SqlDbType.Float, 8, STRCART.TOTAL)}
        Try
            Return (sqlHelper.RunProc("Update_ORDERS", ParamList))
        Catch ex As Exception
            SystemError.CreateErrorLog(ex.Message)
            Throw New Exception(ex.Message, ex)
        End Try
    End Function

    Public Sub Delete_CART(ByVal STRID As Integer)
        Dim sqlHelper As New Global.SQLHelper.SQLHelper()
        Dim ParamList As SqlParameter() = {sqlHelper.CreateInParam("@ID", SqlDbType.Int, 4, STRID)}
        Try
            sqlHelper.RunProc("Delete_CART", ParamList)
        Catch ex As Exception
            SystemError.CreateErrorLog(ex.Message)
            Throw New Exception(ex.Message, ex)