Foxtable(狐表)用户栏目专家坐堂 → 以管理员登录正常,以默认状态提示有问题


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

主题:以管理员登录正常,以默认状态提示有问题

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


加好友 发短信
等级:童狐 帖子:235 积分:2044 威望:0 精华:0 注册:2012/8/29 10:30:00
以管理员登录正常,以默认状态提示有问题  发帖心情 Post By:2018/3/14 9:50:00 [只看该作者]

我使用的远程外部数据库,发布以管理员身份登录需要密码,但是当以默认用户登陆时区出现如附件提示。找不到数据库。而管理员又不支持默认登录,请问如何解决这个问题。
图片点击可在新窗口打开查看此主题相关图片如下:qq图片20180314095012.jpg
图片点击可在新窗口打开查看

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


加好友 发短信
等级:版主 帖子:62660 积分:314398 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/3/14 9:54:00 [只看该作者]

1、beforeOpenProject写了什么代码?

 

2、BeforeConnectOuterDataSource写了什么代码?


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


加好友 发短信
等级:童狐 帖子:235 积分:2044 威望:0 精华:0 注册:2012/8/29 10:30:00
  发帖心情 Post By:2018/3/14 11:19:00 [只看该作者]

项目事件

AfterOpenProject

For Each dt As DataTable In DataTables
    dt.GlobalHandler.DataColChanged = True
    dt.GlobalHandler.DataRowAdded = True
Next
MainTable = Tables("设备台帐表")
Tables("设备台帐表").Visible = False
Tables("维修工单录入").Visible = False
Syscmd.Project.OpenSystemMenu()
Forms("1360*768分辨率窗口").Open()

DataColChanged

If e.DataTable.Name <> "数据操作日志" Then
    If e.DataRow.RowState = 2 Then
        Return
    Else
        Dim dr As DataRow = DataTables("数据操作日志").AddNew
         dr("用户") = ComputerName       
dr("涉及表") = e.DataTable.Name
        dr("涉及列") = e.DataCol.Name
        dr("涉及行") = User.Name
        dr("时间") = Date.Now
        dr("操作") = """" & e.OldValue &  """ 改成了 """ & e.NewValue & """"
        Dim str As String = ""
        For Each c As DataCol In e.DataTable.DataCols
            str += c.Name & "=" & e.DataRow(c.Name) & "|"
        Next
        dr("原行数据") = str
    End If
End If

DataRowAdded

If e.DataTable.Name <> "数据操作日志" Then
    Dim dr As DataRow = DataTables("数据操作日志").AddNew
    dr("用户") = ComputerName
    dr("涉及表") = e.DataTable.Name
    dr("涉及列") = Nothing
    dr("涉及行") = User.Name
    dr("时间") = Date.Now
    dr("操作") = "增加了一行"
    Dim str As String = ""
    For Each c As DataCol In e.DataTable.DataCols
        str += c.Name & "=" & e.DataRow(c.Name) & "|"
    Next
    dr("原行数据") = str
End If


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


加好友 发短信
等级:版主 帖子:62660 积分:314398 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/3/14 11:28:00 [只看该作者]

如果你beforeOpenProject、BeforeConnectOuterDataSource没有写代码,不可能有这种问题。

 

请上传项目、数据库也要上传上来。测试。


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


加好友 发短信
等级:童狐 帖子:235 积分:2044 威望:0 精华:0 注册:2012/8/29 10:30:00
  发帖心情 Post By:2018/3/14 11:53:00 [只看该作者]

附件中为我的全部数据库,但是这个数据库的数据没在远程文件上
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:工程部数据库20180301_201803141149.zip


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


加好友 发短信
等级:版主 帖子:62660 积分:314398 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/3/14 11:54:00 [只看该作者]

把你的所有mdb数据库打包发上来啊。


 回到顶部