db/ClsTWorkPeriodDbAccess.vb

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

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

Public Class ClsTWorkPeriodDbAccess
    Inherits ClsBaseDbAccess

    Public Sub New(ByVal s As String)
        MyBase.New(s, TABLE_NAME_T_WORK_PERIOD)
    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>
    ''' <returns></returns>
    Public Function DeleteWorkPeriod(ByVal wp As String) As Integer

        Dim tmpRetInt As Integer = 0

        Try
            Dim tmpDb As ClsDbAccessMdb = GetConnection()
            Dim tmpParas(0) As OleDb.OleDbParameter
            Dim tmpSql As String = "Delete * from [" & Me.AppTableName & "] "
            tmpSql &= " Where [WorkPeriod]=@WorkPeriod "

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

            '打开数据库
            tmpDb.DbOpen()

            '执行插入
            tmpRetInt = tmpDb.UpdateRecord(tmpSql, tmpParas)

            '关闭数据库
            tmpDb.DbClose()

        Catch ex As OleDb.OleDbException

            mErrorCreater = "ClsTWorkPeriodDbAccess - DeleteWorkPeriod"
            mErrorMessage = ex.Message
            mErrorNumber = ex.ErrorCode

        End Try

        Return tmpRetInt

    End Function

    ''' <summary>
    ''' 指定期间进行结账标识处理
    ''' </summary>
    ''' <param name="wp"></param>
    ''' <param name="ifSettle"></param>
    ''' <returns></returns>
    Public Function SettleWorkPeriod(ByVal wp As String, ByVal ifSettle As Boolean) As Integer

        Dim tmpRetInt As Integer = 0