mdlsetintr.bas

<Visual Basic 数据库开发实例精粹（第二版）>一书首先介绍了Visual Basic(简称VB)开发的技巧和重点技术

Attribute VB_Name = "mdlSetIntr"
'****************************************
'*      企业内部业务联系系统 1.0版      *
'*                                      *
'*  作者：郭文云(云南电信昭通分公司)    *
'*  日期：2004年8月                     *
'*  版权：Terrificsoft                  *
'*          版权所有  侵权必究          *
'****************************************

Option Explicit

'为组合框加入项目
Public Sub AddComboItems(theCombo As ComboBox)
  Dim i As Long
  theCombo.Clear
  theCombo.AddItem "系统管理员"
  theCombo.AddItem "帐务中心"
  theCombo.AddItem "市场拓展部"
  theCombo.AddItem "公众客户部"
  theCombo.AddItem "大客户部"
  theCombo.AddItem "网络管理调度部"
  '移除当前登录部门
  For i = 0 To theCombo.ListCount - 1
      If theCombo.List(i) = UserDept Then
         theCombo.RemoveItem i
      End If
  Next i
  theCombo.ListIndex = 0
End Sub

'为列表框加入项目
Public Sub AddListItems(theList As ListBox)
  Dim i As Long
  theList.Clear
  theList.AddItem "系统管理员"
  theList.AddItem "帐务中心"
  theList.AddItem "市场拓展部"
  theList.AddItem "公众客户部"
  theList.AddItem "大客户部"
  theList.AddItem "网络管理调度部"
  '移除当前登录部门
  For i = 0 To theList.ListCount - 1
      If theList.List(i) = UserDept Then
         theList.RemoveItem i
      End If
  Next i
  theList.ListIndex = -1
End Sub

'设置信息发送窗体
Public Sub SetfrmSendInfo()
  frmSendInfo.lbl(8) = frmSendInfo.Caption
  frmSendInfo.lbl(9) = frmSendInfo.lbl(8)
  '自动完成发件部门和发件人
  frmSendInfo.txt(0) = UserDept
  frmSendInfo.txt(1) = UserName
  '在调用窗体frmSendInfo前已经设置了Caption属性，
  '所以只要根据该属性来判断是什么信息处理，并进行相应的设置
  If frmSendInfo.Caption = "新信息" Then
     frmSendInfo.Width = 6615
     frmSendInfo.cboDept.Enabled = True
  End If
  If frmSendInfo.Caption = "发送广播" Then
     frmSendInfo.Width = 9060
     frmSendInfo.txt(6) = "发送广播 [共发往 " & 0 & " 个部门]"
     frmSendInfo.txt(6).Visible = True
  End If
  If frmSendInfo.Caption = "回复信息" Then
     frmSendInfo.Width = 6615
     frmSendInfo.txt(6) = frmMain.txt(0)
     frmSendInfo.txt(6).Visible = True
     frmSendInfo.txt(3).Text = "本信息为回复信息"
     frmSendInfo.txt(3).Enabled = False
     frmSendInfo.lbl(4).Enabled = False
  End If
  '在设置完毕后才显示该窗体
  frmSendInfo.Show
End Sub