form5.vb

奖学金评定系统

        Me.Button1.Location = New System.Drawing.Point(48, 160)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(56, 24)
        Me.Button1.TabIndex = 4
        Me.Button1.Text = "查询"
        '
        '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(8, 184)
        Me.GroupBox2.Name = "GroupBox2"
        Me.GroupBox2.Size = New System.Drawing.Size(368, 96)
        Me.GroupBox2.TabIndex = 17
        Me.GroupBox2.TabStop = False
        Me.GroupBox2.Text = "修改"
        '
        'Button6
        '
        Me.Button6.Location = New System.Drawing.Point(296, 40)
        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, 40)
        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, 40)
        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, 40)
        Me.Button3.Name = "Button3"
        Me.Button3.Size = New System.Drawing.Size(64, 32)
        Me.Button3.TabIndex = 0
        Me.Button3.Text = "修改信息"
        '
        'Form5
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(544, 293)
        Me.Controls.Add(Me.GroupBox2)
        Me.Controls.Add(Me.GroupBox1)
        Me.Controls.Add(Me.TextBox8)
        Me.Controls.Add(Me.TextBox7)
        Me.Controls.Add(Me.TextBox6)
        Me.Controls.Add(Me.TextBox5)
        Me.Controls.Add(Me.TextBox4)
        Me.Controls.Add(Me.TextBox3)
        Me.Controls.Add(Me.TextBox2)
        Me.Controls.Add(Me.TextBox1)
        Me.Controls.Add(Me.Label8)
        Me.Controls.Add(Me.Label7)
        Me.Controls.Add(Me.Label6)
        Me.Controls.Add(Me.Label5)
        Me.Controls.Add(Me.Label4)
        Me.Controls.Add(Me.Label3)
        Me.Controls.Add(Me.Label2)
        Me.Controls.Add(Me.Label1)
        Me.Name = "Form5"
        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)
        TextBox1.Text = Module1.myrow.Item(0).ToString
        TextBox2.Text = Module1.myrow.Item(1).ToString
        TextBox3.Text = Module1.myrow.Item(2).ToString
        TextBox4.Text = Module1.myrow.Item(3).ToString
        TextBox5.Text = Module1.myrow.Item(4).ToString
        TextBox6.Text = Module1.myrow.Item(5).ToString
        TextBox7.Text = Module1.myrow.Item(6).ToString
        TextBox8.Text = Module1.myrow.Item(7).ToString

    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            SearchSQL = "SELECT * FROM student 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 Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        TextBox1.Enabled = False
        TextBox5.Enabled = True
        TextBox6.Enabled = True
        TextBox8.Enabled = True
        TextBox7.Enabled = True
        TextBox4.Enabled = True
        
        TextBox3.Enabled = True
        TextBox2.Enabled = True

    End Sub

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

        TextBox5.Enabled = False
        TextBox6.Enabled = False
        TextBox8.Enabled = False
        TextBox7.Enabled = False
        TextBox4.Enabled = False
       
        TextBox3.Enabled = False
        TextBox2.Enabled = False
        TextBox1.Enabled = False
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        SearchSQL = "select * from student"
        Module1.ExecuteSQL(SearchSQL, "student")
        Module1.myrow.Item(0) = Trim(TextBox1.Text)
        Module1.myrow.Item(1) = Trim(TextBox2.Text)
        Module1.myrow.Item(2) = Trim(TextBox3.Text)
        Module1.myrow.Item(3) = Trim(TextBox4.Text)
        Module1.myrow.Item(4) = Trim(TextBox5.Text)
        Module1.myrow.Item(5) = Trim(TextBox6.Text)
        Module1.myrow.Item(6) = Trim(TextBox7.Text)
        Module1.myrow.Item(7) = Trim(TextBox8.Text)
        
        Module1.mytable.GetChanges()
        Module1.cmd = New SqlCommandBuilder(Module1.ADOcmd)
        '使用自动生成的SQL语句
        Module1.ADOcmd.Update(Module1.ds, "student")
        '对数据库进行更新
        MsgBox("修改同学信息成功！", vbOKOnly + vbExclamation, "警告")

        TextBox5.Enabled = False
        TextBox6.Enabled = False
        TextBox8.Enabled = False
        TextBox7.Enabled = False
        TextBox4.Enabled = False
        
        TextBox3.Enabled = False
        TextBox2.Enabled = False
        TextBox1.Enabled = False

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        TextBox5.Enabled = False
        TextBox6.Enabled = False
        TextBox8.Enabled = False
        TextBox7.Enabled = False
        TextBox4.Enabled = False

        TextBox3.Enabled = False
        TextBox2.Enabled = False
        TextBox1.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, "student")
        Else
            Exit Sub
        End If

        TextBox5.Text = ""
        TextBox6.Text = ""
        TextBox8.Text = ""
        TextBox7.Text = ""
        TextBox4.Text = ""
       
        TextBox3.Text = ""
        TextBox2.Text = ""
        TextBox1.Text = ""
       

        TextBox5.Enabled = False
        TextBox6.Enabled = False
        TextBox8.Enabled = False
        TextBox7.Enabled = False
        TextBox4.Enabled = False
       
        TextBox3.Enabled = False
        TextBox2.Enabled = False
        TextBox1.Enabled = False

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