frmgrademan.vb

代码：是由本人自主开发完成的

        Me.DGStudent.CaptionBackColor = System.Drawing.Color.RoyalBlue
        Me.DGStudent.CaptionForeColor = System.Drawing.Color.White
        Me.DGStudent.CaptionText = "学生信息"
        Me.DGStudent.DataMember = ""
        Me.DGStudent.Dock = System.Windows.Forms.DockStyle.Fill
        Me.DGStudent.FlatMode = True
        Me.DGStudent.Font = New System.Drawing.Font("Tahoma", 8.0!)
        Me.DGStudent.ForeColor = System.Drawing.Color.MidnightBlue
        Me.DGStudent.GridLineColor = System.Drawing.Color.RoyalBlue
        Me.DGStudent.HeaderBackColor = System.Drawing.Color.MidnightBlue
        Me.DGStudent.HeaderFont = New System.Drawing.Font("Tahoma", 8.0!, System.Drawing.FontStyle.Bold)
        Me.DGStudent.HeaderForeColor = System.Drawing.Color.Lavender
        Me.DGStudent.LinkColor = System.Drawing.Color.Teal
        Me.DGStudent.Location = New System.Drawing.Point(3, 17)
        Me.DGStudent.Name = "DGStudent"
        Me.DGStudent.ParentRowsBackColor = System.Drawing.Color.Lavender
        Me.DGStudent.ParentRowsForeColor = System.Drawing.Color.MidnightBlue
        Me.DGStudent.ReadOnly = True
        Me.DGStudent.SelectionBackColor = System.Drawing.Color.Teal
        Me.DGStudent.SelectionForeColor = System.Drawing.Color.PaleGreen
        Me.DGStudent.Size = New System.Drawing.Size(559, 228)
        Me.DGStudent.TabIndex = 0
        '
        'GroupBox4
        '
        Me.GroupBox4.Controls.Add(Me.GroupBox8)
        Me.GroupBox4.Controls.Add(Me.CombSexy)
        Me.GroupBox4.Controls.Add(Me.txtGrade)
        Me.GroupBox4.Controls.Add(Me.Label9)
        Me.GroupBox4.Controls.Add(Me.GroupBox6)
        Me.GroupBox4.Controls.Add(Me.txtMarjoy)
        Me.GroupBox4.Controls.Add(Me.Label6)
        Me.GroupBox4.Controls.Add(Me.txtDepartment)
        Me.GroupBox4.Controls.Add(Me.Label5)
        Me.GroupBox4.Controls.Add(Me.Label4)
        Me.GroupBox4.Controls.Add(Me.txtStuID)
        Me.GroupBox4.Controls.Add(Me.Label3)
        Me.GroupBox4.Controls.Add(Me.Label1)
        Me.GroupBox4.Controls.Add(Me.txtStuName)
        Me.GroupBox4.Dock = System.Windows.Forms.DockStyle.Top
        Me.GroupBox4.Location = New System.Drawing.Point(3, 17)
        Me.GroupBox4.Name = "GroupBox4"
        Me.GroupBox4.Size = New System.Drawing.Size(572, 168)
        Me.GroupBox4.TabIndex = 1
        Me.GroupBox4.TabStop = False
        Me.GroupBox4.Text = "学生信息明细"
        '
        'GroupBox8
        '
        Me.GroupBox8.Controls.Add(Me.Label12)
        Me.GroupBox8.Controls.Add(Me.txtQuery)
        Me.GroupBox8.Controls.Add(Me.Label11)
        Me.GroupBox8.Location = New System.Drawing.Point(344, 8)
        Me.GroupBox8.Name = "GroupBox8"
        Me.GroupBox8.Size = New System.Drawing.Size(224, 64)
        Me.GroupBox8.TabIndex = 17
        Me.GroupBox8.TabStop = False
        '
        'Label12
        '
        Me.Label12.ForeColor = System.Drawing.Color.LightSeaGreen
        Me.Label12.Location = New System.Drawing.Point(8, 17)
        Me.Label12.Name = "Label12"
        Me.Label12.Size = New System.Drawing.Size(176, 16)
        Me.Label12.TabIndex = 17
        Me.Label12.Text = "请输入姓名或学号进行查询。"
        '
        'txtQuery
        '
        Me.txtQuery.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.txtQuery.Location = New System.Drawing.Point(19, 36)
        Me.txtQuery.Name = "txtQuery"
        Me.txtQuery.Size = New System.Drawing.Size(160, 21)
        Me.txtQuery.TabIndex = 15
        Me.txtQuery.Text = ""
        '
        'Label11
        '
        Me.Label11.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.Label11.Cursor = System.Windows.Forms.Cursors.Hand
        Me.Label11.Image = CType(resources.GetObject("Label11.Image"), System.Drawing.Image)
        Me.Label11.Location = New System.Drawing.Point(192, 33)
        Me.Label11.Name = "Label11"
        Me.Label11.Size = New System.Drawing.Size(24, 24)
        Me.Label11.TabIndex = 16
        '
        'CombSexy
        '
        Me.CombSexy.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.CombSexy.Enabled = False
        Me.CombSexy.ForeColor = System.Drawing.Color.Chartreuse
        Me.CombSexy.Items.AddRange(New Object() {"男", "女"})
        Me.CombSexy.Location = New System.Drawing.Point(288, 16)
        Me.CombSexy.Name = "CombSexy"
        Me.CombSexy.Size = New System.Drawing.Size(48, 20)
        Me.CombSexy.TabIndex = 14
        '
        'txtGrade
        '
        Me.txtGrade.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.txtGrade.ForeColor = System.Drawing.Color.Chartreuse
        Me.txtGrade.Location = New System.Drawing.Point(288, 48)
        Me.txtGrade.MaxLength = 50
        Me.txtGrade.Name = "txtGrade"
        Me.txtGrade.ReadOnly = True
        Me.txtGrade.Size = New System.Drawing.Size(48, 21)
        Me.txtGrade.TabIndex = 13
        Me.txtGrade.Text = ""
        '
        'Label9
        '
        Me.Label9.Location = New System.Drawing.Point(240, 52)
        Me.Label9.Name = "Label9"
        Me.Label9.Size = New System.Drawing.Size(48, 16)
        Me.Label9.TabIndex = 12
        Me.Label9.Text = "成 绩："
        '
        'GroupBox6
        '
        Me.GroupBox6.Controls.Add(Me.Button1)
        Me.GroupBox6.Controls.Add(Me.cmdExit)
        Me.GroupBox6.Controls.Add(Me.cmdFlash)
        Me.GroupBox6.Controls.Add(Me.cmdSave)
        Me.GroupBox6.Location = New System.Drawing.Point(8, 112)
        Me.GroupBox6.Name = "GroupBox6"
        Me.GroupBox6.Size = New System.Drawing.Size(560, 48)
        Me.GroupBox6.TabIndex = 11
        Me.GroupBox6.TabStop = False
        Me.GroupBox6.Text = "操作"
        '
        'Button1
        '
        Me.Button1.Cursor = System.Windows.Forms.Cursors.Hand
        Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.Button1.Location = New System.Drawing.Point(310, 16)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(64, 24)
        Me.Button1.TabIndex = 8
        Me.Button1.Text = "删  除"
        '
        'cmdExit
        '
        Me.cmdExit.Cursor = System.Windows.Forms.Cursors.Hand
        Me.cmdExit.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.cmdExit.Location = New System.Drawing.Point(436, 16)
        Me.cmdExit.Name = "cmdExit"
        Me.cmdExit.Size = New System.Drawing.Size(64, 24)
        Me.cmdExit.TabIndex = 7
        Me.cmdExit.Text = "返 回"
        '
        'cmdFlash
        '
        Me.cmdFlash.Cursor = System.Windows.Forms.Cursors.Hand
        Me.cmdFlash.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.cmdFlash.Location = New System.Drawing.Point(184, 16)
        Me.cmdFlash.Name = "cmdFlash"
        Me.cmdFlash.Size = New System.Drawing.Size(64, 24)
        Me.cmdFlash.TabIndex = 5
        Me.cmdFlash.Text = "刷 新"
        '
        'cmdSave
        '
        Me.cmdSave.Cursor = System.Windows.Forms.Cursors.Hand
        Me.cmdSave.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.cmdSave.Location = New System.Drawing.Point(58, 16)
        Me.cmdSave.Name = "cmdSave"
        Me.cmdSave.Size = New System.Drawing.Size(64, 24)
        Me.cmdSave.TabIndex = 1
        Me.cmdSave.Text = "保 存"
        '
        'txtMarjoy
        '
        Me.txtMarjoy.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.txtMarjoy.ForeColor = System.Drawing.Color.Chartreuse
        Me.txtMarjoy.Location = New System.Drawing.Point(288, 80)
        Me.txtMarjoy.MaxLength = 50
        Me.txtMarjoy.Name = "txtMarjoy"
        Me.txtMarjoy.ReadOnly = True
        Me.txtMarjoy.Size = New System.Drawing.Size(160, 21)
        Me.txtMarjoy.TabIndex = 10
        Me.txtMarjoy.Text = ""
        '
        'Label6
        '
        Me.Label6.Location = New System.Drawing.Point(240, 87)
        Me.Label6.Name = "Label6"
        Me.Label6.Size = New System.Drawing.Size(48, 16)
        Me.Label6.TabIndex = 9
        Me.Label6.Text = "专 业："
        '
        'txtDepartment
        '
        Me.txtDepartment.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.txtDepartment.ForeColor = System.Drawing.Color.Chartreuse
        Me.txtDepartment.Location = New System.Drawing.Point(72, 80)
        Me.txtDepartment.MaxLength = 50
        Me.txtDepartment.Name = "txtDepartment"
        Me.txtDepartment.ReadOnly = True
        Me.txtDepartment.Size = New System.Drawing.Size(160, 21)
        Me.txtDepartment.TabIndex = 8
        Me.txtDepartment.Text = ""
        '
        'Label5
        '
        Me.Label5.Location = New System.Drawing.Point(16, 84)
        Me.Label5.Name = "Label5"
        Me.Label5.Size = New System.Drawing.Size(48, 16)
        Me.Label5.TabIndex = 7
        Me.Label5.Text = "院 系："
        '
        'Label4
        '
        Me.Label4.Location = New System.Drawing.Point(240, 20)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(40, 16)
        Me.Label4.TabIndex = 5
        Me.Label4.Text = "性 别："
        '
        'txtStuID
        '
        Me.txtStuID.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.txtStuID.ForeColor = System.Drawing.Color.Chartreuse
        Me.txtStuID.Location = New System.Drawing.Point(72, 48)
        Me.txtStuID.MaxLength = 50
        Me.txtStuID.Name = "txtStuID"
        Me.txtStuID.ReadOnly = True
        Me.txtStuID.Size = New System.Drawing.Size(160, 21)
        Me.txtStuID.TabIndex = 4
        Me.txtStuID.Text = ""
        '
        'Label3
        '
        Me.Label3.Location = New System.Drawing.Point(16, 56)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(48, 16)
        Me.Label3.TabIndex = 3
        Me.Label3.Text = "学 号："
        '
        'Label1
        '
        Me.Label1.Location = New System.Drawing.Point(16, 22)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(48, 16)
        Me.Label1.TabIndex = 2
        Me.Label1.Text = "姓 名："
        '
        'txtStuName
        '
        Me.txtStuName.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.txtStuName.ForeColor = System.Drawing.Color.Chartreuse
        Me.txtStuName.Location = New System.Drawing.Point(72, 17)
        Me.txtStuName.MaxLength = 50
        Me.txtStuName.Name = "txtStuName"
        Me.txtStuName.ReadOnly = True
        Me.txtStuName.Size = New System.Drawing.Size(160, 21)
        Me.txtStuName.TabIndex = 0
        Me.txtStuName.Text = ""
        '
        'GroupBox3
        '
        Me.GroupBox3.Controls.Add(Me.Label10)
        Me.GroupBox3.Controls.Add(Me.RDBDetails)
        Me.GroupBox3.Controls.Add(Me.RDBModify)
        Me.GroupBox3.Controls.Add(Me.Label8)
        Me.GroupBox3.Controls.Add(Me.CombTesttime)
        Me.GroupBox3.Controls.Add(Me.Label7)
        Me.GroupBox3.Controls.Add(Me.CombTestYear)
        Me.GroupBox3.Controls.Add(Me.Label2)
        Me.GroupBox3.Location = New System.Drawing.Point(3, 182)
        Me.GroupBox3.Name = "GroupBox3"
        Me.GroupBox3.Size = New System.Drawing.Size(565, 64)
        Me.GroupBox3.TabIndex = 0