frmmain.vb

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

    Me.tbnClientType.DropDownMenu = Me.cMenuClientType
    Me.tbnClientType.ImageIndex = 10
    Me.tbnClientType.Style = System.Windows.Forms.ToolBarButtonStyle.DropDownButton
    Me.tbnClientType.Text = "客户类型"
    '
    'sp1
    '
    Me.sp1.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
    '
    'tbnAddClient
    '
    Me.tbnAddClient.ImageIndex = 13
    Me.tbnAddClient.Text = "添加客户"
    '
    'tbnModifyClient
    '
    Me.tbnModifyClient.ImageIndex = 16
    Me.tbnModifyClient.Text = "修改客户"
    '
    'tbnClientInfo
    '
    Me.tbnClientInfo.ImageIndex = 11
    Me.tbnClientInfo.Text = "客户信息"
    '
    'tbnDeleteClient
    '
    Me.tbnDeleteClient.ImageIndex = 14
    Me.tbnDeleteClient.Text = "删除客户"
    '
    'sp2
    '
    Me.sp2.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
    '
    'tbnSearch
    '
    Me.tbnSearch.ImageIndex = 15
    Me.tbnSearch.Text = "查找"
    '
    'sp3
    '
    Me.sp3.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
    '
    'tbnTodayWarning
    '
    Me.tbnTodayWarning.ImageIndex = 0
    Me.tbnTodayWarning.Text = "今日提醒"
    '
    'tbnWarnSetting
    '
    Me.tbnWarnSetting.ImageIndex = 3
    Me.tbnWarnSetting.Text = "提醒设置"
    '
    'sp6
    '
    Me.sp6.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
    '
    'tbnUserMgr
    '
    Me.tbnUserMgr.ImageIndex = 7
    Me.tbnUserMgr.Text = "用户管理"
    '
    'sp4
    '
    Me.sp4.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
    '
    'tbnAbout
    '
    Me.tbnAbout.ImageIndex = 4
    Me.tbnAbout.Text = "关于"
    '
    'tbnSupport
    '
    Me.tbnSupport.ImageIndex = 5
    Me.tbnSupport.Text = "在线支持"
    '
    'ImgListToolbar
    '
    Me.ImgListToolbar.ColorDepth = System.Windows.Forms.ColorDepth.Depth32Bit
    Me.ImgListToolbar.ImageSize = New System.Drawing.Size(32, 32)
    Me.ImgListToolbar.ImageStream = CType(resources.GetObject("ImgListToolbar.ImageStream"), System.Windows.Forms.ImageListStreamer)
    Me.ImgListToolbar.TransparentColor = System.Drawing.Color.Transparent
    '
    'splitLeft
    '
    Me.splitLeft.Location = New System.Drawing.Point(227, 79)
    Me.splitLeft.Name = "splitLeft"
    Me.splitLeft.Size = New System.Drawing.Size(5, 469)
    Me.splitLeft.TabIndex = 41
    Me.splitLeft.TabStop = False
    '
    'tlvClient
    '
    Me.tlvClient.Dock = System.Windows.Forms.DockStyle.Fill
    Me.tlvClient.HideSelection = False
    Me.tlvClient.Location = New System.Drawing.Point(227, 79)
    Me.tlvClient.MultiSelect = False
    Me.tlvClient.Name = "tlvClient"
    Me.tlvClient.PlusMinusLineColor = System.Drawing.Color.RoyalBlue
    Me.tlvClient.Size = New System.Drawing.Size(512, 469)
    Me.tlvClient.SmallImageList = Me.ImgListListViewS
    Me.tlvClient.Sorting = System.Windows.Forms.SortOrder.None
    Me.tlvClient.TabIndex = 43
    '
    'xplSearch
    '
    Me.xplSearch.AutoScroll = True
    Me.xplSearch.BackColor = System.Drawing.Color.FromArgb(CType(99, Byte), CType(117, Byte), CType(222, Byte))
    Me.xplSearch.Controls.Add(Me.XPanderBaseSearch)
    Me.xplSearch.Controls.Add(Me.labResult)
    Me.xplSearch.Controls.Add(Me.labResult1)
    Me.xplSearch.Controls.Add(Me.cmdSearch)
    Me.xplSearch.Controls.Add(Me.cmdBack)
    Me.xplSearch.Controls.Add(Me.XPanderAdvSearch)
    Me.xplSearch.Location = New System.Drawing.Point(5, 82)
    Me.xplSearch.Name = "xplSearch"
    Me.xplSearch.Size = New System.Drawing.Size(222, 419)
    Me.xplSearch.TabIndex = 45
    Me.xplSearch.Visible = False
    '
    'XPanderBaseSearch
    '
    Me.XPanderBaseSearch.AnimationTime = 30
    Me.XPanderBaseSearch.BackColor = System.Drawing.Color.Transparent
    Me.XPanderBaseSearch.BorderStyle = System.Windows.Forms.Border3DStyle.Flat
    Me.XPanderBaseSearch.CanToggle = False
    Me.XPanderBaseSearch.CaptionFont = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold)
    Me.XPanderBaseSearch.CaptionFormatFlag = XPanderControl.XPander.FormatFlag.NoWrap
    Me.XPanderBaseSearch.CaptionStyle = XPanderControl.XPander.CaptionStyleEnum.Normal
    Me.XPanderBaseSearch.CaptionText = "基本查询"
    Me.XPanderBaseSearch.CaptionTextAlign = XPanderControl.XPander.CaptionTextAlignment.Left
    Me.XPanderBaseSearch.ChevronStyle = XPanderControl.XPander.ChevronStyleEnum.Image
    Me.XPanderBaseSearch.CollapsedHighlightImage = CType(resources.GetObject("XPanderBaseSearch.CollapsedHighlightImage"), System.Drawing.Bitmap)
    Me.XPanderBaseSearch.CollapsedImage = CType(resources.GetObject("XPanderBaseSearch.CollapsedImage"), System.Drawing.Bitmap)
    Me.XPanderBaseSearch.Controls.Add(Me.tcboType)
    Me.XPanderBaseSearch.Controls.Add(Me.chkClientType)
    Me.XPanderBaseSearch.Controls.Add(Me.chkName)
    Me.XPanderBaseSearch.Controls.Add(Me.txtName)
    Me.XPanderBaseSearch.Controls.Add(Me.Label4)
    Me.XPanderBaseSearch.Dock = System.Windows.Forms.DockStyle.Top
    Me.XPanderBaseSearch.DockPadding.Top = 25
    Me.XPanderBaseSearch.ExpandedHighlightImage = CType(resources.GetObject("XPanderBaseSearch.ExpandedHighlightImage"), System.Drawing.Bitmap)
    Me.XPanderBaseSearch.ExpandedImage = CType(resources.GetObject("XPanderBaseSearch.ExpandedImage"), System.Drawing.Bitmap)
    Me.XPanderBaseSearch.Location = New System.Drawing.Point(0, 0)
    Me.XPanderBaseSearch.Name = "XPanderBaseSearch"
    Me.XPanderBaseSearch.Size = New System.Drawing.Size(222, 165)
    Me.XPanderBaseSearch.TabIndex = 0
    Me.XPanderBaseSearch.Tag = 0
    Me.XPanderBaseSearch.TooltipText = Nothing
    '
    'tcboType
    '
    Me.tcboType.Location = New System.Drawing.Point(6, 82)
    Me.tcboType.Name = "tcboType"
    Me.tcboType.ReadOnly = True
    Me.tcboType.Size = New System.Drawing.Size(209, 20)
    Me.tcboType.TabIndex = 67
    Me.tcboType.Text = "TreeCombo1"
    Me.tcboType.TreeImageList = Nothing
    '
    'chkClientType
    '
    Me.chkClientType.Checked = True
    Me.chkClientType.CheckState = System.Windows.Forms.CheckState.Checked
    Me.chkClientType.Location = New System.Drawing.Point(6, 59)
    Me.chkClientType.Name = "chkClientType"
    Me.chkClientType.Size = New System.Drawing.Size(181, 21)
    Me.chkClientType.TabIndex = 66
    Me.chkClientType.Text = "客户类型："
    '
    'chkName
    '
    Me.chkName.BackColor = System.Drawing.Color.Transparent
    Me.chkName.Cursor = System.Windows.Forms.Cursors.Default
    Me.chkName.ForeColor = System.Drawing.SystemColors.ControlText
    Me.chkName.Location = New System.Drawing.Point(6, 106)
    Me.chkName.Name = "chkName"
    Me.chkName.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.chkName.Size = New System.Drawing.Size(181, 21)
    Me.chkName.TabIndex = 63
    Me.chkName.Text = "姓名："
    '
    'txtName
    '
    Me.txtName.AutoSize = False
    Me.txtName.BackColor = System.Drawing.SystemColors.Window
    Me.txtName.Cursor = System.Windows.Forms.Cursors.IBeam
    Me.txtName.Enabled = False
    Me.txtName.ForeColor = System.Drawing.SystemColors.WindowText
    Me.txtName.Location = New System.Drawing.Point(5, 130)
    Me.txtName.MaxLength = 0
    Me.txtName.Name = "txtName"
    Me.txtName.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.txtName.Size = New System.Drawing.Size(200, 19)
    Me.txtName.TabIndex = 64
    Me.txtName.Text = ""
    '
    'Label4
    '
    Me.Label4.AutoSize = True
    Me.Label4.BackColor = System.Drawing.Color.Transparent
    Me.Label4.Cursor = System.Windows.Forms.Cursors.Default
    Me.Label4.ForeColor = System.Drawing.SystemColors.ControlText
    Me.Label4.Location = New System.Drawing.Point(4, 40)
    Me.Label4.Name = "Label4"
    Me.Label4.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.Label4.Size = New System.Drawing.Size(103, 17)
    Me.Label4.TabIndex = 65
    Me.Label4.Text = "请选择查询条件："
    '
    'labResult
    '
    Me.labResult.AutoSize = True
    Me.labResult.BackColor = System.Drawing.Color.Transparent
    Me.labResult.Cursor = System.Windows.Forms.Cursors.Default
    Me.labResult.ForeColor = System.Drawing.SystemColors.ControlText
    Me.labResult.Location = New System.Drawing.Point(31, 351)
    Me.labResult.Name = "labResult"
    Me.labResult.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.labResult.Size = New System.Drawing.Size(171, 17)
    Me.labResult.TabIndex = 65
    Me.labResult.Text = "本次查询为您找到 0 条记录。"
    Me.labResult.Visible = False
    '
    'labResult1
    '
    Me.labResult1.AutoSize = True
    Me.labResult1.BackColor = System.Drawing.Color.Transparent
    Me.labResult1.Cursor = System.Windows.Forms.Cursors.Default
    Me.labResult1.ForeColor = System.Drawing.SystemColors.ControlText
    Me.labResult1.Location = New System.Drawing.Point(31, 327)
    Me.labResult1.Name = "labResult1"
    Me.labResult1.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.labResult1.Size = New System.Drawing.Size(91, 17)
    Me.labResult1.TabIndex = 66
    Me.labResult1.Text = "本次查询完毕。"
    Me.labResult1.Visible = False
    '
    'cmdSearch
    '
    Me.cmdSearch.BackColor = System.Drawing.Color.White
    Me.cmdSearch.Cursor = System.Windows.Forms.Cursors.Default
    Me.cmdSearch.ForeColor = System.Drawing.SystemColors.ControlText
    Me.cmdSearch.Location = New System.Drawing.Point(23, 376)
    Me.cmdSearch.Name = "cmdSearch"
    Me.cmdSearch.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.cmdSearch.TabIndex = 63
    Me.cmdSearch.Text = "查询(&Q)"
    '
    'cmdBack
    '
    Me.cmdBack.BackColor = System.Drawing.Color.White
    Me.cmdBack.Cursor = System.Windows.Forms.Cursors.Default
    Me.cmdBack.DialogResult = System.Windows.Forms.DialogResult.Cancel
    Me.cmdBack.ForeColor = System.Drawing.SystemColors.ControlText
    Me.cmdBack.Location = New System.Drawing.Point(103, 376)
    Me.cmdBack.Name = "cmdBack"
    Me.cmdBack.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.cmdBack.Size = New System.Drawing.Size(76, 23)
    Me.cmdBack.TabIndex = 64
    Me.cmdBack.Text = "返回(&R)"
    '
    'XPanderAdvSearch
    '
    Me.XPanderAdvSearch.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
    Me.XPanderAdvSearch.Animated = True
    Me.XPanderAdvSearch.AnimationTime = 30
    Me.XPanderAdvSearch.BackColor = System.Drawing.Color.Transparent
    Me.XPanderAdvSearch.BorderStyle = System.Windows.Forms.Border3DStyle.Flat
    Me.XPanderAdvSearch.CaptionFont = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold)
    Me.XPanderAdvSearch.CaptionFormatFlag = XPanderControl.XPander.FormatFlag.NoWrap
    Me.XPanderAdvSearch.CaptionStyle = XPanderControl.XPander.CaptionStyleEnum.Normal
    Me.XPanderAdvSearch.CaptionText = "高级查询"
    Me.XPanderAdvSearch.CaptionTextAlign = XPanderControl.XPander.CaptionTextAlignment.Left
    Me.XPanderAdvSearch.ChevronStyle = XPanderControl.XPander.ChevronStyleEnum.Image
    Me.XPanderAdvSearch.CollapsedHighlightImage = CType(resources.GetObject("XPanderAdvSearch.CollapsedHighlightImage"), System.Drawing.Bitmap)
    Me.XPanderAdvSearch.CollapsedImage = CType(resources.GetObject("XPanderAdvSearch.CollapsedImage"), System.Drawing.Bitmap)
    Me.XPanderAdvSearch.Controls.Add(Me.chkShowInGroup)
    Me.XPanderAdvSearch.Controls.Add(Me.chkResverse)
    Me.XPanderAdvSearch.Controls.Add(Me.chkPhone)
    Me.XPanderAdvSearch.Controls.Add(Me.txtPhone)
    Me.XPanderAdvSearch.DockPadding.Top = 25
    Me.XPanderAdvSearch.ExpandedHighlightImage = CType(resources.GetObject("XPanderAdvSearch.ExpandedHighlightImage"), System.Drawing.Bitmap)
    Me.XPanderAdvSearch.ExpandedImage = CType(resources.GetObject("XPanderAdvSearch.ExpandedImage"), System.Drawing.Bitmap)
    Me.XPanderAdvSearch.Location = New System.Drawing.Point(-1, 169)
    Me.XPanderAdvSearch.Name = "XPanderAdvSearch"
    Me.XPanderAdvSearch.Size = New System.Drawing.Size(222, 145)
    Me.XPanderAdvSearch.TabIndex = 1
    Me.XPanderAdvSearch.Tag = 1
    Me.XPanderAdvSearch.TooltipText = Nothing
    '
    'chkShowInGroup
    '
    Me.chkShowInGroup.Checked = True
    Me.chkShowInGroup.CheckState = System.Windows.Forms.CheckState.Checked
    Me.chkShowInGroup.Location = New System.Drawing.Point(5, 110)
    Me.chkShowInGroup.Name = "chkShowInGroup"
    Me.chkShowInGroup.Size = New System.Drawing.Size(181, 21)
    Me.chkShowInGroup.TabIndex = 68
    Me.chkShowInGroup.Text = "以分组方式显示"
    '
    'chkResverse
    '
    Me.chkResverse.Checked = True
    Me.chkResverse.CheckState = System.Windows.Forms.CheckState.Checked
    Me.chkResverse.Location = New System.Drawing.Point(5, 85)
    Me.chkResverse.Name = "chkResverse"
    Me.chkResverse.Size = New System.Drawing.Size(181, 21)
    Me.chkResverse.TabIndex = 67
    Me.chkResverse.Text = "查找子类型中的客户"
    '
    'chkPhone
    '
    Me.chkPhone.BackColor = System.Drawing.Color.Transparent
    Me.chkPhone.Cursor = System.Windows.Forms.Cursors.Default
    Me.chkPhone.ForeColor = System.Drawing.SystemColors.ControlText
    Me.chkPhone.Location = New System.Drawing.Point(5, 37)
    Me.chkPhone.Name = "chkPhone"
    Me.chkPhone.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.chkPhone.Size = New System.Drawing.Size(181, 21)
    Me.chkPhone.TabIndex = 65
    Me.chkPhone.Text = "电话号码："
    '
    'txtPhone
    '
    Me.txtPhone.AcceptsReturn = True
    Me.txtPhone.AutoSize = False
    Me.txtPhone.BackColor = System.Drawing.SystemColors.Window
    Me.txtPhone.Cursor = System.Windows.Forms.Cursors.IBeam
    Me.txtPhone.Enabled = False
    Me.txtPhone.ForeColor = System.Drawing.SystemColors.WindowText
    Me.txtPhone.Location = New System.Drawing.Point(5, 58)
    Me.txtPhone.MaxLength = 0
    Me.txtPhone.Name = "txtPhone"
    Me.txtPhone.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.txtPhone.Size = New System.Drawing.Size(200, 19)
    Me.txtPhone.TabIndex = 66
    Me.txtPhone.Text = ""
    '
    'tmrSearch
    '
    Me.tmrSearch.Interval = 10
    '
    'MainMenu2
    '
    Me.MainMenu2.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuAdmin, Me.mnuClientType, Me.mnuClient, Me.mnuWarning, Me.MenuItem7})
    '
    'mnuAdmin
    '
    Me.mnuAdmin.Index = 0
    Me.mnuAdmin.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuUserMgr, Me.MenuItem2, Me.mnuloginOut, Me.mnuExit})
    Me.mnuAdmin.Text = "系统管理"
    '
    'mnuUserMgr
    '
    Me.mnuUserMgr.Index = 0
    Me.mnuUserMgr.Text = "&U用户管理"
    '
    'MenuItem2
    '
    Me.MenuItem2.Index = 1
    Me.MenuItem2.Text = "-"
    '
    'mnuloginOut
    '
    Me.mnuloginOut.Index = 2
    Me.mnuloginOut.Text = "&L注销"
    '
    'mnuExit
    '
    Me.mnuExit.Index = 3
    Me.mnuExit.Text = "&X退出系统"
    '
    'mnuClientType
    '
    Me.mnuClientType.Index = 1
    Me.mnuClientType.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuAddClientType, Me.mnuModifyClientType, Me.mnuDelClientType})
    Me.mnuClientType.Text = "客户类型管理"
    '
    'mnuAddClientType
    '
    Me.mnuAddClientType.Index = 0
    Me.mnuAddClientType.Text = "&A添加客户类型"
    '
    'mnuModifyClientType
    '
    Me.mnuModifyClientType.Index = 1
    Me.mnuModifyClientType.Text = "&M修改客户类型"
    '
    'mnuDelClientType
    '
    Me.mnuDelClientType.Index = 2
    Me.mnuDelClientType.Text = "&D删除客户类型"
    '
    'mnuClient
    '