mowndefinetree.bas

SmartMail外贸企业邮件管理,很不错的

Attribute VB_Name = "MOwnDefineTree"
Option Explicit
Public m_clsOwnDefineTree As New OwnDefineTreeTlb.clsOwnDefineTree
Public m_OwnDefineTree As OwnDefineTreeTlb.OwnDefineTree
Public m_OwnDefineTrees As OwnDefineTreeTlb.OwnDefineTrees
Public m_OwnDefineTreeContsContract As OwnDefineTreeTlb.OwnDefineTrees


Public Sub Init(ByVal mgDatabase As Connection, mBlnOneUser As Boolean)
    m_clsOwnDefineTree.Init mgDatabase, mBlnOneUser
End Sub



Public Sub GetOwnDefineTree(ByVal lngOwnDefineTreeID As Long, OwnDefineTreeTemp As OwnDefineTreeTlb.OwnDefineTree)
    Call m_clsOwnDefineTree.GetOwnDefineTree(lngOwnDefineTreeID, OwnDefineTreeTemp)
End Sub

Function SaveOwnDefineTree(OwnDefineTreeTemp As OwnDefineTreeTlb.OwnDefineTree, Optional ByVal blnIsViald As Boolean = True) As Boolean
    SaveOwnDefineTree = m_clsOwnDefineTree.SaveOwnDefineTree(OwnDefineTreeTemp, blnIsViald)
End Function

Function AddOwnDefineTree(ByVal lngOwnDefineTreeID As Long) As Long
    AddOwnDefineTree = m_clsOwnDefineTree.AddOwnDefineTree(lngOwnDefineTreeID)
End Function

Sub EditOwnDefineTree(ByVal lngOwnDefineTreeID As Long)
    m_clsOwnDefineTree.EditOwnDefineTree lngOwnDefineTreeID
End Sub

Function DeleteOwnDefineTree(ByVal lngOwnDefineTreeID As Long) As Boolean
    DeleteOwnDefineTree = m_clsOwnDefineTree.DeleteOwnDefineTree(lngOwnDefineTreeID)
End Function

Sub GetOwnDefineTrees(ByVal strsql As String, OwnDefineTrees As OwnDefineTreeTlb.OwnDefineTrees)
    m_clsOwnDefineTree.GetOwnDefineTrees strsql, OwnDefineTrees
End Sub




Public Sub FrmCreateTreeShowMe(strSelectKey As String, strFormName As String, ByRef LngNewOwnDefineTreeID As Long, ByRef BlnCancel As Boolean, LngEmployeeID As Long, ByVal mm_E_TreeViewType As E_TreeViewType)
    Call m_clsOwnDefineTree.FrmCreateTreeShowMe(strSelectKey, strFormName, LngNewOwnDefineTreeID, BlnCancel, LngEmployeeID, m_E_ViewMode, mm_E_TreeViewType)
End Sub


Public Function FrmRenameShowMe(strSelectKey As String, strFormName As String) As String
    FrmRenameShowMe = m_clsOwnDefineTree.FrmRenameShowMe(strSelectKey, strFormName)
End Function