Foxtable(狐表) → 用户栏目 → 专家坐堂 → 用户登录


  共有8338人关注过本帖树形打印复制链接

主题：用户登录
帅哥哟，离线，有人找我吗？
kaituozhe
 小大  21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2234 积分：15284 威望：0 精华：0 注册：2015/7/18 10:10:00 		  发帖心情 Post By：2016/5/4 12:32:00 [显示全部帖子]


        If Network.Ping("192.168.0.100") = True  Then
            Connections.Add("鉴定软件", "Provider=SQLOLEDB.1;Password=sa@123;Persist Security Info=True;User ID=sa;Initial Catalog=" & fdr("数据源") & ";Data Source=192.168.0.100")
        Else
            Connections.Add("鉴定软件", "Provider=SQLOLEDB.1;Password=sa@123;Persist Security Info=True;User ID=sa;Initial Catalog=" & fdr("数据源") & ";Data Source=" & SysInfo.ComputerName & "")
        End If
 回到顶部
帅哥哟，离线，有人找我吗？
kaituozhe
 小大  22楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2234 积分：15284 威望：0 精华：0 注册：2015/7/18 10:10:00 		  发帖心情 Post By：2016/5/4 14:22:00 [显示全部帖子]

发布后在没有办法登录
 回到顶部
帅哥哟，离线，有人找我吗？
kaituozhe
 小大  23楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2234 积分：15284 威望：0 精华：0 注册：2015/7/18 10:10:00 		  发帖心情 Post By：2016/5/4 14:23:00 [显示全部帖子]

If e.Name = "users" Then
    If Network.Ping("192.168.0.100") = False  Then '如果第一个IP无法接通
        e.ConnectionString = e.ConnectionString.Replace("192.168.0.100", " & SysInfo.ComputerName &") 
    End If
End If
If e.Name = "鉴定软件" Then
    If Network.Ping("192.168.0.100") = False  Then '如果第一个IP无法接通
        e.ConnectionString = e.ConnectionString.Replace("192.168.0.100", " & SysInfo.ComputerName &") 
    End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
kaituozhe
 小大  24楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2234 积分：15284 威望：0 精华：0 注册：2015/7/18 10:10:00 		  发帖心情 Post By：2016/5/4 14:24:00 [显示全部帖子]

39楼是BeforeConnectOuterDataSource事件中的代码
 回到顶部
帅哥哟，离线，有人找我吗？
kaituozhe
 小大  25楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2234 积分：15284 威望：0 精华：0 注册：2015/7/18 10:10:00 		  发帖心情 Post By：2016/5/4 14:25:00 [显示全部帖子]

发布后不在局域网时没有办法登录，

 回到顶部
帅哥哟，离线，有人找我吗？
kaituozhe
 小大  26楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2234 积分：15284 威望：0 精华：0 注册：2015/7/18 10:10:00 		  发帖心情 Post By：2016/5/4 17:15:00 [显示全部帖子]

改为以下代码后登录电脑不网内时，先启动界面，启动界面结束后就什么都不显示了（按正常应该是显示登录窗口），这是什么原因？

以下BeforeConnectOuterDataSource事件中的代码

If e.Name = "users" Then
    If Network.Ping("192.168.0.100") = True  Then
        e.C ‘局域网
    Else
        e.C   不在网内，登录本地数据库
    End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
kaituozhe
 小大  27楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2234 积分：15284 威望：0 精华：0 注册：2015/7/18 10:10:00 		  发帖心情 Post By：2016/5/4 17:17:00 [显示全部帖子]

代码不
If e.Name = "users" Then
    If Network.Ping("192.168.0.100") = True  Then
        e.C
    Else
        e.C
    End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
kaituozhe
 小大  28楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2234 积分：15284 威望：0 精华：0 注册：2015/7/18 10:10:00 		  发帖心情 Post By：2016/5/4 17:22:00 [显示全部帖子]

以上两上传没有传上去，代码如下：

If e.Name = "users" Then
    If Network.Ping("192.168.0.100") = True  Then
        e.C
    Else
        e.C
    End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
kaituozhe
 小大  29楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2234 积分：15284 威望：0 精华：0 注册：2015/7/18 10:10:00 		  发帖心情 Post By：2016/5/4 17:23:00 [显示全部帖子]

代码怎么传不上去呀
 回到顶部
帅哥哟，离线，有人找我吗？
kaituozhe
 小大  30楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2234 积分：15284 威望：0 精华：0 注册：2015/7/18 10:10:00 		  发帖心情 Post By：2016/5/4 17:25:00 [显示全部帖子]

e.C局域网代码

e.C 本地电脑代码
 回到顶部
总数 45 上一页 1 2 3 4 5 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.13477 秒, 5 次数据查询