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
本模块是本系统的安全性设置模块，根据学校不同部门以及不同使用人员对本系统的要求和需要，从而实行了分级管理，对用户的权限和类别进行了分类管理。
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
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] 下一页