学生管理信息系统 - 图文(7)

Private Sub classbrowse_Click() qxstr = Executeqx(2) If qxstr = \

ss = MsgBox(\对不起，你没有管理本功能的权限，请与管理员联系！\警告\ Exit Sub End If

Formclass2.Show End Sub

Private Sub classfind_Click() qxstr = Executeqx(2) If qxstr = \

ss = MsgBox(\对不起，你没有管理本功能的权限，请与管理员联系！\警告\ Exit Sub End If

Formclass3.Show Formclass3.ZOrder (0) End Sub

Private Sub find_Click() End Sub

27

Private Sub classkecheng_Click() qxstr = Executeqx(4) If qxstr = \

ss = MsgBox(\对不起，你没有管理本功能的权限，请与管理员联系！\警告\ Exit Sub End If

Frmclasskecheng1.Show Frmclasskecheng1.ZOrder End Sub

Private Sub denglu2_Click() Frmdenlu.Show Unload Me End Sub

Private Sub jiaofeiadd_Click() qxstr = Executeqx(3)

If qxstr = \

ss = MsgBox(\对不起，你没有管理本功能的权限，请与管理员联系！

28

\警告\ Exit Sub End If Frmjf1.Show Frmjf1.ZOrder 0 End Sub

Private Sub jiaofeibrowse_Click() qxstr = Executeqx(3) If qxstr = \

ss = MsgBox(\对不起，你没有管理本功能的权限，请与管理员联系！\警告\ 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

29

Frmjf4.Show End Sub

Private Sub jibenkecheng_Click() qxstr = Executeqx(4) If qxstr = \

ss = MsgBox(\对不起，你没有管理本功能的权限，请与管理员联系！\警告\ Exit Sub End If frmjiben.Show frmjiben.ZOrder 0 End Sub

Private Sub leixing_Click() qxstr = Executeqx(4) If qxstr = \

ss = MsgBox(\对不起，你没有管理本功能的权限，请与管理员联系！\警告\ Exit Sub End If

Frmleixing.Show Frmleixing.ZOrder 0

30

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() '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

31