学生信息查询.vb

一个自己开发的学生信息管理系统哦

Public Class 学生信息查询
    Inherits System.Windows.Froms.From
    Dim strconn As String = "data source=cheng;initial catalog=学生成绩管理系统;user id=sa;password=123456;"
    Dim objds As New Data.DataSet
    Dim objds As SqlClient.SqlDataAdapter
    Dim bingpage As BindingManagerBase
    Dim strsql As String

    Private Sub 学生信息查询_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        strsql = "select*from 学生表"
        objda = New SqlClient.SqlDataAdapter(strsql, strconn)
        objda.Fill(objds, "学生表")
        DataGridView1.DataSource = objds.Tables("学生表")
        bingpage = Me.Bindings.Context(objds, "学生表")
        TextBox1.DataBindings.Add(New Binding("text", objds, "学生表.学号"))
        TextBox2.DataBindings.Add(New Binding("text", objds, "学生表.姓名"))
        TextBox3.DataBindings.Add(New Binding("text", objds, "学生表.性别"))
        TextBox4.DataBindings.Add(New Binding("text", objds, "学生表.出生日期"))
        TextBox4.Text = CData(TextBox4.Text)
        TextBox5.DataBindings.Add(New Binding("text", objds, "学生表.院系名称"))
        TextBox6.DataBindings.Add(New Binding("text", objds, "学生表.入学时间"))
        TextBox6.Text = CData(TextBox6.Text)
 TextBox7.DataBindings.Add(New Binding("text",objds,"学生表.出生地")
 TextBox8.DataBindings.Add(New Binding("text",objds,"学生表.政治面貌")
        RichTextBox1.DataBindings.Add(New Binding("text", objds, "学生表.备注"))
        ComboBox1.Items.Add("学号")
        ComboBox1.Items.Add("姓名")
        ComboBox1.Items.Add("院系名称")
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        bingpage.Position = 1
        Button1.Enabled = False
        Button2.Enabled = False
        Button3.Enabled = True
        Button4.Enabled = True
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        bingpage.Position = bingpage.Position - 1
        If bingpage.Position <> 1 Then
            Button1.Enabled = True
            Button2.Enabled = True
            Button3.Enabled = True
            Button4.Enabled = True
        Else
            Button1.Enabled = False
            Button2.Enabled = False
            Button3.Enabled = True
            Button4.Enabled = True
        End If
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        bingpage.Position = bingpage.Position + 1
        If bingpage.Position <> bingpage.Count - 1 Then
            Button1.Enabled = True
            Button2.Enabled = True
            Button3.Enabled = True
            Button4.Enabled = True
        Else
            Button1.Enabled = True
            Button2.Enabled = True
            Button3.Enabled = False
            Button4.Enabled = False
        End If
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        bingpage.Position = bingpage.Count + 1
        Button1.Enabled = True
        Button2.Enabled = True
        Button3.Enabled = False
        Button4.Enabled = False
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        objds.Clear()
        If ComboBox1.Text = "" Or TextBox9.Text = "" Then
            MessageBox.Show("请输入查询条件")
            Exit Sub
        Else
            strsql = "select * from 学生表 where " & Trim(ComboBox1.Text) & "=" & "" & Trim(TextBox9.Text) & ""
            objda = New SqlClient.SqlDataAdapter(strsql, strconn)
            objda.Fill(objds, "学生表")
            DataGridView1.DataSource = objds.Tables("学生表")
        End If
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        objds.Clear()
        strsql = "select*from 学生表"
        objda = New SqlClient.SqlDataAdapter(strsql, strconn)
        objda.Fill(objds, "学生表")
        DataGridView1.DataSource = objds.Tables("学生表")
    End Sub
End Class


Private Sub 学生信息查询_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub Label6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 姓名.Click

End Sub

Private Sub Label5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 出生日期.Click

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

End Sub
End Class