main.frm

考务管理是学校考务管理的重要部分

VERSION 5.00
Begin VB.Form main 
   BackColor       =   &H8000000E&
   Caption         =   "考务管理系统"
   ClientHeight    =   3090
   ClientLeft      =   165
   ClientTop       =   555
   ClientWidth     =   4680
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   ScaleHeight     =   3090
   ScaleWidth      =   4680
   StartUpPosition =   2  '屏幕中心
   Begin VB.Label Label2 
      BackColor       =   &H80000009&
      Caption         =   "艺林工作室制作"
      BeginProperty Font 
         Name            =   "华文中宋"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   2040
      TabIndex        =   1
      Top             =   2160
      Width           =   1335
   End
   Begin VB.Label Label1 
      BackColor       =   &H80000009&
      Caption         =   "考务管理系统"
      BeginProperty Font 
         Name            =   "华文行楷"
         Size            =   18
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   1200
      TabIndex        =   0
      Top             =   720
      Width           =   2295
   End
   Begin VB.Menu menu1 
      Caption         =   "考生报名管理"
      Begin VB.Menu menu11 
         Caption         =   "报名登记"
         Index           =   0
      End
      Begin VB.Menu spc11 
         Caption         =   "-"
         Index           =   1
      End
      Begin VB.Menu menu12 
         Caption         =   "产生准考证号"
         Index           =   2
      End
      Begin VB.Menu spc12 
         Caption         =   "-"
         Index           =   3
      End
      Begin VB.Menu menu13 
         Caption         =   "打印准考证"
         Index           =   4
      End
      Begin VB.Menu spc13 
         Caption         =   "-"
         Index           =   5
      End
      Begin VB.Menu menu14 
         Caption         =   "退出"
         Index           =   6
      End
   End
   Begin VB.Menu menu2 
      Caption         =   "考生成绩管理"
      Begin VB.Menu menu21 
         Caption         =   "成绩录入"
         Index           =   0
      End
      Begin VB.Menu spc21 
         Caption         =   "-"
         Index           =   1
      End
      Begin VB.Menu menu22 
         Caption         =   "合格证录入"
         Index           =   2
      End
      Begin VB.Menu spc22 
         Caption         =   "-"
         Index           =   3
      End
      Begin VB.Menu menu23 
         Caption         =   "录取考生"
         Index           =   4
      End
      Begin VB.Menu spc23 
         Caption         =   "-"
         Index           =   5
      End
      Begin VB.Menu menu24 
         Caption         =   "打印成绩单"
         Index           =   6
      End
      Begin VB.Menu spc24 
         Caption         =   "-"
         Index           =   7
      End
      Begin VB.Menu menu25 
         Caption         =   "打印录取通知书"
         Index           =   8
      End
   End
   Begin VB.Menu menu3 
      Caption         =   "系统维护"
      Begin VB.Menu menu31 
         Caption         =   "设置系统用户"
         Index           =   0
      End
      Begin VB.Menu spc31 
         Caption         =   "-"
         Index           =   1
      End
      Begin VB.Menu menu32 
         Caption         =   "系统初始化"
         Index           =   2
      End
   End
End
Attribute VB_Name = "main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim n As Integer

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(Index As Integer)
    edks.Show vbModal
End Sub

Private Sub menu12_Click(Index As Integer)
    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)   '将数字串转化为固定长度为6的串
    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
    End If
End Function

Private Sub menu13_Click(Index As Integer)
    quks.Show vbModal
End Sub

Private Sub menu14_Click(Index As Integer)
    End
End Sub

Private Sub menu21_Click(Index As Integer)
    edde.Show vbModal
End Sub

Private Sub menu22_Click(Index As Integer)
    edbj.Show vbModal
End Sub

Private Sub menu23_Click(Index As Integer)
    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
    If MsgBox("真的要通过合格标准录取考生吗？", vbYesNo, "确认") = vbYes Then
        sql = "select * from bzb"
        Set rs = exesql(sql)
        If rs.RecordCount = 0 Then
            MsgBox "尚未输入合格标准，不能录取", vbOKOnly, "信息提示"
        Else
            de1 = rs.Fields("数学") '获取最低分数级
            de2 = rs.Fields("外语")
            de3 = rs.Fields("政治")
            de4 = rs.Fields("专业课")
            de5 = 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
                End If
                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(Index As Integer)
    prde.Show vbModal
End Sub

Private Sub menu25_Click(Index As Integer)
    prtz.Show vbModal
End Sub

Private Sub menu31_Click(Index As Integer)
    setuser.Show vbModal
End Sub

Private Sub menu32_Click(Index As Integer)
    If MsgBox("本功能要清除系统中所有数据，真的初始化吗？", vbYesNo, _
                "确认初始化操作") = vbYes Then
        Call deldata("ksb")     '删除ksb表纪录
        Call deldata("bzb")     '删除bzb表纪录
        Call deldata("oper")    '删除oper表纪录，并添加一个默认的用户记录
        MsgBox "系统初始化完毕，下次只能以1234/1234（用户名/口令）进入本系统", _
        vbOKOnly, "信息提示"
    End If
End Sub