学生管理系统（六）---设置窗体

前言：

 

      如何给学生设置课程呢？选择所在的年级，显示所有的课程以及已经选择的课程，之后确认设置，那其中的功能是如何用代码实现的呢？

 

内容：

 

     1、确认设置的逻辑顺序：先判断是否选年级，然后去判断是否选择课程，最后从年级表里查询数据，把更改的数据更新到数据库中。

 

     txtSQL = "select * from gradecourse_Info where grade= '" & Trim(comboGrade.Text) & "'"
     Set mrc = ExecuteSQL(txtSQL, MsgText)
     
     If mrc.EOF Then
     
         For i = 1 To listSelectcourse.ListCount
           
               mrc.AddNew
               mrc.Fields(0) = comboGrade.Text
               mrc.Fields(1) = listSelectcourse.list(i - 1)
               mrc.Update
               
        Next i
        mrc.Close
        
        MsgBox "课程设置成功！", vbOKOnly + vbExclamation, "警告"
    
      Else
    
        mrc.Close
        
        txtSQL = "delete * from gradecourse_Info where grade= '" & Trim(comboGrade.Text) & "'"
        
        Set mrcc = ExecuteSQL(txtSQL, MsgText)
        
        '查询是否有重复记录
        txtSQL = "select * from gradecourse_Info"
        Set mrcc = ExecuteSQL(txtSQL, MsgText)
        For i = 1 To listSelectcourse.ListCount
        
              mrcc.AddNew
              
              mrcc.Fields(0) = comboGrade.Text
              mrcc.Fields(1) = listSelectcourse.list(i - 1)
              mrcc.Update
              
        Next i
        
        mrcc.Close
        
        MsgBox "课程设置成功！", vbOKOnly + vbExclamation, "警告"
        
        listAllcourse.Clear
        listSelectcourse.Clear
        cmdSet.Enabled = True
        
        

 

     2、设置课程，有相同的课程的时候只显示一条，之后添加到所有课程列表框中

 

     '查询数据
     txtSQL = "select course_Name from course_Info group by course_Name"
     Set mrc = ExecuteSQL(txtSQL, MsgText)
     
     '判断是否到最后一条记录
     While (mrc.EOF = False)
     
        '添加内容到列表框中
        listAllcourse.AddItem mrc.Fields(0)
        mrc.MoveNext
        
     Wend

 

     3、选中list框中的数据，使之可以移到另一个list框中

  

Private Sub listAllcourse_Click()
    
    If listAllcourse.ListIndex <> -1 Then
    
            listSelectcourse.ListIndex = -1
            
    End If
    
End Sub

 

Private Sub cmdDelete_Click()
     
     '判断是否有内容被选中
     If listSelectcourse.ListIndex <> -1 Then                '表示有内容被选中
         
         listSelectcourse.RemoveItem listSelectcourse.ListIndex
         
     End If
     
End Sub

 

总结：

 

      这就是设置窗体需要注意的地方，我们主要做的就是理清他们的逻辑顺序，顺序理清了，代码就不是问题了。