毕业论文论文范文课程设计实践报告法律论文英语论文教学论文医学论文农学论文艺术论文行政论文管理论文计算机安全
您现在的位置: 毕业论文 >> 课程设计 >> 正文

VB学生信息管理系统 第6页

更新时间:2008-1-15:  来源:毕业论文

VB学生信息管理系统 第6页

Private Sub classbrowse_Click()

qxstr = Executeqx(2)

If qxstr = "false" Then

   ss = MsgBox("对不起,你没有管理本功能的权限,请与管理员联系!", vbInformation + vbOKOnly, " 警告")

 Exit Sub

End If

Formclass2.Show

End Sub

 

Private Sub classfind_Click()

qxstr = Executeqx(2)

If qxstr = "false" Then

   ss = MsgBox("对不起,你没有管理本功能的权限,请与管理员联系!", vbInformation + vbOKOnly, " 警告")

 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 = "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)

If qxstr = "false" Then

   ss = MsgBox("对不起,你没有管理本功能的权限,请与管理员联系!", vbInformation + vbOKOnly, " 警告")

 Exit Sub

End If

Frmjf4.Show

End Sub

 

Private Sub jibenkecheng_Click()

qxstr = Executeqx(4)

If qxstr = "false" Then

   ss = MsgBox("对不起,你没有管理本功能的权限,请与管理员联系!", vbInformation + vbOKOnly, " 警告")

 Exit Sub

End If

frmjiben.Show

frmjiben.ZOrder 0

End Sub

 

 

 

Private Sub leixing_Click()

qxstr = Executeqx(4)

If qxstr = "false" Then

   ss = MsgBox("对不起,你没有管理本功能的权限,请与管理员联系!", vbInformation + vbOKOnly, " 警告")

 Exit Sub

End If

Frmleixing.Show

Frmleixing.ZOrder 0

End Sub

 

Private Sub liulan_Click()

qxstr = Executeqx(2)

If qxstr = "false" Then

   ss = MsgBox("对不起,你没有管理本功能的权限,请与管理员联系!", vbInformation + vbOKOnly, " 警告")

 Exit Sub

End If

  find = False

  Form3.Show

End Sub

 

Private Sub MDIForm_Load()

'username = "0001"

DataEnv1.Connection1.ConnectionString = connstring

StatusBar1.Panels(2).Text = Now

StatusBar1.Panels(3).Text = "当前操作员:    " & username

Dim aa As String

Select Case Executeqx(1)

Case "admin"

  aa = "超级管理员"

Case "readonly"

  aa = "只读管理员"

Case Else

  aa = "普通管理员"

End Select

StatusBar1.Panels(4).Text = "状态:   " & aa

End Sub

 

Private Sub useradd_Click()

qxstr = Executeqx(1)

If qxstr = "false" Or qxstr = "readonly" Then

   ss = MsgBox("对不起,你没有管理本功能的权限,请与管理员联系!", vbInformation + vbOKOnly, " 警告")

 Exit Sub

End If

frmuser1.Show

frmuser1.ZOrder 0

End Sub

 

Private Sub usermodi_Click()

qxstr = Executeqx(1)

If qxstr = "false" Then

   ss = MsgBox("对不起,你没有管理本功能的权限,请与管理员联系!", vbInformation + vbOKOnly, " 警告")

 Exit Sub 

End If

frmcpass.Show

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] 下一页

VB学生信息管理系统 第6页下载如图片无法显示或论文不完整,请联系qq752018766
设为首页 | 联系站长 | 友情链接 | 网站地图 |

copyright©751com.cn 辣文论文网 严禁转载
如果本毕业论文网损害了您的利益或者侵犯了您的权利,请及时联系,我们一定会及时改正。