form14.frm

主要用于学校机房考试,主要包括选择题,问答题,WORD操作题,WINDOWS操作题.学生做完后,可立即得到考试分数.

End Sub

Private Sub ImMin_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Immin.Picture = ImMin2.Picture
End Sub
Private Sub ImMin_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
If Immin.Tag = "" Then
Immin.Picture = ImMin1.Picture
Immin.Tag = "1"
End If
End Sub
Private Sub ImMin_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
Immin.Picture = LoadPicture()
Immin.Tag = ""
End Sub


Private Sub Imclose_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Imclose.Picture = ImClose2.Picture
End Sub
Private Sub Imclose_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
If Imclose.Tag = "" Then
Imclose.Picture = ImClose1.Picture
Imclose.Tag = "1"
End If
End Sub
Private Sub Imclose_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
Imclose.Picture = LoadPicture()
Imclose.Tag = ""
End Sub

Private Sub Immax_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Me.WindowState = 0 Then Immax.Picture = Immax2.Picture
If Me.WindowState = 2 Then Immax.Picture = IMus2.Picture
End Sub
Private Sub Immax_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
If Immax.Tag = "" Then
If Me.WindowState = 0 Then Immax.Picture = Immax1.Picture
If Me.WindowState = 2 Then Immax.Picture = IMus1.Picture
Immax.Tag = "1"
End If
End Sub
Private Sub Immax_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
Immax.Picture = LoadPicture()
Immax.Tag = ""
End Sub

Private Sub pbottom_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
Pbottom.Tag = ""
End Sub
Private Sub pbottom_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Pbottom.Tag = "1"
End Sub
Private Sub pbottom_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
On Error Resume Next
If Pbottom.Tag <> "" Then
Dim pos As POINTAPI
GetCursorPos pos
gg = pos.y * 15 - Me.TOp
If gg > 1500 Then Me.Height = gg '获得鼠标位置，用来改变窗体大小，这可是一个好办法哟
End If

End Sub

Private Sub Pright_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
Pright.Tag = ""
End Sub
Private Sub Pright_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Pright.Tag = "1"
End Sub
Private Sub Pright_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
On Error Resume Next
If Pright.Tag <> "" Then
Dim pos As POINTAPI
GetCursorPos pos
gg = pos.x * 15 - Me.Left
If gg > 2500 Then Me.Width = gg
End If

End Sub


Private Sub Pjiao_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
Pjiao.Tag = ""
End Sub
Private Sub Pjiao_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Pjiao.Tag = "1"
End Sub
Private Sub Pjiao_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
On Error Resume Next
If Pjiao.Tag <> "" Then
Dim pos As POINTAPI
GetCursorPos pos
gg = pos.x * 15 - Me.Left
gg2 = pos.y * 15 - Me.TOp
If gg > 2500 Then Me.Width = gg
If gg2 > 1500 Then Me.Height = gg2

End If

End Sub

Private Sub ROButton1_Click()
  Data1.Recordset.MoveFirst
Timer1.Interval = 1
ROButton1.Enabled = False
ROButton2.Enabled = True
ROButton6.Enabled = True
ROButton7.Enabled = True

End Sub

Private Sub ROButton2_Click()
 Data1.Recordset.MoveFirst
Timer2.Interval = 1
ROButton2.Enabled = False
ROButton1.Enabled = True
ROButton6.Enabled = True
ROButton7.Enabled = True
End Sub

Private Sub ROButton3_Click()
If ROButton1.Enabled = False And ROButton2.Enabled = True And ROButton6.Enabled = True And ROButton7.Enabled = True Then
Timer1.Interval = 1
Timer2.Interval = 0
Timer3.Interval = 0
Timer4.Interval = 0
End If
If ROButton1.Enabled = True And ROButton2.Enabled = False And ROButton6.Enabled = True And ROButton7.Enabled = True Then
Timer2.Interval = 1
Timer1.Interval = 0
Timer3.Interval = 0
Timer4.Interval = 0
End If
If ROButton1.Enabled = True And ROButton2.Enabled = True And ROButton6.Enabled = False And ROButton7.Enabled = True Then
Timer2.Interval = 0
Timer1.Interval = 0
Timer3.Interval = 1
Timer4.Interval = 0
End If
If ROButton1.Enabled = True And ROButton2.Enabled = True And ROButton6.Enabled = True And ROButton7.Enabled = False Then
Timer2.Interval = 0
Timer1.Interval = 0
Timer3.Interval = 0
Timer4.Interval = 1
End If
End Sub

Private Sub ROButton4_Click()
i = 1
ROButton1.Enabled = True
ROButton2.Enabled = True
ROButton6.Enabled = True
ROButton7.Enabled = True

End Sub

Private Sub ROButton5_Click()
j = 1
ROButton1.Enabled = True
ROButton2.Enabled = True
ROButton6.Enabled = True
ROButton7.Enabled = True

End Sub

Private Sub DBCombo1_Click(Area As Integer)
If Area = 0 Then
Text3.Text = ""
Else
Text3.Text = DBCombo1.Text
End If
If Text3.Text = "" Then
Data1.RecordSource = "学生情况表"
Else
Data1.RecordSource = "SELECT 照片号,姓名,座号 FROM 学生情况表 WHERE " & "毕业学校" & " = " & " '" & Text3.Text & "'"
Data1.Refresh
End If
ROButton8.Enabled = True
End Sub

Private Sub DBGrid1_HeadClick(ByVal ColIndex As Integer)
Select Case ColIndex
Case 0
If ROButton8.Enabled = False Then
 If stre = True Then
          Data1.RecordSource = "SELECT 照片号,姓名,座号 FROM 学生情况表 ORDER BY 照片号"
          Data1.Refresh
          stre = False
       Else
          Data1.RecordSource = "SELECT 照片号,姓名,座号 FROM 学生情况表 ORDER BY 照片号 desc"
          Data1.Refresh
          stre = True
        End If
 Else
       If stre = True Then
          Data1.RecordSource = "SELECT 照片号,姓名,座号 FROM 学生情况表 WHERE " & "毕业学校" & " = " & " '" & Text3.Text & "'" & "ORDER BY 照片号"
          Data1.Refresh
          stre = False
       Else
          Data1.RecordSource = "SELECT 照片号,姓名,座号 FROM 学生情况表 WHERE " & "毕业学校" & " = " & " '" & Text3.Text & "'" & " ORDER BY 照片号 desc"
          Data1.Refresh
          stre = True
        End If
  End If
Case 1
If ROButton8.Enabled = False Then
 If stre = True Then
          Data1.RecordSource = "SELECT 照片号,姓名,座号 FROM 学生情况表 ORDER BY 姓名"
          Data1.Refresh
          stre = False
       Else
          Data1.RecordSource = "SELECT 照片号,姓名,座号 FROM 学生情况表 ORDER BY 姓名 desc"
          Data1.Refresh
          stre = True
        End If
Else
        If stre = True Then
          Data1.RecordSource = "SELECT 照片号,姓名,座号 FROM 学生情况表  WHERE " & "毕业学校" & " = " & " '" & Text3.Text & "'" & "ORDER BY 姓名"
          Data1.Refresh
          stre = False
       Else
          Data1.RecordSource = "SELECT 照片号,姓名,座号 FROM 学生情况表  WHERE " & "毕业学校" & " = " & " '" & Text3.Text & "'" & "ORDER BY 姓名 desc"
          Data1.Refresh
          stre = True
        End If
End If
Case 2
If ROButton8.Enabled = False Then
 If stre = True Then
          Data1.RecordSource = "SELECT 照片号,姓名,座号 FROM 学生情况表 ORDER BY 座号"
          Data1.Refresh
          stre = False
       Else
          Data1.RecordSource = "SELECT 照片号,姓名,座号 FROM 学生情况表 ORDER BY 座号 desc"
          Data1.Refresh
          stre = True
        End If
Else
 If stre = True Then
          Data1.RecordSource = "SELECT 照片号,姓名,座号 FROM 学生情况表 WHERE " & "毕业学校" & " = " & " '" & Text3.Text & "'" & " ORDER BY 座号"
          Data1.Refresh
          stre = False
       Else
          Data1.RecordSource = "SELECT 照片号,姓名,座号 FROM 学生情况表 WHERE " & "毕业学校" & " = " & " '" & Text3.Text & "'" & " ORDER BY 座号 desc"
          Data1.Refresh
          stre = True
        End If
End If
End Select
End Sub

Private Sub Form_Load()
On Error Resume Next
i = 1
j = 1
m = 2
s = 3
d = 4
Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2
Data1.DatabaseName = App.Path + "\" + "teacher.mdb"
Data1.RecordSource = "SELECT 照片号,姓名,座号 FROM 学生情况表 "
Data2.DatabaseName = App.Path + "\" + "teacher.mdb"
Data2.RecordSource = "毕业学校"
Text1.Locked = True
Text4.Locked = True
Text6.Locked = True
Text1.BackColor = &HE0E0E0
Text4.BackColor = &HE0E0E0
Text6.BackColor = &HE0E0E0
End Sub

Private Sub ROButton8_Click()
Data1.RecordSource = "SELECT 照片号,姓名,座号 FROM 学生情况表 "
Data1.Refresh
ROButton8.Enabled = False
End Sub
Private Sub Timer1_Timer()
Dim renshu As Integer
renshu = Val(Trim(Text5.Text))
If Data1.Recordset.EOF Then
   MsgBox DBCombo1.Text & "已结束，请选择其它学校。", vbOKOnly, "选校了~~..."
   Timer1.Interval = 0
Else
   If j <= renshu Then
       Text2.Text = Str(i) & "场 " & Str(j) & "号"
       Text6.Text = Text2.Text
       j = j + 4
       If j > renshu Then sum = j - renshu
   Else
   
      i = i + 1
      j = sum
      Text2.Text = Str(i) & "场 " & Str(j) & "号"
       Text6.Text = Text2.Text
      j = j + 4
       MsgBox "开始换场，请输入本场总人数。", vbInformation, "要换场了...^_^"
      Text5.SetFocus
      Timer1.Interval = 0
    End If
Data1.Recordset.MoveNext
End If
End Sub

Private Sub Timer2_Timer()
Dim renshu As Integer
renshu = Val(Trim(Text5.Text))

If Data1.Recordset.EOF Then
   MsgBox DBCombo1.Text & "已结束，请选择其它学校。", vbOKOnly, "选校了~~..."
   Timer2.Interval = 0
Else
   If m <= renshu Then
      Text2.Text = Str(i) & "场 " & Str(m) & "号"
      Text6.Text = Text2.Text
      m = m + 4
      If m > renshu Then sum = m - renshu
   Else
      i = i + 1
      m = sum
      Text2.Text = Str(i) & "场 " & Str(m) & "号"
      Text6.Text = Text2.Text
      m = m + 4
       MsgBox "开始换场，请输入本场总人数。", vbInformation, "要换场了...^_^"
      Text5.SetFocus
      Timer2.Interval = 0
    End If
Data1.Recordset.MoveNext
End If
End Sub

Private Sub Timer3_Timer()
Dim renshu As Integer
renshu = Val(Trim(Text5.Text))

If Data1.Recordset.EOF Then
   MsgBox DBCombo1.Text & "已结束，请选择其它学校。", vbOKOnly, "选校了~~..."
   Timer3.Interval = 0
Else
   If s <= renshu Then
      Text2.Text = Str(i) & "场 " & Str(s) & "号"
      Text6.Text = Text2.Text
      s = s + 4
      If s > renshu Then sum = s - renshu
   Else
      i = i + 1
      s = sum
      Text2.Text = Str(i) & "场 " & Str(s) & "号"
      Text6.Text = Text2.Text
      s = s + 4
       MsgBox "开始换场，请输入本场总人数。", vbInformation, "要换场了...^_^"
      Text5.SetFocus
      Timer3.Interval = 0
    End If
Data1.Recordset.MoveNext
End If
End Sub

Private Sub Timer4_Timer()
Dim renshu As Integer
renshu = Val(Trim(Text5.Text))

If Data1.Recordset.EOF Then
   MsgBox DBCombo1.Text & "已结束，请选择其它学校。", vbOKOnly, "选校了~~..."
   Timer4.Interval = 0
Else
   If d <= renshu Then
      Text2.Text = Str(i) & "场 " & Str(d) & "号"
      Text6.Text = Text2.Text
      d = d + 4
      If d > renshu Then sum = d - renshu
   Else
      i = i + 1
      d = sum
      Text2.Text = Str(i) & "场 " & Str(d) & "号"
      Text6.Text = Text2.Text
      d = d + 4
       MsgBox "开始换场，请输入本场总人数。", vbInformation, "要换场了...^_^"
      Text5.SetFocus
      Timer4.Interval = 0
    End If
Data1.Recordset.MoveNext
End If
End Sub