copy of dataform1.vb

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

        '
        'editAddress_Line1
        '
        Me.editAddress_Line1.BackColor = System.Drawing.Color.LightCyan
        Me.editAddress_Line1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.objtestdataset, "tblClients.Address_Line1"))
        Me.editAddress_Line1.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.editAddress_Line1.Location = New System.Drawing.Point(136, 176)
        Me.editAddress_Line1.Name = "editAddress_Line1"
        Me.editAddress_Line1.Size = New System.Drawing.Size(136, 21)
        Me.editAddress_Line1.TabIndex = 10
        Me.editAddress_Line1.Text = ""
        '
        'editAddress_Line2
        '
        Me.editAddress_Line2.BackColor = System.Drawing.Color.LightCyan
        Me.editAddress_Line2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.objtestdataset, "tblClients.Address_Line2"))
        Me.editAddress_Line2.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.editAddress_Line2.Location = New System.Drawing.Point(136, 208)
        Me.editAddress_Line2.Name = "editAddress_Line2"
        Me.editAddress_Line2.Size = New System.Drawing.Size(136, 21)
        Me.editAddress_Line2.TabIndex = 11
        Me.editAddress_Line2.Text = ""
        '
        'editCellPhoneNumber
        '
        Me.editCellPhoneNumber.BackColor = System.Drawing.Color.LightCyan
        Me.editCellPhoneNumber.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.objtestdataset, "tblClients.CellPhoneNumber"))
        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(409, 176)
        Me.editCellPhoneNumber.Name = "editCellPhoneNumber"
        Me.editCellPhoneNumber.Size = New System.Drawing.Size(135, 21)
        Me.editCellPhoneNumber.TabIndex = 12
        Me.editCellPhoneNumber.Text = ""
        '
        'editCity
        '
        Me.editCity.BackColor = System.Drawing.Color.LightCyan
        Me.editCity.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.objtestdataset, "tblClients.City"))
        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(136, 240)
        Me.editCity.Name = "editCity"
        Me.editCity.Size = New System.Drawing.Size(136, 21)
        Me.editCity.TabIndex = 13
        Me.editCity.Text = ""
        '
        'editClient_ID
        '
        Me.editClient_ID.BackColor = System.Drawing.Color.LightCyan
        Me.editClient_ID.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.objtestdataset, "tblClients.Client_ID"))
        Me.editClient_ID.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.editClient_ID.Location = New System.Drawing.Point(464, 8)
        Me.editClient_ID.Name = "editClient_ID"
        Me.editClient_ID.TabIndex = 14
        Me.editClient_ID.Text = ""
        Me.editClient_ID.Visible = False
        '
        'editClient_Name
        '
        Me.editClient_Name.BackColor = System.Drawing.Color.LightCyan
        Me.editClient_Name.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.objtestdataset, "tblClients.Client_Name"))
        Me.editClient_Name.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.editClient_Name.Location = New System.Drawing.Point(136, 80)
        Me.editClient_Name.Name = "editClient_Name"
        Me.editClient_Name.Size = New System.Drawing.Size(135, 21)
        Me.editClient_Name.TabIndex = 15
        Me.editClient_Name.Text = ""
        '
        'editContact_Person
        '
        Me.editContact_Person.BackColor = System.Drawing.Color.LightCyan
        Me.editContact_Person.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.objtestdataset, "tblClients.Contact_Person"))
        Me.editContact_Person.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.editContact_Person.Location = New System.Drawing.Point(136, 112)
        Me.editContact_Person.Name = "editContact_Person"
        Me.editContact_Person.Size = New System.Drawing.Size(136, 21)
        Me.editContact_Person.TabIndex = 16
        Me.editContact_Person.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(289, 112)
        Me.lblEmailAddress.Name = "lblEmailAddress"
        Me.lblEmailAddress.TabIndex = 17
        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(289, 208)
        Me.lblFax.Name = "lblFax"
        Me.lblFax.TabIndex = 18
        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(289, 144)
        Me.lblPhoneNumber.Name = "lblPhoneNumber"
        Me.lblPhoneNumber.TabIndex = 19
        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(289, 240)
        Me.lblRemarks.Name = "lblRemarks"
        Me.lblRemarks.TabIndex = 20
        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(24, 272)
        Me.lblState.Name = "lblState"
        Me.lblState.TabIndex = 21
        Me.lblState.Text = "State:"
        '
        'lblTitle
        '
        Me.lblTitle.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblTitle.Location = New System.Drawing.Point(24, 144)
        Me.lblTitle.Name = "lblTitle"
        Me.lblTitle.TabIndex = 22
        Me.lblTitle.Text = "Title:"
        '
        'lblZipCode
        '
        Me.lblZipCode.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblZipCode.Location = New System.Drawing.Point(289, 80)
        Me.lblZipCode.Name = "lblZipCode"
        Me.lblZipCode.TabIndex = 23
        Me.lblZipCode.Text = "Zip Code:"
        '
        'editEmailAddress
        '
        Me.editEmailAddress.BackColor = System.Drawing.Color.LightCyan
        Me.editEmailAddress.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.objtestdataset, "tblClients.EmailAddress"))
        Me.editEmailAddress.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.editEmailAddress.Location = New System.Drawing.Point(409, 112)
        Me.editEmailAddress.Name = "editEmailAddress"
        Me.editEmailAddress.Size = New System.Drawing.Size(135, 21)
        Me.editEmailAddress.TabIndex = 24
        Me.editEmailAddress.Text = ""
        '
        'editFax
        '
        Me.editFax.BackColor = System.Drawing.Color.LightCyan
        Me.editFax.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.objtestdataset, "tblClients.Fax"))
        Me.editFax.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.editFax.Location = New System.Drawing.Point(409, 208)
        Me.editFax.Name = "editFax"
        Me.editFax.Size = New System.Drawing.Size(135, 21)
        Me.editFax.TabIndex = 25
        Me.editFax.Text = ""
        '
        'editPhoneNumber
        '
        Me.editPhoneNumber.BackColor = System.Drawing.Color.LightCyan
        Me.editPhoneNumber.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.objtestdataset, "tblClients.PhoneNumber"))
        Me.editPhoneNumber.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.editPhoneNumber.Location = New System.Drawing.Point(409, 144)
        Me.editPhoneNumber.Name = "editPhoneNumber"
        Me.editPhoneNumber.Size = New System.Drawing.Size(135, 21)
        Me.editPhoneNumber.TabIndex = 26
        Me.editPhoneNumber.Text = ""
        '
        'editRemarks
        '
        Me.editRemarks.BackColor = System.Drawing.Color.LightCyan
        Me.editRemarks.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.objtestdataset, "tblClients.Remarks"))
        Me.editRemarks.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.editRemarks.Location = New System.Drawing.Point(409, 240)
        Me.editRemarks.Name = "editRemarks"
        Me.editRemarks.Size = New System.Drawing.Size(135, 21)
        Me.editRemarks.TabIndex = 27
        Me.editRemarks.Text = ""
        '
        'editState
        '
        Me.editState.BackColor = System.Drawing.Color.LightCyan
        Me.editState.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.objtestdataset, "tblClients.State"))
        Me.editState.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.editState.Location = New System.Drawing.Point(136, 272)
        Me.editState.Name = "editState"