下面就是《K3模块占用情况一览表》的制作过程，分享如下：

   （整理自本人2004年工作手记）

 

对于一个K/3管理员来说，掌握用户使用状况是重要方面之一，特别是当用户数比较紧张的情况下，要用的用户进不去，不要用的用户却不退出来，给K/3的使用效果额外地打了折扣；而如果用户使用调度合理，则可以在不追加投次的情况下，提高K/3系统的使用效率。
然而，K/3系统不提供在客户端查看用户使用情况的功能，要想知道当前用户的使用情况，就只能到中间层服务器上查看。然而，k/3管理员不能总守着服务器，同时也占用了不必要的时间。所以能从客户端看到用户在用情况就显得相当必要。
幸好的是，K/3系统提供了丰富的LOG记录，对于用户进入系统、进入模块、退出模块、保存单据等动作都作了详细的记录。这样，我们只要分析LOG记录，应可以得到当前在用用户的情况。当然，这个办法得到的数据可能存在这样的垃圾，那就是由于用户死机或异常退出时，不能记录模块退出事件，故如果该用户没有再次进入K/3或进入后再退出K/3系统,则从LOG记录看，该用户上次的动作是正常使用，最后不是退出事件，因此只能判定该用户在线，这样计算出来的用户闲置时间是不正确的。然而，好在这种情况不是很严重，所以这样统计得到的结果基本上还是可信的。
下面的程序只处理了在应用中涉及部门较多的物流各模块，这些模块在应用中是最易成为瓶颈的部分，且价格较高。
程序的基本思路是：建立一个存储过程，找到当天的记录中，每个用户最后使用系统的LOG记录，其中使用时间距当前时间的分钟数在指定分钟数以上的记录；去掉其中事件为退出的用户（这些用户已经退出系统了），以此为依据显示使用情况与闲置时间。源代码如下：

create  procedure sps_no_use_user @mnt int
as
--本过程用户得到金蝶K/3系统的当前在用用户情况
--@mnt表示只列出闲置时间超过此分钟数的在用户用户。
select top 100 fuserid,left(ffunctionid,3) as fid,max(fdate) as rq,max(flogid) as lid into #l  from  t_log
where fdate>=convert(varchar(8),getdate(),112) and ffunctionid like 'K0%' group by fuserid,left(ffunctionid,3) having getdate()-max(fdate)>1.0/24/60*@mnt
--去掉是退出事件的:
delete #l
   from #l l,t_log lg where lg.flogid=l.lid and lg.ffunctionid like 'K0_999'
--列出清单:
select u.fname as 用户名,u.fdescription as 用户说明,f.ffunctionname 最后使用功能,cast(getdate()-l.fdate as money)*24.0*60  as 闲置分钟数,
  FDATE AS 最后操作时间,fmachinename as 最后操作用电脑,fipaddress as 最后操作IP地址
  from t_log l,t_user u,t_logfunction f,#l ll
  where f.ffunctionid=*l.ffunctionid and u.fuserid=l.fuserid and ll.lid=l.flogid order by l.ffunctionid,u.fname

 

这样，我们即可得到一张用户在用报表。