学生信息管理系统之年级课程设置

最新推荐文章于 2024-07-03 21:04:59 发布

最新推荐文章于 2024-07-03 21:04:59 发布 · 113 阅读

本文详细介绍了在一个系统中如何设置和更新特定年级的课程。包括了如何根据选定的年级加载已有课程，如何添加新的课程设置，并确保课程设置的唯一性。通过具体的代码示例展示了如何避免年级课程设置重复的方法。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

大家先来看一下它的窗口布局

年级是默认加载的，但是当我们选择年级时，如果此年级已经设置好了课程，那么在已经选择课程中应该显示出来，当我们单击设置课程时，此年级的所有课程也应该显示，当然这些都很简单

第一个显示所选课程我们只需在单击选择年级时，执行

ListSelectCourse(1).Clear  '先清空列表
  
   '从年级课程里查找出相同年级的信息，将课程名称添加到列表里
   txtsql = "select*from gradecourse_info where grade='" & ComboGra.Text & "'"
   Set mrc = executesql(txtsql, msgtext)
   If Not mrc.EOF Then
     For i = 1 To mrc.RecordCount
       ListSelectCourse(1).AddItem mrc.Fields(1)
       mrc.MoveNext
     Next
   End If
  mrc.Close

第二个显示，执行

  '先将以前的课程清空，在重新添加所有课程
      ListAllCourse(0).Clear
      ListAllCourse(0).Enabled = True
      ListSelectCourse(1).Enabled = True
      CmdModify.Enabled = True
      
      txtsql = "select * from course_info"
      Set mrc = executesql(txtsql, msgtext)   '添加信息
       While (mrc.EOF = False)             
          ListAllCourse(0).AddItem mrc.Fields(1)
          mrc.MoveNext
       Wend
       mrc.Close

但是，当我们单击确认设置时，它是如何避免年级重复，如何思考的，下面我们来看看这段代码

 txtsql = "select * from gradecourse_info where grade='" & ComboGra.Text & "'"
     Set mrc = executesql(txtsql, msgtext)
       If mrc.EOF Then    '如果是新添加的年级则将已选的课程添加进去
          For i = 1 To ListSelectCourse(1).ListCount
             mrc.AddNew
             mrc.Fields(0) = Trim(ComboGra.Text)
             mrc.Fields(1) = Trim(ListSelectCourse(1).List(i - 1))
             mrc.Update
          Next
          mrc.Close
          MsgBox "设置课程成功"
       Else
          mrc.Close   '如果是已存在的年级就将这个年级删除再重新添加
          txtsql = "delete from gradecourse_info where grade='" & ComboGra.Text & "'"
          Set mrc = executesql(txtsql, msgtext)
          
         txtsql = "select * from gradecourse_info"
         Set mrc = executesql(txtsql, msgtext)
           For i = 1 To ListSelectCourse(1).ListCount
             mrc.AddNew
             mrc.Fields(0) = Trim(ComboGra.Text)
             mrc.Fields(1) = Trim(ListSelectCourse(1).List(i - 1))
             mrc.Update
           Next
           mrc.Close
          'mrcc.Close
          MsgBox "设置课程成功"
          
        End If

这些内容都不是很难，主要是我们要明白它的思考过程，为什么要这样做？然后我们以后做系统，不光只是敲代在敲之前要多思考，一个好的程序员不光只是要实现这个功能，还要思考如何让自己的代码简单，干练，实现能力更强！