学生档案管理系统的设计与开发 - 图文(6)

江西蓝天学院毕业论文

If qxstr = \

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

Form1.ZOrder (0) End Sub

Private Sub cjadd_Click() fenshumodi = False qxstr = Executeqx(4)

If qxstr = \

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

Private Sub cjbrowse_Click() qxstr = Executeqx(4)

23

江西蓝天学院毕业论文

If qxstr = \

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

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

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

i = SetWindowPos(Form4.hwnd, -1, 0, 0, 0, 0, 3) End Sub

Private Sub classapp_Click() qxstr = Executeqx(2)

If qxstr = \

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

24

江西蓝天学院毕业论文

\警告\ Exit Sub End If

Formclass1.Show classmodi = False Formclass1.classload Formclass1.ZOrder (0) End Sub

Public Sub clabrowse() txtsql = \Formclass2.ZOrder (0)

Formclass2.Caption = \浏览班级设置\Formclass2.classshowtitle Formclass2.classshowdata End Sub

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

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

25

江西蓝天学院毕业论文

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

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

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

26

江西蓝天学院毕业论文

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(\对不起，你没有管理本功能的权限，请与管理员联系！\警告\ Exit Sub End If Frmjf1.Show Frmjf1.ZOrder 0 End Sub

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

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

27