main.frm

学生考试管理系统

VERSION 5.00
Begin VB.Form main 
   Caption         =   "考务管理系统"
   ClientHeight    =   3090
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3090
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin VB.Menu menu1 
      Caption         =   "考生报名管理"
      Begin VB.Menu menu11 
         Caption         =   "报名登记"
      End
      Begin VB.Menu spc11 
         Caption         =   "-"
      End
      Begin VB.Menu menu12 
         Caption         =   "产生准考证号"
      End
      Begin VB.Menu menu13 
         Caption         =   "打印准考证号"
      End
      Begin VB.Menu spc12 
         Caption         =   "-"
      End
      Begin VB.Menu menu14 
         Caption         =   "退出"
      End
   End
   Begin VB.Menu menu2 
      Caption         =   "考生成绩管理"
      Begin VB.Menu menu21 
         Caption         =   "成绩录入"
      End
      Begin VB.Menu menu22 
         Caption         =   "合格标准录入"
      End
      Begin VB.Menu menu23 
         Caption         =   "录取考生"
      End
      Begin VB.Menu menu24 
         Caption         =   "打印成绩单"
      End
      Begin VB.Menu menu25 
         Caption         =   "打印录取通知书"
      End
   End
   Begin VB.Menu menu3 
      Caption         =   "系统维护"
      Begin VB.Menu menu31 
         Caption         =   "设置系统用户"
      End
      Begin VB.Menu spc31 
         Caption         =   "-"
      End
      Begin VB.Menu menu32 
         Caption         =   "系统初始化"
      End
   End
End
Attribute VB_Name = "main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub form_load()
 Dim n As Integer
End Sub

Private Sub mdiform_load()
 If Not userlevel = "系统管理员" Then
   menu11.Enabled = False
   menu12.Enabled = False
   menu13.Enabled = False
   menu21.Enabled = False
   menu31.Enabled = False
   menu32.Enabled = False
End If
End Sub

Private Sub menu11_Click()
  edks.Show vbModal
  'edks.Show
  
End Sub

Private Sub menu12_Click()
  If MsgBox("准考证号应在所有考生报名后产生,真的要产生准考证号吗?", vbYesNo, "操作确认") = vbYes Then
  Dim rs As ADODB.Recordset
  Set rs = exesql(" select * from ksb")
  n = 1
  If rs.RecordCount > 0 Then
   rs.MoveFirst
   Do While Not rs.EOF
     rs.Fields("准考证号") = Trim(Str(Year(Date))) & trans(Trim(Str(n)))
     n = n + 1
     rs.MoveNext
   Loop
   rs.UpdateBatch
  Else
   MsgBox "不存在任何考生报名记录", vbOKOnly, "信息提示"
 End If
 rs.Close
 MsgBox "所有考生的准考证号生成完毕", vbOKOnly, "信息提示"
 End If
End Sub

Public Function trans(ByVal no As String)
 If Len(no) = 1 Then
   trans = "00000" + no
 ElseIf Len(no) = 2 Then
   trans = "0000" + no
 ElseIf Len(no) = 3 Then
   trans = "000" + no
 ElseIf Len(no) = 4 Then
   trans = "00" + no
 ElseIf Len(no) = 5 Then
   trans = "0" + no
 ElseIf Len(no) = 6 Then
   trans = no
 End If
End Function

Private Sub menu13_Click()
  quks.Show vbModal
End Sub

Private Sub menu14_Click()
 End
End Sub

Private Sub menu21_Click()
edde.Show vbModal
End Sub

Private Sub menu22_Click()
 edbj.Show vbModal
End Sub

Private Sub menu23_Click()
 Dim rs As ADODB.Recordset
 Dim sql As String
 Dim de1 As Integer
 Dim de2 As Integer
 Dim de3 As Integer
 Dim de4 As Integer
 Dim de5 As Integer
 Dim n As Integer
 If MsgBox("真的要通过合格标准录取考生吗?", vbYesNo, "确认") = vbYes Then
   sql = "select * from bzb"
   Set rs = exesql(sql)
   If rs.RecordCount = 0 Then
     MsgBox "尚未输入合格标准，不能录取", vbOKOnly, "信息提示"
   Else
   de1 = rs.Fields("数学")  '获得最低分数级
   de1 = rs.Fields("外语")
   de1 = rs.Fields("政治")
   de1 = rs.Fields("专业课")
   de1 = rs.Fields("总分")
  End If
  rs.Close
  sql = "select * from ksb"
  Set rs = exesql(sql)
  If rs.RecordCount = 0 Then
    MsgBox "尚未输入考生，不能录取", vbOKOnly, "信息提示"
  Else
    rs.MoveFirst
    n = 0
    Do While Not rs.EOF
      If rs.Fields("数学") >= de1 And rs.Fields("外语") >= de2 And rs.Fields("政治") >= de3 _
      And rs.Fields("专业课") >= de4 And rs.Fields("总分") >= de5 Then
      rs.Fields("合格否") = True
      n = n + 1
      rs.MoveNext
    Loop
    If n > 0 Then rs.UpdateBatch
    MsgBox "考生录取完毕,共录取" + Trim(Str$(n)) + "名考生", vbOKOnly, "信息提示"
    End If
    rs.Close
 End If
End Sub

Private Sub menu24_Click()
  prde.Show vbModal
End Sub

Private Sub menu25_Click()
  prtz.Show vbModal
End Sub

Private Sub menu31_Click()
  setuser.Show vbModal
End Sub

Private Sub menu32_Click()
  If MsgBox("本功能要清除系统中所有数据,真的初始化吗?", vbYesNo, "确认初始化操作") = vbYes Then
  Call deldata("ksb")
  Call deldata("bzb")
  Call deldata("oper")
  MsgBox "系统初始化完毕,下次只能以1234/1234(用户名/口令)进入本系统", vbOKOnly, "信息提示"
  End If
End Sub