db/ClsTGeneralCurrencyLedgerDbAccess.vb

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

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

Public Class ClsTGeneralCurrencyLedgerDbAccess
    Inherits ClsBaseDbAccess

    Public Sub New(ByVal s As String)
        MyBase.New(s, TABLE_NAME_T_GENERAL_CURRENCY_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(12) As OleDb.OleDbParameter

            Dim tmpDbAccess = GetConnection()

            '打开数据库
            tmpDbAccess.DbOpen()

            '构造查询语句
            tmpSql = "Update [" & Me.AppTableName & "] set "
            tmpSql &= "[Begin]=@Begin,[BeginCurrency]=@BeginCurrency,"
            tmpSql &= "[CreditSum]=@CreditSum,[CreditSumCurrency]=@CreditSumCurrency,"
            tmpSql &= "[CreditTotal]=@CreditTotal,[CreditTotalCurrency]=@CreditTotalCurrency,"
            tmpSql &= "[DebitSum]=@DebitSum,[DebitSumCurrency]=@DebitSumCurrency,"
            tmpSql &= "[DebitTotal]=@DebitTotal,[DebitTotalCurrency]=@DebitTotalCurrency,"
            tmpSql &= "[Balance]=@Balance,[BalanceCurrency]=@BalanceCurrency"
            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("@WorkPeriod", OleDb.OleDbType.VarWChar)

            tmpParas(0).Value = 0
            tmpParas(1).Value = 0
            tmpParas(2).Value = 0
            tmpParas(3).Value = 0
            tmpParas(4).Value = 0
            tmpParas(5).Value = 0