db/ClsTGeneralMoneyLedgerDbAccess.vb

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

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

''' <summary>
''' 总账数据表-金额
''' 对应表-T_GeneralMoneyLedger
''' </summary>
Public Class ClsTGeneralMoneyLedgerDbAccess
    Inherits ClsBaseDbAccess

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

            Dim tmpDbAccess = GetConnection()

            '打开数据库
            tmpDbAccess.DbOpen()

            '构造查询语句
            tmpSql = "Update [" & Me.AppTableName & "] set "
            tmpSql &= "[BeginBalance]=@BeginBalance,[CreditSum]=@CreditSum,[CreditTotal]=@CreditTotal,"
            tmpSql &= "[DebitSum]=@DebitSum,[DebitTotal]=@DebitTotal,[Balance]=@Balance "
            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("@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
            tmpParas(6).Value = wp

            tmpRetInt = tmpDbAccess.UpdateRecord(tmpSql, tmpParas)

            '关闭数据库
            tmpDbAccess.DbClose()