- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 请帮忙看一下为何出错？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=62231)
-- 发布时间：2014/12/28 7:16:00
-- 请帮忙看一下为何出错？
请帮忙看一下为何出错？
管理者和开发者进入不出错，其他人出错
此主题相关图片如下：3.bmp
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.rar |
-- 发布时间：2014/12/28 7:32:00
--
不用数据库，密码都是888，用开发者和管理者直接进入，其他人员出现上述问题
-- 发布时间：2014/12/28 9:13:00
--
\'电脑ip设置
Dim IPAdress As System.Net.IPAddress
Dim HostName As String
HostName = System.Net.Dns.GetHostName \'获得本机的机器名
IPAdress = System.Net.Dns.GetHostByName(HostName).AddressList.GetValue(0) \'获得本机的IP
Dim ip As String = IPAdress.ToString
Dim dt As DataTable = DataTables("电脑位置")
Dim dr As DataRow
dr = dt.Find("电脑位置 = \'" & IP & "\' ")
If dr Is Nothing Then
MessageBox.show("你的电脑不存在!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Syscmd.Project.Exit(False)
Else
If dr.IsNull("用户") = False Then
Dim nms() As String = dr("用户").Split(",")
For Each nm As String In nms
If NM<>user.name AndAlso User.Type <> UserTypeEnum.Developer AndAlso User.Type <> UserTypeEnum.Administrator Then
MessageBox.Show("您未获得该电脑授权,无法使用该软件!!1")
Syscmd.Project.Exit(False)
End If
Next
End If
End If