db/ClsTAccountDbAccess.vb

（开头部分） 22KB

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

Public Class ClsTAccountDbAccess
    Inherits ClsBaseDbAccess

    'T_Account(23)
    'AccountCode,LastLevelCode,Level,AccountName,ShortName,FullName,
    'IfLastLevel,AccountType,YearMoney,BalanceDirection,YearCurrency,CurrencyCode,
    'IfRateAdjust,IfQuantity,QuantityUnit,YearQuantity,IfProject,IfCustomer,
    'IfDepartment,IfEmployee,MonthTransit,MonthTransitAcctCode,AbSet

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

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

    ''' <summary>
    ''' 批量插入科目
    ''' </summary>
    ''' <param name="tmpList"></param>
    ''' <returns></returns>
    Public Function BatchInsertAcct(ByVal tmpList As List(Of ClsTAccount)) As Boolean

        Dim tmpRetBool As Boolean = True

        Try
            Dim tmpDb As ClsDbAccessMdb = GetConnection()
            Dim tmpParas(22) As OleDb.OleDbParameter

            Dim tmpSql As String = "Insert Into [" & Me.AppTableName & "] ("
            tmpSql &= "[AccountCode],[PrevLevelCode],[Level],[AccountName],[ShortName],"
            tmpSql &= "[FullName],[IfLastLevel],[AccountType],[YearMoney],[BalanceDirection],"
            tmpSql &= "[YearCurrency],[CurrencyCode],[IfRateAdjust],[IfQuantity],[QuantityUnit],"
            tmpSql &= "[YearQuantity],[IfProject],[IfCustomer],[IfDepartment],[IfEmployee],"
            tmpSql &= "[MonthTransit],[MonthTransitAcctCode],[AbSet]"
            tmpSql &= ") values("
            tmpSql &= "@AccountCode,@PrevLevelCode,@Level,@AccountName,@ShortName,"
            tmpSql &= "@FullName,@IfLastLevel,@AccountType,@YearMoney,@BalanceDirection,"
            tmpSql &= "@YearCurrency,@CurrencyCode,@IfRateAdjust,@IfQuantity,@QuantityUnit,"
            tmpSql &= "@YearQuantity,@IfProject,@IfCustomer,@IfDepartment,@IfEmployee,"
            tmpSql &= "@MonthTransit,@MonthTransitAcctCode,@AbSet"
            tmpSql &= ") "

            tmpParas(0) = New OleDb.OleDbParameter("@AccountCode", OleDb.OleDbType.VarWChar)
            tmpParas(1) = New OleDb.OleDbParameter("@PrevLevelCode", OleDb.OleDbType.VarWChar)
            tmpParas(2) = New OleDb.OleDbParameter("@Level", OleDb.OleDbType.Integer)
            tmpParas(3) = New OleDb.OleDbParameter("@AccountName", OleDb.OleDbType.VarWChar)
            tmpParas(4) = New OleDb.OleDbParameter("@ShortName", OleDb.OleDbType.VarWChar)
            tmpParas(5) = New OleDb.OleDbParameter("@FullName", OleDb.OleDbType.VarWChar)
            tmpParas(6) = New OleDb.OleDbParameter("@IfLastLevel", OleDb.OleDbType.Boolean)
            tmpParas(7) = New OleDb.OleDbParameter("@AccountType", OleDb.OleDbType.VarWChar)
            tmpParas(8) = New OleDb.OleDbParameter("@YearMoney", OleDb.OleDbType.Decimal)
            tmpParas(9) = New OleDb.OleDbParameter("@BalanceDirection", OleDb.OleDbType.VarWChar)
            tmpParas(10) = New OleDb.OleDbParameter("@YearCurrency", OleDb.OleDbType.Decimal)
            tmpParas(11) = New OleDb.OleDbParameter("@CurrencyCode", OleDb.OleDbType.VarWChar)
            tmpParas(12) = New OleDb.OleDbParameter("@IfRateAdjust", OleDb.OleDbType.Boolean)
            tmpParas(13) = New OleDb.OleDbParameter("@IfQuantity", OleDb.OleDbType.Boolean)
            tmpParas(14) = New OleDb.OleDbParameter("@QuantityUnit", OleDb.OleDbType.VarWChar)
            tmpParas(15) = New OleDb.OleDbParameter("@YearQuantity", OleDb.OleDbType.Single)
后面还有 433 行代码，解锁后查看完整代码

24 小时内免费解锁 3 个项目，之后 1 积分/个。 规则说明

AI 解读

登录后可用，每次 10 积分，解读结果公开显示在下面。

还没有人解读过这个文件。