|
EndSub PrivateSub classkecheng_Click() 内容来自论文无忧网 www.paper51.com
qxstr= Executeqx(4) http://www.paper51.com
Ifqxstr = "false" Then 内容来自论文无忧网 www.paper51.com ss = MsgBox("对不起，你没有管理本功能的权限，请与管理员联系！",vbInformation + vbOKOnly, " 警告") 内容来自www.paper51.com Exit Sub copyright paper51.com
EndIf copyright paper51.com Frmclasskecheng1.Show paper51.com Frmclasskecheng1.ZOrder paper51.com EndSub 内容来自www.paper51.com PrivateSub denglu2_Click() paper51.com Frmdenlu.Show http://www.paper51.com UnloadMe 内容来自www.paper51.com EndSub 内容来自www.paper51.com PrivateSub jiaofeiadd_Click() paper51.com qxstr= Executeqx(3) http://www.paper51.com Ifqxstr = "false" Or qxstr = "readonly" Then 内容来自论文无忧网 www.paper51.com
ss = MsgBox("对不起，你没有管理本功能的权限，请与管理员联系！",vbInformation + vbOKOnly, " 警告") paper51.com
Exit Sub paper51.com EndIf copyright paper51.com
Frmjf1.Show http://www.paper51.com Frmjf1.ZOrder0 内容来自论文无忧网 www.paper51.com EndSub http://www.paper51.com PrivateSub jiaofeibrowse_Click() 内容来自论文无忧网 www.paper51.com qxstr= Executeqx(3) 内容来自www.paper51.com Ifqxstr = "false" Then 内容来自论文无忧网 www.paper51.com ss = MsgBox("对不起，你没有管理本功能的权限，请与管理员联系！",vbInformation + vbOKOnly, " 警告") paper51.com Exit Sub http://www.paper51.com EndIf paper51.com frmjf2.Show 内容来自www.paper51.com frmjf2.ZOrder0 paper51.com EndSub copyright paper51.com PrivateSub jiaofeifind_Click() paper51.com qxstr= Executeqx(3) paper51.com Ifqxstr = "false" Then http://www.paper51.com ss = MsgBox("对不起，你没有管理本功能的权限，请与管理员联系！",vbInformation + vbOKOnly, " 警告") paper51.com Exit Sub copyright paper51.com EndIf 内容来自论文无忧网 www.paper51.com Frmjf4.Show 内容来自论文无忧网 www.paper51.com EndSub 内容来自论文无忧网 www.paper51.com PrivateSub jibenkecheng_Click() paper51.com qxstr= Executeqx(4) 内容来自www.paper51.com Ifqxstr = "false" Then paper51.com
ss = MsgBox("对不起，你没有管理本功能的权限，请与管理员联系！",vbInformation + vbOKOnly, " 警告") copyright paper51.com
Exit Sub 内容来自www.paper51.com
EndIf copyright paper51.com frmjiben.Show paper51.com frmjiben.ZOrder0 paper51.com
EndSub 内容来自论文无忧网 www.paper51.com PrivateSub leixing_Click() http://www.paper51.com qxstr= Executeqx(4) paper51.com
Ifqxstr = "false" Then paper51.com ss = MsgBox("对不起，你没有管理本功能的权限，请与管理员联系！",vbInformation + vbOKOnly, " 警告") 内容来自论文无忧网 www.paper51.com Exit Sub 内容来自www.paper51.com EndIf http://www.paper51.com Frmleixing.Show 内容来自www.paper51.com Frmleixing.ZOrder0 http://www.paper51.com EndSub copyright paper51.com PrivateSub liulan_Click() 内容来自论文无忧网 www.paper51.com qxstr= Executeqx(2) copyright paper51.com Ifqxstr = "false" Then http://www.paper51.com ss = MsgBox("对不起，你没有管理本功能的权限，请与管理员联系！",vbInformation + vbOKOnly, " 警告") paper51.com Exit Sub http://www.paper51.com EndIf http://www.paper51.com find = False http://www.paper51.com
Form3.Show http://www.paper51.com EndSub 内容来自论文无忧网 www.paper51.com
PrivateSub MDIForm_Load() http://www.paper51.com 'username= "0001" http://www.paper51.com DataEnv1.Connection1.ConnectionString= connstring 内容来自论文无忧网 www.paper51.com
StatusBar1.Panels(2).Text= Now paper51.com StatusBar1.Panels(3).Text= "当前操作员： " & username 内容来自www.paper51.com Dimaa As String copyright paper51.com SelectCase Executeqx(1) 内容来自论文无忧网 www.paper51.com Case"admin" 内容来自www.paper51.com aa = "超级管理员" copyright paper51.com
Case"readonly" 内容来自www.paper51.com aa = "只读管理员" paper51.com CaseElse http://www.paper51.com aa = "普通管理员" paper51.com EndSelect http://www.paper51.com StatusBar1.Panels(4).Text= "状态： " & aa paper51.com EndSub http://www.paper51.com PrivateSub useradd_Click() http://www.paper51.com qxstr= Executeqx(1) http://www.paper51.com
Ifqxstr = "false" Or qxstr = "readonly" Then http://www.paper51.com ss = MsgBox("对不起，你没有管理本功能的权限，请与管理员联系！",vbInformation + vbOKOnly, " 警告") 内容来自www.paper51.com Exit Sub 内容来自www.paper51.com
EndIf copyright paper51.com
frmuser1.Show 内容来自www.paper51.com frmuser1.ZOrder0 paper51.com EndSub copyright paper51.com PrivateSub usermodi_Click() copyright paper51.com qxstr= Executeqx(1) 内容来自论文无忧网 www.paper51.com Ifqxstr = "false" Then paper51.com
ss = MsgBox("对不起，你没有管理本功能的权限，请与管理员联系！",vbInformation + vbOKOnly, " 警告") 内容来自www.paper51.com
Exit Sub 内容来自www.paper51.com EndIf paper51.com frmcpass.Show paper51.com EndSub http://www.paper51.com PrivateSub xuefeiadd_Click() http://www.paper51.com qxstr= Executeqx(3) 内容来自www.paper51.com Ifqxstr = "false" Or qxstr = "readonly" Then http://www.paper51.com ss = MsgBox("对不起，你没有管理本功能的权限，请与管理员联系！",vbInformation + vbOKOnly, " 警告") 内容来自www.paper51.com Exit Sub copyright paper51.com |