db/ClsTGeneralQuantityLedgerDbAccess.vb

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

微信扫码关注公众号，代码整理好后第一时间通知你。

Public Class ClsTGeneralQuantityLedgerDbAccess
    Inherits ClsBaseDbAccess

    Public Sub New(ByVal s As String)
        MyBase.New(s, TABLE_NAME_T_GENERAL_QUANTITY_LEDGER)
    End Sub

    Public Sub New(ByVal s As String, ByVal n As String)
        MyBase.New(s, n)
    End Sub

    ''' <summary>
    ''' 清空指定期间的数据（除年初数据外全部置0）
    ''' </summary>
    ''' <param name="wp"></param>
    ''' <returns></returns>
    Public Function ClearDataByWorkPeriod(ByVal wp As String) As Integer

        Dim tmpRetInt As Integer

        Try

            Dim tmpSql As String
            Dim tmpParas(18) As OleDb.OleDbParameter

            Dim tmpDbAccess = GetConnection()

            '打开数据库
            tmpDbAccess.DbOpen()

            '构造查询语句
            tmpSql = "Update [" & Me.AppTableName & "] set "
            tmpSql &= "[BeginBalance] = @BeginBalance,[BeginPrice] = @BeginPrice,[BeginMoney] = @BeginMoney,"
            tmpSql &= "[CreditSum] = @CreditSum,[CreditPrice] = @CreditPrice,[CreditSumMoney] = @CreditSumMoney,"
            tmpSql &= "[CreditTotal] = @CreditTotal,[CreditTotalPrice] = @CreditTotalPrice,[CreditTotalMoney] = @CreditTotalMoney,"
            tmpSql &= "[DebitSum] = @DebitSum,[DebitSumPrice] = @DebitSumPrice,[DebitSumMoney] = @DebitSumMoney,"
            tmpSql &= "[DebitTotal] = @DebitTotal,[DebitTotalPrice] = @DebitTotalPrice,[DebitTotalMoney] = @DebitTotalMoney,"
            tmpSql &= "[Balance] = @Balance,[BalancePrice] = @BalancePrice,[BalanceMoney] = @BalanceMoney"
            tmpSql &= " where [WorkPeriod]=@WorkPeriod "

            tmpParas(0) = New OleDb.OleDbParameter("@BeginBalance", OleDb.OleDbType.Decimal)
            tmpParas(1) = New OleDb.OleDbParameter("@CreditSum", OleDb.OleDbType.Decimal)
            tmpParas(2) = New OleDb.OleDbParameter("@CreditTotal", OleDb.OleDbType.Decimal)
            tmpParas(3) = New OleDb.OleDbParameter("@DebitSum", OleDb.OleDbType.Decimal)
            tmpParas(4) = New OleDb.OleDbParameter("@DebitTotal", OleDb.OleDbType.Decimal)
            tmpParas(5) = New OleDb.OleDbParameter("@Balance", OleDb.OleDbType.Decimal)
            tmpParas(6) = New OleDb.OleDbParameter("@Balance", OleDb.OleDbType.Decimal)
            tmpParas(7) = New OleDb.OleDbParameter("@BeginBalance", OleDb.OleDbType.Decimal)
            tmpParas(8) = New OleDb.OleDbParameter("@CreditSum", OleDb.OleDbType.Decimal)
            tmpParas(9) = New OleDb.OleDbParameter("@CreditTotal", OleDb.OleDbType.Decimal)
            tmpParas(10) = New OleDb.OleDbParameter("@DebitSum", OleDb.OleDbType.Decimal)
            tmpParas(11) = New OleDb.OleDbParameter("@DebitTotal", OleDb.OleDbType.Decimal)
            tmpParas(12) = New OleDb.OleDbParameter("@Balance", OleDb.OleDbType.Decimal)
            tmpParas(13) = New OleDb.OleDbParameter("@Balance", OleDb.OleDbType.Decimal)
            tmpParas(14) = New OleDb.OleDbParameter("@BeginBalance", OleDb.OleDbType.Decimal)
            tmpParas(15) = New OleDb.OleDbParameter("@CreditSum", OleDb.OleDbType.Decimal)
            tmpParas(16) = New OleDb.OleDbParameter("@CreditTotal", OleDb.OleDbType.Decimal)
            tmpParas(17) = New OleDb.OleDbParameter("@DebitSum", OleDb.OleDbType.Decimal)
            tmpParas(18) = New OleDb.OleDbParameter("@WorkPeriod", OleDb.OleDbType.VarWChar)