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 _User分公司 <> "惠州分公司" Then
RibbonTabs("技术资料").visible = False
RibbonTabs("专项工作").visible = False
RibbonTabs("材料管理").visible = False
RibbonTabs("日常管理").visible = False
RibbonTabs("台帐管理").Groups("电源台帐").Visible = False
RibbonTabs("台帐管理").Groups("互联网台帐").Visible = False
Else
RibbonTabs("技术资料").visible = True
RibbonTabs("专项工作").visible = True
RibbonTabs("材料管理").visible = True
RibbonTabs("日常管理").visible = True
RibbonTabs("台帐管理").Groups("电源台帐").Visible = True
RibbonTabs("台帐管理").Groups("互联网台帐").Visible = True
End If
If User.Type <> UserTypeEnum.Developer AndAlso User.Type <> UserTypeEnum.Administrator AndAlso _UserGroup <> "特级管理员" Then
ConfigBar.Items("开发按钮").Visible = False
Else
ConfigBar.Items("开发按钮").Visible = True
End If
If _UserGroup <> "特级管理员" AndAlso _UserGroup <> "省公司" Then
ConfigBar.Items("切换分公司").Visible = False
Else
ConfigBar.Items("切换分公司").Visible = True
End If
If User.Type <> UserTypeEnum.Developer AndAlso User.Type <> UserTypeEnum.Administrator AndAlso _UserGroup <> "特级管理员" AndAlso _UserGroup <> "省公司" Then
Dim fdr As DataRow = DataTables("Users").SQLFind("Name = '" & _userName & "'")
If fdr IsNot Nothing Then
_user分公司 = fdr("分公司")
End If
For Each dt1 As DataTable In DataTables
If dt1.Name <> "OLT设备用户端口数据表" AndAlso dt1.Name <> "Itellin用户数据表" AndAlso dt1.DataCols.Contains("分公司") Then
dt1.GlobalHandler.DataRowAdded = True
dt1.LoadFilter = "分公司 = '" & _user分公司 & "'" '只加载分公司=当前用户"分公司"列所属分公司内容
dt1.Load
End If
Next
Else
For Each dt1 As DataTable In DataTables
If dt1.Name <> "OLT设备用户端口数据表" AndAlso dt1.Name <> "Itellin用户数据表" AndAlso dt1.DataCols.Contains("分公司") Then
dt1.GlobalHandler.DataRowAdded = True
dt1.LoadFilter = "分公司 <> ''" '加载分公司列不等于"空"
dt1.Load
End If
Next
End If
加好友 
发短信
Post By：2014/11/26 9:39:00 [只看该作者]
