Dim UserName As String = e.Form.Controls("UserName").Value
Dim cmd As New SQLCommand
Dim dt As DataTable
Dim dr As DataRow
Dim fr As DataRow = DataTables("users").SQLFind("Name = '" & userName & "'")
cmd.C
If UserName = "" Then
Messagebox.show("请输入用户名!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Return
End If
cmd.CommandText = "Select * From {Users} Where [Name] = '" & UserName & "'"
dt = cmd.ExecuteReader
If dt.DataRows.Count = 0 Then
Messagebox.show("此用户不存在!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Return
End If
If Date.Today > fr("停用日期") Then
Messagebox.show("当前用户使用该系统的期限已经过期,请与管理员联系","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
'Syscmd.Project.Exit() '正常退出飞狐
Return '这个要加上,因为既然要退出,就不应该再执行后面的初始化代码了,否则会出错
Else
dr = dt.DataRows(0)
If e.Form.Controls("PassWord").Value = dr("Password") Then
_UserName = UserName
_UserGroup = dr("Group")
_User维护权限 = dr("维护权限")
_User分公司 = dr("分公司")
e.Form.Close
Else
Messagebox.show("密码错误!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
End If
If User.Type = UserTypeEnum.Developer AndAlso User.Type = UserTypeEnum.Administrator AndAlso _UserGroup = "特级管理员" Then
ConfigBar.Items("开发按钮").Visible = True
ConfigBar.Items("切换分公司").Visible = True
RibbonTabs("技术资料").visible = True
RibbonTabs("专项工作").visible = True
RibbonTabs("材料管理").visible = True
RibbonTabs("日常工作").visible = True
RibbonTabs("台帐管理").Groups("电源台帐").Items("电源台帐").Visible = True
RibbonTabs("台帐管理").Groups("互联网台帐").Items("互联网台帐").Visible = True
Else
ConfigBar.Items("开发按钮").Visible = False
ConfigBar.Items("切换分公司").Visible = False
RibbonTabs("技术资料").visible = False
RibbonTabs("专项工作").visible = False
RibbonTabs("材料管理").visible = False
RibbonTabs("日常工作").visible = False
RibbonTabs("台帐管理").Groups("电源台帐").Items("电源台帐").Visible = False
RibbonTabs("台帐管理").Groups("互联网台帐").Items("互联网台帐").Visible = False
End If
加好友 
发短信
Post By：2014/11/19 14:51:00 [只看该作者]
此主题相关图片如下：360截图20141119143920593.jpg