📄 frmmain1.frm
字号:
pCreateStatus
Set picLeft.Container = picMain
Set picBody.Container = picMain
#If EnglishVersion = 1 Then
BlnEnglishVersion = True
#Else
BlnEnglishVersion = False
#End If
frmRefresh.LabLoading.Caption = "正在加载数据集合..."
frmRefresh.Refresh
ctlMailList.BlnEnglishVersion = BlnEnglishVersion
ctlLeftList.BlnEnglishVersion = BlnEnglishVersion
ctlMailList.gdbCurrentDB = gdbCurrentDB
ctlMailList.mlngViewID = 3
RefreshMailList
frmRefresh.ProgressBar1.Value = 3
frmRefresh.LabLoading.Caption = "正在加载联系人组建..."
frmRefresh.Refresh
Set CDepartmentAndConactManager = New ContactManager.ContactList
Set CDepartmentAndConact = New DepartmentConact.DepartmentAndConact
CDepartmentAndConact.Init gdbCurrentDB
frmRefresh.ProgressBar1.Value = 4
frmRefresh.LabLoading.Caption = "正在加载邮件组建..."
frmRefresh.Refresh
'新建/编辑邮件类
Set mclsMailCreator = New MailDll.Mail
mclsMailCreator.Init gdbCurrentDB
frmRefresh.ProgressBar1.Value = 5
frmRefresh.LabLoading.Caption = "正在加载帐户组建..."
frmRefresh.Refresh
Set mclsUserManager = New UserManager.CInterface
frmRefresh.ProgressBar1.Value = 6
frmRefresh.LabLoading.Caption = "正在加载任务,模板组建..."
frmRefresh.Refresh
Set mclsTaskManager = New TaskManager.CInterface
Set mclsMailTemplate = New MailTemplateProject.clsMailTemplate
Set mclsMailOptional = New MailOptionalDll.clsMailOptional
mclsMailTemplate.Init gdbCurrentDB
mclsMailOptional.Init gdbCurrentDB
frmRefresh.ProgressBar1.Value = 7
frmRefresh.LabLoading.Caption = "正在加载SMTP组建..."
frmRefresh.Refresh
Set m_CPop3Interface = New CPop3Interface
Set m_CSmtpInterface = New CSmtpInterface
frmRefresh.ProgressBar1.Value = 8
frmRefresh.LabLoading.Caption = "正在加载日志,导入导出组建..."
frmRefresh.Refresh
Set mclsLogManager = New LogManager.logList
Set m_CImportInterface = New CSMTP.CImportInterface
Set mclsFileSystem = New FileSystemObject
Set mclsSearchAttach = New CSearchAttach.CInterface
frmRefresh.ProgressBar1.Value = 9
frmRefresh.LabLoading.Caption = "正在加载客户列表数据..."
frmRefresh.Refresh
SetAutoTime
ctlLeftList.gdbCurrentDB = gdbCurrentDB
ctlLeftList.mlngViewID = 42
'将当前选择的操作员加入联系人中进行查找
ctlLeftList.RefreshData IIf(m_E_ViewMode = m_CliendMode, " LngContactID=" & gLngContactID & " AND lngType=0", "")
MOwnDefineTree.Init gdbCurrentDB, BlnOneUser
frmRefresh.ProgressBar1.Value = 10
frmRefresh.LabLoading.Caption = "正在加载系统菜单..."
frmRefresh.Refresh
pCreateMenu
frmRefresh.ProgressBar1.Value = 11
' pCreateFoxTreeView
frmRefresh.LabLoading.Caption = "正在加载邮件文件夹..."
frmRefresh.Refresh
pCreateOutLookTreeView
frmRefresh.ProgressBar1.Value = 12
frmRefresh.LabLoading.Caption = "正在加载工具条..."
frmRefresh.Refresh
pCreateToolBar '初始化ToolBar
frmRefresh.ProgressBar1.Value = 13
frmRefresh.LabLoading.Caption = "正在菜单可见项..."
frmRefresh.Refresh
RefreshShowColumns
RefreshOrderStyle
frmRefresh.ProgressBar1.Value = 14
frmRefresh.LabLoading.Caption = "正在加载分割条..."
frmRefresh.Refresh
pCreateSplit
frmRefresh.ProgressBar1.Value = 15
frmRefresh.LabLoading.Caption = "正在加载其他..."
frmRefresh.Refresh
'********************************************************************************
'拖拽初始化
' Set m_cDrag = New CImageListDrag
' m_cDrag.SetFormDragState Me
' m_cDrag.Owner = ctlMailList
' ctlTreeTab.OLEDropMode = 1
frmRefresh.ProgressBar1.Value = 16
'********************************************************************************
'********************************************************************************
'查找类
Set mCSearchAttach = New CSearchAttach.CInterface
'********************************************************************************
frmRefresh.ProgressBar1.Value = 17
frmRefresh.LabLoading.Visible = False
frmRefresh.LabLoading.Caption = "正在加载主窗体..."
frmRefresh.Refresh
Unload frmRefresh
' mnuView_Click 5
mlngUserID = mclsMailAccount.DefaultUser
If Not mlngUserID > 0 Then
mclsMailAccount.NewUser
mlngUserID = mclsMailAccount.DefaultUser
End If
mlngUserID = mclsMailAccount.DefaultUser
PCreateComboList
BlnIsCreateCombolist = False
'4
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Function:创建OUTLOOK模式TREEVIEW
'Author:Myganlimei@163.com
'Create Date:2004-03-27
'Last Modify:2004-03-28
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub pCreateOutLookTreeView()
m_E_TreeViewType = E_TreeViewType.m_OutlookTreeView
mclsMainMenu.MenuItemChecked(mclsMainMenu.IndexFromKey("OutlookTreeType")) = True
mclsMainMenu.MenuItemChecked(mclsMainMenu.IndexFromKey("FoxTreeType")) = False
Dim Send As Long, Receive As Long, Sended As Long, Delete As Long
Dim strsql As String
'system node
If BlnOneUser Then '帐户信箱只保留“收件箱”，“垃圾箱”两个.
strsql = "select * from OwnDefineTree where strFormName='frmMain' and BlnIsSystem=1" & IIf(m_E_ViewMode = m_ServerMode, " and lngOwnDefineTreeID in (2,3,6) ", "") & " order by BytOrder"
Else
strsql = "select * from OwnDefineTree where strFormName='frmMain' and BlnIsSystem=1 order by BytOrder"
End If
MOwnDefineTree.GetOwnDefineTrees strsql, MOwnDefineTree.m_OwnDefineTrees
Dim lngNodeIndex As Long
With ctlTreeTab
.hImageList = Me.imgTreeView.hIml
.ClearAllItems
.ExplorerBar = False
.RootLines = False
.Lines = True
.PlusMinus = True
.FullRowSelect = False
.SingleExpand = False
.ShowNumber = True
.InternalBorderX = 0
.InternalBorderY = 0
Dim lngMailCount As Long
Dim lngNotReadCount As Long
If MOwnDefineTree.m_OwnDefineTrees.Count > 0 Then
For lngNodeIndex = 0 To MOwnDefineTree.m_OwnDefineTrees.Count - 1
LSet MOwnDefineTree.m_OwnDefineTree = m_OwnDefineTrees.OwnDefineTree(lngNodeIndex)
If MOwnDefineTree.m_OwnDefineTree.strText <> "" Then
Call .AddItem(m_OwnDefineTree.strParentKey, IIf(UCase(m_OwnDefineTree.strTypeString) = UCase("firstChild"), TreeViewControl.RelationConstants.firstChild, TreeViewControl.RelationConstants.lastChild), m_OwnDefineTree.strKey, IIf(BlnEnglishVersion, m_OwnDefineTree.strEnglishText, m_OwnDefineTree.strText), imgTreeView.ItemIndex(m_OwnDefineTree.strImageKey))
.ItemData(m_OwnDefineTree.strKey) = m_OwnDefineTree.lngOwnDefineTreeID
End If
Next
For lngNodeIndex = 0 To MOwnDefineTree.m_OwnDefineTrees.Count - 1
LSet MOwnDefineTree.m_OwnDefineTree = m_OwnDefineTrees.OwnDefineTree(lngNodeIndex)
.ItemExpanded(m_OwnDefineTree.strKey) = IIf(m_OwnDefineTree.BlnExpend = 1, True, False)
Next
End If
If Not BlnOneUser Then
'Contract's owndefine Treeview
strsql = "select * from OwnDefineTree where strFormName='frmMain' and BlnIsSystem=0 " & IIf(m_E_ViewMode = m_CliendMode, " and lngContactID=" & gLngContactID, "") & " order by BytOrder"
MOwnDefineTree.GetOwnDefineTrees strsql, MOwnDefineTree.m_OwnDefineTreeContsContract
If MOwnDefineTree.m_OwnDefineTreeContsContract.Count > 0 Then
For lngNodeIndex = 0 To MOwnDefineTree.m_OwnDefineTreeContsContract.Count - 1
LSet MOwnDefineTree.m_OwnDefineTree = m_OwnDefineTreeContsContract.OwnDefineTree(lngNodeIndex)
If MOwnDefineTree.m_OwnDefineTree.strText <> "" Then
Call .AddItem(m_OwnDefineTree.strParentKey, IIf(UCase(m_OwnDefineTree.strTypeString) = UCase("firstChild"), TreeViewControl.RelationConstants.firstChild, TreeViewControl.RelationConstants.lastChild), m_OwnDefineTree.strKey, IIf(BlnEnglishVersion, m_OwnDefineTree.strEnglishText, m_OwnDefineTree.strText), imgTreeView.ItemIndex(m_OwnDefineTree.strImageKey))
.ItemData(m_OwnDefineTree.strKey) = m_OwnDefineTree.lngOwnDefineTreeID
End If
Next
For lngNodeIndex = 0 To MOwnDefineTree.m_OwnDefineTreeContsContract.Count - 1
LSet MOwnDefineTree.m_OwnDefineTree = m_OwnDefineTreeContsContract.OwnDefineTree(lngNodeIndex)
.ItemExpanded(m_OwnDefineTree.strKey) = IIf(m_OwnDefineTree.BlnExpend = 1, True, False)
Next
End If
Else
'Contract's owndefine Treeview
strsql = "select * from OwnDefineTree where strFormName='frmMain' and BlnIsSystem=0 " & IIf(m_E_ViewMode = m_CliendMode, " and lngContactID=" & gLngContactID, " and lngContactID=0") & " order by BytOrder"
MOwnDefineTree.GetOwnDefineTrees strsql, MOwnDefineTree.m_OwnDefineTreeContsContract
If MOwnDefineTree.m_OwnDefineTreeContsContract.Count > 0 Then
For lngNodeIndex = 0 To MOwnDefineTree.m_OwnDefineTreeContsContract.Count - 1
LSet MOwnDefineTree.m_OwnDefineTree = m_OwnDefineTreeContsContract.OwnDefineTree(lngNodeIndex)
If MOwnDefineTree.m_OwnDefineTree.strText <> "" Then
Call .AddItem(m_OwnDefineTree.strParentKey, IIf(UCase(m_OwnDefineTree.strTypeString) = UCase("firstChild"), TreeViewControl.RelationConstants.firstChild, TreeViewControl.RelationConstants.lastChild), m_OwnDefineTree.strKey, IIf(BlnEnglishVersion, m_OwnDefineTree.strEnglishText, m_OwnDefineTree.strText), imgTreeView.ItemIndex(m_OwnDefineTree.strImageKey))
.ItemData(m_OwnDefineTree.strKey) = m_OwnDefineTree.lngOwnDefineTreeID
End If
Next
For lngNodeIndex = 0 To MOwnDefineTree.m_OwnDefineTreeContsContract.Count - 1
LSet MOwnDefineTree.m_OwnDefineTree = m_OwnDefineTreeContsContract.OwnDefineTree(lngNodeIndex)
.ItemExpanded(m_OwnDefineTree.strKey) = IIf(m_OwnDefineTree.BlnExpend = 1, True, False)
Next
End If
End If
Call GetMailCountInformation(MailDll.E_SystemMailBox.InMailBox, lngMailCount, lngNotReadCount, gLngContactID)
.ItemBold("InMailBox") = IIf(lngMailCount > 0, True, False)
.ItemNumber("InMailBox") = lngMailCount
If BlnOneUser Then '帐户信箱只保留“收件箱”，“垃圾箱”两个
If m_E_ViewMode = m_CliendMode Then
Call GetMailCountInformation(MailDll.E_SystemMailBox.OutMailBox, lngMailCount, lngNotReadCount, gLngContactID)
.ItemBold("OutMailBox") = IIf(lngMailCount > 0, True, False)
.ItemNumber("OutMailBox") = lngMailCount
End If
Else
Call GetMailCountInformation(MailDll.E_SystemMailBox.OutMailBox, lngMailCount, lngNotReadCount, gLngContactID)
.ItemBold("OutMailBox") = IIf(lngMailCount > 0, True, False)
.ItemNumber("OutMailBox") = lngMailCount
End If
If BlnOneUser Then '帐户信箱只保留“收件箱”，“垃圾箱”两个
If m_E_ViewMode = m_CliendMode Then
Call GetMailCountInformation(MailDll.E_SystemMailBox.SendMail, lngMailCount, lngNotReadCount, gLngContactID)
.ItemBold("SendMail") = IIf(lngMailCount > 0, True, False)
.ItemNumber("SendMail") = lngMailCount
End If
Else
Call GetMailCountInformation(MailDll.E_SystemMailBox.SendMail, lngMailCount, lngNotReadCount, gLngContactID)
.ItemBold("SendMail") = IIf(lngMailCount > 0, True, False)
.ItemNumber("SendMail") = lngMailCount
End If
Call GetMailCountInformation(MailDll.E_SystemMailBox.DeletedMail, lngMailCount, lngNotReadCount, gLngContactID)
.ItemBold("DeletedMail") = IIf(lngMailCount > 0, True, False)
.ItemNumber("DeletedMail") = lngMailCount
If BlnOneUser Then '帐户信箱只保留“收件箱”，“垃圾箱”两个
If m_E_ViewMode = m_CliendMode Then
Call GetMailCountInformation(MailDll.E_SystemMailBox.WriteBox, lngMailCount, lngNotReadCount, gLngContactID)
.ItemBold("WriteBox") = IIf(lngMailCount > 0, True, False)
.ItemNumber("WriteBox") = lngMailCount
End If
Else
Call GetMailCountInformation(MailDll.E_SystemMailBox.WriteBox, lngMailCount, lngNotReadCount, gLngContactID)
.ItemBold("WriteBox") = IIf(lngMailCount > 0, True, False)
.ItemNumber("WriteBox") = lngMailCount
End If
End With
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Function:创建Fox模式TREEVIEW
'Author:Myganlimei@163.com
'Create Date:2004-03-27
'Last Modify:2004-03-28
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub pCreateFoxTreeView()
Dim a As Long, B As Long, c As Long, d As Long
Dim e As Long, f As Long, i As Long, ii As Long
mclsMainMenu.MenuItemChecked(mclsMainMenu.IndexFromKey("OutlookTreeType")) = False
mclsMainMenu.MenuItemChecked(mclsMainMenu.IndexFromKey("FoxTreeType")) =⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -