VB学生信息管理系统

VB学生信息管理系统
End Sub
 
Private Sub xuefeiadd_Click()
qxstr = Executeqx(3)
If qxstr = "false" Or qxstr = "readonly" Then
   ss = MsgBox("对不起，你没有管理本功能的权限，请与管理员联系！", vbInformation + vbOKOnly, " 警告")
 Exit Sub
End If
 xuefeimodi = False
 Dim i As Integer
  For i = 0 To 3
 frmxuefei1.Combo1(i).Enabled = True
  Next i
  Me.Caption = "添加班级设置"
 For i = 0 To 3
  frmxuefei1.Combo1(i).Text = ""
  Next i
    frmxuefei1.Text1.Text = ""
  frmxuefei1.Show
  frmxuefei1.ZOrder 0
End Sub
 
Public Sub xfbrowse()
txtsql = "select * from xuefei order by 学期 desc, 年级 desc,专业 desc"
Frmxuefei2.ZOrder (0)
Frmxuefei2.Caption = "浏览学费设置"
Frmxuefei2.xuefeishowtitle
Frmxuefei2.xuefeishowdata
End Sub
 
Private Sub xuefeibrowse_Click()
qxstr = Executeqx(3)
If qxstr = "false" Then
   ss = MsgBox("对不起，你没有管理本功能的权限，请与管理员联系！", vbInformation + vbOKOnly, " 警告")
 Exit Sub
End If
  Frmxuefei2.Show
End Sub
 
Private Sub xuefeifind_Click()
qxstr = Executeqx(3)
If qxstr = "false" Then
   ss = MsgBox("对不起，你没有管理本功能的权限，请与管理员联系！", vbInformation + vbOKOnly, " 警告")
 Exit Sub
End If
 Frmxuefei3.Show
   Frmxuefei3.ZOrder (0)
    i = SetWindowPos(Frmxuefei3.hwnd, -1, 0, 0, 0, 0, 3)
End Sub
 
 
4．3用户管理模块：
本模块是本系统的安全性设置模块，根据学校不同部门以及不同使用人员对本系统的要求和需要，从而实行了分级管理，对用户的权限和类别进行了分类管理。
 

Private Sub Command1_Click()
If Trim(Text1(0).Text) = "" Then
 MsgBox "用户名不能为空！", vbExclamation + vbOKOnly, "警告"
 Text1(0).SetFocus
 Exit Sub
End If
If Trim(Text1(1).Text) = "" Then
 MsgBox "密码不能为空！", vbExclamation + vbOKOnly, "警告"
 Text1(1).SetFocus
 Exit Sub
End If
If Trim(Text1(2).Text) = "" Then
 MsgBox "确认密码不能为空！", vbExclamation + vbOKOnly, "警告"
 Text1(2).SetFocus
 Exit Sub
End If
If Trim(Text1(1).Text) <> Trim(Text1(2).Text) Then
 MsgBox "确认密码不正确！", vbExclamation + vbOKOnly, "警告"
 Text1(2).SetFocus
 Exit Sub
End If
Dim aa As Integer
aa = 0
If Option1(2).Value = True Then
 For i = 0 To 3
 If Check1(i).Value = 1 Then
   aa = 1
   Exit For
 End If
Next i
If aa = 0 Then
 MsgBox " 普通用户至少要有一项权限！", vbExclamation + vbOKOnly, "警告"
Exit Sub
End If
End If
 
Dim mrc As ADODB.Recordset
txtsql = "select * from use where username='" & Trim(Text1(0).Text) & "'"
Set mrc = ExecuteSQL(txtsql)
If mrc.EOF = False Then
  MsgBox " 已存在该用户！", vbExclamation + vbOKOnly, "警告"
  Text1(0).SetFocus
  Text1(0).SelStart = 0
  Text1(0).SelLength = Len(Text1(0).Text)
  Exit Sub
End If
txtsql = "select * from use"
Set mrc = ExecuteSQL(txtsql)
mrc.AddNew
  mrc.Fields(0) = Trim(Text1(0).Text)
  mrc.Fields(1) = Trim(Text1(1).Text)
For i = 0 To 2
  If Option1(i).Value = True Then
    Select Case i
    Case 0
    mrc.Fields("admin") = "y"
    Case 1
      mrc.Fields("readonly") = "y"
    Case 2
      For j = 0 To 3
         If Check1(j).Value = 1 Then
          Select Case j
            Case 0
              mrc.Fields("qx1") = "y"
              Case 1
                 mrc.Fields("qx2") = "y"
               Case 2
                mrc.Fields("qx3") = "y"
               Case 3
               mrc.Fields("qx4") = "y"
           End Select
          End If
        Next j
    End Select