Foxtable(狐表)用户栏目专家坐堂 → 局域网 扩展列 窗口图片 文件游览器 ip问题


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

主题:局域网 扩展列 窗口图片 文件游览器 ip问题

帅哥哟,离线,有人找我吗?
yifan3429
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2482 积分:22932 威望:0 精华:0 注册:2011/3/29 17:14:00
局域网 扩展列 窗口图片 文件游览器 ip问题  发帖心情 Post By:2014/9/9 0:03:00 [只看该作者]

示例三

如果希望能够在打开项目的时候,自动出现一个对话框,让用户可以自由选择外部数据文件,可以BeforeConnectOuterDataSource事件中加入下面的代码:

If e.Name = "连接名称" Then
    Dim
 dlg As New OpenFileDialog
    dlg.Filter= 
"Access文件|*.mdb"
    If dlg.ShowDialog = DialogResult.Ok Then
        e.ConnectionString = 
"Provider=
Microsoft.Jet.OLEDB.4.0;Data Source=" & dlg.FileName & ";Persist Security Info=False"
    End
 If
End
 if

示例四

假定有一个名为“销售数据”远程数据源,默认的IP地址为119.119.120.120,因为服务器的调整,IP地址可能会发生变化,导致数据源无法连接。
为解决这个问题,可以在用户管理窗口增加一个名为IP的扩展用户属性,让用户在登录的时候,可以输入另一个IP地址,
然后BeforeConnectOuterDataSource事件中加入下面的代码:

If e.Name = "销售数据" Then
    Dim
 IP As String = e.User.ExtendedValues("IP"'获得用户输入的IP
    
If IP > "" '如果用户自己输入了IP
        '则用用户输入的IP替换原来的IP

        e.ConnectionString = e.ConnectionString.Replace(
"119.119.120.120", IP)
    End
 If
End
 
If

你也可以用另一种方法解决,在项目文件目录下创建一个ip.txt的文本文件,在该文件中输入最新的IP地址,并在BeforeConnectOuterDataSource事件中设置如下代码:

Dim ipFile As String = e.ProjectPath & "ip.txt"
If
 e.Name = "销售数据" Then
    If
 Filesys.FileExists(ipFile) Then
        Dim
 ip As String = FileSys.ReadAllText(ipFile)
        e.ConnectionString = e.ConnectionString.Replace("119.119.120.120",ip)
    End 
If

End
 If



以上帮助告诉我们怎样改变和对待数据源的动态修改和 用户自定义。


我想问下大家  对于扩展列   和  窗口  图片  文件管理器  在局域网内使用怎样动态设计iP对话框呢

DataTables("产品").DataCols("图片").DefaultFolder = "\\hehui\share"

怎样设计一个对话框来让客户自己定义这个"\\hehui\share"路径




[此贴子已经被作者于2014-9-9 0:40:39编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/9/9 8:31:00 [只看该作者]

自己设计一个录入窗口,  或者用 InputValue


例如

Dim Val As String = ""
If InputValue(Val, 
"设置路径""请输入要设置的路径:"
) Then
    
DataTables("产品").DataCols("图片").DefaultFolder = Val
End If

 回到顶部