frmclient.vb

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

Imports clientMgrBusiness
Imports UtilityLibrary.Combos

Friend Class frmClient
  Inherits System.Windows.Forms.Form
#Region "Windows 窗体设计器生成的代码"
	Public Sub New()
		MyBase.New()
    '此调用是 Windows 窗体设计器所必需的。
		InitializeComponent()
	End Sub
	'窗体重写处置，以清理组件列表。
	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
	Public ToolTip1 As System.Windows.Forms.ToolTip
  Public WithEvents Label12 As System.Windows.Forms.Label
	Public WithEvents Label13 As System.Windows.Forms.Label
  Public WithEvents txtEmail As System.Windows.Forms.TextBox
	Public WithEvents txtMobile As System.Windows.Forms.TextBox
	Public WithEvents txtName As System.Windows.Forms.TextBox
	Public WithEvents Label10 As System.Windows.Forms.Label
	Public WithEvents Label6 As System.Windows.Forms.Label
	Public WithEvents Label5 As System.Windows.Forms.Label
	Public WithEvents Label3 As System.Windows.Forms.Label
	Public WithEvents Label1 As System.Windows.Forms.Label
	Public WithEvents frabaseInfo As System.Windows.Forms.GroupBox
	Public WithEvents txtZipCode As System.Windows.Forms.TextBox
	Public WithEvents txtMailAdr As System.Windows.Forms.TextBox
	Public WithEvents txtHomeAdr As System.Windows.Forms.TextBox
	Public WithEvents txtFax As System.Windows.Forms.TextBox
	Public WithEvents txtHomePhone As System.Windows.Forms.TextBox
	Public WithEvents txtOfficePhone As System.Windows.Forms.TextBox
	Public WithEvents Label11 As System.Windows.Forms.Label
	Public WithEvents Label2 As System.Windows.Forms.Label
	Public WithEvents Label4 As System.Windows.Forms.Label
	Public WithEvents Label7 As System.Windows.Forms.Label
	Public WithEvents Label8 As System.Windows.Forms.Label
	Public WithEvents Label9 As System.Windows.Forms.Label
	Public WithEvents fracomInfo As System.Windows.Forms.GroupBox
	Public WithEvents txtAge As System.Windows.Forms.TextBox
	Public WithEvents chkBirthdayWarn As System.Windows.Forms.CheckBox
  Public WithEvents txtSelfSite As System.Windows.Forms.TextBox
	Public WithEvents txtCompanySite As System.Windows.Forms.TextBox
	Public WithEvents txtCompany As System.Windows.Forms.TextBox
	Public WithEvents txtPosition As System.Windows.Forms.TextBox
	Public WithEvents txtWork As System.Windows.Forms.TextBox
	Public WithEvents Label18 As System.Windows.Forms.Label
	Public WithEvents Label17 As System.Windows.Forms.Label
	Public WithEvents Label15 As System.Windows.Forms.Label
	Public WithEvents Label14 As System.Windows.Forms.Label
	Public WithEvents fraWork As System.Windows.Forms.GroupBox
	Public WithEvents txtRemark As System.Windows.Forms.TextBox
	Public WithEvents txtHate As System.Windows.Forms.TextBox
	Public WithEvents txtLikes As System.Windows.Forms.TextBox
	Public WithEvents Label24 As System.Windows.Forms.Label
	Public WithEvents Label20 As System.Windows.Forms.Label
	Public WithEvents Label19 As System.Windows.Forms.Label
	Public WithEvents fraRemark As System.Windows.Forms.GroupBox
	Public WithEvents Label16 As System.Windows.Forms.Label
	Public WithEvents _SSTabClient_TabPage1 As System.Windows.Forms.TabPage
  Public WithEvents fraCoop As System.Windows.Forms.GroupBox
	Public WithEvents _SSTabClient_TabPage2 As System.Windows.Forms.TabPage
    Public WithEvents Label23 As System.Windows.Forms.Label
	Public WithEvents Label22 As System.Windows.Forms.Label
	Public WithEvents Label21 As System.Windows.Forms.Label
	Public WithEvents fraScore As System.Windows.Forms.GroupBox
	Public WithEvents _SSTabClient_TabPage3 As System.Windows.Forms.TabPage
  '注意: 以下过程是 Windows 窗体设计器所必需的
	'可以使用 Windows 窗体设计器来修改它。
	'不要使用代码编辑器修改它。
  Friend WithEvents dtpBirthday As System.Windows.Forms.DateTimePicker
    Friend WithEvents ctbSatisfaction As GradientControls.ColorTrackBar
    Friend WithEvents ctbFriendly As GradientControls.ColorTrackBar
    Friend WithEvents ctbImportance As GradientControls.ColorTrackBar
    Friend WithEvents tlvCoop As System.Windows.Forms.TreeListView
  Friend WithEvents tcboClientType As UtilityLibrary.Combos.TreeCombo
  Public WithEvents tabClient As System.Windows.Forms.TabControl
  Public WithEvents btnModifyInfo As System.Windows.Forms.Button
  Public WithEvents btnCancel As System.Windows.Forms.Button
  Public WithEvents btnOK As System.Windows.Forms.Button
  Friend WithEvents rdiMale As System.Windows.Forms.RadioButton
  Friend WithEvents rdiFemale As System.Windows.Forms.RadioButton
  Public WithEvents tabPageBasicInfo As System.Windows.Forms.TabPage
  Friend WithEvents ImgListTreeView As System.Windows.Forms.ImageList
  Public WithEvents btnDelCoop As System.Windows.Forms.Button
  Public WithEvents btnModifyCoop As System.Windows.Forms.Button
  Public WithEvents btnAddCoop As System.Windows.Forms.Button
  Public WithEvents btnCoopInfo As System.Windows.Forms.Button
  <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
    Me.components = New System.ComponentModel.Container
    Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmClient))
    Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
    Me.btnModifyInfo = New System.Windows.Forms.Button
    Me.tabClient = New System.Windows.Forms.TabControl
    Me.tabPageBasicInfo = New System.Windows.Forms.TabPage
    Me.dtpBirthday = New System.Windows.Forms.DateTimePicker
    Me.Label12 = New System.Windows.Forms.Label
    Me.Label13 = New System.Windows.Forms.Label
    Me.frabaseInfo = New System.Windows.Forms.GroupBox
    Me.rdiFemale = New System.Windows.Forms.RadioButton
    Me.rdiMale = New System.Windows.Forms.RadioButton
    Me.tcboClientType = New UtilityLibrary.Combos.TreeCombo
    Me.ImgListTreeView = New System.Windows.Forms.ImageList(Me.components)
    Me.txtEmail = New System.Windows.Forms.TextBox
    Me.txtMobile = New System.Windows.Forms.TextBox
    Me.txtName = New System.Windows.Forms.TextBox
    Me.Label10 = New System.Windows.Forms.Label
    Me.Label6 = New System.Windows.Forms.Label
    Me.Label5 = New System.Windows.Forms.Label
    Me.Label3 = New System.Windows.Forms.Label
    Me.Label1 = New System.Windows.Forms.Label
    Me.fracomInfo = New System.Windows.Forms.GroupBox
    Me.txtZipCode = New System.Windows.Forms.TextBox
    Me.txtMailAdr = New System.Windows.Forms.TextBox
    Me.txtHomeAdr = New System.Windows.Forms.TextBox
    Me.txtFax = New System.Windows.Forms.TextBox
    Me.txtHomePhone = New System.Windows.Forms.TextBox
    Me.txtOfficePhone = New System.Windows.Forms.TextBox
    Me.Label11 = New System.Windows.Forms.Label
    Me.Label2 = New System.Windows.Forms.Label
    Me.Label4 = New System.Windows.Forms.Label
    Me.Label7 = New System.Windows.Forms.Label
    Me.Label8 = New System.Windows.Forms.Label
    Me.Label9 = New System.Windows.Forms.Label
    Me.txtAge = New System.Windows.Forms.TextBox
    Me.chkBirthdayWarn = New System.Windows.Forms.CheckBox
    Me._SSTabClient_TabPage1 = New System.Windows.Forms.TabPage
    Me.txtSelfSite = New System.Windows.Forms.TextBox
    Me.fraWork = New System.Windows.Forms.GroupBox
    Me.txtCompanySite = New System.Windows.Forms.TextBox
    Me.txtCompany = New System.Windows.Forms.TextBox
    Me.txtPosition = New System.Windows.Forms.TextBox
    Me.txtWork = New System.Windows.Forms.TextBox
    Me.Label18 = New System.Windows.Forms.Label
    Me.Label17 = New System.Windows.Forms.Label
    Me.Label15 = New System.Windows.Forms.Label
    Me.Label14 = New System.Windows.Forms.Label
    Me.fraRemark = New System.Windows.Forms.GroupBox
    Me.txtRemark = New System.Windows.Forms.TextBox
    Me.txtHate = New System.Windows.Forms.TextBox
    Me.txtLikes = New System.Windows.Forms.TextBox
    Me.Label24 = New System.Windows.Forms.Label
    Me.Label20 = New System.Windows.Forms.Label
    Me.Label19 = New System.Windows.Forms.Label
    Me.Label16 = New System.Windows.Forms.Label
    Me._SSTabClient_TabPage2 = New System.Windows.Forms.TabPage
    Me.fraCoop = New System.Windows.Forms.GroupBox
    Me.tlvCoop = New System.Windows.Forms.TreeListView
    Me.btnDelCoop = New System.Windows.Forms.Button
    Me.btnModifyCoop = New System.Windows.Forms.Button
    Me.btnAddCoop = New System.Windows.Forms.Button
    Me.btnCoopInfo = New System.Windows.Forms.Button
    Me._SSTabClient_TabPage3 = New System.Windows.Forms.TabPage
    Me.fraScore = New System.Windows.Forms.GroupBox
    Me.ctbSatisfaction = New GradientControls.ColorTrackBar
    Me.ctbFriendly = New GradientControls.ColorTrackBar
    Me.ctbImportance = New GradientControls.ColorTrackBar
    Me.Label23 = New System.Windows.Forms.Label
    Me.Label22 = New System.Windows.Forms.Label
    Me.Label21 = New System.Windows.Forms.Label
    Me.btnCancel = New System.Windows.Forms.Button
    Me.btnOK = New System.Windows.Forms.Button
    Me.tabClient.SuspendLayout()
    Me.tabPageBasicInfo.SuspendLayout()
    Me.frabaseInfo.SuspendLayout()
    Me.fracomInfo.SuspendLayout()
    Me._SSTabClient_TabPage1.SuspendLayout()
    Me.fraWork.SuspendLayout()
    Me.fraRemark.SuspendLayout()
    Me._SSTabClient_TabPage2.SuspendLayout()
    Me.fraCoop.SuspendLayout()
    Me._SSTabClient_TabPage3.SuspendLayout()
    Me.fraScore.SuspendLayout()
    Me.SuspendLayout()
    '
    'btnModifyInfo
    '
    Me.btnModifyInfo.BackColor = System.Drawing.SystemColors.Control
    Me.btnModifyInfo.Cursor = System.Windows.Forms.Cursors.Default
    Me.btnModifyInfo.ForeColor = System.Drawing.SystemColors.ControlText
    Me.btnModifyInfo.Location = New System.Drawing.Point(19, 327)
    Me.btnModifyInfo.Name = "btnModifyInfo"
    Me.btnModifyInfo.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.btnModifyInfo.Size = New System.Drawing.Size(88, 27)
    Me.btnModifyInfo.TabIndex = 2
    Me.btnModifyInfo.Text = "修改"
    '
    'tabClient
    '
    Me.tabClient.Controls.Add(Me.tabPageBasicInfo)
    Me.tabClient.Controls.Add(Me._SSTabClient_TabPage1)
    Me.tabClient.Controls.Add(Me._SSTabClient_TabPage2)
    Me.tabClient.Controls.Add(Me._SSTabClient_TabPage3)
    Me.tabClient.ItemSize = New System.Drawing.Size(42, 18)
    Me.tabClient.Location = New System.Drawing.Point(10, 9)
    Me.tabClient.Name = "tabClient"
    Me.tabClient.SelectedIndex = 0
    Me.tabClient.Size = New System.Drawing.Size(577, 311)
    Me.tabClient.TabIndex = 3
    '
    'tabPageBasicInfo
    '
    Me.tabPageBasicInfo.Controls.Add(Me.dtpBirthday)
    Me.tabPageBasicInfo.Controls.Add(Me.Label12)
    Me.tabPageBasicInfo.Controls.Add(Me.Label13)
    Me.tabPageBasicInfo.Controls.Add(Me.frabaseInfo)
    Me.tabPageBasicInfo.Controls.Add(Me.fracomInfo)
    Me.tabPageBasicInfo.Controls.Add(Me.txtAge)
    Me.tabPageBasicInfo.Controls.Add(Me.chkBirthdayWarn)
    Me.tabPageBasicInfo.Location = New System.Drawing.Point(4, 22)
    Me.tabPageBasicInfo.Name = "tabPageBasicInfo"
    Me.tabPageBasicInfo.Size = New System.Drawing.Size(569, 285)
    Me.tabPageBasicInfo.TabIndex = 0
    Me.tabPageBasicInfo.Text = "客户基本信息"
    '
    'dtpBirthday
    '
    Me.dtpBirthday.Location = New System.Drawing.Point(49, 245)
    Me.dtpBirthday.Name = "dtpBirthday"
    Me.dtpBirthday.Size = New System.Drawing.Size(120, 21)
    Me.dtpBirthday.TabIndex = 50
    '
    'Label12
    '
    Me.Label12.AutoSize = True
    Me.Label12.BackColor = System.Drawing.SystemColors.Control
    Me.Label12.Cursor = System.Windows.Forms.Cursors.Default
    Me.Label12.ForeColor = System.Drawing.SystemColors.ControlText
    Me.Label12.Location = New System.Drawing.Point(19, 248)
    Me.Label12.Name = "Label12"
    Me.Label12.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.Label12.Size = New System.Drawing.Size(29, 17)
    Me.Label12.TabIndex = 48
    Me.Label12.Text = "生日"
    '
    'Label13
    '
    Me.Label13.AutoSize = True
    Me.Label13.BackColor = System.Drawing.SystemColors.Control
    Me.Label13.Cursor = System.Windows.Forms.Cursors.Default
    Me.Label13.ForeColor = System.Drawing.SystemColors.ControlText
    Me.Label13.Location = New System.Drawing.Point(182, 248)
    Me.Label13.Name = "Label13"
    Me.Label13.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.Label13.Size = New System.Drawing.Size(29, 17)
    Me.Label13.TabIndex = 49
    Me.Label13.Text = "年龄"
    '
    'frabaseInfo
    '
    Me.frabaseInfo.BackColor = System.Drawing.SystemColors.Control
    Me.frabaseInfo.Controls.Add(Me.rdiFemale)
    Me.frabaseInfo.Controls.Add(Me.rdiMale)
    Me.frabaseInfo.Controls.Add(Me.tcboClientType)
    Me.frabaseInfo.Controls.Add(Me.txtEmail)
    Me.frabaseInfo.Controls.Add(Me.txtMobile)
    Me.frabaseInfo.Controls.Add(Me.txtName)
    Me.frabaseInfo.Controls.Add(Me.Label10)
    Me.frabaseInfo.Controls.Add(Me.Label6)
    Me.frabaseInfo.Controls.Add(Me.Label5)
    Me.frabaseInfo.Controls.Add(Me.Label3)
    Me.frabaseInfo.Controls.Add(Me.Label1)
    Me.frabaseInfo.ForeColor = System.Drawing.SystemColors.ControlText
    Me.frabaseInfo.Location = New System.Drawing.Point(19, 24)
    Me.frabaseInfo.Name = "frabaseInfo"
    Me.frabaseInfo.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.frabaseInfo.Size = New System.Drawing.Size(270, 199)
    Me.frabaseInfo.TabIndex = 31
    Me.frabaseInfo.TabStop = False
    Me.frabaseInfo.Text = "必填信息"
    '
    'rdiFemale
    '
    Me.rdiFemale.Location = New System.Drawing.Point(136, 56)
    Me.rdiFemale.Name = "rdiFemale"
    Me.rdiFemale.Size = New System.Drawing.Size(56, 24)
    Me.rdiFemale.TabIndex = 45
    Me.rdiFemale.Tag = "0"
    Me.rdiFemale.Text = "女"
    '
    'rdiMale
    '
    Me.rdiMale.Location = New System.Drawing.Point(80, 56)
    Me.rdiMale.Name = "rdiMale"
    Me.rdiMale.Size = New System.Drawing.Size(56, 24)
    Me.rdiMale.TabIndex = 44
    Me.rdiMale.Tag = "1"
    Me.rdiMale.Text = "男"
    '
    'tcboClientType
    '
    Me.tcboClientType.Location = New System.Drawing.Point(77, 89)
    Me.tcboClientType.Name = "tcboClientType"
    Me.tcboClientType.ReadOnly = True
    Me.tcboClientType.Size = New System.Drawing.Size(164, 20)
    Me.tcboClientType.TabIndex = 43
    Me.tcboClientType.Text = "TreeCombo1"
    Me.tcboClientType.TreeImageList = Me.ImgListTreeView
    '
    '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
    '
    'txtEmail
    '
    Me.txtEmail.AcceptsReturn = True