bindingdemoform10.vb

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

' 导入命名空间
Imports System.Data.SqlClient
Public Class BindingDemoForm10
    Inherits System.Windows.Forms.Form

    ' 数据集对象的类层级建立
    Dim ds As DataSet = New DataSet()

#Region " Windows Form 设计工具产生的程序代码 "

    Public Sub New()
        MyBase.New()

        '此调用为 Windows Form 设计工具的必要项。
        InitializeComponent()

        '在 InitializeComponent() 调用之后加入所有的初始设定

    End Sub

    'Form 覆盖 Dispose 以清除组件列表。
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    '为 Windows Form 设计工具的必要项
    Private components As System.ComponentModel.IContainer

    '注意: 以下为 Windows Form 设计工具所需的程序
    '您可以使用 Windows Form 设计工具进行修改。
    '请勿使用程序代码编辑器来修改这些程序。
    Friend WithEvents DataGridStudent As System.Windows.Forms.DataGrid
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.DataGridStudent = New System.Windows.Forms.DataGrid()
        CType(Me.DataGridStudent, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'DataGridStudent
        '
        Me.DataGridStudent.CaptionText = "学生基本数据"
        Me.DataGridStudent.DataMember = ""
        Me.DataGridStudent.HeaderForeColor = System.Drawing.SystemColors.ControlText
        Me.DataGridStudent.Location = New System.Drawing.Point(5, 6)
        Me.DataGridStudent.Name = "DataGridStudent"
        Me.DataGridStudent.Size = New System.Drawing.Size(696, 462)
        Me.DataGridStudent.TabIndex = 0
        '
        'BindingDemoForm10
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 18)
        Me.ClientSize = New System.Drawing.Size(705, 471)
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.DataGridStudent})
        Me.Name = "BindingDemoForm10"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "复杂的数据绑定---DataGrid 控件"
        CType(Me.DataGridStudent, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub BindingDemoForm10_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' 设定窗体的最小大小
        Me.MinimumSize = New Size(696, 462)
        ' 建立一个连接字符串
        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 myAD As SqlDataAdapter = New SqlDataAdapter(strSql, myConnection)


        ' 将数据填入数据集
        myAD.Fill(ds, "学生")

        myConnection.Close()

        ' 将 DataGrid 控件绑定至 ds 数据集的 学生 数据表
        DataGridStudent.SetDataBinding(ds, "学生")

        ' 设定 DataGrid 控件的外观格式
        Me.CreateStudentColumnStyle()


    End Sub

    Private Sub CreateStudentColumnStyle()
        ' 建立一个 GridTableStyle 对象并将其 MappingName 
        ' 属性设定成数据表的名称
        Dim TSStudents As New DataGridTableStyle()
        TSStudents.MappingName = "学生"
        TSStudents.PreferredRowHeight = 40
        TSStudents.AlternatingBackColor = System.Drawing.Color.Lavender
        TSStudents.BackColor = System.Drawing.Color.WhiteSmoke

        ' 加入一个 GridColumnStyle 并将 MappingName 
        ' 属性设定成您所要显示的数据表字段。 
        Dim TCId As New DataGridTextBoxColumn()
        TCId.MappingName = "身份证号码"
        TCId.HeaderText = "身份证号码"
        TCId.Width = 90
        TSStudents.GridColumnStyles.Add(TCId)

        Dim TCName As New DataGridTextBoxColumn()
        TCName.MappingName = "学生姓名"
        TCName.HeaderText = "学生姓名"
        TCName.Width = 70
        TSStudents.GridColumnStyles.Add(TCName)

        Dim TCGender As New DataGridBoolColumn()
        TCGender.MappingName = "性别"
        TCGender.HeaderText = "性别"
        TCGender.Width = 40
        TSStudents.GridColumnStyles.Add(TCGender)

        Dim TCParentName As New DataGridTextBoxColumn()
        TCParentName.MappingName = "家长姓名"
        TCParentName.HeaderText = "家长姓名"
        TCParentName.Width = 70
        TSStudents.GridColumnStyles.Add(TCParentName)

        Dim TCAddress As New DataGridTextBoxColumn()
        TCAddress.MappingName = "家庭住址"
        TCAddress.HeaderText = "家庭住址"
        TCAddress.Width = 120
        TCAddress.TextBox.Multiline = True
        TCAddress.TextBox.ScrollBars = ScrollBars.Vertical
        TSStudents.GridColumnStyles.Add(TCAddress)

        Dim TCZip As New DataGridTextBoxColumn()
        TCZip.MappingName = "邮政编码"
        TCZip.HeaderText = "邮政编码"
        TCZip.Width = 70
        TSStudents.GridColumnStyles.Add(TCZip)

        Dim TCPhone As New DataGridTextBoxColumn()
        TCPhone.MappingName = "电话号码"
        TCPhone.HeaderText = "电话号码"
        TCPhone.Width = 70
        TSStudents.GridColumnStyles.Add(TCPhone)

        Dim TCHeight As New DataGridTextBoxColumn()
        TCHeight.MappingName = "身高"
        TCHeight.HeaderText = "身高"
        TCHeight.Width = 40
        TSStudents.GridColumnStyles.Add(TCHeight)

        Dim TCWeight As New DataGridTextBoxColumn()
        TCWeight.MappingName = "体重"
        TCWeight.HeaderText = "体重"
        TCWeight.Width = 40
        TSStudents.GridColumnStyles.Add(TCWeight)

        Dim TCBloodType As New DataGridTextBoxColumn()
        TCBloodType.MappingName = "血型"
        TCBloodType.HeaderText = "血型"
        TCBloodType.Width = 40
        TSStudents.GridColumnStyles.Add(TCBloodType)

        Dim TCContent As New DataGridTextBoxColumn()
        TCContent.MappingName = "自我介绍"
        TCContent.HeaderText = "自我介绍"
        TCContent.Width = 200
        TCContent.TextBox.Multiline = True
        TCContent.TextBox.ScrollBars = ScrollBars.Vertical
        TSStudents.GridColumnStyles.Add(TCContent)

        ' 将 DataGridTableStyle 实例加至 GridTableStylesCollection 中
        DataGridStudent.TableStyles.Add(TSStudents)
    End Sub


End Class