db/clsTVoucherDbAccess.vb

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

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

Public Class ClsTVoucherDbAccess
    Inherits ClsBaseDbAccess

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

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

    ''' <summary>
    ''' 指定会计期间的所有凭证反过账
    ''' </summary>
    ''' <param name="wp"></param>
    ''' <param name="ifPosted"></param>
    ''' <returns></returns>
    Public Function PostAndUnpostVoucherByWorkPeriod(ByVal wp As String, ByVal ifPosted As Boolean, Optional ByVal poster As String = "") As Integer

        Dim tmpRetInt As Integer = 0

        Try
            Dim tmpSql As String
            Dim tmpParas(2) As OleDb.OleDbParameter

            Dim tmpDbAccess = GetConnection()

            '打开数据库
            tmpDbAccess.DbOpen()
            '构造查询语句
            tmpSql = "Update [" & Me.AppTableName & "] set [Posted]=@Posted,[Poster]=@Poster "
            tmpSql &= " where [WorkPeriod]=@WorkPeriod "

            tmpParas(0) = New OleDb.OleDbParameter("@Posted", OleDb.OleDbType.Boolean)
            tmpParas(1) = New OleDb.OleDbParameter("@Poster", OleDb.OleDbType.VarWChar)
            tmpParas(2) = New OleDb.OleDbParameter("@WorkPeriod", OleDb.OleDbType.VarWChar)

            tmpParas(0).Value = ifPosted
            tmpParas(1).Value = poster
            tmpParas(2).Value = wp

            tmpRetInt = tmpDbAccess.ExecuteSqlNoDataReturn(tmpSql, tmpParas)

            '关闭数据库
            tmpDbAccess.DbClose()

        Catch ex As OleDb.OleDbException

            mErrorNumber = ex.ErrorCode
            mErrorMessage = ex.Message
            mErrorCreater = "ClsTVoucherDbAccess - DeleteVoucher"

            '出现数据库错误
            tmpRetInt = -1

        End Try

        Return tmpRetInt

    End Function