form3.vb

学生信息管理系统

        '
        Me.Button6.Location = New System.Drawing.Point(216, 184)
        Me.Button6.Name = "Button6"
        Me.Button6.TabIndex = 5
        Me.Button6.Text = "取消"
        '
        'GroupBox1
        '
        Me.GroupBox1.Controls.Add(Me.TextBox6)
        Me.GroupBox1.Controls.Add(Me.Label14)
        Me.GroupBox1.Controls.Add(Me.TextBox5)
        Me.GroupBox1.Controls.Add(Me.Label13)
        Me.GroupBox1.Controls.Add(Me.ComboBox8)
        Me.GroupBox1.Controls.Add(Me.Label12)
        Me.GroupBox1.Controls.Add(Me.ComboBox7)
        Me.GroupBox1.Controls.Add(Me.Label11)
        Me.GroupBox1.Controls.Add(Me.Label10)
        Me.GroupBox1.Controls.Add(Me.ComboBox6)
        Me.GroupBox1.Controls.Add(Me.Label9)
        Me.GroupBox1.Controls.Add(Me.TextBox4)
        Me.GroupBox1.Location = New System.Drawing.Point(32, 48)
        Me.GroupBox1.Name = "GroupBox1"
        Me.GroupBox1.Size = New System.Drawing.Size(312, 120)
        Me.GroupBox1.TabIndex = 4
        Me.GroupBox1.TabStop = False
        Me.GroupBox1.Text = "修改后的学生资料"
        '
        'TextBox6
        '
        Me.TextBox6.Location = New System.Drawing.Point(200, 96)
        Me.TextBox6.Name = "TextBox6"
        Me.TextBox6.TabIndex = 11
        Me.TextBox6.Text = ""
        '
        'Label14
        '
        Me.Label14.Location = New System.Drawing.Point(144, 96)
        Me.Label14.Name = "Label14"
        Me.Label14.Size = New System.Drawing.Size(64, 16)
        Me.Label14.TabIndex = 10
        Me.Label14.Text = "家庭住址:"
        '
        'TextBox5
        '
        Me.TextBox5.Location = New System.Drawing.Point(56, 96)
        Me.TextBox5.Name = "TextBox5"
        Me.TextBox5.Size = New System.Drawing.Size(64, 21)
        Me.TextBox5.TabIndex = 9
        Me.TextBox5.Text = ""
        '
        'Label13
        '
        Me.Label13.Location = New System.Drawing.Point(16, 96)
        Me.Label13.Name = "Label13"
        Me.Label13.Size = New System.Drawing.Size(40, 16)
        Me.Label13.TabIndex = 8
        Me.Label13.Text = "年龄:"
        '
        'ComboBox8
        '
        Me.ComboBox8.Location = New System.Drawing.Point(200, 64)
        Me.ComboBox8.Name = "ComboBox8"
        Me.ComboBox8.Size = New System.Drawing.Size(96, 20)
        Me.ComboBox8.TabIndex = 7
        '
        'Label12
        '
        Me.Label12.Location = New System.Drawing.Point(152, 64)
        Me.Label12.Name = "Label12"
        Me.Label12.Size = New System.Drawing.Size(40, 16)
        Me.Label12.TabIndex = 6
        Me.Label12.Text = "班级:"
        '
        'ComboBox7
        '
        Me.ComboBox7.Location = New System.Drawing.Point(56, 64)
        Me.ComboBox7.Name = "ComboBox7"
        Me.ComboBox7.Size = New System.Drawing.Size(64, 20)
        Me.ComboBox7.TabIndex = 5
        '
        'Label11
        '
        Me.Label11.Location = New System.Drawing.Point(16, 64)
        Me.Label11.Name = "Label11"
        Me.Label11.Size = New System.Drawing.Size(40, 16)
        Me.Label11.TabIndex = 4
        Me.Label11.Text = "性别:"
        '
        'Label10
        '
        Me.Label10.Location = New System.Drawing.Point(152, 32)
        Me.Label10.Name = "Label10"
        Me.Label10.Size = New System.Drawing.Size(40, 16)
        Me.Label10.TabIndex = 3
        Me.Label10.Text = "姓名:"
        '
        'ComboBox6
        '
        Me.ComboBox6.Items.AddRange(New Object() {"0301", "0302", "0303", "0304", "0305", "0306", "0307", "0308", "0309", "0310"})
        Me.ComboBox6.Location = New System.Drawing.Point(56, 32)
        Me.ComboBox6.Name = "ComboBox6"
        Me.ComboBox6.Size = New System.Drawing.Size(64, 20)
        Me.ComboBox6.TabIndex = 2
        '
        'Label9
        '
        Me.Label9.Location = New System.Drawing.Point(16, 32)
        Me.Label9.Name = "Label9"
        Me.Label9.Size = New System.Drawing.Size(40, 16)
        Me.Label9.TabIndex = 1
        Me.Label9.Text = "学号:"
        '
        'TextBox4
        '
        Me.TextBox4.Location = New System.Drawing.Point(200, 32)
        Me.TextBox4.Name = "TextBox4"
        Me.TextBox4.TabIndex = 2
        Me.TextBox4.Text = ""
        '
        'Button5
        '
        Me.Button5.Location = New System.Drawing.Point(80, 184)
        Me.Button5.Name = "Button5"
        Me.Button5.TabIndex = 3
        Me.Button5.Text = "确认"
        '
        'ComboBox5
        '
        Me.ComboBox5.Location = New System.Drawing.Point(216, 16)
        Me.ComboBox5.Name = "ComboBox5"
        Me.ComboBox5.Size = New System.Drawing.Size(80, 20)
        Me.ComboBox5.TabIndex = 1
        '
        'Label8
        '
        Me.Label8.Location = New System.Drawing.Point(72, 16)
        Me.Label8.Name = "Label8"
        Me.Label8.Size = New System.Drawing.Size(128, 24)
        Me.Label8.TabIndex = 0
        Me.Label8.Text = "您要修改的学生学号:"
        '
        'TabPage2
        '
        Me.TabPage2.Controls.Add(Me.Button4)
        Me.TabPage2.Controls.Add(Me.Button3)
        Me.TabPage2.Controls.Add(Me.ComboBox4)
        Me.TabPage2.Controls.Add(Me.Label7)
        Me.TabPage2.Location = New System.Drawing.Point(4, 21)
        Me.TabPage2.Name = "TabPage2"
        Me.TabPage2.Size = New System.Drawing.Size(400, 247)
        Me.TabPage2.TabIndex = 1
        Me.TabPage2.Text = "删除学生"
        '
        'Button4
        '
        Me.Button4.Font = New System.Drawing.Font("宋体", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Button4.Location = New System.Drawing.Point(208, 136)
        Me.Button4.Name = "Button4"
        Me.Button4.Size = New System.Drawing.Size(88, 32)
        Me.Button4.TabIndex = 3
        Me.Button4.Text = "取消"
        '
        'Button3
        '
        Me.Button3.Font = New System.Drawing.Font("宋体", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Button3.Location = New System.Drawing.Point(64, 136)
        Me.Button3.Name = "Button3"
        Me.Button3.Size = New System.Drawing.Size(88, 32)
        Me.Button3.TabIndex = 2
        Me.Button3.Text = "确认"
        '
        'ComboBox4
        '
        Me.ComboBox4.Location = New System.Drawing.Point(232, 56)
        Me.ComboBox4.Name = "ComboBox4"
        Me.ComboBox4.Size = New System.Drawing.Size(96, 20)
        Me.ComboBox4.TabIndex = 1
        '
        'Label7
        '
        Me.Label7.Font = New System.Drawing.Font("宋体", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Label7.Location = New System.Drawing.Point(16, 56)
        Me.Label7.Name = "Label7"
        Me.Label7.Size = New System.Drawing.Size(200, 32)
        Me.Label7.TabIndex = 0
        Me.Label7.Text = "选择您要删除的学生学号:"
        '
        'TabPage4
        '
        Me.TabPage4.Controls.Add(Me.GroupBox2)
        Me.TabPage4.Controls.Add(Me.DataGrid1)
        Me.TabPage4.Controls.Add(Me.Button11)
        Me.TabPage4.Location = New System.Drawing.Point(4, 21)
        Me.TabPage4.Name = "TabPage4"
        Me.TabPage4.Size = New System.Drawing.Size(400, 247)
        Me.TabPage4.TabIndex = 3
        Me.TabPage4.Text = "查询学生资料"
        '
        'GroupBox2
        '
        Me.GroupBox2.Controls.Add(Me.Button10)
        Me.GroupBox2.Controls.Add(Me.Button9)
        Me.GroupBox2.Controls.Add(Me.Button8)
        Me.GroupBox2.Controls.Add(Me.Button7)
        Me.GroupBox2.Location = New System.Drawing.Point(24, 136)
        Me.GroupBox2.Name = "GroupBox2"
        Me.GroupBox2.Size = New System.Drawing.Size(192, 80)
        Me.GroupBox2.TabIndex = 1
        Me.GroupBox2.TabStop = False
        Me.GroupBox2.Text = "查询学生资料"
        '
        'Button10
        '
        Me.Button10.Location = New System.Drawing.Point(96, 48)
        Me.Button10.Name = "Button10"
        Me.Button10.TabIndex = 3
        Me.Button10.Text = "按性别"
        '
        'Button9
        '
        Me.Button9.Location = New System.Drawing.Point(8, 48)
        Me.Button9.Name = "Button9"
        Me.Button9.TabIndex = 2
        Me.Button9.Text = "按班级"
        '
        'Button8
        '
        Me.Button8.Location = New System.Drawing.Point(96, 16)
        Me.Button8.Name = "Button8"
        Me.Button8.TabIndex = 1
        Me.Button8.Text = "按省份"
        '
        'Button7
        '
        Me.Button7.Location = New System.Drawing.Point(8, 16)
        Me.Button7.Name = "Button7"
        Me.Button7.TabIndex = 0
        Me.Button7.Text = "按年龄"
        '
        'DataGrid1
        '
        Me.DataGrid1.DataMember = ""
        Me.DataGrid1.DataSource = Me.DataView1
        Me.DataGrid1.HeaderForeColor = System.Drawing.SystemColors.ControlText
        Me.DataGrid1.Location = New System.Drawing.Point(16, 8)
        Me.DataGrid1.Name = "DataGrid1"
        Me.DataGrid1.Size = New System.Drawing.Size(344, 120)
        Me.DataGrid1.TabIndex = 0
        '
        'Button11
        '
        Me.Button11.Location = New System.Drawing.Point(256, 168)
        Me.Button11.Name = "Button11"
        Me.Button11.TabIndex = 4
        Me.Button11.Text = "退出"
        '
        'Form3
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.BackgroundImage = CType(resources.GetObject("$this.BackgroundImage"), System.Drawing.Image)
        Me.ClientSize = New System.Drawing.Size(456, 373)
        Me.Controls.Add(Me.TabControl1)
        Me.Name = "Form3"
        Me.SizeGripStyle = System.Windows.Forms.SizeGripStyle.Hide
        Me.Text = "中学生信息管理系统"
        Me.TabControl1.ResumeLayout(False)
        Me.TabPage1.ResumeLayout(False)
        Me.TabPage3.ResumeLayout(False)
        Me.GroupBox1.ResumeLayout(False)
        Me.TabPage2.ResumeLayout(False)
        Me.TabPage4.ResumeLayout(False)
        Me.GroupBox2.ResumeLayout(False)
        CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.DataView1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '添加学生
        If Not Class1.ds.Tables("B") Is Nothing Then
            Class1.ds.Tables("B").Clear()
        End If
        Class1.ada.SelectCommand.CommandText = "select * from 学生"
        Class1.ada.Fill(Class1.ds, "B")
        ComboBox2.Items.Add("男")
        ComboBox2.Items.Add("女")
        If Not Class1.ds.Tables("C") Is Nothing Then
            Class1.ds.Tables("C").Clear()
        End If
        Class1.ada.SelectCommand.CommandText = "select * from 班级"
        Class1.ada.Fill(Class1.ds, "C")
        Dim i As Integer
        For i = 0 To Class1.ds.Tables("C").Rows.Count - 1