menu.frm

SQL Server 2000应用系统开发教案例 学习SQL Server 2000 的好东西！~

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