frmclient.vb

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

    Me.chkBirthdayWarn.Cursor = System.Windows.Forms.Cursors.Default
    Me.chkBirthdayWarn.ForeColor = System.Drawing.SystemColors.ControlText
    Me.chkBirthdayWarn.Location = New System.Drawing.Point(317, 247)
    Me.chkBirthdayWarn.Name = "chkBirthdayWarn"
    Me.chkBirthdayWarn.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.chkBirthdayWarn.Size = New System.Drawing.Size(116, 18)
    Me.chkBirthdayWarn.TabIndex = 17
    Me.chkBirthdayWarn.Text = "启用生日提醒"
    '
    '_SSTabClient_TabPage1
    '
    Me._SSTabClient_TabPage1.Controls.Add(Me.txtSelfSite)
    Me._SSTabClient_TabPage1.Controls.Add(Me.fraWork)
    Me._SSTabClient_TabPage1.Controls.Add(Me.fraRemark)
    Me._SSTabClient_TabPage1.Controls.Add(Me.Label16)
    Me._SSTabClient_TabPage1.Location = New System.Drawing.Point(4, 22)
    Me._SSTabClient_TabPage1.Name = "_SSTabClient_TabPage1"
    Me._SSTabClient_TabPage1.Size = New System.Drawing.Size(569, 285)
    Me._SSTabClient_TabPage1.TabIndex = 1
    Me._SSTabClient_TabPage1.Text = "客户其它信息"
    '
    'txtSelfSite
    '
    Me.txtSelfSite.AcceptsReturn = True
    Me.txtSelfSite.AutoSize = False
    Me.txtSelfSite.BackColor = System.Drawing.SystemColors.Window
    Me.txtSelfSite.Cursor = System.Windows.Forms.Cursors.IBeam
    Me.txtSelfSite.ForeColor = System.Drawing.SystemColors.WindowText
    Me.txtSelfSite.Location = New System.Drawing.Point(85, 96)
    Me.txtSelfSite.MaxLength = 0
    Me.txtSelfSite.Name = "txtSelfSite"
    Me.txtSelfSite.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.txtSelfSite.Size = New System.Drawing.Size(464, 21)
    Me.txtSelfSite.TabIndex = 22
    Me.txtSelfSite.Text = "txtSelfSite"
    '
    'fraWork
    '
    Me.fraWork.BackColor = System.Drawing.SystemColors.Control
    Me.fraWork.Controls.Add(Me.txtCompanySite)
    Me.fraWork.Controls.Add(Me.txtCompany)
    Me.fraWork.Controls.Add(Me.txtPosition)
    Me.fraWork.Controls.Add(Me.txtWork)
    Me.fraWork.Controls.Add(Me.Label18)
    Me.fraWork.Controls.Add(Me.Label17)
    Me.fraWork.Controls.Add(Me.Label15)
    Me.fraWork.Controls.Add(Me.Label14)
    Me.fraWork.ForeColor = System.Drawing.SystemColors.ControlText
    Me.fraWork.Location = New System.Drawing.Point(24, 8)
    Me.fraWork.Name = "fraWork"
    Me.fraWork.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.fraWork.Size = New System.Drawing.Size(529, 79)
    Me.fraWork.TabIndex = 50
    Me.fraWork.TabStop = False
    Me.fraWork.Text = "职业信息"
    '
    'txtCompanySite
    '
    Me.txtCompanySite.AcceptsReturn = True
    Me.txtCompanySite.AutoSize = False
    Me.txtCompanySite.BackColor = System.Drawing.SystemColors.Window
    Me.txtCompanySite.Cursor = System.Windows.Forms.Cursors.IBeam
    Me.txtCompanySite.ForeColor = System.Drawing.SystemColors.WindowText
    Me.txtCompanySite.Location = New System.Drawing.Point(307, 47)
    Me.txtCompanySite.MaxLength = 0
    Me.txtCompanySite.Name = "txtCompanySite"
    Me.txtCompanySite.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.txtCompanySite.Size = New System.Drawing.Size(209, 22)
    Me.txtCompanySite.TabIndex = 21
    Me.txtCompanySite.Text = "txtCompanySite"
    '
    'txtCompany
    '
    Me.txtCompany.AcceptsReturn = True
    Me.txtCompany.AutoSize = False
    Me.txtCompany.BackColor = System.Drawing.SystemColors.Window
    Me.txtCompany.Cursor = System.Windows.Forms.Cursors.IBeam
    Me.txtCompany.ForeColor = System.Drawing.SystemColors.WindowText
    Me.txtCompany.Location = New System.Drawing.Point(307, 17)
    Me.txtCompany.MaxLength = 0
    Me.txtCompany.Name = "txtCompany"
    Me.txtCompany.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.txtCompany.Size = New System.Drawing.Size(209, 22)
    Me.txtCompany.TabIndex = 19
    Me.txtCompany.Text = "txtCompany"
    '
    'txtPosition
    '
    Me.txtPosition.AcceptsReturn = True
    Me.txtPosition.AutoSize = False
    Me.txtPosition.BackColor = System.Drawing.SystemColors.Window
    Me.txtPosition.Cursor = System.Windows.Forms.Cursors.IBeam
    Me.txtPosition.ForeColor = System.Drawing.SystemColors.WindowText
    Me.txtPosition.Location = New System.Drawing.Point(58, 47)
    Me.txtPosition.MaxLength = 0
    Me.txtPosition.Name = "txtPosition"
    Me.txtPosition.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.txtPosition.Size = New System.Drawing.Size(158, 22)
    Me.txtPosition.TabIndex = 20
    Me.txtPosition.Text = "txtPosition"
    '
    'txtWork
    '
    Me.txtWork.AcceptsReturn = True
    Me.txtWork.AutoSize = False
    Me.txtWork.BackColor = System.Drawing.SystemColors.Window
    Me.txtWork.Cursor = System.Windows.Forms.Cursors.IBeam
    Me.txtWork.ForeColor = System.Drawing.SystemColors.WindowText
    Me.txtWork.Location = New System.Drawing.Point(58, 17)
    Me.txtWork.MaxLength = 0
    Me.txtWork.Name = "txtWork"
    Me.txtWork.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.txtWork.Size = New System.Drawing.Size(158, 22)
    Me.txtWork.TabIndex = 18
    Me.txtWork.Text = "txtWork"
    '
    'Label18
    '
    Me.Label18.AutoSize = True
    Me.Label18.BackColor = System.Drawing.SystemColors.Control
    Me.Label18.Cursor = System.Windows.Forms.Cursors.Default
    Me.Label18.ForeColor = System.Drawing.SystemColors.ControlText
    Me.Label18.Location = New System.Drawing.Point(230, 52)
    Me.Label18.Name = "Label18"
    Me.Label18.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.Label18.Size = New System.Drawing.Size(54, 17)
    Me.Label18.TabIndex = 54
    Me.Label18.Text = "公司网站"
    '
    'Label17
    '
    Me.Label17.AutoSize = True
    Me.Label17.BackColor = System.Drawing.SystemColors.Control
    Me.Label17.Cursor = System.Windows.Forms.Cursors.Default
    Me.Label17.ForeColor = System.Drawing.SystemColors.ControlText
    Me.Label17.Location = New System.Drawing.Point(230, 22)
    Me.Label17.Name = "Label17"
    Me.Label17.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.Label17.Size = New System.Drawing.Size(54, 17)
    Me.Label17.TabIndex = 53
    Me.Label17.Text = "就职单位"
    '
    'Label15
    '
    Me.Label15.AutoSize = True
    Me.Label15.BackColor = System.Drawing.SystemColors.Control
    Me.Label15.Cursor = System.Windows.Forms.Cursors.Default
    Me.Label15.ForeColor = System.Drawing.SystemColors.ControlText
    Me.Label15.Location = New System.Drawing.Point(10, 52)
    Me.Label15.Name = "Label15"
    Me.Label15.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.Label15.Size = New System.Drawing.Size(29, 17)
    Me.Label15.TabIndex = 52
    Me.Label15.Text = "职位"
    '
    'Label14
    '
    Me.Label14.AutoSize = True
    Me.Label14.BackColor = System.Drawing.SystemColors.Control
    Me.Label14.Cursor = System.Windows.Forms.Cursors.Default
    Me.Label14.ForeColor = System.Drawing.SystemColors.ControlText
    Me.Label14.Location = New System.Drawing.Point(10, 22)
    Me.Label14.Name = "Label14"
    Me.Label14.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.Label14.Size = New System.Drawing.Size(29, 17)
    Me.Label14.TabIndex = 51
    Me.Label14.Text = "职业"
    '
    'fraRemark
    '
    Me.fraRemark.BackColor = System.Drawing.SystemColors.Control
    Me.fraRemark.Controls.Add(Me.txtRemark)
    Me.fraRemark.Controls.Add(Me.txtHate)
    Me.fraRemark.Controls.Add(Me.txtLikes)
    Me.fraRemark.Controls.Add(Me.Label24)
    Me.fraRemark.Controls.Add(Me.Label20)
    Me.fraRemark.Controls.Add(Me.Label19)
    Me.fraRemark.ForeColor = System.Drawing.SystemColors.ControlText
    Me.fraRemark.Location = New System.Drawing.Point(24, 120)
    Me.fraRemark.Name = "fraRemark"
    Me.fraRemark.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.fraRemark.Size = New System.Drawing.Size(529, 148)
    Me.fraRemark.TabIndex = 44
    Me.fraRemark.TabStop = False
    Me.fraRemark.Text = "其它说明"
    '
    'txtRemark
    '
    Me.txtRemark.AcceptsReturn = True
    Me.txtRemark.AutoSize = False
    Me.txtRemark.BackColor = System.Drawing.SystemColors.Window
    Me.txtRemark.Cursor = System.Windows.Forms.Cursors.IBeam
    Me.txtRemark.ForeColor = System.Drawing.SystemColors.WindowText
    Me.txtRemark.Location = New System.Drawing.Point(48, 78)
    Me.txtRemark.MaxLength = 0
    Me.txtRemark.Multiline = True
    Me.txtRemark.Name = "txtRemark"
    Me.txtRemark.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.txtRemark.Size = New System.Drawing.Size(462, 52)
    Me.txtRemark.TabIndex = 25
    Me.txtRemark.Text = "txtRemark" & Microsoft.VisualBasic.ChrW(13) & Microsoft.VisualBasic.ChrW(10)
    '
    'txtHate
    '
    Me.txtHate.AcceptsReturn = True
    Me.txtHate.AutoSize = False
    Me.txtHate.BackColor = System.Drawing.SystemColors.Window
    Me.txtHate.Cursor = System.Windows.Forms.Cursors.IBeam
    Me.txtHate.ForeColor = System.Drawing.SystemColors.WindowText
    Me.txtHate.Location = New System.Drawing.Point(307, 26)
    Me.txtHate.MaxLength = 0
    Me.txtHate.Multiline = True
    Me.txtHate.Name = "txtHate"
    Me.txtHate.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.txtHate.Size = New System.Drawing.Size(203, 35)
    Me.txtHate.TabIndex = 24
    Me.txtHate.Text = "txtHate" & Microsoft.VisualBasic.ChrW(13) & Microsoft.VisualBasic.ChrW(10)
    '
    'txtLikes
    '
    Me.txtLikes.AcceptsReturn = True
    Me.txtLikes.AutoSize = False
    Me.txtLikes.BackColor = System.Drawing.SystemColors.Window
    Me.txtLikes.Cursor = System.Windows.Forms.Cursors.IBeam
    Me.txtLikes.ForeColor = System.Drawing.SystemColors.WindowText
    Me.txtLikes.Location = New System.Drawing.Point(48, 26)
    Me.txtLikes.MaxLength = 0
    Me.txtLikes.Multiline = True
    Me.txtLikes.Name = "txtLikes"
    Me.txtLikes.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.txtLikes.Size = New System.Drawing.Size(203, 35)
    Me.txtLikes.TabIndex = 23
    Me.txtLikes.Text = "txtLikes" & Microsoft.VisualBasic.ChrW(13) & Microsoft.VisualBasic.ChrW(10)
    '
    'Label24
    '
    Me.Label24.AutoSize = True
    Me.Label24.BackColor = System.Drawing.SystemColors.Control
    Me.Label24.Cursor = System.Windows.Forms.Cursors.Default
    Me.Label24.ForeColor = System.Drawing.SystemColors.ControlText
    Me.Label24.Location = New System.Drawing.Point(10, 86)
    Me.Label24.Name = "Label24"
    Me.Label24.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.Label24.Size = New System.Drawing.Size(29, 17)
    Me.Label24.TabIndex = 47
    Me.Label24.Text = "备注"
    '
    'Label20
    '
    Me.Label20.AutoSize = True
    Me.Label20.BackColor = System.Drawing.SystemColors.Control
    Me.Label20.Cursor = System.Windows.Forms.Cursors.Default
    Me.Label20.ForeColor = System.Drawing.SystemColors.ControlText
    Me.Label20.Location = New System.Drawing.Point(269, 26)
    Me.Label20.Name = "Label20"
    Me.Label20.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.Label20.Size = New System.Drawing.Size(29, 17)
    Me.Label20.TabIndex = 46
    Me.Label20.Text = "厌恶"
    '
    'Label19
    '
    Me.Label19.AutoSize = True
    Me.Label19.BackColor = System.Drawing.SystemColors.Control
    Me.Label19.Cursor = System.Windows.Forms.Cursors.Default
    Me.Label19.ForeColor = System.Drawing.SystemColors.ControlText
    Me.Label19.Location = New System.Drawing.Point(10, 26)
    Me.Label19.Name = "Label19"
    Me.Label19.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.Label19.Size = New System.Drawing.Size(29, 17)
    Me.Label19.TabIndex = 45
    Me.Label19.Text = "喜好"
    '
    'Label16
    '
    Me.Label16.AutoSize = True
    Me.Label16.BackColor = System.Drawing.SystemColors.Control
    Me.Label16.Cursor = System.Windows.Forms.Cursors.Default
    Me.Label16.ForeColor = System.Drawing.SystemColors.ControlText
    Me.Label16.Location = New System.Drawing.Point(24, 96)
    Me.Label16.Name = "Label16"
    Me.Label16.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.Label16.Size = New System.Drawing.Size(54, 17)
    Me.Label16.TabIndex = 55
    Me.Label16.Text = "个人网站"
    '
    '_SSTabClient_TabPage2
    '
    Me._SSTabClient_TabPage2.Controls.Add(Me.fraCoop)
    Me._SSTabClient_TabPage2.Location = New System.Drawing.Point(4, 22)
    Me._SSTabClient_TabPage2.Name = "_SSTabClient_TabPage2"
    Me._SSTabClient_TabPage2.Size = New System.Drawing.Size(569, 285)
    Me._SSTabClient_TabPage2.TabIndex = 2
    Me._SSTabClient_TabPage2.Text = "合作记录"
    '
    'fraCoop
    '
    Me.fraCoop.BackColor = System.Drawing.SystemColors.Control
    Me.fraCoop.Controls.Add(Me.tlvCoop)
    Me.fraCoop.Controls.Add(Me.btnDelCoop)
    Me.fraCoop.Controls.Add(Me.btnModifyCoop)
    Me.fraCoop.Controls.Add(Me.btnAddCoop)
    Me.fraCoop.Controls.Add(Me.btnCoopInfo)
    Me.fraCoop.ForeColor = System.Drawing.SystemColors.ControlText
    Me.fraCoop.Location = New System.Drawing.Point(19, 8)
    Me.fraCoop.Name = "fraCoop"
    Me.fraCoop.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.fraCoop.Size = New System.Drawing.Size(539, 269)
    Me.fraCoop.TabIndex = 61
    Me.fraCoop.TabStop = False
    Me.fraCoop.Text = "合作记录"
    '
    'tlvCoop
    '
    Me.tlvCoop.Location = New System.Drawing.Point(8, 32)
    Me.tlvCoop.Name = "tlvCoop"
    Me.tlvCoop.Size = New System.Drawing.Size(520, 192)