frmmain.vb

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

Imports clientMgrBusiness

Public Class frmMain
  Inherits System.Windows.Forms.Form

  Enum SearchAction
    Show
    Hide
  End Enum

   Private m_SearchAction As SearchAction = SearchAction.Show '当前搜索面板的执行动作
  Private m_bShowInGroup As Boolean = True
  Private m_bResverse As Boolean = True
  Private m_bShowRoot As Boolean = True

#Region " Windows 窗体设计器生成的代码 "

  Public Sub New()
    MyBase.New()

    '该调用是 Windows 窗体设计器所必需的。
    InitializeComponent()

    '在 InitializeComponent() 调用之后添加任何初始化

  End Sub

  '窗体重写 dispose 以清理组件列表。
  Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
    If disposing Then
      If Not (components Is Nothing) Then
        components.Dispose()
      End If
    End If
    MyBase.Dispose(disposing)
  End Sub

  'Windows 窗体设计器所必需的
  Private components As System.ComponentModel.IContainer

  '注意: 以下过程是 Windows 窗体设计器所必需的
  '可以使用 Windows 窗体设计器修改此过程。
  '不要使用代码编辑器修改它。
  Friend WithEvents StatusBar1 As System.Windows.Forms.StatusBar
  Friend WithEvents stbPanalNum As System.Windows.Forms.StatusBarPanel
  Friend WithEvents stbInfo As System.Windows.Forms.StatusBarPanel
  Friend WithEvents stdCapsLock As System.Windows.Forms.StatusBarPanel
  Friend WithEvents stbLogo As System.Windows.Forms.StatusBarPanel
  Public WithEvents labTitle As System.Windows.Forms.Label
  Friend WithEvents labLoginedDept As System.Windows.Forms.Label
  Friend WithEvents ImgListToolbar As System.Windows.Forms.ImageList
  Friend WithEvents ImgListTreeView As System.Windows.Forms.ImageList
  Friend WithEvents ImgListListViewS As System.Windows.Forms.ImageList
  Friend WithEvents tbMain As System.Windows.Forms.ToolBar
  Friend WithEvents sp1 As System.Windows.Forms.ToolBarButton
  Friend WithEvents sp2 As System.Windows.Forms.ToolBarButton
  Friend WithEvents sp3 As System.Windows.Forms.ToolBarButton
  Friend WithEvents sp4 As System.Windows.Forms.ToolBarButton
  Friend WithEvents tbnAbout As System.Windows.Forms.ToolBarButton
  Friend WithEvents tbnSupport As System.Windows.Forms.ToolBarButton
  Friend WithEvents tbnUserMgr As System.Windows.Forms.ToolBarButton
  Friend WithEvents splitLeft As System.Windows.Forms.Splitter
  Public WithEvents Label4 As System.Windows.Forms.Label
  Public WithEvents cmdSearch As System.Windows.Forms.Button
  Public WithEvents cmdBack As System.Windows.Forms.Button
  Friend WithEvents tmrSearch As System.Windows.Forms.Timer
  Friend WithEvents xplSearch As XPanderControl.XPanderList
  Public WithEvents labResult As System.Windows.Forms.Label
  Public WithEvents labResult1 As System.Windows.Forms.Label
  Friend WithEvents XPanderBaseSearch As XPanderControl.XPander
  Friend WithEvents XPanderAdvSearch As XPanderControl.XPander
  Public WithEvents MainMenu2 As System.Windows.Forms.MainMenu
  Public WithEvents mnuAdmin As System.Windows.Forms.MenuItem
  Public WithEvents mnuClientType As System.Windows.Forms.MenuItem
  Public WithEvents mnuAddClientType As System.Windows.Forms.MenuItem
  Public WithEvents mnuModifyClientType As System.Windows.Forms.MenuItem
  Public WithEvents mnuDelClientType As System.Windows.Forms.MenuItem
  Public WithEvents mnuClient As System.Windows.Forms.MenuItem
  Public WithEvents mnuAddClient As System.Windows.Forms.MenuItem
  Public WithEvents mnuModifyClient As System.Windows.Forms.MenuItem
  Public WithEvents mnuDelClient As System.Windows.Forms.MenuItem
  Public WithEvents mnuSplit1 As System.Windows.Forms.MenuItem
  Public WithEvents mnuSearchClient As System.Windows.Forms.MenuItem
  Public WithEvents mnuSplit2 As System.Windows.Forms.MenuItem
  Public WithEvents mnuClientInfo As System.Windows.Forms.MenuItem
  Public WithEvents mnuWarning As System.Windows.Forms.MenuItem
  Public WithEvents mnuShowWarn As System.Windows.Forms.MenuItem
  Public WithEvents mnuSplitter3 As System.Windows.Forms.MenuItem
  Public WithEvents mnuWarnSetting As System.Windows.Forms.MenuItem
  Friend WithEvents MenuItem7 As System.Windows.Forms.MenuItem
  Public WithEvents mnuExit As System.Windows.Forms.MenuItem
  Friend WithEvents mnuOnlineSupport As System.Windows.Forms.MenuItem
  Friend WithEvents mnuAbout As System.Windows.Forms.MenuItem
  Friend WithEvents MenuItem10 As System.Windows.Forms.MenuItem
  Friend WithEvents tbnClientType As System.Windows.Forms.ToolBarButton
  Friend WithEvents tbnClientInfo As System.Windows.Forms.ToolBarButton
  Friend WithEvents tbnTodayWarning As System.Windows.Forms.ToolBarButton
  Friend WithEvents tbnWarnSetting As System.Windows.Forms.ToolBarButton
  Friend WithEvents sp6 As System.Windows.Forms.ToolBarButton
  Friend WithEvents cMenuClientType As System.Windows.Forms.ContextMenu
  Friend WithEvents mnuCtAdd As System.Windows.Forms.MenuItem
  Friend WithEvents mnuCtModify As System.Windows.Forms.MenuItem
  Friend WithEvents mnuCtDel As System.Windows.Forms.MenuItem
  Friend WithEvents chkClientType As System.Windows.Forms.CheckBox
  Public WithEvents chkName As System.Windows.Forms.CheckBox
  Public WithEvents txtName As System.Windows.Forms.TextBox
  Public WithEvents chkPhone As System.Windows.Forms.CheckBox
  Public WithEvents txtPhone As System.Windows.Forms.TextBox
  Friend WithEvents trvType As System.Windows.Forms.TreeView
  Friend WithEvents mnuUserMgr As System.Windows.Forms.MenuItem
  Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem
  Friend WithEvents mnuloginOut As System.Windows.Forms.MenuItem
  Friend WithEvents TreeViewContextMenu As System.Windows.Forms.ContextMenu
  Friend WithEvents mnuTvcmAddType As System.Windows.Forms.MenuItem
  Friend WithEvents mnuTvcmModifyType As System.Windows.Forms.MenuItem
  Friend WithEvents mnuTvcmDeleteType As System.Windows.Forms.MenuItem
  Friend WithEvents MenuItem5 As System.Windows.Forms.MenuItem
  Friend WithEvents mnuTvcmAddClient As System.Windows.Forms.MenuItem
  Public WithEvents tlvClient As System.Windows.Forms.TreeListView
  Public WithEvents palLoginInfo As System.Windows.Forms.Panel
  Friend WithEvents tbnAddClient As System.Windows.Forms.ToolBarButton
  Friend WithEvents tbnSearch As System.Windows.Forms.ToolBarButton
  Friend WithEvents tbnModifyClient As System.Windows.Forms.ToolBarButton
  Friend WithEvents tbnDeleteClient As System.Windows.Forms.ToolBarButton
  Friend WithEvents tcboType As UtilityLibrary.Combos.TreeCombo
  Friend WithEvents mnuShowInGroup As System.Windows.Forms.MenuItem
  Friend WithEvents mnuShowRoot As System.Windows.Forms.MenuItem
  Friend WithEvents mnuResverse As System.Windows.Forms.MenuItem
  Friend WithEvents chkResverse As System.Windows.Forms.CheckBox
  Friend WithEvents chkShowInGroup As System.Windows.Forms.CheckBox
  Friend WithEvents mnuSendEmail As System.Windows.Forms.MenuItem
  Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem
  <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
    Me.components = New System.ComponentModel.Container
    Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmMain))
    Me.palLoginInfo = New System.Windows.Forms.Panel
    Me.labLoginedDept = New System.Windows.Forms.Label
    Me.labTitle = New System.Windows.Forms.Label
    Me.trvType = New System.Windows.Forms.TreeView
    Me.ImgListTreeView = New System.Windows.Forms.ImageList(Me.components)
    Me.TreeViewContextMenu = New System.Windows.Forms.ContextMenu
    Me.mnuTvcmAddType = New System.Windows.Forms.MenuItem
    Me.mnuTvcmModifyType = New System.Windows.Forms.MenuItem
    Me.mnuTvcmDeleteType = New System.Windows.Forms.MenuItem
    Me.MenuItem5 = New System.Windows.Forms.MenuItem
    Me.mnuTvcmAddClient = New System.Windows.Forms.MenuItem
    Me.cMenuClientType = New System.Windows.Forms.ContextMenu
    Me.mnuCtAdd = New System.Windows.Forms.MenuItem
    Me.mnuCtModify = New System.Windows.Forms.MenuItem
    Me.mnuCtDel = New System.Windows.Forms.MenuItem
    Me.ImgListListViewS = New System.Windows.Forms.ImageList(Me.components)
    Me.StatusBar1 = New System.Windows.Forms.StatusBar
    Me.stbInfo = New System.Windows.Forms.StatusBarPanel
    Me.stbLogo = New System.Windows.Forms.StatusBarPanel
    Me.stdCapsLock = New System.Windows.Forms.StatusBarPanel
    Me.stbPanalNum = New System.Windows.Forms.StatusBarPanel
    Me.tbMain = New System.Windows.Forms.ToolBar
    Me.tbnClientType = New System.Windows.Forms.ToolBarButton
    Me.sp1 = New System.Windows.Forms.ToolBarButton
    Me.tbnAddClient = New System.Windows.Forms.ToolBarButton
    Me.tbnModifyClient = New System.Windows.Forms.ToolBarButton
    Me.tbnClientInfo = New System.Windows.Forms.ToolBarButton
    Me.tbnDeleteClient = New System.Windows.Forms.ToolBarButton
    Me.sp2 = New System.Windows.Forms.ToolBarButton
    Me.tbnSearch = New System.Windows.Forms.ToolBarButton
    Me.sp3 = New System.Windows.Forms.ToolBarButton
    Me.tbnTodayWarning = New System.Windows.Forms.ToolBarButton
    Me.tbnWarnSetting = New System.Windows.Forms.ToolBarButton
    Me.sp6 = New System.Windows.Forms.ToolBarButton
    Me.tbnUserMgr = New System.Windows.Forms.ToolBarButton
    Me.sp4 = New System.Windows.Forms.ToolBarButton
    Me.tbnAbout = New System.Windows.Forms.ToolBarButton
    Me.tbnSupport = New System.Windows.Forms.ToolBarButton
    Me.ImgListToolbar = New System.Windows.Forms.ImageList(Me.components)
    Me.splitLeft = New System.Windows.Forms.Splitter
    Me.tlvClient = New System.Windows.Forms.TreeListView
    Me.xplSearch = New XPanderControl.XPanderList
    Me.XPanderBaseSearch = New XPanderControl.XPander
    Me.tcboType = New UtilityLibrary.Combos.TreeCombo
    Me.chkClientType = New System.Windows.Forms.CheckBox
    Me.chkName = New System.Windows.Forms.CheckBox
    Me.txtName = New System.Windows.Forms.TextBox
    Me.Label4 = New System.Windows.Forms.Label
    Me.labResult = New System.Windows.Forms.Label
    Me.labResult1 = New System.Windows.Forms.Label
    Me.cmdSearch = New System.Windows.Forms.Button
    Me.cmdBack = New System.Windows.Forms.Button
    Me.XPanderAdvSearch = New XPanderControl.XPander
    Me.chkShowInGroup = New System.Windows.Forms.CheckBox
    Me.chkResverse = New System.Windows.Forms.CheckBox
    Me.chkPhone = New System.Windows.Forms.CheckBox
    Me.txtPhone = New System.Windows.Forms.TextBox
    Me.tmrSearch = New System.Windows.Forms.Timer(Me.components)
    Me.MainMenu2 = New System.Windows.Forms.MainMenu
    Me.mnuAdmin = New System.Windows.Forms.MenuItem
    Me.mnuUserMgr = New System.Windows.Forms.MenuItem
    Me.MenuItem2 = New System.Windows.Forms.MenuItem
    Me.mnuloginOut = New System.Windows.Forms.MenuItem
    Me.mnuExit = New System.Windows.Forms.MenuItem
    Me.mnuClientType = New System.Windows.Forms.MenuItem
    Me.mnuAddClientType = New System.Windows.Forms.MenuItem
    Me.mnuModifyClientType = New System.Windows.Forms.MenuItem
    Me.mnuDelClientType = New System.Windows.Forms.MenuItem
    Me.mnuClient = New System.Windows.Forms.MenuItem
    Me.mnuAddClient = New System.Windows.Forms.MenuItem
    Me.mnuModifyClient = New System.Windows.Forms.MenuItem
    Me.mnuDelClient = New System.Windows.Forms.MenuItem
    Me.mnuClientInfo = New System.Windows.Forms.MenuItem
    Me.mnuSplit1 = New System.Windows.Forms.MenuItem
    Me.mnuSearchClient = New System.Windows.Forms.MenuItem
    Me.mnuSplit2 = New System.Windows.Forms.MenuItem
    Me.mnuShowInGroup = New System.Windows.Forms.MenuItem
    Me.mnuResverse = New System.Windows.Forms.MenuItem
    Me.mnuShowRoot = New System.Windows.Forms.MenuItem
    Me.mnuWarning = New System.Windows.Forms.MenuItem
    Me.mnuShowWarn = New System.Windows.Forms.MenuItem
    Me.mnuSplitter3 = New System.Windows.Forms.MenuItem
    Me.mnuWarnSetting = New System.Windows.Forms.MenuItem
    Me.MenuItem7 = New System.Windows.Forms.MenuItem
    Me.mnuOnlineSupport = New System.Windows.Forms.MenuItem
    Me.MenuItem10 = New System.Windows.Forms.MenuItem
    Me.mnuAbout = New System.Windows.Forms.MenuItem
    Me.mnuSendEmail = New System.Windows.Forms.MenuItem
    Me.MenuItem1 = New System.Windows.Forms.MenuItem
    Me.palLoginInfo.SuspendLayout()
    CType(Me.stbInfo, System.ComponentModel.ISupportInitialize).BeginInit()
    CType(Me.stbLogo, System.ComponentModel.ISupportInitialize).BeginInit()
    CType(Me.stdCapsLock, System.ComponentModel.ISupportInitialize).BeginInit()
    CType(Me.stbPanalNum, System.ComponentModel.ISupportInitialize).BeginInit()
    Me.xplSearch.SuspendLayout()
    Me.XPanderBaseSearch.SuspendLayout()
    Me.XPanderAdvSearch.SuspendLayout()
    Me.SuspendLayout()
    '
    'palLoginInfo
    '
    Me.palLoginInfo.BackColor = System.Drawing.Color.FromArgb(CType(99, Byte), CType(117, Byte), CType(222, Byte))
    Me.palLoginInfo.Controls.Add(Me.labLoginedDept)
    Me.palLoginInfo.Controls.Add(Me.labTitle)
    Me.palLoginInfo.Cursor = System.Windows.Forms.Cursors.Default
    Me.palLoginInfo.Dock = System.Windows.Forms.DockStyle.Top
    Me.palLoginInfo.ForeColor = System.Drawing.SystemColors.WindowText
    Me.palLoginInfo.Location = New System.Drawing.Point(0, 57)
    Me.palLoginInfo.Name = "palLoginInfo"
    Me.palLoginInfo.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.palLoginInfo.Size = New System.Drawing.Size(739, 22)
    Me.palLoginInfo.TabIndex = 35
    Me.palLoginInfo.TabStop = True
    '
    'labLoginedDept
    '
    Me.labLoginedDept.AutoSize = True
    Me.labLoginedDept.BackColor = System.Drawing.Color.Transparent
    Me.labLoginedDept.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Bold)
    Me.labLoginedDept.ForeColor = System.Drawing.Color.White
    Me.labLoginedDept.Location = New System.Drawing.Point(118, 2)
    Me.labLoginedDept.Name = "labLoginedDept"
    Me.labLoginedDept.Size = New System.Drawing.Size(110, 19)
    Me.labLoginedDept.TabIndex = 37
    Me.labLoginedDept.Text = "labLoginedDept"
    '
    'labTitle
    '
    Me.labTitle.AutoSize = True
    Me.labTitle.BackColor = System.Drawing.Color.Transparent
    Me.labTitle.Cursor = System.Windows.Forms.Cursors.Default
    Me.labTitle.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
    Me.labTitle.ForeColor = System.Drawing.Color.White
    Me.labTitle.Location = New System.Drawing.Point(6, 3)
    Me.labTitle.Name = "labTitle"
    Me.labTitle.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.labTitle.Size = New System.Drawing.Size(106, 19)
    Me.labTitle.TabIndex = 36
    Me.labTitle.Text = "当前登录部门："
    '
    'trvType
    '
    Me.trvType.Dock = System.Windows.Forms.DockStyle.Left
    Me.trvType.FullRowSelect = True
    Me.trvType.HideSelection = False
    Me.trvType.HotTracking = True
    Me.trvType.ImageList = Me.ImgListTreeView
    Me.trvType.Location = New System.Drawing.Point(0, 79)
    Me.trvType.Name = "trvType"
    Me.trvType.Nodes.AddRange(New System.Windows.Forms.TreeNode() {New System.Windows.Forms.TreeNode("节点0", 0, 3)})
    Me.trvType.Size = New System.Drawing.Size(227, 491)
    Me.trvType.TabIndex = 36
    '
    'ImgListTreeView
    '
    Me.ImgListTreeView.ImageSize = New System.Drawing.Size(16, 16)
    Me.ImgListTreeView.ImageStream = CType(resources.GetObject("ImgListTreeView.ImageStream"), System.Windows.Forms.ImageListStreamer)
    Me.ImgListTreeView.TransparentColor = System.Drawing.Color.Transparent
    '
    'TreeViewContextMenu
    '
    Me.TreeViewContextMenu.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuTvcmAddType, Me.mnuTvcmModifyType, Me.mnuTvcmDeleteType, Me.MenuItem5, Me.mnuTvcmAddClient})
    '
    'mnuTvcmAddType
    '
    Me.mnuTvcmAddType.Index = 0
    Me.mnuTvcmAddType.Text = "添加客户类型"
    '
    'mnuTvcmModifyType
    '
    Me.mnuTvcmModifyType.Index = 1
    Me.mnuTvcmModifyType.Text = "修改客户类型"
    '
    'mnuTvcmDeleteType
    '
    Me.mnuTvcmDeleteType.Index = 2
    Me.mnuTvcmDeleteType.Text = "删除客户类型"
    '
    'MenuItem5
    '
    Me.MenuItem5.Index = 3
    Me.MenuItem5.Text = "-"
    '
    'mnuTvcmAddClient
    '
    Me.mnuTvcmAddClient.Index = 4
    Me.mnuTvcmAddClient.Text = "添加客户"
    '
    'cMenuClientType
    '
    Me.cMenuClientType.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuCtAdd, Me.mnuCtModify, Me.mnuCtDel})
    '
    'mnuCtAdd
    '
    Me.mnuCtAdd.Index = 0
    Me.mnuCtAdd.Text = "添加客户类型"
    '
    'mnuCtModify
    '
    Me.mnuCtModify.Index = 1
    Me.mnuCtModify.Text = "修改客户类型"
    '
    'mnuCtDel
    '
    Me.mnuCtDel.Index = 2
    Me.mnuCtDel.Text = "删除客户类型"
    '
    'ImgListListViewS
    '
    Me.ImgListListViewS.ImageSize = New System.Drawing.Size(16, 16)
    Me.ImgListListViewS.ImageStream = CType(resources.GetObject("ImgListListViewS.ImageStream"), System.Windows.Forms.ImageListStreamer)
    Me.ImgListListViewS.TransparentColor = System.Drawing.Color.Transparent
    '
    'StatusBar1
    '
    Me.StatusBar1.Location = New System.Drawing.Point(227, 548)
    Me.StatusBar1.Name = "StatusBar1"
    Me.StatusBar1.Panels.AddRange(New System.Windows.Forms.StatusBarPanel() {Me.stbInfo, Me.stbLogo, Me.stdCapsLock, Me.stbPanalNum})
    Me.StatusBar1.ShowPanels = True
    Me.StatusBar1.Size = New System.Drawing.Size(512, 22)
    Me.StatusBar1.TabIndex = 38
    Me.StatusBar1.Text = "StatusBar1"
    '
    'stbInfo
    '
    Me.stbInfo.AutoSize = System.Windows.Forms.StatusBarPanelAutoSize.Spring
    Me.stbInfo.Text = "就绪"
    Me.stbInfo.Width = 245
    '
    'stbLogo
    '
    Me.stbLogo.AutoSize = System.Windows.Forms.StatusBarPanelAutoSize.Contents
    Me.stbLogo.Text = "http://www.trfsoft.com"
    Me.stbLogo.Width = 151
    '
    'stdCapsLock
    '
    Me.stdCapsLock.Alignment = System.Windows.Forms.HorizontalAlignment.Right
    Me.stdCapsLock.Width = 50
    '
    'stbPanalNum
    '
    Me.stbPanalNum.Alignment = System.Windows.Forms.HorizontalAlignment.Right
    Me.stbPanalNum.Width = 50
    '
    'tbMain
    '
    Me.tbMain.Appearance = System.Windows.Forms.ToolBarAppearance.Flat
    Me.tbMain.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.tbnClientType, Me.sp1, Me.tbnAddClient, Me.tbnModifyClient, Me.tbnClientInfo, Me.tbnDeleteClient, Me.sp2, Me.tbnSearch, Me.sp3, Me.tbnTodayWarning, Me.tbnWarnSetting, Me.sp6, Me.tbnUserMgr, Me.sp4, Me.tbnAbout, Me.tbnSupport})
    Me.tbMain.ButtonSize = New System.Drawing.Size(32, 32)
    Me.tbMain.DropDownArrows = True
    Me.tbMain.ImageList = Me.ImgListToolbar
    Me.tbMain.Location = New System.Drawing.Point(0, 0)
    Me.tbMain.Name = "tbMain"
    Me.tbMain.ShowToolTips = True
    Me.tbMain.Size = New System.Drawing.Size(739, 57)
    Me.tbMain.TabIndex = 40
    '
    'tbnClientType
    '