db/ClsTAccountSumDbAccess.vb

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

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

Public Class ClsTAccountSumDbAccess
    Inherits ClsBaseDbAccess

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

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

    ''' <summary>
    ''' 返回指定年度的科目汇总的会计期间
    ''' </summary>
    ''' <param name="year"></param>
    ''' <returns></returns>
    Public Function GetAllPeriodByYear(ByVal year As String) As List(Of String)

        Dim tmpPeriod As List(Of String) = New List(Of String)()

        Try

            Dim tmpSql As String
            Dim tmpParas(0) As OleDb.OleDbParameter
            Dim tmpDbAccess = GetConnection()

            '打开数据库
            tmpDbAccess.DbOpen()

            '构造查询语句
            tmpSql = "select distinct [WorkPeriod] from [" & Me.AppTableName & "] where [WorkPeriod] like @WorkPeriod & '%'  "


            tmpParas(0) = New OleDb.OleDbParameter("@WorkPeriod", OleDb.OleDbType.VarWChar)
            tmpParas(0).Value = year

            Dim tmpReader As OleDb.OleDbDataReader = tmpDbAccess.ExecuteSqlReturnDataSet(tmpSql, tmpParas)
            If tmpReader IsNot Nothing Then
                '循环取出
                While tmpReader.Read()
                    tmpPeriod.Add(ConvertDbNullSingle(tmpReader(0)))
                End While
            End If

            '关闭数据库
            tmpDbAccess.DbClose()

        Catch ex As OleDb.OleDbException

            mErrorNumber = ex.ErrorCode
            mErrorMessage = ex.Message
            mErrorCreater = "ClsTAccountSumDbAccess - GetAccountSumInPeriod"

        End Try

        Return tmpPeriod

    End Function

    ''' <summary>