clsaccunitbi.cls

财务信息管理系统,适合做毕业论文的人使用

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsAccUnitBI"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
'--------------------------------
'时间:2001.11.12
'版权:北京用友软件股份有限公司
'设计:章景峰
'编码:章景峰
'说明:U8资金管理---业务对象
'--------------------------------
Option Explicit
Private Const m_conBIStyle As Long = 9

Public Function Init(ByVal DataSourceName As String, Optional ByVal BIStyle As Long = m_conBIStyle) As U8FDEso.EntityObject
    Dim objEO        As U8FDEso.EntityObject
    Dim objOID       As U8FDEso.OIDObject
    Dim objDataMgr   As New U8FDmgr.DataManager
    Dim objOIDMgr    As New U8FDmgr.OIDManager
    
    Set objEO = objDataMgr.LoadEOMetaData(DataSourceName, BIStyle)
    Set objOID = objOIDMgr.GetNewOID(DataSourceName, BIStyle, False)
    Set objEO.OID = objOID
    Set Init = objEO
    
    Set objOID = Nothing
    Set objEO = Nothing
    Set objDataMgr = Nothing
    Set objOIDMgr = Nothing
End Function

Public Function MoveTo(ByVal DataSourceName As String, MoveMode As U8FDEso.MoveModeEnum, Optional ByVal BIStyle As Long = m_conBIStyle, Optional OID As U8FDEso.OIDObject) As U8FDEso.EntityObject
    Dim objEO      As U8FDEso.EntityObject
    Dim objDataMgr As New U8FDmgr.DataManager
    
    Set objEO = objDataMgr.LoadEOMetaData(DataSourceName, BIStyle)
    
    If con.State = adStateClosed Then con.Open DataSourceName
    If Not OID Is Nothing Then Set objEO.OID = OID
    
    If objDataMgr.MoveTo(con, objEO, MoveMode) Then
        Set MoveTo = objEO
    Else
        Set MoveTo = Nothing
    End If
    
    Set objEO = Nothing
    Set objDataMgr = Nothing
End Function

Public Function Save(ByVal DataSourceName As String, EO As U8FDEso.EntityObject, Optional ByVal BIStyle As Long = m_conBIStyle) As Boolean
    Dim objDataMgr As New U8FDmgr.DataManager
    Dim objOIDMgr  As New U8FDmgr.OIDManager
    Dim objOID     As U8FDEso.OIDObject
    '保存另需新加：判断编码和名称不能重复
    If Not Validate(DataSourceName, EO) Then Exit Function
    If EO.State = esoAddNew Then
        Set objOID = objOIDMgr.GetNewOID(DataSourceName, BIStyle, True)
        Set EO.OID = objOID
    End If
    If con.State = adStateClosed Then con.Open DataSourceName
    Save = objDataMgr.Save(con, EO)
    
    Set objOIDMgr = Nothing
    Set objDataMgr = Nothing
    Set objOID = Nothing
End Function

Public Function Delete(ByVal DataSourceName As String, EO As U8FDEso.EntityObject, Optional ByVal BIStyle As Long = m_conBIStyle) As Boolean
    Dim objDataMgr As New U8FDmgr.DataManager
    
    If con.State = adStateClosed Then con.Open DataSourceName
    Delete = objDataMgr.Delete(con, EO)
    Set objDataMgr = Nothing
End Function

Public Function RecordCount(ByVal DataSourceName As String, EO As U8FDEso.EntityObject)
    Dim sql         As String
    Dim rec         As New ADODB.Recordset
    
    If con.State = adStateClosed Then con.Open DataSourceName
    sql = "Select count(*) From " & EO.SourceTable
    rec.Open sql, con, adOpenStatic, adLockOptimistic
    
    RecordCount = rec.Fields(0).Value
    
    rec.Close
    Set rec = Nothing
End Function

Public Function IsUsed(DataSourceName As String, ID As String) As Boolean
    Dim rec        As New ADODB.Recordset
    Dim sql        As String
    
    sql = "select 1 from fd_accdef where accunit_id = '" & ID & "'"
    sql = sql & " union select 1 from fd_transactions where minus_acc_id = '" & ID & "'"
    
    If con.State = adStateClosed Then con.Open DataSourceName
    rec.Open sql, con
    
    If Not rec.EOF Then
        IsUsed = True
    Else
        IsUsed = False
    End If
    
    rec.Close
    Set rec = Nothing
End Function


Public Function Find(ByVal DataSourceName As String, EO As U8FDEso.EntityObject, ByVal UnitType As Byte, ByVal UnitCode As String, ByVal UnitName As String, ByVal UnitDigest As String) As String
    Dim sql         As String
    Dim rec         As New ADODB.Recordset
    
    If con.State = adStateClosed Then con.Open DataSourceName
    If UnitType = 0 Then
        sql = "Select " & EO("type_flag").SourceField & "," & EO("accunit_id").SourceField & "," & EO("accunit_code").SourceField & "," & EO("accunit_name").SourceField & " From " & EO.SourceTable & " where 1=1"
    Else
        sql = "Select " & EO("type_flag").SourceField & "," & EO("accunit_id").SourceField & "," & EO("accunit_code").SourceField & "," & EO("accunit_name").SourceField & " From " & EO.SourceTable & " where " & EO("type_flag").SourceField & "='" & UnitType - 1 & "'"
    End If
    
    If Len(Trim(UnitCode)) <> 0 Then
        sql = sql & " and " & EO("accunit_code").SourceField & " like '" & UnitCode & "%'"
    End If
    
    If Len(Trim(UnitName)) <> 0 Then
        sql = sql & " and " & EO("accunit_name").SourceField & " like '" & UnitName & "%'"
    End If
    
    If Len(Trim(UnitDigest)) <> 0 Then
        sql = sql & " and " & EO("digest").SourceField & " like '" & UnitDigest & "%'"
    End If
    
    sql = sql & " order by " & EO("accunit_id").SourceField
    
    rec.Open sql, con, adOpenStatic, adLockOptimistic
    
    If Not rec.EOF Then
        EO("accunit_id") = rec.Fields(1).Value
        EO("accunit_code") = rec.Fields(2).Value
        EO("accunit_name") = rec.Fields(3).Value
        Find = rec.Fields(0).Value & rec.Fields(1).Value
    Else
        Find = 0
    End If
    
    rec.Close
    Set rec = Nothing
End Function

Public Function Validate(ByVal DataSourceName As String, EO As U8FDEso.EntityObject) As Boolean
    Select Case EO.State
        Case esoAddNew
        
        Case esoDelete
        
        Case esoEdit
        
        Case esoInitialized
        
        Case esoInstance
        
    End Select
    Validate = True
End Function

Public Function LoadAllRecord(ByVal DataSourceName As String, Optional ByVal BIStyle As Long = m_conBIStyle) As U8FDEso.Entities
    Dim objEO        As U8FDEso.EntityObject
    Dim objOID       As U8FDEso.OIDObject
    Dim objDataMgr   As New U8FDmgr.DataManager
    Dim objOIDMgr    As New U8FDmgr.OIDManager
    
    Set objEO = objDataMgr.LoadEOMetaData(DataSourceName, BIStyle)
    Set objOID = objOIDMgr.GetNewOID(DataSourceName, BIStyle, False)
    Set objEO.OID = objOID
    Set LoadAllRecord = objEO.EOS
    
    Set objOID = Nothing
    Set objEO = Nothing
    Set objDataMgr = Nothing
    Set objOIDMgr = Nothing
End Function

Public Function GetLoanRate(ByVal DataSourceName As String, EO As U8FDEso.EntityObject) As Currency
    GetLoanRate = 10000
End Function

Public Function GetLoanRated(ByVal DataSourceName As String, EO As U8FDEso.EntityObject) As Currency
    GetLoanRated = 2000
End Function