copy of dataform1.vb

这是一个VBA开发的项目实例

        Me.editState.Size = New System.Drawing.Size(136, 21)
        Me.editState.TabIndex = 28
        Me.editState.Text = ""
        '
        'editTitle
        '
        Me.editTitle.BackColor = System.Drawing.Color.LightCyan
        Me.editTitle.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.objtestdataset, "tblClients.Title"))
        Me.editTitle.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.editTitle.Location = New System.Drawing.Point(136, 144)
        Me.editTitle.Name = "editTitle"
        Me.editTitle.Size = New System.Drawing.Size(136, 21)
        Me.editTitle.TabIndex = 29
        Me.editTitle.Text = ""
        '
        'editZipCode
        '
        Me.editZipCode.BackColor = System.Drawing.Color.LightCyan
        Me.editZipCode.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.objtestdataset, "tblClients.ZipCode"))
        Me.editZipCode.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.editZipCode.Location = New System.Drawing.Point(409, 80)
        Me.editZipCode.Name = "editZipCode"
        Me.editZipCode.Size = New System.Drawing.Size(135, 21)
        Me.editZipCode.TabIndex = 30
        Me.editZipCode.Text = ""
        '
        'btnNavFirst
        '
        Me.btnNavFirst.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.btnNavFirst.Location = New System.Drawing.Point(0, 424)
        Me.btnNavFirst.Name = "btnNavFirst"
        Me.btnNavFirst.Size = New System.Drawing.Size(40, 23)
        Me.btnNavFirst.TabIndex = 31
        Me.btnNavFirst.Text = "<<"
        Me.btnNavFirst.Visible = False
        '
        'btnNavPrev
        '
        Me.btnNavPrev.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.btnNavPrev.Location = New System.Drawing.Point(40, 424)
        Me.btnNavPrev.Name = "btnNavPrev"
        Me.btnNavPrev.Size = New System.Drawing.Size(35, 23)
        Me.btnNavPrev.TabIndex = 32
        Me.btnNavPrev.Text = "<"
        Me.btnNavPrev.Visible = False
        '
        'lblNavLocation
        '
        Me.lblNavLocation.BackColor = System.Drawing.Color.LightCyan
        Me.lblNavLocation.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblNavLocation.Location = New System.Drawing.Point(80, 424)
        Me.lblNavLocation.Name = "lblNavLocation"
        Me.lblNavLocation.Size = New System.Drawing.Size(95, 23)
        Me.lblNavLocation.TabIndex = 33
        Me.lblNavLocation.Text = "No Records"
        Me.lblNavLocation.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        Me.lblNavLocation.Visible = False
        '
        'btnNavNext
        '
        Me.btnNavNext.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.btnNavNext.Location = New System.Drawing.Point(168, 424)
        Me.btnNavNext.Name = "btnNavNext"
        Me.btnNavNext.Size = New System.Drawing.Size(35, 23)
        Me.btnNavNext.TabIndex = 34
        Me.btnNavNext.Text = ">"
        Me.btnNavNext.Visible = False
        '
        'btnLast
        '
        Me.btnLast.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.btnLast.Location = New System.Drawing.Point(208, 424)
        Me.btnLast.Name = "btnLast"
        Me.btnLast.Size = New System.Drawing.Size(40, 23)
        Me.btnLast.TabIndex = 35
        Me.btnLast.Text = ">>"
        Me.btnLast.Visible = False
        '
        'btnAdd
        '
        Me.btnAdd.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.btnAdd.Location = New System.Drawing.Point(248, 424)
        Me.btnAdd.Name = "btnAdd"
        Me.btnAdd.TabIndex = 36
        Me.btnAdd.Text = "&Add"
        Me.btnAdd.Visible = False
        '
        'btnDelete
        '
        Me.btnDelete.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.btnDelete.Location = New System.Drawing.Point(320, 424)
        Me.btnDelete.Name = "btnDelete"
        Me.btnDelete.TabIndex = 37
        Me.btnDelete.Text = "&Delete"
        Me.btnDelete.Visible = False
        '
        'btnCancel
        '
        Me.btnCancel.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.btnCancel.Location = New System.Drawing.Point(392, 424)
        Me.btnCancel.Name = "btnCancel"
        Me.btnCancel.TabIndex = 38
        Me.btnCancel.Text = "&Cancel"
        Me.btnCancel.Visible = False
        '
        '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(456, 320)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(96, 24)
        Me.Button1.TabIndex = 39
        Me.Button1.Text = "Excel Sample"
        Me.Button1.Visible = False
        '
        'Button2
        '
        Me.Button2.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Button2.Location = New System.Drawing.Point(474, 419)
        Me.Button2.Name = "Button2"
        Me.Button2.Size = New System.Drawing.Size(88, 24)
        Me.Button2.TabIndex = 40
        Me.Button2.Text = "Close"
        '
        'TextBox1
        '
        Me.TextBox1.BackColor = System.Drawing.Color.FromArgb(CType(121, Byte), CType(208, Byte), CType(210, Byte))
        Me.TextBox1.Location = New System.Drawing.Point(0, 376)
        Me.TextBox1.Name = "TextBox1"
        Me.TextBox1.Size = New System.Drawing.Size(104, 20)
        Me.TextBox1.TabIndex = 41
        Me.TextBox1.Text = ""
        Me.TextBox1.Visible = False
        '
        'TextBox2
        '
        Me.TextBox2.BackColor = System.Drawing.Color.FromArgb(CType(63, Byte), CType(177, Byte), CType(172, Byte))
        Me.TextBox2.Location = New System.Drawing.Point(104, 376)
        Me.TextBox2.Name = "TextBox2"
        Me.TextBox2.Size = New System.Drawing.Size(120, 20)
        Me.TextBox2.TabIndex = 42
        Me.TextBox2.Text = ""
        Me.TextBox2.Visible = False
        '
        '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(25, 32)
        Me.lblLabelFormDes.Name = "lblLabelFormDes"
        Me.lblLabelFormDes.Size = New System.Drawing.Size(128, 24)
        Me.lblLabelFormDes.TabIndex = 43
        Me.lblLabelFormDes.Text = "Client Information:"
        '
        'DataForm1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.BackColor = System.Drawing.Color.PowderBlue
        Me.ClientSize = New System.Drawing.Size(565, 448)
        Me.ControlBox = False
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.lblLabelFormDes, Me.TextBox2, Me.TextBox1, Me.Button2, Me.Button1, Me.btnLoad, Me.btnUpdate, Me.btnCancelAll, Me.lblAddress_Line1, Me.lblAddress_Line2, Me.lblCellPhoneNumber, Me.lblCity, Me.lblClient_ID, Me.lblClient_Name, Me.lblContact_Person, Me.editAddress_Line1, Me.editAddress_Line2, Me.editCellPhoneNumber, Me.editCity, Me.editClient_ID, Me.editClient_Name, Me.editContact_Person, 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.btnNavFirst, Me.btnNavPrev, Me.lblNavLocation, Me.btnNavNext, Me.btnLast, Me.btnAdd, Me.btnDelete, Me.btnCancel})
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
        Me.MaximizeBox = False
        Me.MinimizeBox = False
        Me.Name = "DataForm1"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.Manual
        Me.Text = "DataForm1"
        CType(Me.objtestdataset, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click
        Me.BindingContext(objtestdataset, "tblClients").CancelCurrentEdit()
        Me.objtestdataset_PositionChanged()

    End Sub
    Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelete.Click
        If (Me.BindingContext(objtestdataset, "tblClients").Count > 0) Then
            Me.BindingContext(objtestdataset, "tblClients").RemoveAt(Me.BindingContext(objtestdataset, "tblClients").Position)
            Me.objtestdataset_PositionChanged()
        End If

    End Sub