操作日志获取ADO生成的SQL语句
环境：Delphi7+ADO+SQL 2000
目前应用对操作的‘增、改、删’只做了标记性日志，即知道操作员在什么时候在哪台电脑做了‘增、改、删’的操作，现客户要求在‘修改’动作上要记录操作员具体修改了哪个字段，修改前值、修改后值，以便事后查证。
如何在post时获取Ado自动生成的SQL语句来作为操作日志的备注？
------解决思路----------------------1、通过 sql自带的 事件探查器
2、程序改为三层，有中间层记录执行过的sql
------解决思路----------------------简单点：增加一个日志功能，把每次执行的内容记录下来就可以了。
建立一个日志表：日期，人员，操作内容等等。
使用sql的时候进行添加就可以了。
------解决思路----------------------定义一全局变量
var Rec_List:TStringList; // 用户操作记录
每次保存、修改记录时加入以下代码
// 操作记录
Name:=Trim(DBEdit1.Text);
DateTimetoString(S,'yyyy-MM-dd hh:nn:ss',now);
REC_List.add(S+' 保存、修改“员工信息”：'+Name);
修改了什么，可以通过比较字段，加入即可。
------解决思路----------------------可以用触发器吧...
本站仅提供存储服务，所有内容均由用户发布，如发现有害或侵权内容，请
点击举报。
