VERSION 5.00
Begin VB.MDIForm menu 
   BackColor       =   &H8000000C&
   Caption         =   "考務管理系統"
   ClientHeight    =   3975
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   6390
   LinkTopic       =   "MDIForm1"
   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 spc12 
         Caption         =   "-"
      End
      Begin VB.Menu menu13 
         Caption         =   "打印準考證"
      End
      Begin VB.Menu spc13 
         Caption         =   "-"
      End
      Begin VB.Menu menu14 
         Caption         =   "退出"
         Shortcut        =   ^X
      End
   End
   Begin VB.Menu menu2 
      Caption         =   "考生成績管理"
      Begin VB.Menu menu21 
         Caption         =   "成績錄入"
      End
      Begin VB.Menu spc21 
         Caption         =   "-"
      End
      Begin VB.Menu menu22 
         Caption         =   "合格標準錄入"
      End
      Begin VB.Menu spc22 
         Caption         =   "-"
      End
      Begin VB.Menu menu23 
         Caption         =   "錄取考生"
      End
      Begin VB.Menu spc23 
         Caption         =   "-"
      End
      Begin VB.Menu menu24 
         Caption         =   "打印成績單"
      End
      Begin VB.Menu spc24 
         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 = "menu"
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()
  edks.Show vbModal
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)  '將數字串轉化為固定長度為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 = "0" + no
  ElseIf Len(no) = 5 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("數學")  '獲取最低分數級
       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
          Else
             rs.Fields("合格否") = False
          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()
  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