bcjbrowse_Click()
qxstr=Executeqx(4)
Ifqxstr="false"Then
ss=MsgBox("对不起,你没有管理本功能的权限,请与管理员联系!",vbInformation+vbOKOnly,"警告")
ExitSub
EndIf
frmcj1.Show
frmcj1.ZOrder0
EndSub
PrivateSubclaasfind_Click()
qxstr=Executeqx(2)
Ifqxstr="false"Then
ss=MsgBox("对不起,你没有管理本功能的权限,请与管理员联系!",vbInformation+vbOKOnly,"警告")
ExitSub
EndIf
Form4.Show
Form4.ZOrder(0)
i=SetWindowPos(Form4.hwnd,-1,0,0,0,0,3)
EndSub
PrivateSubclassapp_Click()
qxstr=Executeqx(2)
Ifqxstr="false"Orqxstr="readonly"Then
ss=MsgBox("对不起,你没有管理本功能的权限,请与管理员联系!",vbInformation+vbOKOnly,"警告")
ExitSub
EndIf
Formclass1.Show
classmodi=False
Formclass1.classload
Formclass1.ZOrder(0)
EndSub
PublicSubclabrowse()
txtsql="select*fromclass"
Formclass2.ZOrder(0)
Formclass2.Caption="浏览班级设置"
Formclass2.classshowtitle
Formclass2.classshowdata
EndSub
PrivateSubclassbrowse_Click()
qxstr=Executeqx(2)
Ifqxstr="false"Then
ss=MsgBox("对不起,你没有管理本功能的权限,请与管理员联系!",vbInformation+vbOKOnly,"警告")
ExitSub
EndIf
Formclass2.Show
EndSub
PrivateSubclassfind_Click()
qxstr=Executeqx(2)
Ifqxstr="false"Then
ss=MsgBox("对不起,你没有管理本功能的权限,请与管理员联系!",vbInformation+vbOKOnly,"警告")
ExitSub
EndIf
Formclass3.Show
Formclass3.ZOrder(0)
EndSub
PrivateSubfind_Click()
EndSub
PrivateSubclasskecheng_Click()
qxstr=Executeqx(4)
Ifqxstr="false"Then
ss=MsgBox("对不起,你没有管理本功能的权限,请与管理员联系!",vbInformation+vbOKOnly,"警告")
ExitSub
EndIf
Frmclasskecheng1.Show
Frmclasskecheng1.ZOrder
EndSub
PrivateSubdenglu2_Click()
Frmdenlu.Show
UnloadMe
EndSub
PrivateSubjiaofeiadd_Click()
qxstr=Executeqx(3)
Ifqxstr="false"Orqxstr="readonly"Then
ss=MsgBox("对不起,你没有管理本功能的权限,请与管理员联系!",vbInformation+vbOKOnly,"警告")
ExitSub
EndIf
Frmjf1.Show
Frmjf1.ZOrder0
EndSub
PrivateSubjiaofeibrowse_Click()
qxstr=Executeqx(3)
Ifqxstr="false"Then
ss=MsgBox("对不起,你没有管理本功能的权限,请与管理员联系!",vbInformation+vbOKOnly,"警告")
ExitSub
EndIf
frmjf2.Show
frmjf2.ZOrder0
EndSub
PrivateSubjiaofeifind_Click()
qxstr=Executeqx(3)
Ifqxstr="false"Then
ss=MsgBox("对不起,你没有管理本功能的权限,请与管理员联系!",vbInformation+vbOKOnly,"警告")
ExitSub
EndIf
Frmjf4.Show
EndSub
PrivateSubjibenkecheng_Click()
qxstr=Executeqx(4)
Ifqxstr="false"Then
ss=MsgBox("对不起,你没有管理本功能的权限,请与管理员联系!",vbInformation+vbOKOnly,"警告")
ExitSub
EndIf
frmjiben.Show
frmjiben.ZOrder0
EndSub
PrivateSubleixing_Click()
qxstr=Executeqx(4)
Ifqxstr="false"Then
ss=MsgBox("对不起,你没有管理本功能的权限,请与管理员联系!",vbInformation+vbOKOnly,"警告")
ExitSub
EndIf
Frmleixing.Show
Frmleixing.ZOrder0
EndSub
PrivateSubliulan_Click()
qxstr=Executeqx(2)
Ifqxstr="false"Then
ss=MsgBox("对不起,你没有管理本功能的权限,请与管理员联系!",vbInformation+vbOKOnly,"警告")
ExitSub
EndIf
find=False
Form3.Show
EndSub
PrivateSubMDIForm_Load()
'username="0001"
DataEnv1.Connection1.ConnectionString=connstring
StatusBar1.Panels(2).Text=Now
StatusBar1.Panels(3).Text="当前操作员:"&username
DimaaAsString
SelectCaseExecuteqx(1)
Case"admin"
aa="超级管理员"
Case"readonly"
aa="只读管理员"
CaseElse
aa="普通管理员"
EndSelect
StatusBar1.Panels(4).Text="状态:"&aa
EndSub
PrivateSubuseradd_Click()
qxstr=Executeqx(1)
Ifqxstr="false"Orqxstr="readonly"Then
ss=MsgBox("对不起,你没有管理本功能的权限,请与管理员联系!",vbInformation+vbOKOnly,"警告")
ExitSub
EndIf
frmuser1.Show
frmuser1.ZOrder0
EndSub
PrivateSubusermodi_Click()
qxstr=Executeqx(1)
Ifqxstr="false"Then
ss=MsgBox("对不起,你没有管理本功能的权限,请与管理员联系!",vbInformation+vbOKOnly,"警告")
ExitSub
EndIf
frmcpass.Show
EndSub
PrivateSubxuefeiadd_Click()
qxstr=Executeqx(3)
Ifqxstr="false"Orqxstr="readonly"Then
ss=MsgBox("对不起,你没有管理本功能的权限,请与管理员联系!",vbInformation+vbOKOnly,"警告")
ExitSub
EndIf
xuefeimodi=False
DimiAsInteger
Fori=0To3
frmxuefei1.Combo1(i).Enabled=True
Nexti
Me.Caption="添加班级设置"
Fori=0To3
frmxuefei1.Combo1(i).Text=""
Nexti
frmxuefei1.Text1.Text=""
frmxuefei1.Show
frmxuefei1.ZOrder0
EndSub
PublicSubxfbrowse()
txtsql="select*fromxuefeiorderby学期desc,年级desc,专业desc"
Frmxuefei2.ZOrder(0)
Frmxuefei2.Caption="浏览学费设置"
Frmxuefei2.xuefeishowtitle
Frmxuefei2.xuefeishowdata
EndSub
PrivateSubxuefeibrowse_Click()
qxstr=Executeqx(3)
Ifqxstr="false"Then
ss=MsgBox("对不起,你没有管理本功能的权限,请与管理员联系!",vbInformation+vbOKOnly,"警告")
ExitSub
EndIf
Frmxuefei2.Show
EndSub
PrivateSubxuefeifind_Click()
qxstr=Executeqx(3)
Ifqxstr="false"Then
ss=MsgBox("对不起,你没有管理本功能的权限,请与管理员联系!",vbInformation+vbOKOnly,"警告")
ExitSub
EndIf
Frmxuefei3.Show
Frmxuefei3.ZOrder(0)
i=SetWindowPos(Frmxuefei3.hwnd,-1,0,0,0,0,3)
EndSub
4.3用户管理模块:
本模块是本系统的安全性设置模块,根据学校不同部门以及不同使用人员对本系统的要求和需要,从而实行了分级管理,对用户的权限和类别进行了分类管理。
PrivateSubCommand1_Click()
IfTrim(Text1(0).Text)=""Then
MsgBox"用户名不能为空!",vbExclamation+vbOKOnly,"警告"
Text1(0).SetFocus
ExitSub
EndIf
IfTrim(Text1(1).Text)=""Then
MsgBox"密码不能为空!",vbExclamation+vbOKOnly,"警告"
Text1(1).SetFocus
ExitSub
EndIf
IfTrim(Text1(2).Text)=""Then
MsgBox"确认密码不能为空!",vbExclamation+vbOKOnly,"警告"
Text1(2).SetFocus
ExitSub
EndIf
IfTrim(Text1(1).Text)<>Trim(Text1(2).Text)Then
MsgBox"确认密码不正确!",vbExclamation+vbOKOnly,"警告"
Text1(2).SetFocus
ExitSub
EndIf
DimaaAsInteger
aa=0
IfOption1(2).Value=TrueThen
Fori=0To3
IfCheck1(i).Value=1Then
aa=1
ExitFor
EndIf
Nexti
Ifaa=0Then
MsgBox"普通用户至少要有一项权限!",vbExclamation+vbOKOnly,"警告"
ExitSub
EndIf
EndIf
DimmrcAsADO
上一篇:
vb+sql人事工资管理系统毕业设计(论文+源程序+PPT)(论文和程序)
下一篇:
电咖汽车入选2018独角兽企业榜百强 发布“天际”品牌将推高估值