modobject.bas

智能邮件管理信息系统

Attribute VB_Name = "ModObject"
Option Explicit


Public Function GetAccountClass() As Account.AccountClass
    Set GetAccountClass = New Account.AccountClass
    GetAccountClass.Init gdbCurrentDB, m_E_ViewMode
End Function

'

Public Function GetclsMailOptional() As MailOptionalDll.clsMailOptional
    Set GetclsMailOptional = New MailOptionalDll.clsMailOptional
    GetclsMailOptional.Init gdbCurrentDB
End Function



Public Function GetclsEmployee() As PEmployee.clsEmployee
    Set GetclsEmployee = New PEmployee.clsEmployee
    GetclsEmployee.Init gdbCurrentDB
End Function


Public Function GetclsProject() As PProjects.clsProjects
    Set GetclsProject = New PProjects.clsProjects
    GetclsProject.Init gdbCurrentDB
End Function



Public Function GetclsContactGroup() As PContactGroup.clsContactGroup
    Set GetclsContactGroup = New PContactGroup.clsContactGroup
    GetclsContactGroup.Init gdbCurrentDB, m_E_ViewMode, gLngEmployeeID1
End Function



Public Function GetclsRightGroup() As PRightGroup.clsRightGroup
    Set GetclsRightGroup = New PRightGroup.clsRightGroup
    GetclsRightGroup.Init gdbCurrentDB
End Function


Public Function GetclsAccountClass() As Account.AccountClass
    Set GetclsAccountClass = New Account.AccountClass
    GetclsAccountClass.Init gdbCurrentDB, m_E_ViewMode
End Function


Public Function GetclsTemplateObject() As MailTemplateProject.clsTemplateProject
    Set GetclsTemplateObject = New MailTemplateProject.clsTemplateProject
    GetclsTemplateObject.Init gdbCurrentDB, m_E_ViewMode, gLngEmployeeID1
End Function



Public Function GetclsMailTemplate() As PMailTemplate.clsMailTemplate
    Set GetclsMailTemplate = New PMailTemplate.clsMailTemplate
    GetclsMailTemplate.Init gdbCurrentDB, m_E_ViewMode
End Function



Public Function GetclsTemplateProject() As MailTemplateProject.clsTemplateProject
    Set GetclsTemplateProject = New MailTemplateProject.clsTemplateProject
    GetclsTemplateProject.Init gdbCurrentDB, m_E_ViewMode, gLngEmployeeID1
End Function



Public Function GetclsContact() As PContact.clsContact
    Set GetclsContact = New PContact.clsContact
    GetclsContact.Init gdbCurrentDB
End Function



Public Function GetclsPosition() As PPosition.clsPosition
    Set GetclsPosition = New PPosition.clsPosition
    GetclsPosition.Init gdbCurrentDB
End Function

'
'
'Public Function GetclsContactGroup() As PContactGroup.clsContactGroup
'    Set GetclsContactGroup = New PContactGroup.clsContactGroup
'    GetclsContactGroup.Init gdbCurrentDB, mCurDatabaseType
'End Function






Public Function GetclsCustomer() As PCustomer.clsCustomer
    Set GetclsCustomer = New PCustomer.clsCustomer
    GetclsCustomer.Init gdbCurrentDB, gLngEmployeeID1
End Function




Public Function GetclsProjects() As PProjects.clsProjects
    Set GetclsProjects = New PProjects.clsProjects
    GetclsProjects.Init gdbCurrentDB
End Function



Public Function GetclsTask() As TaskProject.clsTask
    Set GetclsTask = New TaskProject.clsTask
    GetclsTask.Init gdbCurrentDB, m_E_ViewMode
End Function