qxstr = "false" Then
ss = MsgBox("对不起,你没有管理本功能的权限,请与管理员联系!", vbInformation + vbOKOnly, " 警告")
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 = "false" Or qxstr = "readonly" Then
ss = MsgBox("对不起,你没有管理本功能的权限,请与管理员联系!", vbInformation + vbOKOnly, " 警告")
Exit Sub
End If
Frmjf1.Show
Frmjf1.ZOrder 0
End Sub
Private Sub jiaofeibrowse_Click()
qxstr = Executeqx(3)
If qxstr = "false" Then
ss = MsgBox("对不起,你没有管理本功能的权限,请与管理员联系!", vbInformation + vbOKOnly, " 警告")
Exit Sub
End If
frmjf2.Show
frmjf2.ZOrder 0
End Sub
Private Sub jiaofeifind_Click()
qxstr = Executeqx(3)
I
上一篇:
教务管理系统完整论文
下一篇:
高校学生二手物品交易系统设计与实现