frmmain.vb

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

    '
    '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 = "当前登录部门："
    '
    'trvDept
    '
    Me.trvDept.Dock = System.Windows.Forms.DockStyle.Left
    Me.trvDept.HideSelection = False
    Me.trvDept.ImageList = Me.ImgListTreeView
    Me.trvDept.Location = New System.Drawing.Point(0, 79)
    Me.trvDept.Name = "trvDept"
    Me.trvDept.Nodes.AddRange(New System.Windows.Forms.TreeNode() {New System.Windows.Forms.TreeNode("节点0", 0, 3)})
    Me.trvDept.Size = New System.Drawing.Size(224, 441)
    Me.trvDept.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
    '
    '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(0, 520)
    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(776, 22)
    Me.StatusBar1.TabIndex = 38
    Me.StatusBar1.Text = "StatusBar1"
    '
    'stbInfo
    '
    Me.stbInfo.AutoSize = System.Windows.Forms.StatusBarPanelAutoSize.Spring
    Me.stbInfo.Text = "就绪"
    Me.stbInfo.Width = 509
    '
    '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
    '
    'palPrevTitle
    '
    Me.palPrevTitle.BackColor = System.Drawing.Color.FromArgb(CType(128, Byte), CType(128, Byte), CType(128, Byte))
    Me.palPrevTitle.Controls.Add(Me.labPrevTitle)
    Me.palPrevTitle.Controls.Add(Me.Label2)
    Me.palPrevTitle.Cursor = System.Windows.Forms.Cursors.Default
    Me.palPrevTitle.Dock = System.Windows.Forms.DockStyle.Top
    Me.palPrevTitle.ForeColor = System.Drawing.SystemColors.WindowText
    Me.palPrevTitle.Location = New System.Drawing.Point(0, 57)
    Me.palPrevTitle.Name = "palPrevTitle"
    Me.palPrevTitle.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.palPrevTitle.Size = New System.Drawing.Size(776, 22)
    Me.palPrevTitle.TabIndex = 37
    Me.palPrevTitle.TabStop = True
    '
    'labPrevTitle
    '
    Me.labPrevTitle.AutoSize = True
    Me.labPrevTitle.BackColor = System.Drawing.Color.Transparent
    Me.labPrevTitle.Cursor = System.Windows.Forms.Cursors.Default
    Me.labPrevTitle.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
    Me.labPrevTitle.ForeColor = System.Drawing.Color.White
    Me.labPrevTitle.Location = New System.Drawing.Point(8, 3)
    Me.labPrevTitle.Name = "labPrevTitle"
    Me.labPrevTitle.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.labPrevTitle.Size = New System.Drawing.Size(77, 19)
    Me.labPrevTitle.TabIndex = 36
    Me.labPrevTitle.Text = "信件内容："
    '
    'Label2
    '
    Me.Label2.AutoSize = True
    Me.Label2.BackColor = System.Drawing.Color.Transparent
    Me.Label2.Cursor = System.Windows.Forms.Cursors.Default
    Me.Label2.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
    Me.Label2.ForeColor = System.Drawing.Color.Black
    Me.Label2.Location = New System.Drawing.Point(11, 5)
    Me.Label2.Name = "Label2"
    Me.Label2.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.Label2.Size = New System.Drawing.Size(77, 19)
    Me.Label2.TabIndex = 35
    Me.Label2.Text = "信件内容："
    '
    'rtxtContent
    '
    Me.rtxtContent.AutoWordSelection = True
    Me.rtxtContent.Cursor = System.Windows.Forms.Cursors.Default
    Me.rtxtContent.Dock = System.Windows.Forms.DockStyle.Fill
    Me.rtxtContent.Location = New System.Drawing.Point(229, 251)
    Me.rtxtContent.Name = "rtxtContent"
    Me.rtxtContent.ReadOnly = True
    Me.rtxtContent.Size = New System.Drawing.Size(547, 269)
    Me.rtxtContent.TabIndex = 39
    Me.rtxtContent.Text = "this is the content"
    '
    'tbMain
    '
    Me.tbMain.Appearance = System.Windows.Forms.ToolBarAppearance.Flat
    Me.tbMain.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.tbnReceiveAll, Me.sp1, Me.tbnNew, Me.tbnReply, Me.tbnBroadcast, Me.tbnDelete, Me.sp2, Me.tbnSearch, Me.sp3, Me.tbnUserMgr, Me.sp4, Me.tbnAbout, Me.tbnSupport, Me.sp5, Me.tbnExit})
    Me.tbMain.ButtonSize = New System.Drawing.Size(56, 51)
    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(776, 57)
    Me.tbMain.TabIndex = 40
    '
    'tbnReceiveAll
    '
    Me.tbnReceiveAll.ImageIndex = 0
    Me.tbnReceiveAll.Text = "收取所有"
    '
    'sp1
    '
    Me.sp1.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
    '
    'tbnNew
    '
    Me.tbnNew.ImageIndex = 2
    Me.tbnNew.Text = "撰写"
    '
    'tbnReply
    '
    Me.tbnReply.ImageIndex = 3
    Me.tbnReply.Text = "回复"
    '
    'tbnBroadcast
    '
    Me.tbnBroadcast.ImageIndex = 5
    Me.tbnBroadcast.Text = "广 播"
    '
    'tbnDelete
    '
    Me.tbnDelete.ImageIndex = 7
    Me.tbnDelete.Text = "删除"
    '
    'sp2
    '
    Me.sp2.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
    '
    'tbnSearch
    '
    Me.tbnSearch.ImageIndex = 6
    Me.tbnSearch.Text = "查找"
    '
    'sp3
    '
    Me.sp3.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
    '
    'tbnUserMgr
    '
    Me.tbnUserMgr.ImageIndex = 13
    Me.tbnUserMgr.Text = "用户管理"
    '
    'sp4
    '
    Me.sp4.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
    '
    'tbnAbout
    '
    Me.tbnAbout.ImageIndex = 10
    Me.tbnAbout.Text = "关于"
    '
    'tbnSupport
    '
    Me.tbnSupport.ImageIndex = 11
    Me.tbnSupport.Text = "在线支持"
    '
    'sp5
    '
    Me.sp5.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
    '
    'tbnExit
    '
    Me.tbnExit.ImageIndex = 12
    Me.tbnExit.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
    '
    'cMenuReceive
    '
    Me.cMenuReceive.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem1, Me.MenuItem2, Me.MenuItem3})
    '
    'MenuItem1
    '
    Me.MenuItem1.Index = 0
    Me.MenuItem1.Text = "bb"
    '
    'MenuItem2
    '
    Me.MenuItem2.Index = 1
    Me.MenuItem2.Text = "cc"
    '
    'MenuItem3
    '
    Me.MenuItem3.Index = 2
    Me.MenuItem3.Text = "dd"
    '
    'splitLeft
    '
    Me.splitLeft.Location = New System.Drawing.Point(224, 79)
    Me.splitLeft.Name = "splitLeft"
    Me.splitLeft.Size = New System.Drawing.Size(5, 441)
    Me.splitLeft.TabIndex = 41
    Me.splitLeft.TabStop = False
    '
    'splitMsgUp
    '
    Me.splitMsgUp.Dock = System.Windows.Forms.DockStyle.Top
    Me.splitMsgUp.Location = New System.Drawing.Point(229, 224)
    Me.splitMsgUp.Name = "splitMsgUp"
    Me.splitMsgUp.Size = New System.Drawing.Size(547, 5)
    Me.splitMsgUp.TabIndex = 42
    Me.splitMsgUp.TabStop = False
    '
    'tlvMsgTitle
    '
    Me.tlvMsgTitle.Dock = System.Windows.Forms.DockStyle.Top
    Me.tlvMsgTitle.GridLines = True
    Me.tlvMsgTitle.HideSelection = False
    Me.tlvMsgTitle.Location = New System.Drawing.Point(229, 79)
    Me.tlvMsgTitle.Name = "tlvMsgTitle"
    Me.tlvMsgTitle.PlusMinusLineColor = System.Drawing.Color.RoyalBlue
    Me.tlvMsgTitle.Size = New System.Drawing.Size(547, 145)
    Me.tlvMsgTitle.SmallImageList = Me.ImgListListViewS
    Me.tlvMsgTitle.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, 88)
    Me.xplSearch.Name = "xplSearch"
    Me.xplSearch.Size = New System.Drawing.Size(217, 436)
    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.rdiDeptSend)
    Me.XPanderBaseSearch.Controls.Add(Me.rdiDeptReceive)
    Me.XPanderBaseSearch.Controls.Add(Me.cboDept)
    Me.XPanderBaseSearch.Controls.Add(Me.chkAddresser)
    Me.XPanderBaseSearch.Controls.Add(Me.txtAddresser)
    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(217, 183)
    Me.XPanderBaseSearch.TabIndex = 0
    Me.XPanderBaseSearch.Tag = 0
    Me.XPanderBaseSearch.TooltipText = Nothing
    '
    'rdiDeptSend
    '
    Me.rdiDeptSend.Location = New System.Drawing.Point(4, 86)
    Me.rdiDeptSend.Name = "rdiDeptSend"
    Me.rdiDeptSend.Size = New System.Drawing.Size(168, 18)
    Me.rdiDeptSend.TabIndex = 67
    Me.rdiDeptSend.Text = "我发给哪个部门的信息？"
    '
    'rdiDeptReceive
    '
    Me.rdiDeptReceive.Checked = True
    Me.rdiDeptReceive.Location = New System.Drawing.Point(4, 67)
    Me.rdiDeptReceive.Name = "rdiDeptReceive"