form2.vb

一个功能强大的学生公寓管理系统 界面非常友好 十分强大

        Me.Label7.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Label7.ForeColor = System.Drawing.Color.Black
        Me.Label7.Location = New System.Drawing.Point(16, 124)
        Me.Label7.Name = "Label7"
        Me.Label7.Size = New System.Drawing.Size(45, 45)
        Me.Label7.TabIndex = 76
        Me.Label7.Text = "身份证号"
        '
        'Label6
        '
        Me.Label6.AutoSize = True
        Me.Label6.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Label6.ForeColor = System.Drawing.Color.Black
        Me.Label6.Location = New System.Drawing.Point(208, 120)
        Me.Label6.Name = "Label6"
        Me.Label6.Size = New System.Drawing.Size(34, 19)
        Me.Label6.TabIndex = 74
        Me.Label6.Text = "性别"
        '
        'Label5
        '
        Me.Label5.AutoSize = True
        Me.Label5.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Label5.ForeColor = System.Drawing.Color.Black
        Me.Label5.Location = New System.Drawing.Point(208, 88)
        Me.Label5.Name = "Label5"
        Me.Label5.Size = New System.Drawing.Size(34, 19)
        Me.Label5.TabIndex = 72
        Me.Label5.Text = "班级"
        '
        'Label4
        '
        Me.Label4.AutoSize = True
        Me.Label4.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Label4.ForeColor = System.Drawing.Color.Black
        Me.Label4.Location = New System.Drawing.Point(208, 56)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(34, 19)
        Me.Label4.TabIndex = 71
        Me.Label4.Text = "专业"
        '
        'Label3
        '
        Me.Label3.AutoSize = True
        Me.Label3.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Label3.ForeColor = System.Drawing.Color.Black
        Me.Label3.Location = New System.Drawing.Point(16, 55)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(34, 19)
        Me.Label3.TabIndex = 69
        Me.Label3.Text = "院系"
        '
        'Label2
        '
        Me.Label2.AutoSize = True
        Me.Label2.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Label2.ForeColor = System.Drawing.Color.Black
        Me.Label2.Location = New System.Drawing.Point(208, 24)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(34, 19)
        Me.Label2.TabIndex = 67
        Me.Label2.Text = "姓名"
        '
        'Label1
        '
        Me.Label1.AutoSize = True
        Me.Label1.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Label1.ForeColor = System.Drawing.Color.Black
        Me.Label1.Location = New System.Drawing.Point(16, 28)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(34, 19)
        Me.Label1.TabIndex = 65
        Me.Label1.Text = "学号"
        '
        'Form2
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(8, 19)
        Me.BackColor = System.Drawing.Color.Silver
        Me.ClientSize = New System.Drawing.Size(787, 461)
        Me.Controls.Add(Me.Panel9)
        Me.Controls.Add(Me.Panel6)
        Me.Controls.Add(Me.DataGrid1)
        Me.Font = New System.Drawing.Font("宋体", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Name = "Form2"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.Manual
        Me.Text = "学生信息库"
        CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.Ds1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.Panel9.ResumeLayout(False)
        Me.GroupBox2.ResumeLayout(False)
        Me.GroupBox1.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            OleDbDataAdapter1.SelectCommand.CommandText = "Select * from 学生库"
            Ds1.Clear()
            OleDbDataAdapter1.Fill(Ds1)
            Me.DataGrid1.Select(DataGrid1.CurrentRowIndex)
            Me.TxtLocation.Text = (((Me.BindingContext(Ds1, "学生库").Position + 1).ToString + _
                 "/") + Me.BindingContext(Ds1, "学生库").Count.ToString)
        Catch ex As Exception
            MsgBox("数据库中无数据!")

        End Try

        Dim Conn As New System.Data.OleDb.OleDbConnection
        Dim Cmd As New System.Data.OleDb.OleDbCommand
        Dim DataReader As System.Data.OleDb.OleDbDataReader
        Try
            Conn.ConnectionString = "Provider=Microsoft.Jet.Oledb.4.0;Data Source=学生公寓管理系统.mdb"
            Conn.Open()
            Cmd.CommandText = "Select * from 院系专业"
            Cmd.Connection = Conn
            DataReader = Cmd.ExecuteReader
            While DataReader.Read()
                ComboBox1.Items.Add(DataReader.Item(0))
                ComboBox5.Items.Add(DataReader.Item(0))
            End While
            DataReader.Close()
            Conn.Close()
        Catch ex As Exception
            MsgBox(Ex.Message)
        End Try
    End Sub

    Private Sub DataGrid1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles DataGrid1.MouseUp
        Try
            DataGrid1.Select(DataGrid1.CurrentRowIndex)
            Me.TxtLocation.Text = (((Me.BindingContext(Ds1, "学生库").Position + 1).ToString + _
                                                                            "/") + Me.BindingContext(Ds1, "学生库").Count.ToString)
        Catch ex As Exception
            If Err.Number = 9 Then
                MsgBox("表中没有数据!")
            End If
        End Try
    End Sub

    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Me.BindingContext(Ds1, "学生库").Count = 0 Then
            Exit Sub
        End If

        Me.DataGrid1.UnSelect(DataGrid1.CurrentRowIndex)
        Me.BindingContext(Ds1, "学生库").Position = 0
        Me.TxtLocation.Text = (((Me.BindingContext(Ds1, "学生库").Position + 1).ToString + _
                                                      "/") + Me.BindingContext(Ds1, "学生库").Count.ToString)
        Me.DataGrid1.Select(DataGrid1.CurrentRowIndex)
    End Sub

    Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If Me.BindingContext(Ds1, "学生库").Count = 0 Then
            Exit Sub
        End If

        If Me.BindingContext(Ds1, "学生库").Position > 0 Then
            Me.BindingContext(Ds1, "学生库").Position = (Me.BindingContext(Ds1, "学生库").Position - 1)
            Me.TxtLocation.Text = (((Me.BindingContext(Ds1, "学生库").Position + 1).ToString + _
                                                                 "/") + Me.BindingContext(Ds1, "学生库").Count.ToString)
        End If
        DataGrid1.UnSelect(DataGrid1.CurrentRowIndex + 1)
        Me.DataGrid1.Select(DataGrid1.CurrentRowIndex)
    End Sub

    Private Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim i As Integer
        If Me.BindingContext(Ds1, "学生库").Position = Me.BindingContext(Ds1, "学生库").Count Then
            Exit Sub
        End If

        i = Me.BindingContext(Ds1, "学生库").Count - 1

        If Me.BindingContext(Ds1, "学生库").Position < i Then
            Me.BindingContext(Ds1, "学生库").Position = (Me.BindingContext(Ds1, "学生库").Position + 1)
            Me.TxtLocation.Text = (((Me.BindingContext(Ds1, "学生库").Position + 1).ToString + _
                            "/") + Me.BindingContext(Ds1, "学生库").Count.ToString)

        End If
        DataGrid1.UnSelect(DataGrid1.CurrentRowIndex - 1)
        Me.DataGrid1.Select(DataGrid1.CurrentRowIndex)
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        If Me.BindingContext(Ds1, "学生库").Count = 0 Then
            Exit Sub
        End If
        Me.DataGrid1.UnSelect(DataGrid1.CurrentRowIndex)
        Me.BindingContext(Ds1, "学生库").Position = Me.BindingContext(Ds1, "学生库").Count - 1
        Me.TxtLocation.Text = (((Me.BindingContext(Ds1, "学生库").Position + 1).ToString + _
                                                                         "/") + Me.BindingContext(Ds1, "学生库").Count.ToString)
        Me.DataGrid1.Select(DataGrid1.CurrentRowIndex)

    End Sub

    Private Sub Button5_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Try
            If Button5.Text = "添加" Then
                Me.BindingContext(Ds1, "学生库").AddNew()
                Button5.Text = "确定"
                Button1.Enabled = False
                Button2.Enabled = False
                Button3.Enabled = False
                Button4.Enabled = False
                Button6.Enabled = False
                Button7.Enabled = False
                Button8.Enabled