Office中国论坛/Access中国论坛

标题: 如何在记录数据的操作者 [打印本页]
作者: yanwei82123300    时间: 2018-12-23 16:36
标题: 如何在记录数据的操作者
一个小的仓库系统，登录系统后，想记录一下系统的操作者，例如：物料的出入库历史记录里面如何记录实际的操作者呢？谢谢
能否给个例子，谢谢
出入库历史记录表
物料号， 出入库代码 ，出入库日期，数量 , 操作人(即系统的登录人)
作者: roych    时间: 2018-12-23 18:25
1、登录时不要退出登录界面（改为隐藏），后面操作数据时（insert into ^），引用登录用户（例如，=FrmLogin!User）即可。
2、使用公共模块，在需要使用的地方引用。——不过这个方法的风险在于公共模块的生命周期有时候会给你带来不可预料的问题。
3、例子，请参考以下链接里的操作日志相关模块（Logon窗体）：
http://www.office-cn.net/thread-72046-1-1.html
【其实大多数开发平台都会有类似的模块的，只是没几个人去认真研究而已。】
  1. '登录/操作日志写入过程，只由RunMenuCommand函数调用
  2. Public Sub PutOperateLog(Operate As String, Object As String)
  3. On Error Resume Next
  4.     Dim strSQL As String
  5.    
  6.    
  7.     strSQL = " INSERT INTO [登录/操作日志](FComputerName,FUserName,FOperate,FObject)" & _
  8.              " SELECT '" & Environ$("ComputerName") & "','" & Forms!frmLogon!txtUserName & "','" & _
  9.                       Operate & "','" & Object & "'"
  10.     CurrentDb.Execute strSQL
  11. End Sub
复制代码


作者: yanwei82123300    时间: 2018-12-23 18:49
roych 谢谢您的帮助！
作者: yanwei82123300    时间: 2018-12-27 18:55
roych 老师我用了您的例子，感觉不错。也不需要记录日志。




欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3