bindingdemoform3.vb

是一个用SQL和VB.NET来做的源码。

        Me.TextBoxDepartment.Text = ""
        '
        'TextBoxAddress
        '
        Me.TextBoxAddress.Location = New System.Drawing.Point(136, 119)
        Me.TextBoxAddress.Name = "TextBoxAddress"
        Me.TextBoxAddress.Size = New System.Drawing.Size(344, 21)
        Me.TextBoxAddress.TabIndex = 23
        Me.TextBoxAddress.Text = ""
        '
        'TextBoxName
        '
        Me.TextBoxName.Location = New System.Drawing.Point(136, 69)
        Me.TextBoxName.Name = "TextBoxName"
        Me.TextBoxName.TabIndex = 19
        Me.TextBoxName.Text = ""
        '
        'TextBoxID
        '
        Me.TextBoxID.Location = New System.Drawing.Point(136, 44)
        Me.TextBoxID.Name = "TextBoxID"
        Me.TextBoxID.TabIndex = 17
        Me.TextBoxID.Text = ""
        '
        'btnEnd
        '
        Me.btnEnd.Location = New System.Drawing.Point(346, 363)
        Me.btnEnd.Name = "btnEnd"
        Me.btnEnd.Size = New System.Drawing.Size(75, 21)
        Me.btnEnd.TabIndex = 36
        Me.btnEnd.Text = "最后一条"
        '
        'btnNext
        '
        Me.btnNext.Location = New System.Drawing.Point(257, 363)
        Me.btnNext.Name = "btnNext"
        Me.btnNext.Size = New System.Drawing.Size(75, 21)
        Me.btnNext.TabIndex = 35
        Me.btnNext.Text = "下一条"
        '
        'btnBack
        '
        Me.btnBack.Location = New System.Drawing.Point(168, 363)
        Me.btnBack.Name = "btnBack"
        Me.btnBack.Size = New System.Drawing.Size(75, 21)
        Me.btnBack.TabIndex = 34
        Me.btnBack.Text = "上一条"
        '
        'btnFirst
        '
        Me.btnFirst.Location = New System.Drawing.Point(79, 363)
        Me.btnFirst.Name = "btnFirst"
        Me.btnFirst.Size = New System.Drawing.Size(75, 21)
        Me.btnFirst.TabIndex = 33
        Me.btnFirst.Text = "第一条"
        '
        'TextBoxPosition
        '
        Me.TextBoxPosition.BackColor = System.Drawing.Color.FromArgb(CType(255, Byte), CType(255, Byte), CType(192, Byte))
        Me.TextBoxPosition.ForeColor = System.Drawing.Color.FromArgb(CType(0, Byte), CType(0, Byte), CType(192, Byte))
        Me.TextBoxPosition.Location = New System.Drawing.Point(85, 328)
        Me.TextBoxPosition.Name = "TextBoxPosition"
        Me.TextBoxPosition.Size = New System.Drawing.Size(333, 21)
        Me.TextBoxPosition.TabIndex = 32
        Me.TextBoxPosition.Text = ""
        Me.TextBoxPosition.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
        '
        'lblHeader
        '
        Me.lblHeader.AutoSize = True
        Me.lblHeader.Font = New System.Drawing.Font("宋体", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
        Me.lblHeader.ForeColor = System.Drawing.Color.Red
        Me.lblHeader.Location = New System.Drawing.Point(140, 9)
        Me.lblHeader.Name = "lblHeader"
        Me.lblHeader.Size = New System.Drawing.Size(195, 22)
        Me.lblHeader.TabIndex = 37
        Me.lblHeader.Text = "数据浏览界面---逐条查看"
        '
        'BindingDemoForm3
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(504, 390)
        Me.Controls.Add(Me.lblHeader)
        Me.Controls.Add(Me.btnEnd)
        Me.Controls.Add(Me.btnNext)
        Me.Controls.Add(Me.btnBack)
        Me.Controls.Add(Me.btnFirst)
        Me.Controls.Add(Me.TextBoxPosition)
        Me.Controls.Add(Me.NumericUpDownSalary)
        Me.Controls.Add(Me.lblContent)
        Me.Controls.Add(Me.TextBoxContent)
        Me.Controls.Add(Me.DateTimePickerBirthday)
        Me.Controls.Add(Me.CheckBoxGender)
        Me.Controls.Add(Me.lblDepartment)
        Me.Controls.Add(Me.lblSalary)
        Me.Controls.Add(Me.lblBirthday)
        Me.Controls.Add(Me.lblAddress)
        Me.Controls.Add(Me.Label1)
        Me.Controls.Add(Me.lblName)
        Me.Controls.Add(Me.lblID)
        Me.Controls.Add(Me.TextBoxDepartment)
        Me.Controls.Add(Me.TextBoxAddress)
        Me.Controls.Add(Me.TextBoxName)
        Me.Controls.Add(Me.TextBoxID)
        Me.Name = "BindingDemoForm3"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "简单的数据绑定---数据浏览界面"
        CType(Me.NumericUpDownSalary, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub BindingDemoForm3_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' 设定窗体的最小大小
        Me.MinimumSize = New Size(512, 542)

        ' 建立一个连接字符串
        Dim strConnection As String = "Server=(local)\NetSDK;Database=北风贸易;Integrated Security=SSPI"

        ' 建立一个查询命令字符串
        Dim strSql As String = "SELECT 身份证号码,姓名,员工性别,家庭住址,出生日期,当前工资,部门,自我介绍 FROM 飞狐工作室"

        ' 建立一个数据连接
        Dim myConnection As SqlConnection = _
            New SqlConnection(strConnection)

        ' 建立一个数据适配器以便针对数据源执行 SELECT 语句来提取出要填入数据集的数据记录
        Dim myCommand As SqlDataAdapter = New SqlDataAdapter(strSql, myConnection)

        ' 将数据填入数据集
        myCommand.Fill(ds, "飞狐工作室")

        ' 将 TextBox 控件的 Text 属性绑定至数据集 ds 内的 飞狐工作室 数据表的 身份证号码 字段
        TextBoxID.DataBindings.Add("Text", ds, "飞狐工作室.身份证号码")
        ' 将 TextBox 控件的 Text 属性绑定至数据集 ds 内的 飞狐工作室 数据表的 姓名 字段
        TextBoxName.DataBindings.Add("Text", ds, "飞狐工作室.姓名")
        ' 将 CheckBox 控件的 Checked 属性绑定至数据集 ds 内的 飞狐工作室 数据表的 员工性别 字段
        CheckBoxGender.DataBindings.Add("Checked", ds, "飞狐工作室.员工性别")
        ' 将 TextBox 控件的 Text 属性绑定至数据集 ds 内的 飞狐工作室 数据表的 家庭住址 字段
        TextBoxAddress.DataBindings.Add("Text", ds, "飞狐工作室.家庭住址")
        ' 将 DateTimePicker 控件的 Value 属性绑定至数据集 ds 内的 飞狐工作室 数据表的 出生日期 字段
        DateTimePickerBirthday.DataBindings.Add("Value", ds, "飞狐工作室.出生日期")
        ' 将 NumericUpDown 控件的 Value 属性绑定至数据集 ds 内的 飞狐工作室 数据表的 当前工资 字段
        NumericUpDownSalary.DataBindings.Add("Value", ds, "飞狐工作室.当前工资")
        ' 将 TextBox 控件的 Text 属性绑定至数据集 ds 内的 飞狐工作室 数据表的 部门 字段
        TextBoxDepartment.DataBindings.Add("Text", ds, "飞狐工作室.部门")
        ' 将 TextBox 控件的 Text 属性绑定至数据集 ds 内的 飞狐工作室 数据表的 自我介绍 字段
        TextBoxContent.DataBindings.Add("Text", ds, "飞狐工作室.自我介绍")

        ' 设定当引发 PositionChanged 事件时便执行事件处理例程 飞狐工作室_PositionChanged
        AddHandler Me.BindingContext(ds, "飞狐工作室").PositionChanged, AddressOf 飞狐工作室_PositionChanged

        ' 设定数据记录当前位置讯息的初值
        TextBoxPosition.Text = String.Format("数据记录:当前位置 {0} 总数 {1}", Me.BindingContext(ds, "飞狐工作室").Position + 1, Me.BindingContext(ds, "飞狐工作室").Count)

        ' 关闭对数据库的连接
        myConnection.Close()
    End Sub

    ' 更新数据记录当前位置的讯息
    Protected Sub 飞狐工作室_PositionChanged(ByVal sender As Object, ByVal e As System.EventArgs)
        TextBoxPosition.Text = String.Format("数据记录:当前位置 {0} 总数 {1}", Me.BindingContext(ds, "飞狐工作室").Position + 1, Me.BindingContext(ds, "飞狐工作室").Count)
    End Sub

    ' 按下 第一条 按钮
    Private Sub btnFirst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFirst.Click
        ' 将 Position 属性设定成 0
        Me.BindingContext(ds, "飞狐工作室").Position = 0
    End Sub

    ' 按下 上一条 按钮
    Private Sub btnBack_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBack.Click
        If Me.BindingContext(ds, "飞狐工作室").Position > 0 Then
            ' 将 Position 属性递减 1
            Me.BindingContext(ds, "飞狐工作室").Position -= 1
        End If
    End Sub

    ' 按下 下一条 按钮
    Private Sub btnNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNext.Click
        If Me.BindingContext(ds, "飞狐工作室").Position < Me.BindingContext(ds, "飞狐工作室").Count - 1 Then
            ' 将 Position 属性递增 1
            Me.BindingContext(ds, "飞狐工作室").Position += 1
        End If
    End Sub

    ' 按下 最后一条 按钮
    Private Sub btnEnd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEnd.Click
        Me.BindingContext(ds, "飞狐工作室").Position = Me.BindingContext(ds, "飞狐工作室").Count - 1
    End Sub
End Class