登录的用户名和操作日志的用户名怎么连接？

gxy1000

该附件中的登录用户名和操作日志的用户名怎么连接？

gxy1000

roych 发表于 2012-8-26 14:33
其实论坛中好像是有这类的API代码的。由于网速的原因，请原谅我不上传附件了，把以下代码放进您的模块当中即 ...

谢谢！！但还是不行！！操作日志里计算机名和操作状况都行，就是用户名不行

roych

其实论坛中好像是有这类的API代码的。由于网速的原因，请原谅我不上传附件了，把以下代码放进您的模块当中即可：

1. Declare Function GetUserName Lib "advapi32.dll" Alias _
   
2.                                             "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
   
3. 
   
4. 
   
5. 
   
6. Function fOSUserName() As String
   
7. ' 返回用户名
   
8.     Dim lngLen As Long, lngX As Long
   
9.     Dim strUserName As String
   
10. 
    
11.     lngLen = 16
    
12.     strUserName = String$(lngLen, 0)
    
13.     lngX = GetUserName(strUserName, lngLen)
    
14.     If lngX <> 0 Then
    
15.         fOSUserName = Left$(strUserName, lngLen)
    
16.     Else
    
17.         fOSUserName = ""
    
18.     End If
    
19. End Function

复制代码

此外，如果需要得知软件的登录用户名，则可以在登录模块中设置点击“确定”后隐藏该窗体，再引用字段值到需要的控件或者语句当中（例如：=[forms]![frm_Logon]![用户名]）。——当然，也可以设置公共模块进行传值。

gxy1000

顶！！！！！！谁的用户名进入数据库！！操作日志的用户名怎么显示？