| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 访问登记 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=185194) |
| -- 作者：nxqtxwz -- 发布时间：2023/2/9 14:27:00 -- 访问登记 请问老师： 现在信息安全要求越来越严，怎么能记录用户登录账号、时间、访问过的表等操作呢。
|
| -- 作者：cd_tdh -- 发布时间：2023/2/9 14:32:00 -- 帮助搜操作日志 |
| -- 作者：有点蓝 -- 发布时间：2023/2/9 14:40:00 -- 比如：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=110215 |
| -- 作者：nxqtxwz -- 发布时间：2023/2/11 11:56:00 -- If e.DataTable.Name = "职工信息总表" AndAlso e.DataTable.Name = "学生数" AndAlso e.DataTable.Name = "工作量" Then 1、有很多表，但只想把这三个表的信息记录了，但为什么不行呢？ 2、复制、删除能不能记录呢。 If e.DataRow.RowState = 2 Then Return Else Dim dr As DataRow = DataTables("数据操作日志").AddNew dr("ID") = e.DataRow("_Identify") dr("用户") = User.Name dr("涉及表") = e.DataTable.Name dr("涉及列") = e.DataCol.Name dr("涉及行") = e.DataRow("_Identify") 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
|
| -- 作者：有点蓝 -- 发布时间：2023/2/11 13:34:00 -- 基础问题：http://www.foxtable.com/webhelp/topics/0220.htm If e.DataTable.Name = "职工信息总表" orelse e.DataTable.Name = "学生数" ....
|
| -- 作者：nxqtxwz -- 发布时间：2023/2/11 15:37:00 -- 请问复制、删除能不能记录呢。 |
| -- 作者：有点蓝 -- 发布时间：2023/2/11 15:49:00 -- 复制可以到keudown事件处理 删除到删除事件处理
|