编写VB程序，当程序启动时，生成一条日志记录

'很简单，添加一个过程 MyLog

'在 Form_Load 中加入 Call MyLog("启动")

'在 Form_Unload 中加入 Call MyLog("野睁退出")

Private Sub Form_Load()

Call MyLog("启动颂拦岁")

End Sub

Private Sub Form_Unload(Cancel As Integer)

Call MyLog("退出")

End Sub

Private Sub MyLog(nStr As String)

Dim F As String, H As Long

nStr = Format(Now, "yyyy-mm-dd hh:mm:ss") &nStr

F = "C:\myprog.log"

'如果要将文件保存到与你的 exe 相同的文件夹，将上句改为 F = App.Path &"\myprog.log"衡仿

H = FreeFile

Open F For Append As #H

Print #H, nStr

Close #H

End Sub

'记录数据

open "c:\log.txt" For Output As #2 ’写文件

Print #2, "用户：" &USERNAME &" *** 作时间：" &date &" " &time &" *** 作兄裂项目：登陆系统！"

Close #2

' 查看数据,并且梁裤在list1中一条条显橡尘简示出来

Open "c:\log.txt" For Input As #1 ’读文件

Dim i As String

Do While Not EOF(1)

Line Input #1, i '逐行把1号文件读入到变量i

list1.AddItem i

Loop

Close #1

那你只能是采取逐步跟踪的办法了。把每一步 *** 作都记录粗运下来，并保存到log文件或者csv文件，最好是csv，有行有列的好查阅，也好统计。

对于数据的更改或者添加，需要记录两个动作，一个是 *** 作记录，例如“xx时间xx管理员进行添加 *** 作，受影响表格xx，记录idxx”。二个是数据记录，针巧察对管理员 *** 作的记录。例如“xx管理员对表格xx的字段xx进行了xx *** 作，原记录xx，现记录xx”。

呵呵，只是给你一个思路，这玩意没有岩宽梁什么现成的东西给你。只能是参考一下了。欢迎经常到百度来提问。大家会帮你。

---