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

江西蓝天学院毕业论文

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

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库学生档案管理系统的设计与开发 - 图文(7)在线全文阅读。