frm_enterforexam.frm

学生信息的管理是学校经常遇到的问题。学生数量的积聚增加和学生认识制度的改革

Attribute VB_Exposed = False
Option Explicit
Dim myClass As Cls_Class
Dim mysem As Cls_Sem
Dim myGrade As Cls_Grade
Dim myExam As Cls_Exam

Private Sub Combo1_Click()
  Set myClass = New Cls_Class
  Combo2.Enabled = True
  Combo2.Clear
  
  '按combo1查询该学期的班级编号
  myClass.PrcClassIdBySemID Combo1
  If myClass.GetPrcClassIdBySemIDRs.EOF = False Then
    Do Until myClass.GetPrcClassIdBySemIDRs.EOF
      Combo2.AddItem myClass.GetPrcClassIdBySemIDRs.Fields(0)
      myClass.GetPrcClassIdBySemIDRs.MoveNext
    Loop
  End If
  Set myClass = Nothing

End Sub

Private Sub Combo1_KeyPress(KeyAscii As Integer)
If KeyAscii <> 13 Then KeyAscii = 0
End Sub

Private Sub Combo2_Click()
    Set myGrade = New Cls_Grade
    List1.Clear
    '按combo2的值查询，将学员编号显示在list1中
    myGrade.PrcGradeStudentIDByClassID Trim(Combo2)
    If myGrade.GetGrade.EOF = False Then
      Do Until myGrade.GetGrade.EOF
         List1.AddItem myGrade.GetGrade.Fields(0)
         myGrade.GetGrade.MoveNext
      Loop
    End If

    Combo4.Enabled = True
    Combo4.Clear
    
    '按combo2中的班级编号值查询，将课程编号显示在combo4中
    myGrade.PrcGradeSemIDByClassID Trim(Combo2)
    If myGrade.GetGrade.EOF = False Then
       Do Until myGrade.GetGrade.EOF
          Combo4.AddItem myGrade.GetGrade.Fields(0)
          myGrade.GetGrade.MoveNext
       Loop
    End If
    Set myGrade = Nothing
    
    Command2.Enabled = True
    Command3.Enabled = True

End Sub



Private Sub Combo2_KeyPress(KeyAscii As Integer)
If KeyAscii <> 13 Then KeyAscii = 0
End Sub

Private Sub Combo3_KeyPress(KeyAscii As Integer)
If KeyAscii <> 13 Then KeyAscii = 0
End Sub



Private Sub Combo4_KeyPress(KeyAscii As Integer)
If KeyAscii <> 13 Then KeyAscii = 0
End Sub

Private Sub command1_Click()
    Dim i As Integer
    Dim strTemp As String
    Set myExam = New Cls_Exam
    If Trim(Combo3.Text) = "" Then
        MsgBox "请先选择考试种类!", vbApplicationModal + vbExclamation + vbOKOnly, "错误"
        Exit Sub
    End If
    If Trim(Combo4.Text) = "" Then
        MsgBox "请先选择课程编号!", vbApplicationModal + vbExclamation + vbOKOnly, "错误"
        Exit Sub
    End If
    If Trim(Label6.Caption) = "" Then
        MsgBox "请先选择考试日期!", vbApplicationModal + vbExclamation + vbOKOnly, "错误"
        Exit Sub
    End If
    If List2.ListCount = 0 Then
        MsgBox "请先选择考试的学员!", vbApplicationModal + vbExclamation + vbOKOnly, "错误"
        Exit Sub
    End If
    
    frm_ProgressBar.Show 1
    myExam.OpenExamInfo
    For i = 0 To List2.ListCount - 1
        myExam.GetExamRs.AddNew
        myExam.GetExamRs.Fields(1) = Trim(Label6.Caption)
        myExam.GetExamRs.Fields(3) = Trim(Combo4.Text)
        myExam.GetExamRs.Fields(4) = Trim(List2.List(i))
        Select Case Trim(Combo3.Text)
            Case "上机"
                myExam.GetExamRs.Fields(2) = "GradeCpt"
            Case "平时"
                myExam.GetExamRs.Fields(2) = "GradeUal"
            Case "笔试"
                myExam.GetExamRs.Fields(2) = "GradePaper"
        End Select
                
        myExam.GetExamRs.Update
        myExam.GetExamRs.Requery
    Next
    Set myExam = Nothing
    
    '设置各控件的状态
    State
  
End Sub

Private Sub command2_Click()
  Dim i As Integer
  Dim intTemp As Integer
  Dim intTempBak As Integer
  
  i = 0
  intTemp = List1.ListCount - 1
  intTempBak = List1.ListCount - 1
  Do While i <= intTemp
    If List1.Selected(i) Then
      List2.AddItem List1.List(i)
      List1.RemoveItem i
      intTemp = intTemp - 1
    Else
      i = i + 1
    End If
  Loop
  
  If intTemp <> intTempBak Then
    Command4.Enabled = True
    Command5.Enabled = True
  End If
  
  '如果将List1中的所有Item选定,移到List2,则4个按钮的状态
  If i = 0 Then
    Command4.Enabled = True
    Command5.Enabled = True
    Command2.Enabled = False
    Command3.Enabled = False
  End If
    
End Sub

Private Sub Command3_Click()
    Dim i As Integer
    Dim intTemp As Integer           '保存list1中的Item数量
        
    i = 0
    intTemp = List1.ListCount - 1
    Do While i <= intTemp
      List2.AddItem List1.List(i)
      List1.RemoveItem i
      intTemp = intTemp - 1
    Loop
    
    Command4.Enabled = True
    Command5.Enabled = True
    
    Command2.Enabled = False
    Command3.Enabled = False
    
End Sub

Private Sub Command4_Click()
  Dim i As Integer
  Dim intTemp As Integer
  Dim intTempBak As Integer
  
  i = 0
  intTemp = List2.ListCount - 1
  intTempBak = List2.ListCount - 1
  Do While i <= intTemp
    If List2.Selected(i) Then
      List1.AddItem List2.List(i)
      List2.RemoveItem i
      intTemp = intTemp - 1
    Else
      i = i + 1
    End If
  Loop
  
  If intTemp <> intTempBak Then
    Command2.Enabled = True
    Command3.Enabled = True
  End If
  
  '如果将List2中的所有Item选定,移到List1,则4个按钮的状态
  If i = 0 Then
    Command2.Enabled = True
    Command3.Enabled = True
    Command4.Enabled = False
    Command5.Enabled = False
  
  End If

End Sub

Private Sub Command5_Click()
    Dim i As Integer
    Dim intTemp As Integer           '保存list2中的Item数量
        
    i = 0
    intTemp = List2.ListCount - 1
    Do While i <= intTemp
      List1.AddItem List2.List(i)
      List2.RemoveItem i
      intTemp = intTemp - 1
    Loop
    
    Command2.Enabled = True
    Command3.Enabled = True
    Command4.Enabled = False
    Command5.Enabled = False

End Sub

Private Sub Command7_Click()
   frm_date.Show 1
End Sub

Private Sub Form_Activate()
Combo1.SetFocus
End Sub

Private Sub Form_Load()
    Dim i As Integer
    Set mysem = New Cls_Sem
    SetWindow Me
    AlwaysOnTop Me, False
    Move (frm_main.Width - Me.Width) / 2, (frm_main.Height - Me.Height) / 2 - 800
            
    '查询学期编号
    mysem.QuerySemID
    If mysem.GetQrySemID.EOF = False Then
        Do Until mysem.GetQrySemID.EOF
            Combo1.AddItem Trim(mysem.GetQrySemID.Fields(0))
            mysem.GetQrySemID.MoveNext
        Loop
    End If
    Set mysem = Nothing
    
    Combo3.AddItem "上机"
    Combo3.AddItem "平时"
    Combo3.AddItem "笔试"
    '设置各控件的初始状态
    State
        
End Sub

Private Sub List1_DblClick()
    command2_Click
End Sub

Private Sub List2_DblClick()
    Command4_Click
End Sub

Private Sub XPButton2_Click()
    Unload Me
End Sub
Private Sub imgclose_Click()
    Unload Me
End Sub

Private Sub imglefttitle_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    DrawForms Me
End Sub

Private Sub imgtop_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    DrawForms Me
End Sub

Private Sub imgrighttitle_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
   DrawForms Me
End Sub

Private Sub State()
    '设置各控件的初始状态
    Combo1.Text = ""
    Combo2.Text = ""
    Combo3.Text = ""
    Combo4.Text = ""
    Label6.Caption = ""
    List1.Clear
    List2.Clear
    
    Combo2.Enabled = False
    Combo4.Enabled = False
    Command2.Enabled = False
    Command3.Enabled = False
    Command4.Enabled = False
    Command5.Enabled = False
          
End Sub