江西蓝天学院毕业论文
Exit Sub End If frmjf2.Show frmjf2.ZOrder 0 End Sub
Private Sub jiaofeifind_Click() qxstr = Executeqx(3) If qxstr = \
ss = MsgBox(\对不起，你没有管理本功能的权限，请与管理员联系！\警告\ Exit Sub End If Frmjf4.Show End Sub
Private Sub jibenkecheng_Click() qxstr = Executeqx(4) If qxstr = \
ss = MsgBox(\对不起，你没有管理本功能的权限，请与管理员联系！\警告\ Exit Sub End If frmjiben.Show frmjiben.ZOrder 0
28
江西蓝天学院毕业论文
End Sub
Private Sub leixing_Click() qxstr = Executeqx(4) If qxstr = \
ss = MsgBox(\对不起，你没有管理本功能的权限，请与管理员联系！\警告\ Exit Sub End If
Frmleixing.Show Frmleixing.ZOrder 0 End Sub
Private Sub liulan_Click() qxstr = Executeqx(2) If qxstr = \
ss = MsgBox(\对不起，你没有管理本功能的权限，请与管理员联系！\警告\ Exit Sub End If find = False Form3.Show End Sub
Private Sub MDIForm_Load()
29
江西蓝天学院毕业论文
'username = \
DataEnv1.Connection1.ConnectionString = connstring StatusBar1.Panels(2).Text = Now
StatusBar1.Panels(3).Text = \当前操作员： \Dim aa As String
Select Case Executeqx(1) Case \ aa = \超级管理员\Case \ aa = \只读管理员\Case Else
aa = \普通管理员\End Select
StatusBar1.Panels(4).Text = \状态： \End Sub
Private Sub useradd_Click() qxstr = Executeqx(1)
If qxstr = \
ss = MsgBox(\对不起，你没有管理本功能的权限，请与管理员联系！\警告\ Exit Sub End If frmuser1.Show frmuser1.ZOrder 0
30
江西蓝天学院毕业论文
End Sub
Private Sub usermodi_Click() qxstr = Executeqx(1) If qxstr = \
ss = MsgBox(\对不起，你没有管理本功能的权限，请与管理员联系！\警告\ Exit Sub End If frmcpass.Show End Sub
Private Sub xuefeiadd_Click() qxstr = Executeqx(3)
If qxstr = \
ss = MsgBox(\对不起，你没有管理本功能的权限，请与管理员联系！\警告\ Exit Sub End If
xuefeimodi = False Dim i As Integer For i = 0 To 3
frmxuefei1.Combo1(i).Enabled = True Next i
31
江西蓝天学院毕业论文
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 = \学期 desc, 年级 desc,专业 desc\
Frmxuefei2.ZOrder (0)
Frmxuefei2.Caption = \浏览学费设置\Frmxuefei2.xuefeishowtitle Frmxuefei2.xuefeishowdata End Sub
Private Sub xuefeibrowse_Click() qxstr = Executeqx(3) If qxstr = \
ss = MsgBox(\对不起，你没有管理本功能的权限，请与管理员联系！\警告\ Exit Sub End If
32