- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 以管理员登录正常，以默认状态提示有问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=115761)
-- 发布时间：2018/3/14 9:50:00
-- 以管理员登录正常，以默认状态提示有问题
我使用的远程外部数据库，发布以管理员身份登录需要密码，但是当以默认用户登陆时区出现如附件提示。找不到数据库。而管理员又不支持默认登录，请问如何解决这个问题。
此主题相关图片如下：qq图片20180314095012.jpg
-- 发布时间：2018/3/14 9:54:00
--
1、beforeOpenProject写了什么代码？
2、BeforeConnectOuterDataSource写了什么代码？
-- 发布时间：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
-- 发布时间：2018/3/14 11:28:00
--
如果你beforeOpenProject、BeforeConnectOuterDataSource没有写代码，不可能有这种问题。
请上传项目、数据库也要上传上来。测试。
-- 发布时间：2018/3/14 11:53:00
--
附件中为我的全部数据库，但是这个数据库的数据没在远程文件上
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:工程部数据库20180301_201803141149.zip |
-- 发布时间：2018/3/14 11:54:00
--
把你的所有mdb数据库打包发上来啊。
-- 发布时间：2018/11/21 21:07:00
--
骚年，这个是几个方面的问题，你看你出在哪个方面，第一：可视化授权表的设计是否符合规范；第二：你在用户管理中有没有选择使用外部数据表存储用户信息；第三：你的项目事件检查一下