form7.vb

奖学金评定系统

        'TextBox9
        '
        Me.TextBox9.Location = New System.Drawing.Point(40, 112)
        Me.TextBox9.Name = "TextBox9"
        Me.TextBox9.Size = New System.Drawing.Size(80, 21)
        Me.TextBox9.TabIndex = 3
        Me.TextBox9.Text = ""
        '
        'Label10
        '
        Me.Label10.Location = New System.Drawing.Point(48, 88)
        Me.Label10.Name = "Label10"
        Me.Label10.Size = New System.Drawing.Size(56, 16)
        Me.Label10.TabIndex = 2
        Me.Label10.Text = "查询条件"
        '
        'ComboBox1
        '
        Me.ComboBox1.Items.AddRange(New Object() {"学号", "姓名"})
        Me.ComboBox1.Location = New System.Drawing.Point(40, 56)
        Me.ComboBox1.Name = "ComboBox1"
        Me.ComboBox1.Size = New System.Drawing.Size(80, 20)
        Me.ComboBox1.TabIndex = 1
        '
        'Label9
        '
        Me.Label9.Location = New System.Drawing.Point(48, 32)
        Me.Label9.Name = "Label9"
        Me.Label9.Size = New System.Drawing.Size(56, 16)
        Me.Label9.TabIndex = 0
        Me.Label9.Text = "查询方式"
        '
        'GroupBox2
        '
        Me.GroupBox2.Controls.Add(Me.Button6)
        Me.GroupBox2.Controls.Add(Me.Button5)
        Me.GroupBox2.Controls.Add(Me.Button4)
        Me.GroupBox2.Controls.Add(Me.Button3)
        Me.GroupBox2.Location = New System.Drawing.Point(0, 272)
        Me.GroupBox2.Name = "GroupBox2"
        Me.GroupBox2.Size = New System.Drawing.Size(400, 56)
        Me.GroupBox2.TabIndex = 60
        Me.GroupBox2.TabStop = False
        Me.GroupBox2.Text = "修改"
        '
        'Button6
        '
        Me.Button6.Location = New System.Drawing.Point(296, 16)
        Me.Button6.Name = "Button6"
        Me.Button6.Size = New System.Drawing.Size(64, 32)
        Me.Button6.TabIndex = 3
        Me.Button6.Text = "删除成绩"
        '
        'Button5
        '
        Me.Button5.Location = New System.Drawing.Point(184, 16)
        Me.Button5.Name = "Button5"
        Me.Button5.Size = New System.Drawing.Size(88, 32)
        Me.Button5.TabIndex = 2
        Me.Button5.Text = "取消修改成绩"
        '
        'Button4
        '
        Me.Button4.Location = New System.Drawing.Point(96, 16)
        Me.Button4.Name = "Button4"
        Me.Button4.Size = New System.Drawing.Size(64, 32)
        Me.Button4.TabIndex = 1
        Me.Button4.Text = "更新数据"
        '
        'Button3
        '
        Me.Button3.Location = New System.Drawing.Point(8, 16)
        Me.Button3.Name = "Button3"
        Me.Button3.Size = New System.Drawing.Size(64, 32)
        Me.Button3.TabIndex = 0
        Me.Button3.Text = "修改成绩"
        '
        'Form7
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(400, 333)
        Me.Controls.Add(Me.GroupBox2)
        Me.Controls.Add(Me.GroupBox1)
        Me.Controls.Add(Me.TextBox20)
        Me.Controls.Add(Me.TextBox19)
        Me.Controls.Add(Me.TextBox18)
        Me.Controls.Add(Me.TextBox17)
        Me.Controls.Add(Me.TextBox16)
        Me.Controls.Add(Me.TextBox15)
        Me.Controls.Add(Me.TextBox14)
        Me.Controls.Add(Me.Label30)
        Me.Controls.Add(Me.Label29)
        Me.Controls.Add(Me.Label28)
        Me.Controls.Add(Me.Label27)
        Me.Controls.Add(Me.Label26)
        Me.Controls.Add(Me.Label25)
        Me.Controls.Add(Me.Label21)
        Me.Name = "Form7"
        Me.Text = "同学成绩修改"
        Me.GroupBox1.ResumeLayout(False)
        Me.GroupBox2.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region
    Private Sub ShowData()
        Module1.myrow = Module1.mytable.Rows.Item(rownumber)
        TextBox14.Text = Module1.myrow.Item(2).ToString
        TextBox15.Text = Module1.myrow.Item(3).ToString
        TextBox16.Text = Module1.myrow.Item(4).ToString
        TextBox17.Text = Module1.myrow.Item(5).ToString
        TextBox18.Text = Module1.myrow.Item(6).ToString
        TextBox19.Text = Module1.myrow.Item(7).ToString
        TextBox20.Text = Module1.myrow.Item(8).ToString


    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            SearchSQL = "SELECT * FROM result WHERE (" & ComboBox1.Text & "= '" & TextBox9.Text & "')"
            '建立查询
            Module1.ExecuteSQL(SearchSQL, tablename)
            ShowData()
        Catch
            MsgBox("不存在该记录！", vbOKOnly + vbExclamation, "警告")
        End Try
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        ComboBox1.Text = ""
        TextBox9.Text = ""
    End Sub

    Private Sub Form7_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        TextBox14.Enabled = False
        TextBox15.Enabled = False
        TextBox16.Enabled = False
        TextBox17.Enabled = False
        TextBox18.Enabled = False

        TextBox19.Enabled = False
        TextBox20.Enabled = False

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        TextBox14.Enabled = True
        TextBox15.Enabled = True
        TextBox16.Enabled = True
        TextBox18.Enabled = True
        TextBox17.Enabled = True
        TextBox19.Enabled = True


        TextBox20.Enabled = True
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        SearchSQL = "select * from result"
        Module1.ExecuteSQL(SearchSQL, "result")
        Module1.myrow.Item(2) = Trim(TextBox14.Text)
        Module1.myrow.Item(3) = Trim(TextBox15.Text)
        Module1.myrow.Item(4) = Trim(TextBox16.Text)
        Module1.myrow.Item(5) = Trim(TextBox17.Text)
        Module1.myrow.Item(6) = Trim(TextBox18.Text)
        Module1.myrow.Item(7) = Trim(TextBox19.Text)
        Module1.myrow.Item(8) = Trim(TextBox20.Text)
       
        Module1.mytable.GetChanges()
        Module1.cmd = New SqlCommandBuilder(Module1.ADOcmd)
        '使用自动生成的SQL语句
        Module1.ADOcmd.Update(Module1.ds, "result")
        '对数据库进行更新
        MsgBox("修改同学信息成功！", vbOKOnly + vbExclamation, "警告")

        TextBox14.Enabled = False
        TextBox15.Enabled = False
        TextBox18.Enabled = False
        TextBox17.Enabled = False
        TextBox16.Enabled = False

        TextBox19.Enabled = False
        TextBox20.Enabled = False

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        TextBox14.Enabled = False
        TextBox15.Enabled = False
        TextBox18.Enabled = False
        TextBox17.Enabled = False
        TextBox16.Enabled = False

        TextBox19.Enabled = False
        TextBox20.Enabled = False
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Module1.mytable.Rows.Item(rownumber).Delete()
        If MsgBox("确定要删除改记录吗？", MsgBoxStyle.OKCancel + vbExclamation, "警告") = MsgBoxResult.OK Then
            Module1.cmd = New SqlCommandBuilder(Module1.ADOcmd)
            '使用自动生成的SQL语句
            Module1.ADOcmd.Update(Module1.ds, "result")
        Else
            Exit Sub
        End If

        TextBox14.Text = ""
        TextBox16.Text = ""
        TextBox18.Text = ""
        TextBox17.Text = ""
        TextBox15.Text = ""

        TextBox19.Text = ""
        TextBox20.Text = ""



        TextBox15.Enabled = False
        TextBox16.Enabled = False
        TextBox18.Enabled = False
        TextBox17.Enabled = False
        TextBox14.Enabled = False

        TextBox19.Enabled = False
        TextBox20.Enabled = False
   
        MsgBox("删除信息成功！", MsgBoxStyle.ApplicationModal, "提示")
    End Sub
End Class