frmclient.vb

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

    Me.txtEmail.AutoSize = False
    Me.txtEmail.BackColor = System.Drawing.SystemColors.Window
    Me.txtEmail.Cursor = System.Windows.Forms.Cursors.IBeam
    Me.txtEmail.ForeColor = System.Drawing.SystemColors.WindowText
    Me.txtEmail.Location = New System.Drawing.Point(77, 156)
    Me.txtEmail.MaxLength = 0
    Me.txtEmail.Name = "txtEmail"
    Me.txtEmail.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.txtEmail.Size = New System.Drawing.Size(164, 22)
    Me.txtEmail.TabIndex = 8
    Me.txtEmail.Text = "txtEmail"
    '
    'txtMobile
    '
    Me.txtMobile.AcceptsReturn = True
    Me.txtMobile.AutoSize = False
    Me.txtMobile.BackColor = System.Drawing.SystemColors.Window
    Me.txtMobile.Cursor = System.Windows.Forms.Cursors.IBeam
    Me.txtMobile.ForeColor = System.Drawing.SystemColors.WindowText
    Me.txtMobile.Location = New System.Drawing.Point(77, 122)
    Me.txtMobile.MaxLength = 0
    Me.txtMobile.Name = "txtMobile"
    Me.txtMobile.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.txtMobile.Size = New System.Drawing.Size(164, 21)
    Me.txtMobile.TabIndex = 7
    Me.txtMobile.Text = "txtMobile"
    '
    'txtName
    '
    Me.txtName.AcceptsReturn = True
    Me.txtName.AutoSize = False
    Me.txtName.BackColor = System.Drawing.SystemColors.Window
    Me.txtName.Cursor = System.Windows.Forms.Cursors.IBeam
    Me.txtName.ForeColor = System.Drawing.SystemColors.WindowText
    Me.txtName.Location = New System.Drawing.Point(77, 22)
    Me.txtName.MaxLength = 0
    Me.txtName.Name = "txtName"
    Me.txtName.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.txtName.Size = New System.Drawing.Size(164, 21)
    Me.txtName.TabIndex = 4
    Me.txtName.Text = "txtName"
    '
    'Label10
    '
    Me.Label10.AutoSize = True
    Me.Label10.BackColor = System.Drawing.SystemColors.Control
    Me.Label10.Cursor = System.Windows.Forms.Cursors.Default
    Me.Label10.ForeColor = System.Drawing.SystemColors.ControlText
    Me.Label10.Location = New System.Drawing.Point(10, 95)
    Me.Label10.Name = "Label10"
    Me.Label10.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.Label10.Size = New System.Drawing.Size(54, 17)
    Me.Label10.TabIndex = 42
    Me.Label10.Text = "客户类型"
    '
    'Label6
    '
    Me.Label6.AutoSize = True
    Me.Label6.BackColor = System.Drawing.SystemColors.Control
    Me.Label6.Cursor = System.Windows.Forms.Cursors.Default
    Me.Label6.ForeColor = System.Drawing.SystemColors.ControlText
    Me.Label6.Location = New System.Drawing.Point(10, 164)
    Me.Label6.Name = "Label6"
    Me.Label6.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.Label6.Size = New System.Drawing.Size(42, 17)
    Me.Label6.TabIndex = 40
    Me.Label6.Text = "E-Mail"
    '
    'Label5
    '
    Me.Label5.AutoSize = True
    Me.Label5.BackColor = System.Drawing.SystemColors.Control
    Me.Label5.Cursor = System.Windows.Forms.Cursors.Default
    Me.Label5.ForeColor = System.Drawing.SystemColors.ControlText
    Me.Label5.Location = New System.Drawing.Point(10, 60)
    Me.Label5.Name = "Label5"
    Me.Label5.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.Label5.Size = New System.Drawing.Size(29, 17)
    Me.Label5.TabIndex = 34
    Me.Label5.Text = "性别"
    '
    'Label3
    '
    Me.Label3.AutoSize = True
    Me.Label3.BackColor = System.Drawing.SystemColors.Control
    Me.Label3.Cursor = System.Windows.Forms.Cursors.Default
    Me.Label3.ForeColor = System.Drawing.SystemColors.ControlText
    Me.Label3.Location = New System.Drawing.Point(10, 129)
    Me.Label3.Name = "Label3"
    Me.Label3.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.Label3.Size = New System.Drawing.Size(29, 17)
    Me.Label3.TabIndex = 33
    Me.Label3.Text = "手机"
    '
    'Label1
    '
    Me.Label1.AutoSize = True
    Me.Label1.BackColor = System.Drawing.SystemColors.Control
    Me.Label1.Cursor = System.Windows.Forms.Cursors.Default
    Me.Label1.ForeColor = System.Drawing.SystemColors.ControlText
    Me.Label1.Location = New System.Drawing.Point(10, 26)
    Me.Label1.Name = "Label1"
    Me.Label1.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.Label1.Size = New System.Drawing.Size(29, 17)
    Me.Label1.TabIndex = 32
    Me.Label1.Text = "姓名"
    '
    'fracomInfo
    '
    Me.fracomInfo.BackColor = System.Drawing.SystemColors.Control
    Me.fracomInfo.Controls.Add(Me.txtZipCode)
    Me.fracomInfo.Controls.Add(Me.txtMailAdr)
    Me.fracomInfo.Controls.Add(Me.txtHomeAdr)
    Me.fracomInfo.Controls.Add(Me.txtFax)
    Me.fracomInfo.Controls.Add(Me.txtHomePhone)
    Me.fracomInfo.Controls.Add(Me.txtOfficePhone)
    Me.fracomInfo.Controls.Add(Me.Label11)
    Me.fracomInfo.Controls.Add(Me.Label2)
    Me.fracomInfo.Controls.Add(Me.Label4)
    Me.fracomInfo.Controls.Add(Me.Label7)
    Me.fracomInfo.Controls.Add(Me.Label8)
    Me.fracomInfo.Controls.Add(Me.Label9)
    Me.fracomInfo.ForeColor = System.Drawing.SystemColors.ControlText
    Me.fracomInfo.Location = New System.Drawing.Point(298, 24)
    Me.fracomInfo.Name = "fracomInfo"
    Me.fracomInfo.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.fracomInfo.Size = New System.Drawing.Size(260, 199)
    Me.fracomInfo.TabIndex = 35
    Me.fracomInfo.TabStop = False
    Me.fracomInfo.Text = "其它通讯方式"
    '
    'txtZipCode
    '
    Me.txtZipCode.AcceptsReturn = True
    Me.txtZipCode.AutoSize = False
    Me.txtZipCode.BackColor = System.Drawing.SystemColors.Window
    Me.txtZipCode.Cursor = System.Windows.Forms.Cursors.IBeam
    Me.txtZipCode.ForeColor = System.Drawing.SystemColors.WindowText
    Me.txtZipCode.Location = New System.Drawing.Point(96, 168)
    Me.txtZipCode.MaxLength = 0
    Me.txtZipCode.Name = "txtZipCode"
    Me.txtZipCode.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.txtZipCode.Size = New System.Drawing.Size(145, 22)
    Me.txtZipCode.TabIndex = 14
    Me.txtZipCode.Text = "txtZipCode"
    '
    'txtMailAdr
    '
    Me.txtMailAdr.AcceptsReturn = True
    Me.txtMailAdr.AutoSize = False
    Me.txtMailAdr.BackColor = System.Drawing.SystemColors.Window
    Me.txtMailAdr.Cursor = System.Windows.Forms.Cursors.IBeam
    Me.txtMailAdr.ForeColor = System.Drawing.SystemColors.WindowText
    Me.txtMailAdr.Location = New System.Drawing.Point(96, 139)
    Me.txtMailAdr.MaxLength = 0
    Me.txtMailAdr.Name = "txtMailAdr"
    Me.txtMailAdr.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.txtMailAdr.Size = New System.Drawing.Size(145, 21)
    Me.txtMailAdr.TabIndex = 13
    Me.txtMailAdr.Text = "txtMailAdr"
    '
    'txtHomeAdr
    '
    Me.txtHomeAdr.AcceptsReturn = True
    Me.txtHomeAdr.AutoSize = False
    Me.txtHomeAdr.BackColor = System.Drawing.SystemColors.Window
    Me.txtHomeAdr.Cursor = System.Windows.Forms.Cursors.IBeam
    Me.txtHomeAdr.ForeColor = System.Drawing.SystemColors.WindowText
    Me.txtHomeAdr.Location = New System.Drawing.Point(96, 110)
    Me.txtHomeAdr.MaxLength = 0
    Me.txtHomeAdr.Name = "txtHomeAdr"
    Me.txtHomeAdr.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.txtHomeAdr.Size = New System.Drawing.Size(145, 21)
    Me.txtHomeAdr.TabIndex = 12
    Me.txtHomeAdr.Text = "txtHomeAdr"
    '
    'txtFax
    '
    Me.txtFax.AcceptsReturn = True
    Me.txtFax.AutoSize = False
    Me.txtFax.BackColor = System.Drawing.SystemColors.Window
    Me.txtFax.Cursor = System.Windows.Forms.Cursors.IBeam
    Me.txtFax.ForeColor = System.Drawing.SystemColors.WindowText
    Me.txtFax.Location = New System.Drawing.Point(96, 81)
    Me.txtFax.MaxLength = 0
    Me.txtFax.Name = "txtFax"
    Me.txtFax.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.txtFax.Size = New System.Drawing.Size(145, 21)
    Me.txtFax.TabIndex = 11
    Me.txtFax.Text = "txtFax"
    '
    'txtHomePhone
    '
    Me.txtHomePhone.AcceptsReturn = True
    Me.txtHomePhone.AutoSize = False
    Me.txtHomePhone.BackColor = System.Drawing.SystemColors.Window
    Me.txtHomePhone.Cursor = System.Windows.Forms.Cursors.IBeam
    Me.txtHomePhone.ForeColor = System.Drawing.SystemColors.WindowText
    Me.txtHomePhone.Location = New System.Drawing.Point(96, 52)
    Me.txtHomePhone.MaxLength = 0
    Me.txtHomePhone.Name = "txtHomePhone"
    Me.txtHomePhone.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.txtHomePhone.Size = New System.Drawing.Size(145, 21)
    Me.txtHomePhone.TabIndex = 10
    Me.txtHomePhone.Text = "txtHomePhone"
    '
    'txtOfficePhone
    '
    Me.txtOfficePhone.AcceptsReturn = True
    Me.txtOfficePhone.AutoSize = False
    Me.txtOfficePhone.BackColor = System.Drawing.SystemColors.Window
    Me.txtOfficePhone.Cursor = System.Windows.Forms.Cursors.IBeam
    Me.txtOfficePhone.ForeColor = System.Drawing.SystemColors.WindowText
    Me.txtOfficePhone.Location = New System.Drawing.Point(96, 22)
    Me.txtOfficePhone.MaxLength = 0
    Me.txtOfficePhone.Name = "txtOfficePhone"
    Me.txtOfficePhone.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.txtOfficePhone.Size = New System.Drawing.Size(145, 21)
    Me.txtOfficePhone.TabIndex = 9
    Me.txtOfficePhone.Text = "txtOfficePhone"
    '
    'Label11
    '
    Me.Label11.AutoSize = True
    Me.Label11.BackColor = System.Drawing.SystemColors.Control
    Me.Label11.Cursor = System.Windows.Forms.Cursors.Default
    Me.Label11.ForeColor = System.Drawing.SystemColors.ControlText
    Me.Label11.Location = New System.Drawing.Point(10, 85)
    Me.Label11.Name = "Label11"
    Me.Label11.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.Label11.Size = New System.Drawing.Size(29, 17)
    Me.Label11.TabIndex = 43
    Me.Label11.Text = "传真"
    '
    'Label2
    '
    Me.Label2.AutoSize = True
    Me.Label2.BackColor = System.Drawing.SystemColors.Control
    Me.Label2.Cursor = System.Windows.Forms.Cursors.Default
    Me.Label2.ForeColor = System.Drawing.SystemColors.ControlText
    Me.Label2.Location = New System.Drawing.Point(10, 172)
    Me.Label2.Name = "Label2"
    Me.Label2.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.Label2.Size = New System.Drawing.Size(29, 17)
    Me.Label2.TabIndex = 41
    Me.Label2.Text = "邮编"
    '
    'Label4
    '
    Me.Label4.AutoSize = True
    Me.Label4.BackColor = System.Drawing.SystemColors.Control
    Me.Label4.Cursor = System.Windows.Forms.Cursors.Default
    Me.Label4.ForeColor = System.Drawing.SystemColors.ControlText
    Me.Label4.Location = New System.Drawing.Point(10, 26)
    Me.Label4.Name = "Label4"
    Me.Label4.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.Label4.Size = New System.Drawing.Size(66, 17)
    Me.Label4.TabIndex = 39
    Me.Label4.Text = "办公室电话"
    '
    'Label7
    '
    Me.Label7.AutoSize = True
    Me.Label7.BackColor = System.Drawing.SystemColors.Control
    Me.Label7.Cursor = System.Windows.Forms.Cursors.Default
    Me.Label7.ForeColor = System.Drawing.SystemColors.ControlText
    Me.Label7.Location = New System.Drawing.Point(10, 56)
    Me.Label7.Name = "Label7"
    Me.Label7.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.Label7.Size = New System.Drawing.Size(54, 17)
    Me.Label7.TabIndex = 38
    Me.Label7.Text = "住宅电话"
    '
    'Label8
    '
    Me.Label8.AutoSize = True
    Me.Label8.BackColor = System.Drawing.SystemColors.Control
    Me.Label8.Cursor = System.Windows.Forms.Cursors.Default
    Me.Label8.ForeColor = System.Drawing.SystemColors.ControlText
    Me.Label8.Location = New System.Drawing.Point(10, 114)
    Me.Label8.Name = "Label8"
    Me.Label8.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.Label8.Size = New System.Drawing.Size(29, 17)
    Me.Label8.TabIndex = 37
    Me.Label8.Text = "住址"
    '
    'Label9
    '
    Me.Label9.AutoSize = True
    Me.Label9.BackColor = System.Drawing.SystemColors.Control
    Me.Label9.Cursor = System.Windows.Forms.Cursors.Default
    Me.Label9.ForeColor = System.Drawing.SystemColors.ControlText
    Me.Label9.Location = New System.Drawing.Point(10, 143)
    Me.Label9.Name = "Label9"
    Me.Label9.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.Label9.Size = New System.Drawing.Size(54, 17)
    Me.Label9.TabIndex = 36
    Me.Label9.Text = "通讯地址"
    '
    'txtAge
    '
    Me.txtAge.AcceptsReturn = True
    Me.txtAge.AutoSize = False
    Me.txtAge.BackColor = System.Drawing.SystemColors.ActiveCaptionText
    Me.txtAge.Cursor = System.Windows.Forms.Cursors.IBeam
    Me.txtAge.ForeColor = System.Drawing.SystemColors.WindowText
    Me.txtAge.Location = New System.Drawing.Point(221, 245)
    Me.txtAge.MaxLength = 0
    Me.txtAge.Name = "txtAge"
    Me.txtAge.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.txtAge.Size = New System.Drawing.Size(59, 21)
    Me.txtAge.TabIndex = 16
    Me.txtAge.Text = "txtAge"
    '
    'chkBirthdayWarn
    '
    Me.chkBirthdayWarn.BackColor = System.Drawing.SystemColors.Control