frmmodifyresultinfo.vb

这是一个教务信息管理系统！

        Me.Label3.Size = New System.Drawing.Size(77, 16)
        Me.Label3.TabIndex = 82
        Me.Label3.Text = "课程编号："
        '
        'TxtCourseno
        '
        Me.TxtCourseno.Font = New System.Drawing.Font("宋体", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.TxtCourseno.Location = New System.Drawing.Point(112, 48)
        Me.TxtCourseno.Name = "TxtCourseno"
        Me.TxtCourseno.Size = New System.Drawing.Size(144, 21)
        Me.TxtCourseno.TabIndex = 81
        Me.TxtCourseno.Text = ""
        '
        'TxtSID
        '
        Me.TxtSID.Font = New System.Drawing.Font("宋体", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.TxtSID.Location = New System.Drawing.Point(320, 16)
        Me.TxtSID.Name = "TxtSID"
        Me.TxtSID.Size = New System.Drawing.Size(168, 21)
        Me.TxtSID.TabIndex = 80
        Me.TxtSID.Text = ""
        '
        'Txtresult
        '
        Me.Txtresult.Font = New System.Drawing.Font("宋体", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Txtresult.Location = New System.Drawing.Point(320, 56)
        Me.Txtresult.Name = "Txtresult"
        Me.Txtresult.Size = New System.Drawing.Size(168, 21)
        Me.Txtresult.TabIndex = 79
        Me.Txtresult.Text = ""
        '
        'Txtdate
        '
        Me.Txtdate.Font = New System.Drawing.Font("宋体", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Txtdate.Location = New System.Drawing.Point(112, 16)
        Me.Txtdate.Name = "Txtdate"
        Me.Txtdate.Size = New System.Drawing.Size(144, 21)
        Me.Txtdate.TabIndex = 78
        Me.Txtdate.Text = ""
        '
        'Label6
        '
        Me.Label6.AutoSize = True
        Me.Label6.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Label6.Location = New System.Drawing.Point(272, 48)
        Me.Label6.Name = "Label6"
        Me.Label6.Size = New System.Drawing.Size(34, 16)
        Me.Label6.TabIndex = 77
        Me.Label6.Text = "分数"
        '
        'Label7
        '
        Me.Label7.AutoSize = True
        Me.Label7.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Label7.Location = New System.Drawing.Point(272, 16)
        Me.Label7.Name = "Label7"
        Me.Label7.Size = New System.Drawing.Size(34, 16)
        Me.Label7.TabIndex = 76
        Me.Label7.Text = "学号"
        '
        'Label8
        '
        Me.Label8.AutoSize = True
        Me.Label8.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Label8.Location = New System.Drawing.Point(16, 16)
        Me.Label8.Name = "Label8"
        Me.Label8.Size = New System.Drawing.Size(63, 16)
        Me.Label8.TabIndex = 75
        Me.Label8.Text = "考试时间"
        '
        'FrmModifyResultInfo
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(496, 221)
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Label3, Me.TxtCourseno, Me.TxtSID, Me.Txtresult, Me.Txtdate, Me.Label6, Me.Label7, Me.Label8, Me.GroupBox2, Me.GroupBox1})
        Me.Name = "FrmModifyResultInfo"
        Me.Text = "修改成绩信息"
        Me.GroupBox2.ResumeLayout(False)
        Me.GroupBox1.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region
    Private Sub FrmModifyresultInfo_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TxtCourseno.Enabled = False
        TxtDate.Enabled = False
        TxtSID.Enabled = False
        TxtResult.Enabled = False
        SearchSQL = "select * from result_Info"
        ExecuteSQL(SearchSQL, tablename)
        ShowData()
    End Sub



    Private Sub ShowData()
        myrow = mytable.Rows.Item(rownumber)
        TxtDate.Text = myrow.Item(1).ToString
        TxtSID.Text = myrow.Item(2).ToString
        TxtCourseno.Text = myrow.Item(3).ToString
        Txtresult.Text = myrow.Item(4).ToString
    End Sub


    Private Sub BtFirst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtFirst.Click
        rownumber = 0
        ShowData()
    End Sub

    Private Sub BtPrev_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtPrev.Click
        BtNext.Enabled = True
        rownumber = rownumber - 1
        If rownumber < 0 Then
            rownumber = 0
            BtPrev.Enabled = False
        End If
        ShowData()
    End Sub

    Private Sub BtNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtNext.Click
        BtPrev.Enabled = True
        rownumber = rownumber + 1
        If rownumber > mytable.Rows.Count - 1 Then
            rownumber = mytable.Rows.Count - 1
            BtNext.Enabled = False
        End If
        ShowData()
    End Sub

    Private Sub BtLast_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtLast.Click
        rownumber = mytable.Rows.Count - 1
        ShowData()
    End Sub

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

    Private Sub BtModify_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtModify.Click
        TxtCourseno.Enabled = True
        TxtDate.Enabled = True
        TxtSID.Enabled = True
        TxtCourseno.Enabled = True
    End Sub

    Private Sub BtUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtUpdate.Click
       
        If Not IsNumeric(TxtCourseno.Text) Then
            MsgBox("请输入课程编号！", vbOKOnly + vbExclamation, "警告")
            TxtCourseno.Focus()
            Exit Sub
        End If


        If Not IsDate(TxtDate.Text) Then
            MsgBox("考试日期！", vbOKOnly + vbExclamation, "警告")
            TxtDate.Focus()
            Exit Sub
        End If



        If Not IsNumeric(TxtSID.Text) Then
            MsgBox("请输入学号", vbOKOnly + vbExclamation, "警告")
            TxtSID.Focus()
            Exit Sub
        End If
        If Not IsNumeric(TxtResult.Text) Then
            MsgBox("请输入分数", vbOKOnly + vbExclamation, "警告")
            TxtResult.Focus()
            Exit Sub
        End If
        SearchSQL = "select * from result_Info"
        ExecuteSQL(SearchSQL, tablename)
        myrow.Item(1) = Trim(TxtDate.Text)
        myrow.Item(2) = Trim(TxtSID.Text)
        myrow.Item(3) = Trim(TxtCourseno.Text)
        myrow.Item(4) = Trim(TxtResult.Text)
        mytable.GetChanges()
        cmd = New OleDbCommandBuilder(ADOcmd)
        '使用自动生成的SQL语句
        ADOcmd.Update(ds, tablename)
        '对数据库进行更新
        MsgBox("修改课程信息成功！", vbOKOnly + vbExclamation, "警告")
        TxtCourseno.Enabled = False
        TxtCourseno.Enabled = False
        TxtDate.Enabled = False
        TxtSID.Enabled = False
        TxtResult.Enabled = False
    End Sub

    Private Sub BtCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtCancel.Click
        TxtCourseno.Enabled = False
        TxtDate.Enabled = False
        TxtSID.Enabled = False
        TxtResult.Enabled = False
    End Sub

   
    Public Function ExecuteSQL(ByVal SQL As String, ByVal table As String)
        Try


            '建立ADODataSetCommand对象
            '数据库查询函数
            ADOcmd = New OleDbDataAdapter(SQL, "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\冯军\student.mdb")
            '建立ADODataSetCommand对象
            ADOcmd.Fill(ds, table) '取得表单
            mytable = ds.Tables.Item(0) '取得名为table的表
            rownumber = 0 '设置为第一行
            myrow = mytable.Rows.Item(rownumber)
            '取得第一行数据
        Catch
            MsgBox(Err.Description)
        End Try
    End Function
End Class