frmmodifyclassinfo.vb

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

        Me.ComboGrade.TabIndex = 70
        '
        'Label1
        '
        Me.Label1.AutoSize = True
        Me.Label1.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Label1.Location = New System.Drawing.Point(272, 48)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(49, 16)
        Me.Label1.TabIndex = 69
        Me.Label1.Text = "教室："
        '
        'Label3
        '
        Me.Label3.AutoSize = True
        Me.Label3.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Label3.Location = New System.Drawing.Point(24, 48)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(63, 16)
        Me.Label3.TabIndex = 68
        Me.Label3.Text = "班主任："
        '
        'Label2
        '
        Me.Label2.AutoSize = True
        Me.Label2.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Label2.Location = New System.Drawing.Point(264, 16)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(49, 16)
        Me.Label2.TabIndex = 67
        Me.Label2.Text = "年级："
        '
        'Label5
        '
        Me.Label5.AutoSize = True
        Me.Label5.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Label5.Location = New System.Drawing.Point(24, 16)
        Me.Label5.Name = "Label5"
        Me.Label5.Size = New System.Drawing.Size(49, 16)
        Me.Label5.TabIndex = 66
        Me.Label5.Text = "班号："
        '
        'TxtClassroom
        '
        Me.TxtClassroom.Location = New System.Drawing.Point(328, 48)
        Me.TxtClassroom.Name = "TxtClassroom"
        Me.TxtClassroom.Size = New System.Drawing.Size(168, 21)
        Me.TxtClassroom.TabIndex = 65
        Me.TxtClassroom.Text = ""
        '
        'TxtInspector
        '
        Me.TxtInspector.Location = New System.Drawing.Point(96, 48)
        Me.TxtInspector.Name = "TxtInspector"
        Me.TxtInspector.Size = New System.Drawing.Size(144, 21)
        Me.TxtInspector.TabIndex = 64
        Me.TxtInspector.Text = ""
        '
        'TxtClassno
        '
        Me.TxtClassno.Location = New System.Drawing.Point(96, 16)
        Me.TxtClassno.Name = "TxtClassno"
        Me.TxtClassno.Size = New System.Drawing.Size(144, 21)
        Me.TxtClassno.TabIndex = 63
        Me.TxtClassno.Text = ""
        '
        'FrmModifyClassInfo
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(504, 205)
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.ComboGrade, Me.Label1, Me.Label3, Me.Label2, Me.Label5, Me.TxtClassroom, Me.TxtInspector, Me.TxtClassno, Me.GroupBox2, Me.GroupBox1, Me.Label4, Me.Label10, Me.Label11, Me.Label12})
        Me.Name = "FrmModifyClassInfo"
        Me.Text = "修改班级信息"
        Me.GroupBox1.ResumeLayout(False)
        Me.GroupBox2.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub FrmModifyClassInfo_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TxtClassno.Enabled = False
        ComboGrade.Enabled = False
        TxtInspector.Enabled = False
        TxtClassroom.Enabled = False
        tablename = "class_Info"
        SearchSQL = "select * from class_Info "
        ExecuteSQL(SearchSQL, tablename)
        ShowData()
    End Sub



    Private Sub ShowData()
        myrow = mytable.Rows.Item(rownumber)
        TxtClassno.Text = myrow.Item(0).ToString
        ComboGrade.Text = myrow.Item(1).ToString
        TxtInspector.Text = myrow.Item(2).ToString
        TxtClassroom.Text = myrow.Item(3).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, "class_Info")
            BtNext.PerformClick()
        End If
    End Sub

    Private Sub BtModify_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtModify.Click
        TxtClassno.Enabled = False
        ComboGrade.Enabled = True
        TxtInspector.Enabled = True
        TxtClassroom.Enabled = True
    End Sub

    Private Sub BtUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtUpdate.Click
        If Not Testtxt(ComboGrade.Text) Then
            MsgBox("请选择班号！", vbOKOnly + vbExclamation, "警告")
            TxtClassno.Focus()
            Exit Sub
        End If


        If Not IsNumeric(Trim(TxtClassno.Text)) Then
            MsgBox("请输入数字！", vbOKOnly + vbExclamation, "警告")
            Exit Sub
            TxtClassno.Focus()
        End If

        If Not Testtxt(TxtInspector.Text) Then
            MsgBox("请选择班号！", vbOKOnly + vbExclamation, "警告")
            TxtClassno.Focus()
            Exit Sub
        End If
        If Not IsNumeric(Trim(TxtClassroom.Text)) Then
            MsgBox("请输入数字！", vbOKOnly + vbExclamation, "警告")
            Exit Sub
            TxtClassroom.Focus()
        End If

        SearchSQL = "select * from class_Info"
        tablename = "class_Info"
        ExecuteSQL(SearchSQL, tablename)
        myrow.Item(0) = Trim(TxtClassno.Text)
        myrow.Item(1) = Trim(ComboGrade.Text)
        myrow.Item(2) = Trim(TxtInspector.Text)
        myrow.Item(3) = Trim(TxtClassroom.Text)
        mytable.GetChanges()
        cmd = New OleDbCommandBuilder(ADOcmd)
        '使用自动生成的SQL语句
        ADOcmd.Update(ds, "class_Info")
        '对数据库进行更新
        MsgBox("修改班级信息成功！", vbOKOnly + vbExclamation, "警告")
        TxtClassno.Enabled = False
        ComboGrade.Enabled = False
        TxtInspector.Enabled = False
        TxtClassroom.Enabled = False
    End Sub

    Private Sub BtCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtCancel.Click
        TxtClassno.Enabled = False
        ComboGrade.Enabled = False
        TxtInspector.Enabled = False
        TxtClassroom.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