db/RjClsVoucherDbAccess.vb

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

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

''' <summary>
''' 锐剑系统 记账凭证库
''' 对应表- 记账凭证库
''' </summary>
Public Class RjClsVoucherDbAccess
    Inherits ClsBaseDbAccess

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

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

    ''' <summary>
    ''' 返回指定凭证类别 和 编号 的所有分录
    ''' </summary>
    ''' <param name="vMonth"></param>
    ''' <param name="vType"></param>
    ''' <param name="vId"></param>
    ''' <returns></returns>
    Public Function GetEntries(ByVal vMonth As Integer, ByVal vType As String, ByVal vId As Integer) As List(Of RjClsVoucher)

        Dim tmpRetList As List(Of RjClsVoucher) = New List(Of RjClsVoucher)()

        Try

            Dim tmpDb As ClsDbAccessMdb = GetConnection()
            Dim tmpSql As String = "Select * from  [" & Me.AppTableName & "] "
            tmpSql &= " Where [月份]=@Month and [凭证类别]=@Type and [凭证号]=@Number "
            Dim tmpParas(2) As OleDb.OleDbParameter
            tmpParas(0) = New OleDb.OleDbParameter("@Month", OleDb.OleDbType.Integer)
            tmpParas(1) = New OleDb.OleDbParameter("@Type", OleDb.OleDbType.VarWChar)
            tmpParas(2) = New OleDb.OleDbParameter("@Number", OleDb.OleDbType.Integer)

            tmpParas(0).Value = vMonth
            tmpParas(1).Value = vType
            tmpParas(2).Value = vId

            '打开数据库
            tmpDb.DbOpen()

            '执行插入
            tmpRetList = CType(ConvertRecordToClass(tmpDb.ExecuteSqlReturnDataSet(tmpSql, tmpParas)), List(Of RjClsVoucher))

            '关闭数据库
            tmpDb.DbClose()

        Catch ex As OleDb.OleDbException

            mErrorCreater = "ClsTAccountDbAccess - GetAllMonthInVoucher"
            mErrorMessage = ex.Message
            mErrorNumber = ex.ErrorCode

        End Try

        Return tmpRetList

    End Function