clientinfo.vb

VBA专业项目进行开发的实例项目的一些源代码

        Me.TabPage3.SuspendLayout()
        Me.Panel3.SuspendLayout()
        Me.GroupBox7.SuspendLayout()
        Me.GroupBox8.SuspendLayout()
        Me.SuspendLayout()
        '
        'TabControl1
        '
        Me.TabControl1.Controls.AddRange(New System.Windows.Forms.Control() {Me.TabPage1, Me.TabPage2, Me.TabPage3})
        Me.TabControl1.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.TabControl1.Location = New System.Drawing.Point(8, 16)
        Me.TabControl1.Name = "TabControl1"
        Me.TabControl1.SelectedIndex = 0
        Me.TabControl1.Size = New System.Drawing.Size(544, 417)
        Me.TabControl1.TabIndex = 0
        '
        'TabPage1
        '
        Me.TabPage1.Controls.AddRange(New System.Windows.Forms.Control() {Me.Panel1})
        Me.TabPage1.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.TabPage1.Location = New System.Drawing.Point(4, 23)
        Me.TabPage1.Name = "TabPage1"
        Me.TabPage1.Size = New System.Drawing.Size(536, 390)
        Me.TabPage1.TabIndex = 0
        Me.TabPage1.Text = "Profile"
        '
        'Panel1
        '
        Me.Panel1.BackColor = System.Drawing.Color.PowderBlue
        Me.Panel1.Controls.AddRange(New System.Windows.Forms.Control() {Me.Button1, Me.cmbIndustryType, Me.Label1, Me.lblLabelFormDes, Me.btnUpdate, Me.lblAddress_Line1, Me.lblAddress_Line2, Me.lblCellPhoneNumber, Me.lblCity, Me.lblClient_Name, Me.lblContact_Person, Me.editAddressLine1, Me.editAddressLine2, Me.editCellPhoneNumber, Me.editCity, Me.editClientName, Me.editContactPerson, Me.lblEmailAddress, Me.lblFax, Me.lblPhoneNumber, Me.lblRemarks, Me.lblState, Me.lblTitle, Me.lblZipCode, Me.editEmailAddress, Me.editFax, Me.editPhoneNumber, Me.editRemarks, Me.editState, Me.editTitle, Me.editZipCode})
        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
        Me.Panel1.Name = "Panel1"
        Me.Panel1.Size = New System.Drawing.Size(536, 390)
        Me.Panel1.TabIndex = 0
        '
        'Button1
        '
        Me.Button1.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Button1.Location = New System.Drawing.Point(437, 341)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(88, 24)
        Me.Button1.TabIndex = 74
        Me.Button1.Text = "&Close"
        '
        'cmbIndustryType
        '
        Me.cmbIndustryType.BackColor = System.Drawing.Color.LightCyan
        Me.cmbIndustryType.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.cmbIndustryType.Items.AddRange(New Object() {"Software", "Legal Services", "Placement Agency", "Automobile Service"})
        Me.cmbIndustryType.Location = New System.Drawing.Point(370, 280)
        Me.cmbIndustryType.Name = "cmbIndustryType"
        Me.cmbIndustryType.Size = New System.Drawing.Size(158, 21)
        Me.cmbIndustryType.TabIndex = 13
        '
        'Label1
        '
        Me.Label1.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label1.Location = New System.Drawing.Point(271, 282)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(88, 16)
        Me.Label1.TabIndex = 72
        Me.Label1.Text = "Industry Type:"
        '
        'lblLabelFormDes
        '
        Me.lblLabelFormDes.Font = New System.Drawing.Font("Tahoma", 9.0!, (System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblLabelFormDes.Location = New System.Drawing.Point(9, 38)
        Me.lblLabelFormDes.Name = "lblLabelFormDes"
        Me.lblLabelFormDes.Size = New System.Drawing.Size(159, 24)
        Me.lblLabelFormDes.TabIndex = 71
        Me.lblLabelFormDes.Text = "Customer's Information:"
        '
        'btnUpdate
        '
        Me.btnUpdate.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.btnUpdate.Location = New System.Drawing.Point(341, 342)
        Me.btnUpdate.Name = "btnUpdate"
        Me.btnUpdate.Size = New System.Drawing.Size(88, 24)
        Me.btnUpdate.TabIndex = 44
        Me.btnUpdate.Text = "&Save"
        '
        'lblAddress_Line1
        '
        Me.lblAddress_Line1.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblAddress_Line1.Location = New System.Drawing.Point(8, 182)
        Me.lblAddress_Line1.Name = "lblAddress_Line1"
        Me.lblAddress_Line1.Size = New System.Drawing.Size(96, 23)
        Me.lblAddress_Line1.TabIndex = 45
        Me.lblAddress_Line1.Text = "Address Line 1:"
        '
        'lblAddress_Line2
        '
        Me.lblAddress_Line2.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblAddress_Line2.Location = New System.Drawing.Point(8, 214)
        Me.lblAddress_Line2.Name = "lblAddress_Line2"
        Me.lblAddress_Line2.Size = New System.Drawing.Size(96, 23)
        Me.lblAddress_Line2.TabIndex = 46
        Me.lblAddress_Line2.Text = "Address Line 2:"
        '
        'lblCellPhoneNumber
        '
        Me.lblCellPhoneNumber.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblCellPhoneNumber.Location = New System.Drawing.Point(271, 182)
        Me.lblCellPhoneNumber.Name = "lblCellPhoneNumber"
        Me.lblCellPhoneNumber.Size = New System.Drawing.Size(75, 23)
        Me.lblCellPhoneNumber.TabIndex = 47
        Me.lblCellPhoneNumber.Text = "Phone(cell):"
        '
        'lblCity
        '
        Me.lblCity.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblCity.Location = New System.Drawing.Point(8, 246)
        Me.lblCity.Name = "lblCity"
        Me.lblCity.Size = New System.Drawing.Size(72, 23)
        Me.lblCity.TabIndex = 48
        Me.lblCity.Text = "City:"
        '
        'lblClient_Name
        '
        Me.lblClient_Name.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblClient_Name.Location = New System.Drawing.Point(8, 86)
        Me.lblClient_Name.Name = "lblClient_Name"
        Me.lblClient_Name.Size = New System.Drawing.Size(88, 23)
        Me.lblClient_Name.TabIndex = 49
        Me.lblClient_Name.Text = "Client Name:"
        '
        'lblContact_Person
        '
        Me.lblContact_Person.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblContact_Person.Location = New System.Drawing.Point(8, 118)
        Me.lblContact_Person.Name = "lblContact_Person"
        Me.lblContact_Person.Size = New System.Drawing.Size(96, 23)
        Me.lblContact_Person.TabIndex = 50
        Me.lblContact_Person.Text = "Contact Person:"
        '
        'editAddressLine1
        '
        Me.editAddressLine1.BackColor = System.Drawing.Color.LightCyan
        Me.editAddressLine1.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.editAddressLine1.Location = New System.Drawing.Point(106, 182)
        Me.editAddressLine1.Name = "editAddressLine1"
        Me.editAddressLine1.Size = New System.Drawing.Size(158, 21)
        Me.editAddressLine1.TabIndex = 3
        Me.editAddressLine1.Text = ""
        '
        'editAddressLine2
        '
        Me.editAddressLine2.BackColor = System.Drawing.Color.LightCyan
        Me.editAddressLine2.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.editAddressLine2.Location = New System.Drawing.Point(106, 214)
        Me.editAddressLine2.Name = "editAddressLine2"
        Me.editAddressLine2.Size = New System.Drawing.Size(158, 21)
        Me.editAddressLine2.TabIndex = 4
        Me.editAddressLine2.Text = ""
        '
        'editCellPhoneNumber
        '
        Me.editCellPhoneNumber.BackColor = System.Drawing.Color.LightCyan
        Me.editCellPhoneNumber.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.editCellPhoneNumber.Location = New System.Drawing.Point(371, 182)
        Me.editCellPhoneNumber.Name = "editCellPhoneNumber"
        Me.editCellPhoneNumber.Size = New System.Drawing.Size(157, 21)
        Me.editCellPhoneNumber.TabIndex = 10
        Me.editCellPhoneNumber.Text = ""
        '
        'editCity
        '
        Me.editCity.BackColor = System.Drawing.Color.LightCyan
        Me.editCity.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.editCity.Location = New System.Drawing.Point(106, 246)
        Me.editCity.Name = "editCity"
        Me.editCity.Size = New System.Drawing.Size(158, 21)
        Me.editCity.TabIndex = 5
        Me.editCity.Text = ""
        '
        'editClientName
        '
        Me.editClientName.BackColor = System.Drawing.Color.LightCyan
        Me.editClientName.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.editClientName.Location = New System.Drawing.Point(106, 86)
        Me.editClientName.Name = "editClientName"
        Me.editClientName.Size = New System.Drawing.Size(158, 21)
        Me.editClientName.TabIndex = 0
        Me.editClientName.Text = ""
        '
        'editContactPerson
        '
        Me.editContactPerson.BackColor = System.Drawing.Color.LightCyan
        Me.editContactPerson.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.editContactPerson.Location = New System.Drawing.Point(106, 118)
        Me.editContactPerson.Name = "editContactPerson"
        Me.editContactPerson.Size = New System.Drawing.Size(158, 21)
        Me.editContactPerson.TabIndex = 1
        Me.editContactPerson.Text = ""
        '
        'lblEmailAddress
        '
        Me.lblEmailAddress.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblEmailAddress.Location = New System.Drawing.Point(271, 118)
        Me.lblEmailAddress.Name = "lblEmailAddress"
        Me.lblEmailAddress.Size = New System.Drawing.Size(91, 23)
        Me.lblEmailAddress.TabIndex = 57
        Me.lblEmailAddress.Text = "Email Address:"
        '
        'lblFax
        '
        Me.lblFax.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblFax.Location = New System.Drawing.Point(271, 214)
        Me.lblFax.Name = "lblFax"
        Me.lblFax.Size = New System.Drawing.Size(35, 23)
        Me.lblFax.TabIndex = 58
        Me.lblFax.Text = "Fax:"
        '
        'lblPhoneNumber
        '
        Me.lblPhoneNumber.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblPhoneNumber.Location = New System.Drawing.Point(271, 150)
        Me.lblPhoneNumber.Name = "lblPhoneNumber"
        Me.lblPhoneNumber.Size = New System.Drawing.Size(99, 23)
        Me.lblPhoneNumber.TabIndex = 59
        Me.lblPhoneNumber.Text = "Phone Number:"
        '
        'lblRemarks
        '
        Me.lblRemarks.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblRemarks.Location = New System.Drawing.Point(271, 246)
        Me.lblRemarks.Name = "lblRemarks"
        Me.lblRemarks.Size = New System.Drawing.Size(59, 23)
        Me.lblRemarks.TabIndex = 60
        Me.lblRemarks.Text = "Remarks:"
        '
        'lblState
        '
        Me.lblState.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblState.Location = New System.Drawing.Point(8, 278)