如何在记录数据的操作者

yanwei82123300

一个小的仓库系统，登录系统后，想记录一下系统的操作者，例如：物料的出入库历史记录里面如何记录实际的操作者呢？谢谢
能否给个例子，谢谢
出入库历史记录表
物料号， 出入库代码 ，出入库日期，数量 , 操作人(即系统的登录人)

roych

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

roych 谢谢您的帮助！

yanwei82123300

roych 老师我用了您的例子，感觉不错。也不需要记录日志。